按键精灵在网页查找关键字的脚本是什么？

用这个子程序：

Else

xmlUrl = 网页地址

End if

Set xmlHttp = CreateObject("Microsoft.XMLHTTP")

xmlHttp.Open "Get", xmlUrl, False

xmlHttp.Send

xmlBody = xmlHttp.ResponseBody

Set xmlHttp = Nothing

获得网页源文件 = ""

If Len(xmlBody) = 0 Then Exit Function

Set ObjStream = CreateObject("Adodb.Stream")

With ObjStream

.Type = 1

.Mode = 3

.Open

.Write xmlBody

.Position = 0

.Type = 2

.Charset = "UTF-8"

BytesToBstr = .ReadText

.Close

End With

Set ObjStream = Nothing

获得网页源文件 = BytesToBstr

End Function；

代码内容如下：

EndIf

//获得一个网页元素信息内容

Plugin t1=Web.HtmlGet("html","tag:A&txt:闪闪惹人爱")

//获得一个网页元素信息内容

Plugin t2=Web.HtmlGet("html","tag:A&txt:白白的")

//获得一个网页元素信息内容

Plugin t3=Web.HtmlGet("html","tag:A&txt:敢不敢爱")

//获得一个网页元素信息内容

Plugin t4=Web.HtmlGet("html","tag:A&txt:看得最远的地方")

//获得一个网页元素信息内容

Plugin t5=Web.HtmlGet("html","tag:A&txt:风声")

//获得一个网页元素信息内容

Plugin t6=Web.HtmlGet("html","tag:A&txt:木兰星")

//获得一个网页元素信息内容

Plugin t7=Web.HtmlGet("html","tag:A&txt:只需要一首歌")

//获得一个网页元素信息内容

Plugin t8=Web.HtmlGet("html","tag:A&txt:心的距离")

//获得一个网页元素信息内容

Plugin t9=Web.HtmlGet("html","tag:A&txt:满满")

//获得一个网页元素信息内容

软件功能

1、网络游戏中可使用按键精灵制作脚本，实现自动打怪，自动补血，自动说话等。

2、办公族可用按键精灵自动处理表格间数据的转换，自动调整文档格式、文章排版，自动收发邮件等。

3、利用按键精灵实现定时自动打开检验网页链接，文献检索，收集资料等重复 *** 作。

4、任何只要在电脑前用双手可以完成的电脑 *** 作都可以替代完成。

---