- 注释:+++++++++++++++++++++++++++++++++++++++++++++++
- 注释:+ 原作者信息 +
- 注释:+ 作 者:hzn0043 +
- 注释:+ QQ:11724218 +
- 注释:+ E-MAIL: hzn0043@sina.com +
- 注释:+++++++++++++++++++++++++++++++++++++++++++++++
- 注释:该脚本运行要求:屏幕分辨率 1024X768以上
- 注释:下面这句是获得屏幕分辨率宽度
- 令 ScreenW = Sys.GetScRX()
- 如果 ScreenW < 1024 则
- 如果 Msgbox("屏幕分辨率需1024X768以上!是否需要设置1024X768!",1,"提示") = 1 则
- 注释:下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)
- 调用 Sys.SetSc(1024,768,32)
- 否则
- 脚本停止运行
- 条件结束
- 条件结束
- 注释:下面这句是获得屏幕分辨率高度
- 令 ScreenH = Sys.GetScRY()
- 如果 ScreenH < 768 则
- 如果 Msgbox("屏幕分辨率需1024X768以上!是否需要设置1024X768!",1,"提示") = 1 则
- 注释:下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)
- 调用 Sys.SetSc(1024,768,32)
- 否则
- 脚本停止运行
- 条件结束
- 条件结束
- 标记 Start
- 延时 200 毫秒
- 令 Hwnd = Window.Find(0,"大家来找茬")
- 如果 Hwnd <= 0 则
- 跳转到标记 Start
- 条件结束
- 注释:MsgBox "查找到的父窗口句柄为:"& Hwnd
- 延时 500 毫秒
- 调用 Window.Move(Hwnd,0,0)
- 延时 500 毫秒
- 调用 Window.Size(Hwnd,1024,738)
- 延时 500 毫秒
- 调用 Window.Active(Hwnd)
- 注释:MsgBox "当前移动窗口到(100, 100)位置"
- 注释:检查是否开始
- 延时 500 毫秒
- 从左上到右下查找图片 "Attachment:\2.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:217 上:31 右:237 下:78),相似度 0.9
- 如果 intX <> 217 并且 intY <> 31 则
- 跳转到标记 Start
- 条件结束
- 注释:sRect = Plugin.Window.GetWindowRect(Hwnd)
- 注释:MsgBox "得到窗口句柄的边框大小(包括标题栏)为:"& sRect
- 注释:下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
- 注释:dim MyArray
- 注释:MyArray = Split(sRect, "|")
- 注释:下面这句将字符串转换成数值
- 注释:W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))
- 注释:W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))
- 令 wPic1_W = 512
- 令 wPic2_W = wPic1_W
- 注释:wPic1_W=(W2-W1)/2
- 注释:wPic2_W = wPic1
- 注释:hPic1_H= H2-H1 //
- 注释:hPic2_H =H2-H1 //
- 注释:图片大小为W=500 H=450 标题到图片高为190
- 令 Pic1_X1 = 0
- 令 Pic1_Y1 = 190
- 令 Pic1_X2 = wPic1_W
- 令 Pic1_Y2 = 450 + 190
- 令 Pic2_X1 = wPic1_W
- 令 Pic2_Y1 = 190
- 令 Pic2_X2 = wPic1_W * 2
- 令 Pic2_Y2 = 450 + 190
- 注释:下面四句在屏幕区域范围内截图保存到("C:\PIC.jpg")里 以下四行语句也不需要
- 注释:MoveTo 0,0
- 延时 100 毫秒
- 调用 Pic.PrintScreen(Pic1_X1 + 9,Pic1_Y1,Pic1_X2 - 10,Pic1_Y2,"C:\PIC1.jpg")
- 调用 Pic.PrintScreen(Pic2_X1 + 6,Pic2_Y1,Pic2_X2 - 13,Pic2_Y2,"C:\PIC2.jpg")
- 注释:图片大小为W=493 H=450 标题到图片高为190
- 令 intIndex = 15
- 循环 intH 从 0 到 29
- 循环 intY 从 0 到 32
- 令 cr1 = (命令库 算法)十六进制转十进制(得到指定点 (Pic1_X1 + 9 + intY * intIndex, Pic1_Y1 + intH * intIndex) 的颜色)
- 令 cr2 = (命令库 算法)十六进制转十进制(得到指定点 (Pic2_X1 + 6 + intY * intIndex, Pic2_Y1 + intH * intIndex) 的颜色)
- 如果 (cr2 - cr1) > 10000 或者 (cr2 - cr1) < - 10000 则
- 循环 3 次
- 令 x1 = Pic2_X1 + 6 + intY * intIndex
- 令 y1 = Pic2_Y1 + intH * intIndex
- 令 x2 = Pic2_X1 + 6 + intY * intIndex + 50
- 令 y2 = Pic2_Y1 + intH * intIndex + 50
- 调用 Msg.ShowScrTXT(x1,y1,x2,y2,"●","0000FF")
- 延时 50 毫秒
- 循环结束
- 条件结束
- 令 Hwnd = Window.Find(0,"大家来找茬")
- 如果 Hwnd <= 0 则
- 跳转到标记 Start
- 条件结束
- 循环结束
- 循环结束
- 脚本停止运行