在vb-api帮助手册FindWindow的语句
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
调用示例
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
hwnd = findwindow(vbnullstring, "按键精灵") //这里vbnullstring可以写成0,但是不可以写成“”,这样就找不到窗口句柄了
MessageBox hwnd
如何循环找图 查找多图
//先将图片放到附件里
Dim a(3)
a(0)="Attachment:\马1.bmp"
a(1)="Attachment:\马2.bmp"
a(2)="Attachment:\马3.bmp"
a(3)="Attachment:\马4.bmp"
Call 查找图片数组()
EndScript
Sub 查找图片数组()
For i=0 to 3
VBSCall FindPic(746,445,799,570,a(i),1,x,y)
If x>0 and y>0 Then
MoveTo x+5,y+5
LeftCl