給妳個例子吧： Do While brow.Busy Application.DoEvents() Loop Public Sub fill() On Error Resume Next Do While brow.Busy Application.DoEvents() Loop Dim webDoc As Object = brow.Document.all Dim webTag As Object Dim lengthTag As Integer = webDoc.length - 1 For countTag As Integer= 0 To lengthTag webTag = webDoc.item(countTag) Select Case Strings.LCase(webDoc.item(countTag).tagname) Case "textarea" '網頁中的文本框 Select Case webTag.name Case "body" '"body"來自網頁源代碼，不同網站很可能不同，妳根據實際修改。下同。 webTag.value = strBody '這是預先定義的值,下同。 End Select Case "select" '網頁中的下拉選擇框 Select Case webTag.name Case "month" '選擇月份，這裏略去年、日的選擇，因為原理相同。 webTag.all.item(1).selected = True '選擇第壹個值 End Select Case "input" '網頁中的輸入框 Select Case Strings.LCase(webTag.type) Case "text" '文本 Select Case webTag.name Case "name", "userid", "nickname" '用戶名 webTag.value = strName Case "subject" '標題 webTag.value = strSubject Case "regid" '註冊碼 webTag.value = strRegid Case "username", "realname" webTag.value = strUsername Case "cardnumber" webTag.value = strCardNumber Case "homephone" webTag.value = strHomephone '電話號 Case "url_title" '鏈接名稱 webTag.value = urlTitle Case "url" '鏈接 webTag.value = url Case "email" 'email地址 webTag.value = email Case "img" '圖片 webTag.value = img Case "midi" '音樂 webTag.value = midi Case "year" '年 webTag.value = strYear Case "prompt" '找回密碼提示問題 webTag.value = strPrompt Case "answer" '找回密碼答案 webTag.value = strAnswer End Select Case "password" '密碼 Select Case webTag.name Case "passwd", "password", "confirm", "repasswd" '密碼，確認密碼 webTag.value = strPass End Select Case "checkbox" '單選框 Select Case webTag.name Case "emailme" 'email通知我 webTag.checked = True End Select End Select End Select Next brow.Document.forms(0).submit() '許多網頁表單，這壹句簡單代碼即實現自動提交 End Sub Public Sub autoAdd() brow.Silent = True '不彈出窗口 brow.Navigate(" /" ) '打開指定頁 Do While formBrowNetsh.brow.Busy '等待網頁加載完畢 Application.DoEvents() Loop Call fill() End Sub
記得采納啊
上一篇:幾款第三方微博客戶端的比較下一篇:求QQ插件可以查顯隱身的