vb怎樣實(shí)現(xiàn)某個按鈕自動點(diǎn)擊

1、利用鼠標(biāo)模擬事件

創(chuàng)新互聯(lián)于2013年開始，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目成都網(wǎng)站建設(shè)、網(wǎng)站制作網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元周村做網(wǎng)站,已為上家服務(wù),為周村各地企業(yè)和個人服務(wù),聯(lián)系電話:028-86922220

2、新建工程-----編輯一個按鈕和一個文本框和一個定時器

3、在定時器里寫每一百毫秒鼠標(biāo)點(diǎn)擊一次

SetCursorPos

500,

500

mouse_event

MOUSEEVENTF_LEFTDOWN,

0,

0,

0,

mouse_event

MOUSEEVENTF_LEFTUP,

0,

0,

0,

怎樣自動點(diǎn)擊一個按鈕（VB.NET）

vb我不是很會，我給你說個思路吧。timer控件設(shè)定計(jì)時開始和速度，假設(shè)為一秒一下。在timer事件中調(diào)用button的單擊事件，當(dāng)然timer中還需要定義一個變量，用來做自增運(yùn)算，一遍計(jì)算運(yùn)行的時間。當(dāng)變量到100后，彈出窗口提示完成，timer控件停止就行了。如果還是不明白我可以給你編個c#的代碼，只要是vb的語法不是很會。

VB實(shí)現(xiàn)自動點(diǎn)擊按鈕的問題

某網(wǎng)頁按鈕內(nèi)容：

TDINPUT TYPE="text" NAME="crystalcount" value="100" size=10 maxlength=10 INPUT type="button" class=btn1_mouseout onmouseover="this.className='btn1_mouseover'" onmouseout="this.className='btn1_mouseout'" value="最大值" onclick="javascript:document.f1.crystalcount.value=3960" 現(xiàn)有500萬/TD

代碼：

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.length - 1 '檢測所有標(biāo)簽

If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input標(biāo)簽

Set vTag = vDoc.All(i)

If vTag.Type = "button" And vTag.Value = "最大值" Then '找到確定按鈕。

vTag.Select '也可以沒有這個

vTag.Click '點(diǎn)擊提交了，一切都OK了

End If

End If

Next i

End Sub

*但不是對所有網(wǎng)頁均有用，有些網(wǎng)頁調(diào)用其它頁面或JS的，就無法使用了。只能用模擬鼠標(biāo)點(diǎn)擊等方法實(shí)現(xiàn)了。

VB按鈕怎么自動點(diǎn)擊多次，

方法1,添加1個按鈕：每當(dāng)單擊這個按鈕，就會連續(xù)單擊“下一個”按鈕10次。

Private

Sub

Command2_Click()

Dim

i

As

Integer

For

i

=

1

To

10

Call

下一個_Click

Next

i

End

Sub

如果你還不認(rèn)為是自動，那么就用Timer控件，每間隔一定時間，單擊“下一個”按鈕1次。

Private

Sub

Timer1_Timer()

Call

下一個_Click

End

Sub

vb.net 如何實(shí)現(xiàn)自動點(diǎn)擊一下網(wǎng)頁中的按鈕

你好哦。 很高興看到你的問題。 但是又很遺憾到現(xiàn)在還沒有人回答你的問題。也可能你現(xiàn)在已經(jīng)在別的地方找到了答案，那就得恭喜你啦。 可能是你問的問題有些專業(yè)了，沒人會。或者別人沒有遇到或者接觸過你的問題，所以幫不了你。建議你去問題的相關(guān)論壇去求助，那里的人通常比較多，也比較熱心，可能能快點(diǎn)幫你解決問題。 祝你好運(yùn)~！ 希望我的回答也能夠幫到你！ 謝謝

vb怎么每隔一秒自動點(diǎn)擊按鈕

VB可使用Timer控件的Timer事件實(shí)現(xiàn)執(zhí)行按鈕的Click事件來實(shí)現(xiàn)。

Timer 控件，通過引發(fā) Timer 事件，Timer 控件可以有規(guī)律地隔一段時間執(zhí)行一次代碼。

Timer 事件，在一個 Timer 控件的預(yù)定的時間間隔過去之后發(fā)生。該間隔的頻率儲存于該控件的 Interval 屬性中，它以千分之一秒為單位指定時間的長度。

實(shí)例代碼：

Option?Explicit

Dim?i?As?Long

Private?Sub?Command1_Click()

Me.Cls

i?=?i?+?1

Me.Print?i

End?Sub

Private?Sub?Form_Load()

Timer1.Interval?=?1000

Timer1.Enabled?=?True

End?Sub

Private?Sub?Timer1_Timer()

Command1_Click

End?Sub