① 程序自動點擊網頁按鈕,自動填寫網頁表單。使用VB.NET編程。有哪位VB大俠會。 在線等。
需要引用:Microsoft HTML Object Library
在webbrowser的狀態為ready的時候,執行:
'取得要填寫的表單名腔旦友遲悉稱,並定義為一個html元素變數text
Dim text As HtmlElement = WebBrowser1.Document.GetElementById("表單欄位名id")
'給表單元素text賦值
text.InnerHtml = 「張伍槐三」
'找到提交按鈕
Dim btnSubmit As HtmlElement = WebBrowser1.Document.GetElementById("提交按鈕id")
'執行點擊動作
btnSubmit.InvokeMember("click")
② 如何實現VB自動填寫網頁上需要填寫的內容
在VB裡面使用Webbrowser
再Webbrowser1.document.
這樣用DHTML修改在Webbowser打開的網雹簡昌頁裡面的元素的值(Value)就可以了源扒
有DHTML兩個方法是好用的
Webbrowser1.document.getelementsbyname("元素名")'返回元素
Webbrowser1.document.getelementbyid("元素ID"咐雹)'返回元素數組
註:元素名和元素ID可以通過分析頁面的代碼來得到
比如<INPUT id="這里就是元素ID" name="這里就是元素名">
驗證碼的取得:
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add WebBrowser1.Document.getelementbyid("驗證碼元素的ID")
CtrlRange.execCommand ("Copy")
[存放驗證碼圖像的容器].Picture = Clipboard.GetData
③ 如何用vb實現網頁表單的自動填充並提交
自動打開網頁的BAT:
start
http://www.hkexnews.hk/listedco/listconews/advancedsearch/search_active_main_c.asp
自動填寫表單需要用VB或者VBA來寫。
用自動鍵入數字和按鈕的方法。
參看下面的貼子:
http://topic.csdn.net/u/20080312/12/4080a95c-87f9-41a6-85d3-72e69e3fd9b1.html
這個不容易做,本來打算用OLE的,但是發覺很難實現。我給你個思路:
1、用VB程序自動打開網頁(調用那個BAT就可以了);
2、自動按下數字鍵1;
3、自動按下ENTER鍵
④ 如何用vb6.0做個窗體,自動向網頁填寫表單信息
我以前做過,不過是將網頁放在vb窗體里,用伏喚滑鼠點擊窗體里的鍵盤輸入的。
用一個時鍾將焦點,時鍾保正廳讓持在網頁的輸入框中舉局。看看是否對你有幫助
Private
Sub
Timer2_Timer()
On
Error
Resume
Next
If
CStr(doc.activeElement.tagName)
=
"INPUT"
Or
CStr(doc.activeElement.tagName)
=
"IFRAME"
Then
If
CStr(doc.activeElement.tagName)
=
"INPUT"
Then
If
UCase(CStr(doc.activeElement.Type))
=
"TEXT"
Or
UCase(CStr(doc.activeElement.Type))
=
"PASSWORD"
Then
YOUKB
End
If
End
If
If
CStr(doc.activeElement.tagName)
=
"IFRAME"
Then
If
UCase(CStr(doc.activeElement.Class))
=
"INPUT"
Then
YOUKB
End
If
End
If
Else
NOKB
End
If
End
Sub
⑤ vb程序自動填充功能
PrivateSubList1_Click()
IfList1.ListIndex>=0Then
Text1.Text=List1.List(List1.ListIndex)
EndIf
EndSub'歷兄返選項填充到文本框中
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=Asc(vbCrLf)AndText1.Text<>""ThenList1.AddItemText1.Text
EndSub『文本塵弊框按回車肢飢加到列表中
⑥ 想用VB6.0做個自動輸入的軟體 例如按1鍵 在文本文檔里輸入1234 按2鍵輸入5678 怎麼做
關鍵按鍵的搜慶KEY值 如果按殲絕下的是1 就輸入1234
if 按下氏漏姿的key=1 then
輸入
endif
⑦ VB自動填寫網頁表單的問題
1、新建工程
2、加入控制項WebBrowser1和按鈕command1
3、在command1的click事件中加入如下代碼
Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = webBrowser1.Document
For i = 0 To vDoc.All.length - 1 '檢測所有標簽
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input標簽
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then '看看是不是我們需要的
Select Case vTag.Name
Case "subject" '寫標題,不同的網頁表單,vTag.name的值不同,要查看網頁源碼
並根據實際更改。下同。
vTag.Value = "你的文章標題"
End Select
If vTag.Type = "textarea" Then'寫發言內容,textarea表示文本區域
Select Case vTag.Name
Case "body"'body是文本區域的name,從網頁源碼轎裂中查知。
vTag.Value = "你的文章內容"
End Select
If vTag.Type = "submit" And vTag.Value = "發表" Then '找到發表按鈕。
vTag.Select '也可以沒有這個
vTag.Click '點擊提豎坦交了,一切都OK了
End If
End If
End If
End If
Next i
End Sub
在form1的load事件中是如下代碼:
Private Sub Form_Load()
WebBrowser1.Navigate "http://goal28.ziqu.com/fcgi-bin/addboard.f...bookname=250006" '軟體一啟
動就導航到這個地址
End Sub
運行軟體,點擊command1,即自動填表並提交。
問題是:vb可以自動填寫文章標題,並提交。但不能填寫文本區域發言內容。估計問題出在這個代碼
vTag.Value="你的文章內容"
這句代碼應該怎麼寫,才能讓vb自動填寫發言內容?或者vTag後面應是什麼屬性?
請問高手怎麼樣才能將填寫好的內容發表到textarea文本區域中呢
以上代碼是不是有誤,
我想這里 If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input標簽 有問題還有:
If vTag.Type = "textarea" Then'寫發言內容,textarea表示文本區域
Select Case vTag.Name
Case "body"余帆桐'body是文本區域的name,從網頁源碼中查知。
vTag.Value = "你的文章內容"
End Select
⑧ vb.net webBrowser 自動填寫選擇列表表單
調蘆虛用控制項的事件隱攔呢:WebBrowser1.Document.All.commendStatus.Click
先填寫,再灶嘩胡調用事件
⑨ vb怎樣用webbrowser自動填表
這要看你網頁的代碼的,以第四個為例輪租,網頁代碼為
<input name="check1" id="text1" value="" type="textbox">
那麼vb中要則桐岩在WebBrowser1中輸入[email protected]的代碼
Private Sub Command1_Click()
WebBrowser1.Document.All("text1").Value = "孫御[email protected]」"
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate App.Path & "\1.htm"
End Sub
別的原理也是一樣的
⑩ 如何VB.net實現瀏覽的網頁自動填單
讓網頁自動填寫表單操作步驟:
打開瀏覽器設置,點擊打開【枯前野沒喊Internet選項】
在Internet選項卡上選擇【內容悔陪】,點擊自動完成下面的【設置】
在自動完成設置中勾選希望自動完成功能用於哪些方面,勾選前面的復選框即可
點擊確定完成