建站
咨詢
售后
建站咨詢
新聞中心
如何用vb實(shí)現(xiàn)網(wǎng)頁(yè)表單的自動(dòng)填充并提交
自動(dòng)打開網(wǎng)頁(yè)的BAT：
讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶，將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：國(guó)際域名空間、虛擬主機(jī)、營(yíng)銷軟件、網(wǎng)站建設(shè)、徐匯網(wǎng)站維護(hù)、網(wǎng)站推廣。
start
自動(dòng)填寫表單需要用VB或者VBA來(lái)寫。
用自動(dòng)鍵入數(shù)字和按鈕的方法。
參看下面的貼子：
這個(gè)不容易做，本來(lái)打算用OLE的，但是發(fā)覺很難實(shí)現(xiàn)。我給你個(gè)思路：
1、用VB程序自動(dòng)打開網(wǎng)頁(yè)（調(diào)用那個(gè)BAT就可以了）；
2、自動(dòng)按下數(shù)字鍵1；
3、自動(dòng)按下ENTER鍵
vb.net 網(wǎng)頁(yè)提交表單
發(fā)送頁(yè)面：
用get傳值 如 點(diǎn)擊button時(shí) response.redirect（"接受頁(yè)面的url"?canshu=textbox.text）
在接受頁(yè)面：
用Request.QueryString["canshu"].toString（）； 這樣就接受到textbox里的值了。
然后根據(jù)這個(gè)值到數(shù)據(jù)庫(kù)里查詢就行了。
vb.net WebBrowser提交表單的問(wèn)題
彈出提示窗口，基本上隨便哪個(gè)源碼里面都有用到，比如用戶后臺(tái)登陸，你可以參考下
Vb提交網(wǎng)頁(yè)表單
用webbrowser載入網(wǎng)頁(yè)表單。
在documentComplete事件中加入代碼
dim
f
as
object
set
f=web1.document
'頁(yè)面對(duì)象
f.表單名.submit()
'提交表單
也可用document.getElementById("表單ID").submit()
如果表單沒有ID和name，可以用form元素的集合來(lái)訪問(wèn)該對(duì)象。
如何VB中如何提交表單
Private Sub Command1_Click()
WebBrowser1.Document.Forms(Form_ID)(2).Click
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate App.Path "/1.htm"‘打開網(wǎng)頁(yè)
End Sub
1.htm的代碼是你給的代碼
但是如果還有其他代碼的話，ID可能會(huì)變，不是2，可能是別的
vb提交網(wǎng)頁(yè)表單
根據(jù)你的補(bǔ)充，經(jīng)修改，已經(jīng)調(diào)試成功：
Private Sub Command1_Click()
Dim vDoc, vTag, i
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '檢測(cè)所有標(biāo)簽
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input標(biāo)簽
Set vTag = vDoc.All(i)
Select Case LCase(vTag.Type)
Case "file"
If vTag.Name = "userfile" Then
SendKeys "d:\program files\qq\qq.exe"
SendKeys "{ENter}"
vTag.Click
End If
Case "submit"
If vTag.Value = "上傳文件" Then
vTag.Select '也可以沒有這個(gè)
vTag.Click '點(diǎn)擊提交了，一切都OK了
End If
End Select
End If
Next i
End Sub
本文題目：vb.net中提交表單的簡(jiǎn)單介紹
標(biāo)題來(lái)源：http://www.dlmjj.cn/article/docsiji.html
