按鍵精靈句柄抓取

程式碼也是打在副程式裡面
座標在抓抓裡放大鏡有個當前屏幕座標  
指令在腳本-全部命令-插件命令-Bkgnd後台插件(裡面找看你想要用鍵盤還滑鼠)
文字部分我就不清楚了 你在Google找教學吧

那我來補充文字輸入吧
座標那些沒問題 就看你在要輸入文字的地方是中文還是英數字了
英數字簡單，就直接
Plugin.Bkgnd.KeyPress(Hwnd,65 )
Plugin.Bkgnd.KeyPress(Hwnd,66 )
Plugin.Bkgnd.KeyPress(Hwnd,67 )
就是abc了
中文輸入 就我所知 模擬器都沒辦法直接鍵盤輸入
只能靠模擬器輸入法了
用輸入法就是抓注音座標慢慢點囉
如果是要輸入固定的文字
可以用iqqi輸入法
他的功能裡面有可以自己保存的語句直接貼上
自己研究一下吧

我曾經自己弄個神魔後台首抽+備份無限循環
那可是非常耗神阿

抱歉想請問大大有遇過使用鍵盤指令都可以, 但滑鼠指令都沒法執行的問題嗎?
我有試著KeyPree 都沒問題, 只要設好模擬器鍵盤
但我試著抓色跟點擊滑鼠都失敗, 想請問一下我下面的寫法有什麼問題嗎?

Dim Hwnd
Hwnd=918516
Call a
Delay 0.0001
EndScript

Sub a

GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 2179, 1290)
If GetColor = "5AD9FF" Then
Call Plugin.Bkgnd.LeftClick(Hwnd, 2179, 1290)
End If

Delay 0.0001

End Sub

nestea1997 發表於 2017-1-15 21:54
程式碼也是打在副程式裡面
座標在抓抓裡放大鏡有個當前屏幕座標  
指令在腳本-全部命令-插件命令-Bkgnd後台 ...

抱歉想請問大大有遇過使用鍵盤指令都可以, 但滑鼠指令都沒法執行的問題嗎?
我有試著KeyPree 都沒問題, 只要設好模擬器鍵盤
但我試著抓色跟點擊滑鼠都失敗, 想請問一下我下面的寫法有什麼問題嗎?

Dim Hwnd
Hwnd=918516
Call a
Delay 0.0001
EndScript

Sub a

GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 2179, 1290)
If GetColor = "5AD9FF" Then
Call Plugin.Bkgnd.LeftClick(Hwnd, 2179, 1290)
End If

Delay 0.0001

End Sub

delay 1000
//1000等於 1秒，你後面0.0001 倒不如就不要了，沒意義

以後我用模擬器寫的，自己看應該看得懂，至於你標題寫的。
應該跟我碰到的困難是一樣的，我也抓不到標題，原因可能是 簡體字，所以上網找找 才看到你打的

以下自己看吧，不過在模擬器執行 感覺會lag，原因我寫好幾千行..就沒再用了

不要去看座標，原因我這個人懶得再重寫，
所以把原來的座標換成後台相對的座標可以使用就不用再重新用
我的顯示是用1024x768

X=-112
Y = - 118

Hwnd = 655932

if Plugin.Bkgnd.GetPixelColor(Hwnd,503+X,Y+535)="72B4DF" Then
Call BL_MoveTo(503+X,Y+535)
Delay 200
End if


sub BL_MoveTo(XX,YY)

call Plugin.Bkgnd.MoveTo(Hwnd,XX,YY)
Call Plugin.Bkgnd.LeftDown(Hwnd,XX,YY)
Delay 200
call Plugin.Bkgnd.LeftUp(Hwnd,XX,YY)

End SUB

忘了跟你說

只要重新開機，巨炳一定會變，模擬器有時候顏色會變很奇怪，你要放大在縮小就可以了.

另外小弟去找網路，有各方法，就是 你要讓程式執行的時候，
滑鼠先指著要後台的視窗，先讓執行自行抓取 巨炳
程式放在最前面，意思就是只執行一次

If zz = 0 Then
zz = z + 1

Hwnd1 = Plugin.Window.MousePoint()
sClass = Plugin.Window.GetClass(Hwnd1)
sText = Plugin.Window.GetTextEx(Hwnd1, 0)
       
End If

Hwnd = Hwnd1

可是我的案件精靈世傑圖失敗 具餅抓圖抓其他視窗都正常 但是抓夜神時有圖但是圖像式有夜神的視窗框框裡面是全白的
set dm = createobject("dm.dmsoft")
dm.SetPath "c:"
hwnd = Plugin.Window.Find(0, "夜神模擬器")
dm_ret = dm.BindWindow(hwnd,"gdi","normal","normal",0)
dm_ret = dm.Capture(0,0,2000,2000,"screen.bmp")
dm_ret = dm.UnBindWindow()
EndScript