整体代码
hwnd = Plugin.Window.MousePoint()
sText = Plugin.Window.GetText(Hwnd) //获取窗口标题
If sText = "轩辕传奇.jpg - Windows 照片查看器" Then //判断下是不是要操作的窗口
Call Plugin.Window.size(hwnd, 800, 600)
Else
MessageBox "鼠标没有指向游戏窗口"
EndScript
End If
sRect = Plugin.Window.GetClientRect(Hwnd) //获取窗口客户区大小
MyArray = Split(sRect, "|")
窗口左上角x坐标 = Clng(MyArray(0)) : 窗口左上角y坐标 = Clng(MyArray(1))//获取窗口左上角坐标
FindPic 窗口左上角x坐标+257,窗口左上角y坐标+139, 窗口左上角x坐标+308,窗口左上角y坐标+164,"Attachment:\验证码.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.Pic.PrintScreen(窗口左上角x坐标 + 310, 窗口左上角y坐标 + 233, 窗口左上角x坐标 + 430, 窗口左上角y坐标 + 278, "F:\验证码.bmp")
jieguo = 弹出输入验证码框("F:\验证码.bmp", 0, 0, 100, 100)
End If
Global 图片路径,x1,y1,xx1,yy1
Function 弹出输入验证码框(图片地址,x,y,xx,yy)
图片路径=图片地址:x1=x:y1=y:xx1=xx:yy1=yy
线程ID=BeginThread(线程)
弹出输入验证码框=InputBox("","请输入验证码")
StopThread 线程ID
End Function
Sub 线程()
do
Hwnd = Plugin.Window.Find("#32770", "请输入验证码")
Loop while (Hwnd=0)
Hwnd= Plugin.Window.FindEx(Hwnd, 0,"Static","")
call 在窗口上贴图(Hwnd,图片路径,x1,y1,xx1,yy1,2)
End Sub
Sub 在窗口上贴图(句柄,图片地址,x,y,xx,yy,显示方式)
//显示方式为1 是拉伸,显示方式为3 是原大小
图像句柄=Plugin.WndEx6.CreatePictureRgn (句柄,x,y,xx,yy)
call Plugin.WndEx6.SetPictureRgnStyle (图像句柄,显示方式)
do
call Plugin.WndEx6.SetPictureRgnImage (图像句柄,图片地址)
Delay 50
Loop
End Sub
联系客服