請問各位 我想要用製作一個能夠 自動幫我點選 網頁上的按鈕 如送出鈕 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)