vb 클릭

참조:http://www.lob.cn/jq/skill/2980.shtml
웹 페이지 자동 로그 인, 웹 페이지 시 뮬 레이 션 클릭 에 사용 할 수 있 습 니 다. 공공 컨트롤 웹 브 라 우 저 로 호출 되 고 폼 의 작성 과 마우스 클릭 이벤트 등 을 모 의 할 수 있 습 니 다. 보 여 주 는 코드 부분 은 다음 과 같 습 니 다.
네트워크 정상 여 부 를 판단 하 다.

Private Function IsConnectedToInternet() As Boolean
 Dim Desc As Integer
 Return internet.InternetGetConnectedState(Desc, 0)
End Function

        :

webBrowser1.Navigate(New Uri(http://www.lob.cn))

Private Sub btnlogin_Click(sender As Object, e As EventArgs)


	webBrowser1.Document.GetElementById("id").InnerText = txtuser.Text.ToString().Trim()
	'       

	webBrowser1.Document.GetElementById("passwd").InnerText = txtpwd.Text.ToString().Trim()
	'         

	Dim formLogin As HtmlElement = webBrowser1.Document.Forms("frmLogin")

	formLogin.InvokeMember("submit")

	Thread.Sleep(5000)

	herfclick(http://www.lob.cn)
'         
	'          ,      

	'SESSION    

	herfclick(http://www.lob.cn)

End Sub

    url  :

Private Sub herfclick(url As String)


	For i As Integer = 0 To webBrowser1.Document.All.Count - 1


		If webBrowser1.Document.All(i).TagName = "A" AndAlso webBrowser1.Document.All(i).GetAttribute("href").ToString().Trim() = url Then


			webBrowser1.Document.All(i).InvokeMember("click")
			'  ”CLICK”      .net         lob.cn
 
			Exit For

		End If
	Next

End Sub

    :

Private Sub filldate(txt As String)


	Dim frmWord As HtmlElement = webBrowser1.Document.Forms("frmWord")
	'  from
	Dim txtarea As HtmlElementCollection = frmWord.GetElementsByTagName("TEXTAREA")

	Dim radio As HtmlElementCollection = frmWord.GetElementsByTagName("INPUT")

	radio(2).InvokeMember("click")
	'  radio  
	txtarea(0).InnerText = txt.ToString()

End Sub

     , webBrowser1 DocumentCompleted            url  ,      url       url  ,

'string strURL        URL
Private Sub webBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
			'      
	If e.Url.ToString().Trim() = strURL.Trim() Then
	End If
End Sub

'              ,      ;
webBrowser1.Document.Window.ScrollTo(100, 100)