62,242
社区成员




Dim ie As Object = CreateObject("InternetExplorer.Application")
Dim strURL As String = g_httppath
With ie
.Visible = True
.Navigate(strURL)
System.Threading.Thread.Sleep(500)
Do While .busy
Application.DoEvents()
Loop
.Document.All("txtUserName").Value = "js001" 'g_AgentName
System.Threading.Thread.Sleep(500)
.Document.All("txtPwd").Value = "" 'g_AgentPassWord
System.Threading.Thread.Sleep(500)
.Document.All("btnEnter").Click()
System.Threading.Thread.Sleep(500)
End With