搜索熱詞

選中復選框

Private Sub Command1_Click()

Dim objDoc As Object

Dim i As Integer

Set objDoc = WebBrowser1.Document.All.tags("button")

For i = 0 To objDoc.length - 1

Select Case objDoc(i).Type

Case "submit"

objDoc(i).Click

Exit For

End Select

Next

End Sub

VB 選定LIST 自動填表

'例子在這..寫在command里看效果吧..加一個WebBrowser1.之后寫上這些效果 。。

WebBrowser1.Navigate "http://newreg.qq.com/"

Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE '等裝載完

DoEvents

Loop

WebBrowser1.Document.All.tags("select")(3).selectedIndex = 2 '改屬性

WebBrowser1.Document.All.tags("select")(3).onchange '確認

直接運行網(wǎng)頁中的JavaScript：

function alllefttab()

WebBrowser1.Document.parentwindow.execScript "insert(2)","JavaScript"

自動選擇下拉列表中的某項2

Dim s

s = "javascript:document.getElementsByName(""w_type"")[0].value='2';void(0)"

WebBrowser1.Document.parentwindow.execscript s

添加一個WebBrowser1

Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Dim SendLog%

Private Sub Command1_Click()

MsgBox WebBrowser1.LocationName & "|" & WebBrowser1.LocationURL

End Sub

Private Sub Form_Load()

If App.PrevInstance = True Then

MsgBox "你已經(jīng)運行過一個嘍！"

End

End If

Me.Hide

WebBrowser1.Left = 240

WebBrowser1.top = 240

WebBrowser1.Navigate "http://zhidao.baidu.com/"

'WebBrowser1.Navigate "http://zhidao.baidu.com/index.PHP?act=worklog:loginfo&id="

End Sub

Private Sub Form_Resize()

WebBrowser1.Width = Me.Width - WebBrowser1.Left - 350

WebBrowser1.Height = Me.Height - WebBrowser1.top - 750

End Sub

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

Me.Caption = WebBrowser1.LocationName

'登錄并轉(zhuǎn)到

Dim vDoc,vTag

Dim i As Integer

Dim s

If WebBrowser1.LocationURL = "http://zhidao.baidu.com/" Then

Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.length - 1

If UCase(vDoc.All(i).tagName) = "INPUT" Then

Set vTag = vDoc.All(i)

If vTag.Type = "text" Or vTag.Type = "password" Then

Select Case vTag.Name

Case "userid"

vTag.Value = "wangquan"

Case "userps"

vTag.Value = "1282"

End Select

ElseIf vTag.Type = "submit" Then

vTag.Click

End If

End If

Next i

WebBrowser1.Navigate "http://zhidao.baidu.com/index.PHP?act=worklog:insert"

End If

'是否周末

If WebBrowser1.LocationURL = "http://zhidao.baidu.com/index.PHP?act=worklog:insert" Then

Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.length - 1

If UCase(vDoc.All(i).tagName) = "INPUT" Then

Set vTag = vDoc.All(i)

If vTag.Type = "text" Or vTag.Type = "hidden" Then

'填寫標題

If vTag.Name = "w_title" Then

Dim todays

todays = IIf(DateDiff("s","07:00:00",Time) < 0,Date - 1,Date)

todays = Format(todays,"yyyy年mm月dd日")

vTag.Value = todays

End If

'選擇類別

s = "javascript:document.getElementsByName(""w_type"")[0].value='" & IIf(Weekday(Now,2) > 5,1,0) & "';void(0)"

WebBrowser1.Document.parentwindow.execScript s

End If

'提交日志

If SendLog = 0 Then

WebBrowser1.Document.parentwindow.execScript "insert(2)","JavaScript"

SendLog = 1

End If

End If

Next i

Exit Sub

End If

'提交跳轉(zhuǎn)http://zhidao.baidu.com/index.PHP?act=worklog:insert:sc

If WebBrowser1.LocationURL = "http://zhidao.baidu.com/index.PHP?act=worklog:insert:sc" Then

WebBrowser1.Navigate "http://zhidao.baidu.com/?act=worklog:mylogList"

'MsgBox "今天的日志已經(jīng)提交，但不保證成功哦！",64,Me.Caption

End If

If WebBrowser1.LocationURL = "http://zhidao.baidu.com/?act=worklog:mylogList" Then

Me.Show

End If

End Sub

'煙花飄飄-{百}度注冊機開源

Dim S As Boolean,inf,Info

Private Sub Command1_Click()

S = False

WebBrowser1.Navigate "https://passport.baidu.com/?reg?type=1?from=1&tpl=ik&u=http%3A//zhidao.baidu.com/regok.html%3Flogin%26t%3D1246074692593"

Do While S = False

DoEvents

Loop

Randomize

For Each a In WebBrowser1.Document.getelementsbytagname("input")

Select Case a.Name

Case "username"

a.Value = CLng(Rnd * 123456789 + 9999999)

inf = "用戶名:" & a.Value & vbCrLf

Case "loginpass","verifypass"

a.Value = "yanhuapiaopiao"

Case "email"

a.Value = "yhpp.ys168.com@qq.com"

Case "verifycode"

Set w = WebBrowser1.Document.getelementbyid("verifypic")

Set w1 = WebBrowser1.Document.BODY.createcontrolrange

w1.Add (w)

w1.execCommand ("Copy")

Picture1.Picture = Clipboard.GetData

t = InputBox("輸入圖片框里的驗證碼")

If Len(t) <> 4 Then Exit Sub

a.Value = t

Case "submit"

a.Click

Info = Info & inf

Text1 = Info

End Select

Next

End Sub

Private Sub Form_Load()

Info = "注冊的賬號：(密碼都是: yanhuapiaopiao )" & vbCrLf

End Sub

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

S = True

End Sub

總結(jié)

以上是編程之家為你收集整理的vb實現(xiàn)網(wǎng)頁自動填表全部內(nèi)容，希望文章能夠幫你解決vb實現(xiàn)網(wǎng)頁自動填表所遇到的程序開發(fā)問題。

如果覺得編程之家網(wǎng)站內(nèi)容還不錯，歡迎將編程之家網(wǎng)站推薦給程序員好友。

本圖文內(nèi)容來源于網(wǎng)友網(wǎng)絡收集整理提供，作為學習參考使用，版權(quán)屬于原作者。

總結(jié)

以上是生活随笔為你收集整理的php自动填表单,vb实现网页自动填表的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。