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改成你的解析度!
他就是全屏找圖了!