脚本图片搜索
A. 用按键精灵制作脚本,在指定的区域查找图片,如果图片不对,直接终止
示例代码如下:
FindPic0,0,1440,900,"图片全路径.bmp",0.9,intX,intY'查找区域图片
IfintX>0AndintY>0Then
MoveTox,y'移到对应位置
LeftClick1'鼠标点击
Else
'终止
Endif
B. 有没有 右键点击图片然后搜索的扩展或者脚本最好是Google引擎的
其实,如果你装着FireGestures的话,在那里面添加脚本就行了。。。鼠标画个手势就行。。脚本在图片里,后缀改成rar或是zip解压就行
C. 求按键精灵识别图片脚本
FindPic 0,0,1024,768,"Attachment:\图片.bmp",0.9,intX,intY//图片自己截取添加到附件里
If intX > 0 And intY > 0 Then //如果找到则
MoveTo 0, 0//鼠标移动到坐标0,0
Delay 1000//延时1秒
LeftClick 1//鼠标单击
Else //否则(没有找到)
MoveTo 0, 0//鼠标移动到坐标0,0
Delay 1000//延时1秒
LeftClick 1//鼠标单击
End If
D. 按键精灵找图脚本如何制作
Rem 找图1
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
End If
If intX > 0 and inty > 0 Then
MoveTo intx + 3, inty + 3
LeftClick 1
Else
Delay 100
Goto 找图1
End If
Delay 1000
Rem 找图2
FindPic 0,0,1024,768,"Attachment:\2.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
End If
If intX > 0 and inty > 0 Then
MoveTo intx + 3, inty + 3
LeftClick 1
Else
Delay 100
Goto 找图2
End If
For 60
Delay 1000
Next
Goto 找图1
E. 按键精灵可以在一个脚本里多次使用寻找图片和操作么
你想写连个脚本和在一起的?
你可以这样弄 把两个脚本弄合并在一起
然后找到这个图后按键盘 启动另一个脚本的热键 N
F. 按键精灵查找图片
我从两个方面来回答你这个问题。
1、遇到这种问题要先确认预先保存的图片是否正确。脚本里的图片路径是否正确。可以用画板打开你预先保存的图片,然后用脚本找一下。
2、你的脚本第一次运行如果找到图片的话,intx>=0
inty>=0
鼠标移动到intx+2,inty+5并且以后都在这个位置了。如果第一次执行没找到图片,以后鼠标就会一直在0,0。原因是你的rem
1的位置有问题,程序自始至终就只找了一次图。
总结:保证图片正确,把rem
1
移动到while
1
下面。完毕。
G. 按键精灵找图脚本
picpath=array("图1","图2","图3","图4","图5","图6","图7")
//把你所有要找的图片放到附件里面.需要多少张图自己随意加,按格式
i=0
do
FindPic 0,0,1440,900,"Attachment:\"&picpath(i)&".bmp",0.8,X,Y
If X > 0 And Y > 0 Then
//不管出现哪一张之后鼠标移动过去就会点击该图片
MoveTo x+5,y+5
LeftClick 1
Exit do //找到后跳出循环
End If
i=i+1
If 5=i Then
i=0
End if
loop
H. 按键精灵的脚本中,有个动作,就是搜索多个同样的图片,并予以点击一次,脚本怎么写
设定个变量在循环外,点击之前先判断,点击之后变化。比如
点击=0
do
if 点击=0 then
MoveTo intX, intY
Delay 100
LeftClick 1
点击=1
end if
loop
I. 按键精灵 脚本找多个同样的图 依次单击!
Call注册
Call绑定
A类="a1.bmp|a2.bmp|a3.bmp|a4.bmp|a5.bmp"//如果图片多,可以再加
A类=split(A类,"|")//数组
B类="b1.bmp|b2.bmp"
C类="c1.bmp|c2.bmp"
Do//这个是无限循环,当A类的N个图片找完后,反回继续从A类第一个图片开始找,如此反复,直到你停止脚本运行
Fori=0ToUBound(A类)
Do
dm_ret=dm.FindPic(0,0,2000,2000,A类(i),"000000",0.9,0,x,y)
Ifx>=0andy>=0Then
dm.MoveTox+5,y+5
Delay100
dm.LeftClick
Delay100
ExitDo//找到A类第i个图后跳出循环,否则一直找
EndIf
Delay100
Loop
Do
dm_ret=dm.FindPic(0,0,2000,2000,图B,"000000",0.9,0,x,y)
Ifx>=0andy>=0Then
dm.MoveTox+5,y+5
Delay100
dm.LeftClick
Delay100
ExitDo//找到B类图内的任一图片后跳出循环,否则一直找
EndIf
Delay100
Loop
Do
dm_ret=dm.FindPic(0,0,2000,2000,图C,"000000",0.9,0,x,y)
Ifx>=0andy>=0Then
dm.MoveTox+5,y+5
Delay100
dm.LeftClick
Delay100
ExitDo//找到C类图内的任一图片后跳出循环,否则一直找
EndIf
Delay100
Loop
//这组找完,返回并找下一个A类图片
Next
//A类图片都找完了,如果想一直循环找,就加一个无限循环
Loop
Sub绑定
Rem绑定
hwnd=dm.GetMousePointWindow()
Delay100
dm_ret=dm.BindWindow(hwnd,"dx2","windows2","dx",0)
Delay1000
Ifdm_ret=1Then
CallPlugin.Msg.Tips("绑定成功")
Delay100
Else
Goto绑定
EndIf
EndSub
Sub注册大漠()
need_ver="3.1233"
Delay50
setws=createobject("Wscript.Shell")
Delay50
ws.run"regsvr32atl.dll/s"
Delay50
setws=nothing
PutAttachment"c: est_game","*.*"
Delay50
PutAttachment".Plugin","RegDll.dll"
Delay50
CallPlugin.RegDll.Reg("c: est_gamedm.dll")
Delay50
setdm=createobject("dm.dmsoft")
Delay50
ver=dm.Ver()
Delay50
ifver<>need_verthen
Delay50
setdm=nothing
Delay50
setws=createobject("Wscript.Shell")
Delay50
ws.run"regsvr32c: est_gamedm.dll/s"
Delay50
setws=nothing
Delay50
setdm=createobject("dm.dmsoft")
Delay50
ver=dm.Ver()
Delay50
ifver<>need_verthen
messagebox"插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
messagebox"请关闭程序,重新打开本程序再尝试"
endscript
endif
endif
dm.SetPath"c: est_game"
Delay50
dm_ret=dm.SetDict(0,"dm_soft.txt")
Delay50
EndSub
SubOnScriptExit()
dm.UnBindWindow
EndSub
如果你的大漠插件不是3.1233版本,请将注册开头的need_ver = "3.1233" 改为你用的大漠插件版本号
J. 如何查找从网上下载的图片的脚本急!!!
右键单击图片,选择属性,在弹出窗口中找到图片地址(一般是以.jpg .gif.bmp等为后缀),粘贴下来备用就行了。