- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助][讨论]如何代码实现模拟点击网页按钮？？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24149)
-- 发布时间：2012/10/5 10:55:00
-- [求助][讨论]如何代码实现模拟点击网页按钮？？？
模拟点击网页按钮模拟点击网页按钮？？？
比如在www.baidu.com 中，输入查找的字符，点击窗口的“Button1”按钮后，实现系统模拟点击www.baidu.com 中的“百度一下”按钮？？？？
-- 发布时间：2012/10/5 12:03:00
--
发帮助帖前先查询一下论坛,有很多问题早就有答案了.
你这个问题就是如此, 请参考http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=15434&skin=0
-- 发布时间：2012/10/5 12:34:00
--
他这个不是的呢，我的意思是，代码模拟点击网页中的某一个按钮。。。
-- 发布时间：2012/10/5 21:54:00
--
不要沉呢
-- 发布时间：2012/10/6 11:57:00
--
高手可以做到，狐表没有提到可以去处理网页。
-- 发布时间：2012/10/6 21:46:00
--
⊙﹏⊙b汗，高手不一样啦，咱这水平，，，跟高手没得比呢
-- 发布时间：2012/10/8 10:45:00
--
文档：http://msdn.microsoft.com/zh-cn/library/system.windows.forms.htmldocument.aspx
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.foxtable.com")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
\' 自己取数据
Dim elems As System.Windows.Forms.HtmlElementCollection
Elems = web.Document.GetElementsByTagName("META") \'根据标签得到数据集合
For Each elem As System.Windows.Forms.HtmlElement In Elems
Dim NameStr As String = elem.GetAttribute("name") \'得到属性
If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
If NameStr.ToLower().Equals("description") Then
Dim ContentStr As String = elem.GetAttribute("content")
MessageBox.Show("Document: " & web.Url.ToString() & vbCrLf & "Description: " & ContentStr)
End If
End If
Next
-- 发布时间：2012/10/8 10:47:00
--
找到网页的那一个form，然后submit一下，网上挺多这样的教程，自己搜一下。
-- 发布时间：2012/10/15 23:42:00
-- 回复：（lin_hailun） 找到网页的那一个form，然...
能不能举个例子呢？
此主题相关图片如下：qq截图20121015233618.png
如何做到点击输入内容自动将Textbox1的内容输入进去？点击查找的时候将Textbox1的内容提交给百度中的“百度一下”，我想用它做一个自动登录的插件，网页肯定是会改变的，最好提示下，改网页后又该怎么弄，还望大哥帮我写下哈麻烦了
-- 发布时间：2012/10/16 10:05:00
--
简单弄了一下，具体看代码。楼主要用这个东西做什么坏事吗？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:模拟单击.table |
此主题相关图片如下：qq截图20121016100305.png