Question

按键精灵在网页查找关键字的脚本

我想用按键精灵在网页查找一个关键字 手动用ctrl+f查找的这个功能
请问这个功能用按键精灵的脚本怎么实现。 如果查到文本则运行脚本应该怎么写？

Answer 1

'能！
'用这个子程序
Function 获得网页源文件(网页地址)
//说明：支持远程获取文本内容，如：MsgBox lib.网络.获得网页源文件("http://www.jdyou.com/test.txt")
//例子：MsgBox lib.网络.获得网页源文件("http://www.jdyou.com")
Dim xmlHttp, xmlBody, xmlUrl
Dim ThisCharCode ,NextCharCode ,BytesToBstr
If InStr(网页地址, "http://") = 0 Then
xmlUrl = "http://" & 网页地址
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

'比如：你想查找到有"百度"字眼你就弹出一对话框，那么可以如下实现.
Text=获得网页源文件("http://www.baidu.com")
if Instr(Text,"百度")>0 then
messagebox "测试弹出对话框"
End if

'以上所有文字 你复制到你按键精灵代码编辑器里一试便知。