Call 注册大漠()
Dim 绘制宽度
绘制宽度 = 90
Dim 绘制高度
绘制高度 = 22
Dim 绘制颜色_窗体
绘制颜色_窗体 = "FFFFFF"?? ?// 底
Dim 绘制颜色_内容
绘制颜色_内容 = "000000"?? ?// 字
Dim deBugContent
deBugContent = ""
hwnd = dm.GetMousePointWindow()
TracePrint "hwnd " & CStr(hwnd)
foobar = dm.CreateFoobarRoundRect(hwnd, 5, 1050, 绘制宽度, 绘制高度, 8, 8)
TracePrint "foobar " & CStr(foobar)
// 不允许拖拽悬浮窗
dm_ret = dm.FoobarLock(foobar)
// 按键频率
Dim interval
interval = 20
// 游戏内按键设置 : _______________________________________________________
Dim 上
上 = "W"
Dim 下
下 = "S"
Dim 左
左 = "A"
Dim 右
右 = "D"
Dim 重拳
重拳 = "J"
Dim 重脚
重脚 = "K"
Dim 轻拳
轻拳 = "U"
Dim 轻脚
轻脚 = "I"
Dim 逆向
逆向 = 0
// Enter Point : _______________________________________________________
Rem start
i = WaitKey()?? ?// 监听事件
TracePrint "按键码 : " & i
// alt : 18
If? i = 18 Then
Call 朝向切换()
Else
End If
// 根据快捷键输入指令
If i = 48 Then ?? ?// 0
//?? ??? ?Call 下前下后_双拳()
Call 八神连招()
/*ElseIf i = 49 Then
Call Key_2()
Call Key_3()
Call Key_6()
Delay 15
KeyPress "J", 1
ElseIf i = 50 Then
Call Key_6()
Call Key_2()
Call Key_3()
Call Key_6()
Delay 15
KeyPress "J", 1
ElseIf i = 51 Then
Call Key_2()
Call Key_3()
Call Key_6()
Delay 15
Call Key_2()
Call Key_1()
Call Key_4()
Delay 15
KeyPress "J", 1*/
End If
dm_ret = dm.FoobarFillRect(foobar, 0, 0, 绘制宽度, 绘制高度, 绘制颜色_窗体)
showContent = " 站位 : " & deBugContent
dm_ret = dm.FoobarDrawText(foobar, 0, 0, 绘制宽度, 绘制高度, showContent, 绘制颜色_内容, 1)
dm_ret = dm.FoobarUpdate(foobar)//刷新
Delay 10
Goto start
// 角色连招
Sub 八神连招()
KeyPress 重拳, 1
Delay 200
If 逆向 = 1 Then
tempR = 左
tempL = 右
Else
tempR = 右
tempL = 左
End If
Call 方向_拳脚(tempR, 轻脚)
Delay 300
Call 组合方向1_拳脚(下, tempL, "双拳")
Delay 350
Call 组合方向1_拳脚(下, tempL, 重拳)
Delay 280
Call 组合方向1_拳脚(下, tempL, 重拳)
Delay 690
Call 组合方向2_拳脚(下, tempR, 下, tempL, 重拳)
Delay 3000
Call 组合方向2_拳脚(下, tempR, 下, tempR, "双拳")
Delay 3200
Call 组合方向2_拳脚(下, tempL, 下, tempR, "重拳脚")
End Sub
// 函数 : _______________________________________________________
Sub 朝向切换()
If 逆向 = 1 Then
逆向 = 0
deBugContent = "Left"
ElseIf 逆向 = 0 Then
逆向 = 1
deBugContent = "Right"
End If
End Sub
Sub 方向_拳脚(dir, act)
KeyDown dir,1
KeyPress act,1
KeyUp dir,1
End Sub
Sub 组合方向1_拳脚(dir1, dir2, act)
If dir1 = 下 and dir2 = 左 Then
Call Key_2()
Call Key_1()
Call Key_4()
End If
If dir1 = 下 and dir2 = 右 Then
Call Key_2()
Call Key_3()
Call Key_6()
End If
If act = "双拳" Then
Call Key_双拳()
Else
KeyPress act, 1
End If
End Sub
Sub 组合方向2_拳脚(dir1, dir2, dir3, dir4, act)
If dir1 = 下 and dir2 = 右 and dir3 = 下 and dir4 = 左 Then
Call Key_2()
Call Key_3()
Call Key_6()
Call Key_2()
Call Key_1()
Call Key_4()
End If
If dir1 = 下 and dir2 = 左 and dir3 = 下 and dir4 = 右 Then
Call Key_2()
Call Key_1()
Call Key_4()
Call Key_2()
Call Key_3()
Call Key_6()
End If
If dir1 = 下 and dir2 = 右 and dir3 = 下 and dir4 = 右 Then
Call Key_2()
Call Key_3()
Call Key_6()
Call Key_2()
Call Key_3()
Call Key_6()
End If
If dir1 = 下 and dir2 = 左 and dir3 = 下 and dir4 = 左 Then
Call Key_2()
Call Key_1()
Call Key_4()
Call Key_2()
Call Key_1()
Call Key_4()
End If
If act = "双拳" Then
Call Key_双拳()
ElseIf act = "重拳脚" Then
Call Key_重拳脚()
Else
KeyPress act, 1
End If
End Sub
Sub 下前下后_双拳()
Call Key_2()
Call Key_3()
Call Key_6()
Call Key_2()
Call Key_1()
Call Key_4()
Call Key_双拳()
End Sub
Sub Key_双拳()
KeyDown 轻拳, 1
KeyDown 重拳, 1
Delay interval
KeyUp 轻拳, 1
KeyUp 重拳, 1
End Sub
Sub Key_重拳脚()
KeyDown 重脚, 1
KeyDown 重拳, 1
Delay interval
KeyUp 重脚, 1
KeyUp 重拳, 1
End Sub
Sub Key_1()
KeyDown 下,1
KeyDown 左,1
Delay interval
KeyUp 下,1
KeyUp 左,1
End Sub
Sub Key_2()
KeyPress 下,1
End Sub
Sub Key_3()
KeyDown 下,1
KeyDown 右,1
Delay interval
KeyUp 下,1
KeyUp 右,1
End Sub
Sub Key_4()
KeyPress 左,1
End Sub
Sub Key_6()
KeyPress 右,1
End Sub
Sub 注册大漠()
myPath = "D:wowresource"
// 首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它资源(字库，图片等)也可以一并打包
// 这个need_ver作为本脚本需要使用的插件版本. 如果要换插件时，记得更改这个值.
need_ver = "3.1233"
// 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
set ws=nothing
// 释放附件>>>>>>>>>>>>>>>>>>>
// 这里选择c盘的test-_game作为插件的基本目录 也就是SetPath对应的目录。所以所有资源都释放在此目录.
PutAttachment myPath,"*.*"
// 这里要用到RegDll来注册插件，所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效.
PutAttachment ".Plugin" ,"RegDll.dll"
// 插件注册开始>>>>>>>>>>>>>>>>>>>
// 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
Call Plugin.RegDll.Reg(myPath)
// 这里判断是否注册成功
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
// 先释放先前创建的dm
set dm = nothing
// 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 "&myPath&"dm.dll /s"
set ws=nothing
Delay 1500
// 再判断插件是否注册成功
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
// 这时，已经确认插件注册失败了。 弹出一些调试信息，以供分析.
messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
messagebox "请关闭程序,重新打开本程序再尝试"
endscript
end if
End If
If ver = need_ver Then
TracePrint "注册成功!插件所在目录为:"&dm.GetBasePath()
End If
// 插件注册结束<<<<<<<<<<<<<<<
// 插件基本目录(全局路径)，以后的资源需要放在此文件夹下
dm.SetPath myPath
End Sub
BC链 http://www.chinabic.com/?id=136 转载需授权！
网友评论