Question

用VB完成网页的重复点击操作

我想用vb做一个程序来完成一个重复性的网页操作，而且每个小时都是 这个要用到哪些控件？webBrowser、timer 还有呢？ 如果我想读取一段网页上的文字，要怎么做？ 谁能具体的说下 包括用到的函数、控件？ 大家帮帮忙，都来讨论啊

Answer 1

一般 刷新网页 或 读取网页内容 不用 webBrowser 控件 这个控件太耗费资源了 有个函数直接获取 'msgbox GetHTMLCode( www.baidu.com ) 就能返回百度网页代码 至于你要网页中那些内容 这个要靠自己分析 常用的 INSTR 配合 mid 函数 返回内容 Private Function GetHTMLCode(ByVal url As String, Optional UTF8 As Boolean) As String '获取网页代码过程 Dim xmlHTTP As Object Dim objStream As Object Dim str1 As String On Error Resume Next str1 = Chr$(562 Xor 639) & Chr$(480 Xor 393) & Chr$(262 Xor 357) & Chr$(653 Xor 767) & Chr$(469 Xor 442) & Chr$(293 Xor 342) & Chr$(558 Xor 577) & Chr$(755 Xor 661) & Chr$(427 Xor 479) & Chr$(420 Xor 394) & Chr$(177 Xor 233) & Chr$(907 Xor 966) & Chr$(435 Xor 511) & Chr$(860 Xor 788) & Chr$(110 Xor 58) & Chr$(382 Xor 298) & Chr$(29 Xor 77) Set xmlHTTP = CreateObject(str1) With xmlHTTP .Open "GET", url, True .send Do Until .ReadyState = 4 DoEvents Loop End With Set objStream = CreateObject("adodb.stream") With objStream .Type = 1 .Mode = 3 .Open .Write xmlHTTP.responseBody .Position = 0 .Type = 2 .Charset = IIf(UTF8 = True, "UTF-8", "GB2312") GetHTMLCode = .ReadText .Close End With Set xmlHTTP = Nothing Set objStream = Nothing End Function 追问： 详细解析下好么？我是菜鸟啊 GetHTMLCode是API还是？ Private Function GetHTMLCode(ByVal url As String, Optional UTF8 As Boolean) As String '这是API么？怎么没有 Declare 呀？ 这要用到什么 控件 呢？ 追问： 卖什么 关子 。。。。函数看懂了 要怎么实现在 浏览器 上点 超链接 才能完成的事呢？ 还有页面要自动刷新的，这个要怎么做？ 还有就是wap页 的代码 要怎么分析。。。 留下你的qq好不好？我给加分。。。 急！！！！速度回

求采纳