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

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

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業(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中用程序控制鼠標移動和點擊

調(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 '模擬鼠標左鍵按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模擬鼠標左鍵釋放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模擬鼠標中間鍵按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模擬鼠標中間鍵釋放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模擬鼠標右鍵按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模擬鼠標右鍵釋放

Public Const MOUSEEVENTF_MOVE = H1 '模擬鼠標指針移動

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模擬鼠標左鍵按下

本文標題：vb.net中后模擬點擊 vbs 模擬鼠標點擊
本文地址：http://vcdvsql.cn/article40/hhpseo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供域名注冊、軟件開發(fā)、動態(tài)網(wǎng)站、網(wǎng)站收錄、移動網(wǎng)站建設(shè)、ChatGPT

廣告

聲明：本網(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)