作者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