Question

关于按键精灵脚本的类型不匹配问题

图片路径 = "C:\Users\lenovo\Desktop\"
图片 = "开始1.bmp" //多个图片名称用半角竖杠分隔，形成字符串
Scrx = Plugin.Sys.GetScRX //得到当前屏幕宽度

Scry = Plugin.Sys.GetScRY //得到当前屏幕高度

//--------------------------------------------------------------------------//

TracePrint 等图(0, 0, 1024, 768, "C:\Users\lenovo\Desktop\", "开始1.bmp" , 0.9, 5, 1) //比找图多了一个参数

//--------------------------------------------------------------------------//

Function 等图(x1, y1, x2, y2, pic_path, pic_name, sim, wait, mouse)

//最后一个参数，值=1，表示找到图后单击；值=2，表示找到图就双击；值=0，只将指针移到图上
//wait：记录最长等待的时间，这里以秒为单位

开始时间 = now()

Do While DateDiff("s", 开始时间, now()) <= wait

图号 = 找图(x1, y1, x2, y2, pic_path, pic_name, sim)
//这里调用找图函数

If 图号 > 0 Then

TracePrint 图号 & "号图找到了，退出等图函数！"

等图 = 图号

Select Case mouse

Case 0

MoveTo 220, 227

//这里用的intx,inty是找图函数的值，尽管这样做不在符合现代编程思想，但挺实用的

Case 1

MoveTo 220, 227

LeftClick 1

Case 2

MoveTo intx, inty

LeftDoubleClick 1

End Select

Exit Function

End If

Loop

TracePrint "竟然没找到，还能不能愉快地玩耍了。"

等图 = -1

End Function

脚本 我的脚本71.Q ，第22行：类型不匹配: 'V98B8A8C97378756D',

这就是第22行 图号 = 找图(x1, y1, x2, y2, pic_path, pic_name, sim)

请问为何类型不匹配？如何改写？

Answer 1

Hwnd = Plugin.Window.Find(0,)
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArry=Split(Rect, ) /举团返正饥/或没 改为sRect
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Goto xuanxe
KeyPress `, 1
Delay 1000
IfColor 374+ux,61+uy,11CC,0 Then
KeyPress 1, 1
Else
Rem xuanxe
End If