Foxtable(狐表)用户栏目专家坐堂 → [求助][讨论]如何代码实现模拟点击网页按钮???


  共有13235人关注过本帖树形打印复制链接

主题:[求助][讨论]如何代码实现模拟点击网页按钮???

帅哥哟,离线,有人找我吗?
qq121454970
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:880 积分:9011 威望:0 精华:3 注册:2012/4/22 18:06:00
[求助][讨论]如何代码实现模拟点击网页按钮???  发帖心情 Post By:2012/10/5 10:55:00 [只看该作者]

模拟点击网页按钮模拟点击网页按钮???

比如在www.baidu.com 中,输入查找的字符,点击窗口的“Button1”按钮后,实现系统模拟点击www.baidu.com  中的“百度一下”按钮????


 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2012/10/5 12:03:00 [只看该作者]

发帮助帖前先查询一下论坛,有很多问题早就有答案了.

你这个问题就是如此, 请参考http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=15434&skin=0


 回到顶部
帅哥哟,离线,有人找我吗?
qq121454970
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:880 积分:9011 威望:0 精华:3 注册:2012/4/22 18:06:00
  发帖心情 Post By:2012/10/5 12:34:00 [只看该作者]

他这个不是的呢,我的意思是,代码模拟点击网页中的某一个按钮。。。

 回到顶部
帅哥哟,离线,有人找我吗?
qq121454970
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:880 积分:9011 威望:0 精华:3 注册:2012/4/22 18:06:00
  发帖心情 Post By:2012/10/5 21:54:00 [只看该作者]

不要沉呢图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/10/6 11:57:00 [只看该作者]

高手可以做到,狐表没有提到可以去处理网页。

 回到顶部
帅哥哟,离线,有人找我吗?
qq121454970
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:880 积分:9011 威望:0 精华:3 注册:2012/4/22 18:06:00
  发帖心情 Post By:2012/10/6 21:46:00 [只看该作者]

图片点击可在新窗口打开查看⊙﹏⊙b汗,高手不一样啦,咱这水平,,,跟高手没得比呢


 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By: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:45:48编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/8 10:47:00 [只看该作者]

 找到网页的那一个form,然后submit一下,网上挺多这样的教程,自己搜一下。

 回到顶部
帅哥哟,离线,有人找我吗?
qq121454970
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:880 积分:9011 威望:0 精华:3 注册:2012/4/22 18:06:00
回复:(lin_hailun) 找到网页的那一个form,然...  发帖心情 Post By:2012/10/15 23:42:00 [只看该作者]

能不能举个例子呢?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20121015233618.png
图片点击可在新窗口打开查看

如何做到点击输入内容自动将Textbox1的内容输入进去?点击查找的时候将Textbox1的内容提交给百度中的“百度一下”,我想用它做一个自动登录的插件,网页肯定是会改变的,最好提示下,改网页后又该怎么弄,还望大哥帮我写下哈图片点击可在新窗口打开查看麻烦了


 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/16 10:05:00 [只看该作者]

简单弄了一下,具体看代码。楼主要用这个东西做什么坏事吗?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:模拟单击.table



图片点击可在新窗口打开查看此主题相关图片如下:qq截图20121016100305.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2012-10-16 10:05:34编辑过]

 回到顶部
总数 11 1 2 下一页