战士旋转鼠标挂机脚本支持后台

jk1688

Dim posx, posy
posx = 10
posy = 50
Hwnd = Plugin.Window.MousePoint()
//Call Plugin.Window.Move(Hwnd,10,50)
Call Plugin.bgkms6_10.SetAntiMode(0)
Delay 50
Call Plugin.bgkms6_10.FakeWindowState(hwnd, 1)
Delay 50
KMData = Plugin.bgkms6_10.KMTransform(hwnd, 1)
Delay 50

Dim tdelay,cnt
tdelay=1000
posx = 0//10+150
posy = 0//posy + 50

Call Plugin.bgkms6_10.LockKey(KMData)
Call Plugin.bgkms6_10.LockMouse(KMData)
Call Plugin.bgkms6_10.KeyDown(KMData, "4")
Delay 500
Call Plugin.bgkms6_10.KeyUp(KMData, "4")
Call Plugin.bgkms6_10.RightDown(KMData)

cnt=0
For 999999
Call Plugin.bgkms6_10.MoveTo(KMData, 532-posx,229-posy)
Delay tdelay
Call Plugin.bgkms6_10.MoveTo(KMData, 336-posx,269-posy)
Delay tdelay
Call Plugin.bgkms6_10.MoveTo(KMData,  229-posx,413-posy)
Delay tdelay
Call Plugin.bgkms6_10.MoveTo(KMData,  362-posx,437-posy)
Delay tdelay
Call Plugin.bgkms6_10.MoveTo(KMData,  454-posx,522-posy)
Delay tdelay
Call Plugin.bgkms6_10.MoveTo(KMData,  754-posx,542-posy)
Delay tdelay
Call Plugin.bgkms6_10.MoveTo(KMData,  848-posx,416-posy)
Delay tdelay
Call Plugin.bgkms6_10.MoveTo(KMData,  725-posx,267-posy)
Delay tdelay
cnt = cnt + 1
If cnt = 10 Then
cnt = 0
Call Plugin.bgkms6_10.KeyDown(KMData,"5")
Delay 500
Call Plugin.bgkms6_10.KeyUp(KMData, "5")

Delay 1000

Call Plugin.bgkms6_10.KeyDown(KMData, "4")
Delay 500
Call Plugin.bgkms6_10.KeyUp(KMData, "4")

End If
Next
Sub OnScriptExit()
Call Plugin.bgkms6_10.RightUp(KMData)
Call Plugin.bgkms6_10.UnlockMouse(KMData)

Call Plugin.bgkms6_10.UnlockKey(KMData)
    Call Plugin.bgkms6_10.KMUntransform(KMData)
   
    Call Plugin.bgkms6_10.RestoreWindowState(hwnd)
   
   
End Sub

需要361插件，快捷键设置，4为致命一击，5为生命之光

Valoar

神马脚本？挂机用的？

yandehua2012

试过就知道

日后不爱你

不会调  

Valoar

有机会试试  收藏了先

龙雨

MM和圣应该用处更大一点,就不晓得除了战士能用不?

Valoar

龙雨 发表于 2013-1-13 21:33
MM和圣应该用处更大一点,就不晓得除了战士能用不?

标题写的就是战士用的

caiji1000

貌似很牛X啊

sky1988

路过酱油

流年似水

慎用

zhangzhiming

都不会弄，你不会弄好了传上来

badboy8002

封号 封号

Valoar

361插件是什么？