VB 怎么模擬點擊網(wǎng)頁中的按鈕（button）

利用vb里的控件webbrowser訪問這個網(wǎng)頁，就能直接訪問到它的源碼。至于你想通過代碼點擊這個按鈕是可以實現(xiàn)的，很多論壇自動發(fā)廣告的程序就是這樣實現(xiàn)的。不過我記得由于vb6的代碼提示不全，不能通過代碼提示找到這個功能。

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴，公司提供的服務(wù)項目有：主機域名、網(wǎng)絡(luò)空間、營銷軟件、網(wǎng)站建設(shè)、新津縣網(wǎng)站維護、網(wǎng)站推廣。

如果你有vb.net的話，在form上拽個.net的webbrowser控件，然后你看看里面的代碼提示。其中包括了操作模擬的功能，然后再把代碼復(fù)制回vb6就能用了。

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í)行點擊的相應(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.net中用程序控制鼠標(biāo)移動和點擊

調(diào)用api

在Visual Baisc.net中的聲明：

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

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模擬鼠標(biāo)左鍵按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模擬鼠標(biāo)左鍵釋放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模擬鼠標(biāo)中間鍵按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模擬鼠標(biāo)中間鍵釋放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模擬鼠標(biāo)右鍵按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模擬鼠標(biāo)右鍵釋放

Public Const MOUSEEVENTF_MOVE = H1 '模擬鼠標(biāo)指針移動

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模擬鼠標(biāo)左鍵按下