|
为什么TC做的浏览器显示的字迹没IE浏览器显示那么清晰。放大了会看到TC浏览器网页的字是带有偏色,而IE上的字就一种颜色,包括易语言做的浏览器也这样,字迹不明细。
还有,找文字“退出”并点击它。脚本显示找到退出并点击了,但是浏览器反应很慢,看不到点击的效果。代码如下,谢谢哪位朋友帮我看看有没有出错。
空间 TC浏览器
//默认空间
//变量 dm
dm=com("dm.dmsoft")
功能 按钮0_点击()
网页.转到("浏览器0","frxz2.91wan.com/list/")
功能结束
功能 初始化()
变量 是否成功,版本号,dm,zm_zc,dm_sf
句柄=窗口.自身句柄()
窗口.设置位置(句柄,1,1)
辅助.等待(500)
是否成功=辅助.是否注册("dm.dmsoft")
如果(是否成功)
调试输出("成功注册")
否则
调试输出("没有注册")
dm_zc=辅助.注册插件("rc:\\dm.dll",真)
如果(dm_zc)
dm=com("dm.dmsoft")
版本号=dm.ver()
调试输出("大漠注册成功,版本号为:"&版本号)
如果(版本号!="3.1233")
dm_zc=辅助.注册插件("rc:\\dm.dll",假)
dm=null
dm_zc=辅助.注册插件("rc:\\dm.dll",真)
如果结束
如果结束
如果结束
功能结束
功能 绑定()
变量 路径
路径=辅助.获取资源路径("rc:")
dm_ret = dm.SetPath(路径)
dm_ret = dm.SetDict(0,"win7.txt")
变量 hwnd
hwnd = 网页.得到窗口句柄("浏览器0")
调试输出(hwnd)
dm_ret = dm.BindWindow(hwnd, "gdi2", "windows", "windows",0)
辅助.等待(3000)
功能结束
功能 按钮1_点击()
网页.转到("浏览器0","s1.frxz2.91wan.com/frmmo/game.php")
功能结束
功能 按钮2_点击()
网页.转到("浏览器0",编辑框.获得文本("编辑框0"))
功能结束
功能 按钮3_点击()
网页.刷新("浏览器0")
功能结束
功能 按钮4_点击()
返回值=控件.打开窗口("设置")
功能结束
功能 浏览器0_加载完成()
//标题 = 网页.得到标题("浏览器0")
//句柄= 窗口.自身句柄()
//窗口.设置标题(句柄,标题)
功能结束
功能 TC浏览器_关闭()
辅助.退出()
功能结束
功能 按钮5_点击()
TC浏览器.绑定()
变量 返回值,intX,intY
返回值=dm.FindStrFast(109,269,306,414,"退出","e2fcff-505050",1.0,intX,intY)
如果(返回值!=-1)
调试输出("找到退出")
辅助.等待(1000)
dm.MoveTo(intX+8,intY+3)
辅助.等待(1000)
dm.LeftClick()
辅助.等待(1000)
调试输出("完成退出")
否则
调试输出("没有找到退出")
如果结束
辅助.等待(2000)
循环(真)
返回值=dm.FindColor(155,274,291,325,"013995-000000",1.0,0,intX,intY)
如果(返回值!=0)
调试输出("找到颜色")
辅助.等待(1000)
dm.MoveTo(intX,intY+5)
辅助.等待(1000)
dm.LeftDoubleClick()
辅助.等待(500)
dm.KeyDown(8)
跳出
否则
调试输出("没有找到颜色")
如果结束
辅助.等待(3000)
循环结束
功能结束
空间结束
//空间结束语句
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|