1.jpg (22.27 KB)

2006-9-12 08:23 PM
2.jpg (45.42 KB)

2006-9-12 08:23 PM
3.jpg (135.71 KB)

------------------------------------------------ 在Form1窗体上放:::

[ CheckBox ] 控件6个
>>>名字分别为:
   Check1.Caption="自动补血"
   Check2.Caption="自动补蓝"
   Check3.Caption="自动捡物"
   Check4.Caption="自动打怪"
   Check5.Caption="法师开盾"
   Check6.Caption="自动回城"
//在控件属性栏上修改内容不要加引号("")

[ Command ]控件2个
>>>名字分别为:
   Command1.Caption="启动"
   Command2.Caption="停止"
//在控件属性栏上修改内容不要加引号("")

[ Label ]控件1个
>>>属性分别为:
   Label1.Enabled=False
   Label1.Visible=False



接着发代码吧:::::

*************Form1窗体上代码**********************************

'启动
Private Sub Command1_Click()
Label1.Enabled = True '存储器有效
Label1.Caption = "N" '存储器名字为"N"
Unload Me
End Sub

'停止
Private Sub Command2_Click()
Label1.Enabled = True '存储器有效
Label1.Caption = "Y" '存储器名字为"Y"
Unload Me
End Sub

'窗体退出
Private Sub Form_Unload(Cancel As Integer)
Me.Hide '窗体只隐藏
Cancel = 1
End Sub


*************Class1类模块上代码*******************************

Public c1 As Integer, c2 As Integer '定义单数字型
Public c3 As Integer, c4 As Integer
Public c5 As Integer, c6 As Integer
Public s As String '定义字符型

Private Sub Class_Initialize()

Form1.Show 1 '显示窗体界面

c1 = Form1.Check1.Value '用来判断 自动补血(c1 = 0关,c1 = 1开)

c2 = Form1.Check2.Value '用来判断 自动补蓝(c2 = 0关,c2 = 1开)

c3 = Form1.Check3.Value '用来判断 自动捡物(c3 = 0关,c3 = 1开)

c4 = Form1.Check4.Value '用来判断 主动打怪(c4 = 0关,c4 = 1开)

c5 = Form1.Check5.Value '用来判断 法师开盾(c5 = 0关,c5 = 1开)

c6 = Form1.Check6.Value '用来判断 自动回城(c6 = 0关,c6 = 1开)

s = Form1.Label1.Caption '用来判断 存储器名字(s="N"启动,s="Y"停止)

End Sub

********************************************************
把生成好的 [测试界面.dll] 文件放到按键精灵的[plugin]文件夹里

*************注册 [测试界面.dll] 文件*************************

regsvr32 测试界面.dll

********************************************************

上面的注册文件内容保存为 [测试界面.bat] 也放在按键精灵的[plugin]文件夹里
在运行一下即可注册

*************反注册 [测试界面.dll] 文件***********************

regsvr32 -u 测试界面.dll


*************按键精灵上脚本代码*******************************

//创建类模块窗体脚本代码
Set b = CreateObject("工程1.Class1")
//以后有调用,第一次调[b.s]启动停止判断
VBSCall MessageBox("存储器名字="&b.s&"   (N启动,Y停止)")
VBSCall MessageBox("自动补血="&b.c1)
VBSCall MessageBox("自动补蓝="&b.c2)
VBSCall MessageBox("自动捡物="&b.c3)
VBSCall MessageBox("主动打怪="&b.c4)
VBSCall MessageBox("法师开盾="&b.c5)
VBSCall MessageBox("自动回城="&b.c6)
按键精灵里的使用方法::
set b=CreateObject("工程1.Class1")
If b.s="N"
VBSCall MessageBox("您选择的是   开始")
If b.c1=1
   //这里放你加血的脚本代码
       MessageBox 你打开了[自动补血]
EndIf
If b.c2=1
   //这里放你加蓝的脚本代码
       MessageBox 你打开了[自动补蓝]
EndIf
If b.c3=1
   //这里放你捡物的脚本代码
       MessageBox 你打开了[自动捡物]
EndIf
If b.c4=1
   //这里放你打怪的脚本代码
       MessageBox 你打开了[主动打怪]
EndIf
If b.c5=1
   //这里放你开盾的脚本代码
       MessageBox 你打开了[法师开盾]
EndIf
If b.c6=1
   //这里放你回城的脚本代码
       MessageBox 你打开了[自动回城]
EndIf
Else
//这里放脚本停止
VBSCall MessageBox("您选择的是   退出")
EndIf
摘自：http://bbs.vrbrothers.com/viewthread.php?tid=24143&extra=page%3D1
> >