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