作者fubonec (fubonec)
看板Visual_Basic
標題Re: [VB6 ]如何製作自動點選網頁上的submit送出按鈕
時間Sun Apr 13 17:00:43 2008
※ 引述《adsl99801 (一窩鳥蛋)》之銘言：
: 請問各位 我想要用製作一個能夠 自動幫我點選 網頁上的按鈕 如送出鈕 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 TheSub
: 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的控制項
: 當場傻眼= ="
: 急件! 拜託 能盡速解決最好
1.這應該不是洗版程式練息吧
2.用Webbrowser送出URL連結參數即可(沒有那麼聰明)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.230.22.53
1F：推 maxeii:查一下 WebBowser 的 Invoke 04/13 21:13