1,502
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Label1.Caption = Inet1.OpenURL("http://xiaowenwen.w16.i93133.com/Users/" & Text1.Text & ".html")
If Label1.Caption = Text2.Text Then
MsgBox "成功登录!", 64, "提示"
Else
MsgBox "用户名或密码错误!", 16, "警告"
End If
End Sub