作者qwerty754892 (Q仔)
看板EzHotKey
标题[请问] 按键精灵在网页搜寻特定字
时间Fri Feb 22 11:34:29 2019
我想在Firefox上开启某网页
然後搜寻特定字串
条件符合就执行指令
网路找到最接近的程式码是这样
VBS Dim objIE,x,s
// 启动IE
VBS Set objIE = CreateObject("InternetExplorer.Application")
VBS objIE.Visible=true
// 打开预设网页
VBS objIE.Navigate "
http://tw.yahoo.com/"
// 判断页面是否读取完毕
While objIE.Busy Or objIE.ReadyState <> 4
EndWhile
// 读取完成,开始其它脚本动作
VBS strIE = objIE.Document.Body.InnerHTML
Delay 100
// 输入文字
x=InputBox("请输入要搜寻的文字")
// 检查文字
VBS s=InStr(strIE,x)
If s>0
// 文字相符
MessageBox 相符
Else
// 没有文字
MessageBox 无相符文字
EndIf
但这样是重新开一个网页IE
我是已经开好的网页,直接搜寻文字即可
所以问题在
CreateObject("InternetExplorer.Application")
这串
查询语法,应该可以用GetObject达成
但我直接放完整路径D:\FirefoxPortable.exe
或是直接放FirefoxPortable.Application
都没办法成功抓到
甚至我把这段写好的程式码
直接改成GetObject("InternetExplorer.Application")
也不行
想说试试看新开一个
CreateObject("D:\FirefoxPortable.exe")
显示ActiveX元件无法产生物件
请教各位资深乡民,谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.62.146.185
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/EzHotKey/M.1550806471.A.CC5.html