VB.NET模擬鼠標問題

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)

成都創(chuàng)新互聯(lián)堅持“要么做到，要么別承諾”的工作理念，服務領域包括：網(wǎng)站設計、成都網(wǎng)站建設、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務，滿足客戶于互聯(lián)網(wǎng)時代的石屏網(wǎng)站設計、移動媒體設計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡建設合作伙伴！

Dim postion1 As New Point

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

'按絕對位置移動鼠標

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

'當前所用顯示屏分辨率為1366*768

'所以要進行如上轉換

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

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

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

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

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

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

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

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

二.還有想要實現(xiàn)點擊，直接執(zhí)行點擊的相應函數(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.net 模擬鼠標單擊

夢西已經(jīng)屏蔽了mouse_event，防止自動練級……

所以很遺憾，這個API在這里用不了。