作者adsl99801 (一窩鳥蛋)
看板Visual_Basic
標題[VB6 ]如何製作自動點選網頁上的submit送出按鈕 急!!!!!!!!!!
時間Fri Apr 11 23:07:20 2008
請問各位 我想要用製作一個能夠 自動幫我點選 網頁上的按鈕 如送出鈕 value = 送出
他是一個submit
用vb6來製作 這種 自動幫忙按 按鈕的小軟體
目前 我弄一個 webbrowser 了 可以正常的連上那個網站
使用流程
1.開啟軟體 後 可以自動連上 該網站 (完成了)
2.勾選 我的checkbox 就可以 自動連續幫我自動點 點按鈕(做不出來 求救!!)
各位 大大 幫幫忙><"
另外 我需要 貼出我的程式碼嗎?
Private hdoc As MSHTML.HTMLDocument
Private Sub Check1_Click()
Set vtag = WebBrowser.Document.All
vtag.Item().Click
End Sub
Private Sub Command1_Click()
WebBrowser.Navigate "
http://slshclass.5d6d.com/"
TextS.Text = "ＩＧＴ劇情製作組織 世紀帝國討論區
http://slshclass.5d6d.com/"
MsgBox "公告：你可以使用來賓帳號：來賓5 密碼：A55250", 64, " 一窩鳥蛋提醒您!"
End Sub
Private Sub Command2_Click()
WebBrowser.Navigate
"
http://www101.say-on.com/webchat/?color=0099FF&title=%uFF0D%uFF0D%u5C0D%u6230%u804A%u5929%u5BA4%uFF0D%uFF0D%uFF03%7E%u5730%u76E4%7E%uFF03%uFE60%u6A39%u6797&roomid=slshclass.5d6d.com/index.php"
MsgBox "很抱歉!由於支援性較差 讀取較慢請等待10至30秒讀取", 64, " 一窩鳥蛋提醒
您!"
TextS.Text = "公告：你連上了聊天室~此版無管理人員請自愛 "
End Sub
Private Sub Command3_Click()
WebBrowser.Navigate "
http://slshclass.5d6d.com/thread-98-1-1.html"
MsgBox "公告：當你製作新劇情後可以貼上對戰討論區!", 64, " 一窩鳥蛋提醒您!"
End Sub
Private Sub Form_Load()
WebBrowser.Navigate "
http://slshclass.5d6d.com/"
numbercountpage = 1
TextS.Text = "歡迎使用 世紀對戰網專屬便利瀏覽器 你可以點擊右上角的按鈕來進入
對戰網 BY一窩鳥蛋 "
End Sub
Private Sub no1_Click()
WebBrowser.Navigate "
http://www.mofa.com.tw/webobj/chatroom/"
TextS.Text = WebBrowser.LocationURL
End Sub
Private Sub no2_Click()
WebBrowser.Navigate "
http://www2.nakuz.com/ip_exchange.php?type=aoc"
TextS.Text = WebBrowser.LocationURL
End Sub
Private Sub pageDown_Click()
If numbercountpage <> 1 Then
WebBrowser.GoForward
numbercountpage = numbercountpage - 1
pageDown.Visible = False
pageUp.Visible = True
Else
MsgBox "沒有下一頁可以看囉～", 64, " 一窩鳥蛋提醒您!"
End If
End Sub
Private Sub pageUp_Click()
If numbercountpage <> 1 Then
WebBrowser.GoBack
numbercountpage = numbercountpage - 1
pageUp.Visible = False
pageDown.Visible = True
Else
MsgBox "沒有上一頁可以看囉～", 64, " 一窩鳥蛋提醒您!"
End If
End Sub
Private Sub WebBrowser_DownloadComplete()
TextS.Text = WebBrowser.LocationURL
End Sub
Private Sub WebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As FormAoe
Set frmWB = New FormAoe
frmWB.WebBrowser.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser.Object
frmWB.Visible = True
End Sub
我翻了 上面只說 請看 webbrowser的控制項
當場傻眼= ="
急件! 拜託 能盡速解決最好
--
請問要怎麼改暱稱阿??
▁
▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.166.247.70
※ 編輯: adsl99801 來自: 218.166.247.70 (04/11 23:07)
1F：推 fumizuki:控制項.Document.getElementById("按鈕id").Click 04/12 09:15
2F：→ adsl99801:請問什麼是 按鈕 id?? 04/12 14:52
3F：→ adsl99801:WebBrowser1.Document.getElementById("送出").Click 失 04/12 14:56
4F：→ adsl99801:失敗了= = 04/12 14:56
5F：→ adsl99801:他說沒有設定變數或WITH區塊變數 04/12 14:57
6F：→ nobody1:網頁標籤都會有一個唯一的id name.... 04/13 00:01
7F：→ adsl99801:去哪裡看IDNAME? 04/13 12:28
8F：→ unget:如nobody所說 網頁標籤(Html)可以查到ID = '' 就是ID name 04/13 19:25
9F：→ adsl99801:我去試試= = 04/13 22:42