引用 Mircosoft internet controls, 使用其中的webbrowser控件, WebBrowser1.Navigate "http://mygame.17173.com/wlsg/"
这个只能打开 http://mygame.17173.com/wlsg/到网页,如果仅是为了到这个页,方法太多了,不用控件直接就可以 Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub Form_Load() ShellExecute 0&, vbNullString, "http://mygame.17173.com/wlsg/", vbNullString, vbNullString, vbNormalFocus End Sub 如果要自动输入用户名和密码就要找Input标签下的Text,和password
引用 Mircosoft internet controls, 使用其中的webbrowser控件, WebBrowser1.Navigate "http://mygame.17173.com/wlsg/"
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
ShellExecute 0&, vbNullString, "http://mygame.17173.com/wlsg/", vbNullString, vbNullString, vbNormalFocus
End Sub
如果要自动输入用户名和密码就要找Input标签下的Text,和password