vb实现网页自动填表

http://tieba.baidu.com/f?kz=580219489

http://www.anqn.com/vb/154/8974.shtml

http://www.codefans.net/soft/5089.shtml

http://www.mndsoft.com/blog/article.asp?id=1121

http://topic.csdn.net/t/20020113/14/474848.html

选中复选框

Private Sub Command1_Click() Dim objDoc As Object Dim i As Integer Set objDoc = Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.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

http://www.vbgood.com/viewthread.php?tid=79822

http://wenwen.soso.com/z/q136444728.htm

VB 选定LIST 自动填表

'例子<a href="https://www.jb51.cc/tag/zaizhe/" target="_blank" class="keywords">在这</a>..写在command里看<a href="https://www.jb51.cc/tag/xiaoguo/" target="_blank" class="keywords">效果</a>吧..加<a href="https://www.jb51.cc/tag/yige/" target="_blank" class="keywords">一个</a>Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.之后写上这些<a href="https://www.jb51.cc/tag/xiaoguo/" target="_blank" class="keywords">效果</a> 。。 Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Navigate "http://newreg.qq.com/" Do Until Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.ReadyState = READYSTATE_COMPLETE '等装载完 DoEvents Loop Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Document.All.tags("select")(3).selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex = 2 '改<a href="https://www.jb51.cc/tag/shuxing/" target="_blank" class="keywords">属性</a> Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Document.All.tags("select")(3).onchange '确认

直接运行网页中的JavaScript：

function alllefttab()

Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Document.paren<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>ow.execScript "insert(2)","JavaScript"

自动选择下拉列表中的某项2

Dim s s = "javascript:document.getElementsByName(""w_type"")[0].value='2';void(0)" Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Document.paren<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>ow.execscript s

添加一个Webbrowser1

Option Explicit Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Dim SendLog% Private Sub Command1_Click() Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.LocationName & "|" & Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.LocationURL End Sub Private Sub Form_Load() If App.PrevInstance = True Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "你已经运行过<a href="https://www.jb51.cc/tag/yige/" target="_blank" class="keywords">一个</a>喽！" End End If Me.Hide Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Left = 240 Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.top = 240 Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Navigate "http://zhidao.baidu.com/" 'Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Navigate "http://zhidao.baidu.com/index.<a href="https://www.jb51.cc/tag/PHP/" target="_blank" class="keywords">PHP</a>?act=worklog:loginfo&id=" End Sub Private Sub Form_Resize() Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Width = Me.Width - Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Left - 350 Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Height = Me.Height - Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.top - 750 End Sub Private Sub Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1_DocumentComplete(ByVal p<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>p As Object,URL As Variant) Me.Caption = Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.LocationName '<a href="https://www.jb51.cc/tag/denglu/" target="_blank" class="keywords">登录</a>并转到 Dim vDoc,vTag Dim i As Integer Dim s If Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.LocationURL = "http://zhidao.baidu.com/" Then Set vDoc = Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.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 Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Navigate "http://zhidao.baidu.com/index.<a href="https://www.jb51.cc/tag/PHP/" target="_blank" class="keywords">PHP</a>?act=worklog:insert" End If '是否周末 If Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.LocationURL = "http://zhidao.baidu.com/index.<a href="https://www.jb51.cc/tag/PHP/" target="_blank" class="keywords">PHP</a>?act=worklog:insert" Then Set vDoc = Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.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 '填写<a href="https://www.jb51.cc/tag/biaoti/" target="_blank" class="keywords">标题</a> 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(<a href="https://www.jb51.cc/tag/Now/" target="_blank" class="keywords">Now</a>,2) > 5,1,0) & "';void(0)" Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Document.paren<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>ow.execScript s End If '提交日志 If SendLog = 0 Then Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Document.paren<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>ow.execScript "insert(2)","JavaScript" SendLog = 1 End If End If Next i Exit Sub End If '提交<a href="https://www.jb51.cc/tag/tiaozhuan/" target="_blank" class="keywords">跳转</a>http://zhidao.baidu.com/index.<a href="https://www.jb51.cc/tag/PHP/" target="_blank" class="keywords">PHP</a>?act=worklog:insert:sc If Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.LocationURL = "http://zhidao.baidu.com/index.<a href="https://www.jb51.cc/tag/PHP/" target="_blank" class="keywords">PHP</a>?act=worklog:insert:sc" Then Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Navigate "http://zhidao.baidu.com/?act=worklog:mylogList" 'Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "今天的日志已经提交，但不保证成功哦！",64,Me.Caption End If If Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.LocationURL = "http://zhidao.baidu.com/?act=worklog:mylogList" Then Me.Show End If End Sub

http://tieba.baidu.com/f?kz=628000186

'烟花飘飘-{百}度<a href="https://www.jb51.cc/tag/zhuce/" target="_blank" class="keywords">注册</a>机开源 Dim S As Boolean,inf,Info Private Sub Command1_Click() S = False Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Navigate "https://pa<a href="https://www.jb51.cc/tag/ssp/" target="_blank" class="keywords">ssp</a>ort.baidu.com/?reg®type=1®from=1&tpl=ik&u=http%3A//zhidao.baidu.com/regok.html%3Flogin%26t%3D1246074692593" <a href="https://www.jb51.cc/tag/dowhile/" target="_blank" class="keywords">do while</a> S = False DoEvents Loop Randomize For Each a In Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Document.getelementsbytagname("input") Select Case a.Name Case "username" a.Value = CLng(Rnd * 123456789 + 9999999) inf = "<a href="https://www.jb51.cc/tag/yonghuming/" target="_blank" class="keywords">用户名</a>:" & a.Value & vbCrLf Case "loginpass","verifypass" a.Value = "yanhuapiaopiao" Case "email" a.Value = "[e-mail]" Case "verifycode" Set w = Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Document.getelementbyid("verifypic") Set w1 = Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1.Document.BODY.createcontrolrange w1.Add (w) w1.execCommand ("<a href="https://www.jb51.cc/tag/cop/" target="_blank" class="keywords">cop</a>y") Picture1.Picture = Clipboard.GetData t = Input<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>("输入<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>框里的验证码") 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 = "<a href="https://www.jb51.cc/tag/zhuce/" target="_blank" class="keywords">注册</a>的账号：（密码都是: yanhuapiaopiao ）" & vbCrLf End Sub Private Sub Web<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wser1_DocumentComplete(ByVal p<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>p As Object,URL As Variant) S = True End Sub