[VB6 ]如何製作自動點選網頁上的submit送出按鈕
請問各位 我想要用製作一個能夠 自動幫我點選 網頁上的按鈕 如送出鈕 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)
推
04/12 09:15, , 1F
04/12 09:15, 1F
→
04/12 14:52, , 2F
04/12 14:52, 2F
→
04/12 14:56, , 3F
04/12 14:56, 3F
→
04/12 14:56, , 4F
04/12 14:56, 4F
→
04/12 14:57, , 5F
04/12 14:57, 5F
→
04/13 00:01, , 6F
04/13 00:01, 6F
→
04/13 12:28, , 7F
04/13 12:28, 7F
→
04/13 19:25, , 8F
04/13 19:25, 8F
→
04/13 22:42, , 9F
04/13 22:42, 9F
討論串 (同標題文章)