A. 按鍵精靈 腳本找多個同樣的圖 依次單擊！
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" 改為你用的大漠插件版本號
B. 想請教一個問題，3Dmax腳本怎麼實現，在選擇的已有物體上，讓它們在某個軸上平均分布（間隔一樣）
前和後什麼意思？？如果你想要像後的那樣有間隔位置的，直接使用復制命令然後給想要的數量就行了
C. 按鍵精靈怎麼循環找兩張圖片點擊，代碼怎麼寫
Do
AX = Plugin.Sys.GetScRX():AY = Plugin.Sys.GetScRY()
FindPic 0, 0, AX, AY, "Attachment:\立刻購買.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
MoveTo intX+5,intY+5
LeftClick 1
Do
FindPic 0, 0, AX, AY, "Attachment:\立即支付.bmp", 0.9, intX1, intY1
If intX1 > 0 And intY1 > 0 Then
MoveTo intX1+5,intY1+5
LeftClick 1
Exit Do
End If
Loop
End If
Loop
復制上面代碼可達成
注意事項：用按鍵精靈抓抓功能抓取相應圖片放到腳本的附件內
D. 按鍵精靈的腳本中，有個動作，就是搜索多個同樣的圖片，並予以點擊一次，腳本怎麼寫
設定個變數在循環外，點擊之前先判斷，點擊之後變化。比如
點擊=0
do
if 點擊=0 then
MoveTo intX, intY
Delay 100
LeftClick 1
點擊=1
end if
loop
E. 如何快速製作腳本間隔時間自動使用按鍵精靈游戲技能輔助腳本
腳本使用說明:
1. 此腳本可應用於各種網路游戲，用於自動間隔時間使用輔助技能，可自定義三個技能和間隔時間。
2. 腳本開始運行前請先在按鍵精靈主界面上設置自定義參數，修改後點擊上方的「保存」按鈕。
3. 可定義輔助技能熱鍵：數字0～9、字母A～Z、F1～F12 ，設置技能時字母可不分大小寫。
4. 如果輔助技能是F1～F12，比如技能是F12，自定義參數設置的輸入格式：f12或F12
5. 輸入間隔時間單位為"秒"，比如間隔180秒，自定義參數的輸入格式：180
6. 如果在自定義設置中輸入的數據錯誤，腳本將提示並停止運行。
>>具體腳本代碼如下：
UserVar jn1=a 設置技能1鍵位
UserVar jn2=2 設置技能2鍵位
UserVar jn3=F11 設置技能3鍵位
UserVar s1=60 設置技能1施放間隔時間
UserVar s2=90 設置技能2施放間隔時間
UserVar s3=120 設置技能3施放間隔時間
//-----------------------------------------------------------------------
//---------------------------------------------------------[賦值初始變數]
//-----------------------------------------------------------------------
dim number(2),thetime(2),key(2),sj(2)
dim a,b,c,d,jn1,jn2,jn3,s1,s2,s3,t1,t2,t3,L
//聲明變數
number(0)=jn1:number(1)=jn2:number(2)=jn3
thetime(0)=s1:thetime(1)=s2:thetime(2)=s3
//把自定義參數的返回值轉換成數組元素
t1=now:t2=now:t3=now
//返回當前系統日期時間到變數
//-----------------------------------------------------------------------
//---------------------------------------------------------- [跳轉子程序]
//-----------------------------------------------------------------------
Gosub 判斷按鍵
Gosub 判斷時間
//-----------------------------------------------------------------------
//---------------------------------------------------------- [腳本主程序]
//-----------------------------------------------------------------------
While true
//條件無限循環
If DateDiff("s",t1,now)>=sj(0)
//< DateDiff 函數：返回兩個日期之間的時間間隔>
//<"s"：秒> <t1：時間變數> <now：當前系統日期和時間> <s(0)：自定義時間變數>
Delay 10
KeyPress key(0) 1
//按鍵 變數k(0) 1次
t1=now
//重新賦值日期時間到變數
EndIf
If DateDiff("s",t2,now)>=sj(1)
Delay 10
KeyPress key(1) 1
t2=now
EndIf
If DateDiff("s",t3,now)>=sj(2)
Delay 10
KeyPress key(2) 1
t3=now
EndIf
Delay 10
EndWhile
//-----------------------------------------------------------------------
//------------------------------------------------------ [判斷鍵碼子程序]
//-----------------------------------------------------------------------
Sub 判斷按鍵
a=0:b=0
//賦值數組最小下標
For 3
L=Len(number(a))
//< Len 函數：返回字元串內字元的數量>
If L=1
key(b)=Asc(UCase(number(a)))
//< Asc 函數：返回字元串首字母的ASCII字元代碼> < UCase 函數：返回轉換為大寫字母的字元>
If key(b)<48 or key(b)>90
Goto End
//超出范圍跳轉到腳本結束標記
ElseIf key(b)>57 and key(b)<65
Goto End
EndIf
ElseIf L>1 and L<4
If UCase(Left(number(a),1))="F"
//判斷字元串首字字元 < Left 函數：返回字元串最左邊的指定數量的字元>
key(b)=Asc(UCase(Left(number(a),1)))+Right(number(a),L-1)+41
//< Right 函數：返回字元串最右邊的指定數量的字元>
If key(b)<112 or key(b)>123
Goto End
EndIf
Else
Goto End
EndIf
Else
Goto End
EndIf
a=a+1:b=b+1
//數組下標+1
Delay 10
EndFor
Return 判斷按鍵
//-----------------------------------------------------------------------
//------------------------------------------------------ [判斷時間子程序]
//-----------------------------------------------------------------------
Sub 判斷時間
c=0:d=0
For 3
If IsNumeric(thetime(c))=True
//< IsNumeric 函數：返回布爾值指明表達式的值是否為數字>
sj(d)=cint(thetime(c))
/< CInt 函數：返回已被轉換為整形子類型的變體的表達式>
Else
Goto End
EndIf
c=c+1:d=d+1
Delay 10
EndFor
Return 判斷時間
//-----------------------------------------------------------------------
//-------------------------------------------------------- [腳本停止標記]
//-----------------------------------------------------------------------
Rem End
MessageBox 輸入錯誤 腳本停止運行
EndScript
F. 按鍵精靈-我自己做了一個滑鼠點擊的腳本，如何讓它1小時後重復腳本，而且反復操作！
'這樣就是一小時後不斷重復了。。
'如果想先執行命令在延時就把延時命令放在Goto Start之前。
'如果想先延時後執行命令。就像現在這樣就行。
Rem Start
Delay 3600000
'==========以下是按鍵精靈錄制的內容==========
MoveTo 754, 277
LeftClick 1
Delay 155
LeftClick 1
Delay 128
LeftClick 1
Delay 139
LeftDoubleClick 1
Delay 113
Delay 77
LeftDoubleClick 1
Delay 80
Delay 95
LeftDoubleClick 1
Delay 44
Delay 70
LeftClick 1
MoveTo 724, 446
Delay 2288
LeftDown 1
MoveTo 594, 352
Delay 1056
LeftUp 1
MoveTo 724, 438
Delay 784
LeftDown 1
MoveTo 508, 293
Delay 2074
LeftUp 1
MoveTo 236, 247
Delay 6727
LeftClick 1
MoveTo 183, 231
Delay 1136
LeftClick 1
MoveTo 132, 237
Delay 1456
LeftClick 1
MoveTo 95, 269
Delay 1560
LeftClick 1
MoveTo 97, 323
Delay 1536
LeftClick 1
MoveTo 147, 322
Delay 1380
LeftClick 1
MoveTo 184, 284
Delay 1260
LeftClick 1
MoveTo 237, 309
Delay 1480
LeftClick 1
MoveTo 306, 311
Delay 1466
LeftClick 1
MoveTo 289, 335
Delay 2260
LeftClick 1
MoveTo 236, 369
Delay 1955
LeftClick 1
MoveTo 185, 345
Delay 1648
LeftDown 1
MoveTo 185, 344
Delay 81
LeftUp 1
MoveTo 132, 360
Delay 1544
LeftClick 1
MoveTo 184, 391
Delay 1192
LeftClick 1
MoveTo 251, 415
Delay 1826
LeftClick 1
MoveTo 603, 446
Delay 2827
LeftClick 1
MoveTo 554, 467
Delay 2209
LeftClick 1
MoveTo 512, 488
Delay 1817
LeftClick 1
MoveTo 459, 511
Delay 1294
LeftClick 1
MoveTo 488, 523
Delay 1403
LeftClick 1
MoveTo 645, 367
Delay 4077
LeftDown 1
MoveTo 602, 345
Delay 1437
LeftUp 1
MoveTo 624, 399
Delay 3356
LeftDown 1
MoveTo 559, 357
Delay 313
LeftUp 1
MoveTo 602, 447
Delay 3010
LeftClick 1
MoveTo 670, 209
Delay 2086
LeftClick 1
'==========以上是按鍵精靈錄制的內容==========
Goto Start
G. 按鍵精靈屏幕內找圖，相同的圖有很多，滑鼠移到圖上依次點擊，該怎麼寫求代碼
滑鼠精靈模擬滑鼠點擊,任意設置點擊位置、點擊時間間隔及點擊方式(單擊/雙擊,順序點/隨機點擊)。按鍵精靈是一個模擬滑鼠鍵盤動作的軟體。通過製作腳本,可以讓按鍵精靈代替您的雙手,自動執行一系列滑鼠鍵盤動作。按鍵精靈簡單易用,不需要任何編程知識就可以作出功能強大的腳本。只要您在電腦前用雙手可以完成的動作,按鍵精靈都可以替您完成. 二者差不多
H. 按鍵精靈 腳本找多個同樣的圖依次點擊
Hwnd=Plugin.Window.MousePoint()
Arr=Split(Plugin.Window.GetWindowRect(Hwnd),"|")
Do
Call找多圖(Arr(0),Arr(1),Arr(2),Arr(3),"Attachment:1.bmp",1.0)
Loop
Function找多圖(起點X,起點Y,終點X,終點Y,圖片,相似度)
Dimtx,ty,tx1,ty1
找到的坐標=""
tx=起點X:ty=起點Y:tx1=終點X:ty1=終點Y
Do
FindPictx,ty,tx1,ty1,圖片,相似度,intX,intY
IfintX>0andintY>0Then
找到的坐標=找到的坐標&intX&","&intY&"|"
MoveTointX,intY
Delay100
LeftClick1
Delay100
tx=intX+5
ty=intY
Else
ty=ty+5
tx=起點X
IfintX=-1andintY=-1Then
FindPictx,ty,tx1,ty1,圖片,相似度,intX,intY
IfintX>0andintY>0Then
找到的坐標=找到的坐標&intX&","&intY&"|"
MoveTointX,intY
Delay100
LeftClick1
Delay100
tx=intX+5
ty=intY
Else
ExitDo
EndIf
EndIf
Endif
Loop
EndFunction
I. 求教按鍵精靈找相同圖片腳本。要具體語句
FindPic 0,0,1600,mo,"Attachment:\農田.bmp",0.9,intX,intY
你這句是從左上解坐標0，0到右下角坐標1600。MO
但是你的變數MO值為0
所以在屏幕0.0至1600.0找你的圖，所以找不到！
其實最簡單的就把右下角坐標改了！
比如說改成1024*768
例：
FindPic 0,0,1024,768,"Attachment:\農田.bmp",0.9,intX,intY
你可以看看你的屏幕解析度！然後把1024.768改成你的解析度！
他就是全屏找圖了！