vs2012 vb.net 模擬網(wǎng)頁按鈕點擊

使用webbrowser空間實現(xiàn)很簡單

成都創(chuàng)新互聯(lián)公司始終堅持【策劃先行，效果至上】的經(jīng)營理念，通過多達(dá)十載累計超上千家客戶的網(wǎng)站建設(shè)總結(jié)了一套系統(tǒng)有效的全網(wǎng)整合營銷推廣解決方案，現(xiàn)已廣泛運用于各行各業(yè)的客戶，其中包括：成都花箱等企業(yè)，備受客戶認(rèn)可。

一。 首先在窗體頭部定義 Dim WithEvents MyDom As MSHTML.HTMLDocument

其次找到element對象 myDom=WebBrowser1.Document.getElementsByName("sa")

最后執(zhí)行onclick : mydom.onclick

二.還有想要實現(xiàn)點擊，直接執(zhí)行點擊的相應(yīng)函數(shù)即可例如：假設(shè)想實現(xiàn)點擊下面的Inputbox

input id="busT1" name="busT" type="radio" value="1" class="input5" checked="checked" onclick="busSwitchDiv('changeDiv')" tabindex="18"/

那么直接執(zhí)行onclick里的函數(shù)busSwitchDiv('changeDiv')即可，執(zhí)行語句如下：

WebBrowser1.Document.parentwindow.execscript "busSwitchDiv('changeDiv')"

用vb或c#或vb.net 找到當(dāng)前打開的瀏覽器窗口并模擬點擊網(wǎng)頁按鈕

一般情況下都是自己開發(fā)一個瀏覽器的。

有個工具叫做spy++,用于抓窗口和句柄，不過所用語言是c++，木有關(guān)系，c#可以調(diào)用c++。

VB.NET模擬鼠標(biāo)問題

Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)

Dim postion1 As New Point

mouse_event(H1 Or H8000, postion1.X * 65535 / 1366, postion1.Y * 65535 / 768, 0, 0)

'按絕對位置移動鼠標(biāo)

'在鼠標(biāo)坐標(biāo)系統(tǒng)中，屏幕在水平和垂直方向上均勻分割成65535×65535個單元，

'當(dāng)前所用顯示屏分辨率為1366*768

'所以要進(jìn)行如上轉(zhuǎn)換

mouse_event(H2, 0, 0, 0, 0) '鼠標(biāo)左鍵按下

mouse_event(H4, 0, 0, 0, 0) '鼠標(biāo)左鍵彈起

msdn上有 mouse_event 的詳解，大致使用如上

網(wǎng)站欄目：vb.net模擬點擊屏幕 vba模擬點擊
鏈接地址：http://chinadenli.net/article2/doecdic.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、企業(yè)網(wǎng)站制作、云服務(wù)器、定制網(wǎng)站、定制開發(fā)、微信公眾號

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)