中国留学之家，中国最优秀的留学咨询公司，全球顶尖大学申请专家！ QQ三国挂机脚本

djlz2008 - 2008-4-14 13:22:00

UserVar s=DropList{选项1:1|选项2:2}=1 攻击方式.1.普通攻击。2.技能攻击 //自定义攻击模式
UserVar ptjg=1 普通攻击间隔.单位：秒 //自定义攻击间隔
UserVar jngjms=DropList{选项1:1|选项2:2|选项3：3}=1 技能攻击模式。 //自定义技能攻击模式
UserVar jnbxms=DropList{选项1:1|选项2:2|}=1 技能补血模式。 //自定义技能补血模式
UserVar jn1jg=1 技能攻击间隔1.单位：秒 //自定义技能1攻击间隔
UserVar jn2jg=1 技能攻击间隔2.单位：秒 //自定义技能2攻击间隔
UserVar jn3jg=1 技能攻击间隔3.单位：秒 //自定义技能3攻击间隔
UserVar bx=300 血少于多少时补 //自定义补血保护
UserVar bxjg=1 补血蓝间隔.单位：秒 //补血蓝间隔
UserVar bl=100 蓝少于多少时补 //补蓝保护
UserVar sq=1 捡东西时按几下（攻击一轮后捡） //拾物次数
If s=1 //判断用户选择的攻击模式
Gosub 普通攻击 //如果是第一种，去普通攻击子程序
ElseIf //否则的话
Gosub 技能补血allchoose //去技能攻击选择子程序
EndIf
【以上为选择攻击模式】
Sub 普通攻击
Plugin sanguo = Window.Find(0,"QQ三国Online") //找窗口
Plugin Window.SendKeyDown(sanguo,65) //按下A键
Delay 20 //延迟
Plugin Window.SendKeyUp(sanguo,65) //弹起A键
Delay ptgj*1000-bxjg*2000 //延迟
ReadMemory(内存地址,2,hong) //检测血值
If hong<bx //如果小于补血保护
Plugin Window.SendKeyDown(sanguo,69) //按下E键
Delay 20 //延迟
Plugin Window.SendKeyUp(sanguo,69) //弹起A键
Delay bxjg*1000 //延迟
Goto 补蓝 //再去检测是否需要补蓝
ElseIf
Goto 补蓝 //去补蓝子程序
EndIf
Rem 补蓝
ReadMemory(内存地址,2,lan) //看是否需要补蓝
If lan<bl //如果小于补蓝保护
Plugin Window.SendKeyDown(sanguo,82) //按下R键
Delay 20 //延迟
Plugin Window.SendKeyUp(sanguo,82) //弹起R键
Delay bxjg*1000 //延迟
Gosub 普通攻击（拾物） //去捡东西子程序
ElseIf
Gosub 普通攻击（拾物） //去捡东西子程序
EndIf
Sub 普通攻击（拾物）
For sq //循环
Plugin Window.SendKeyDown(sanguo,67) //按下C键
Delay 20 //延迟
Plugin Window.SendKeyUp(sanguo,67) //弹起C键
Delay 100 //延迟
EndFor //停止循环
Gosub 普通攻击
【以上为普通攻击脚本】
Sub 技能补血allchoose
If jnbxms=1 //判断技能攻击模式
Gosub 技能攻击choose1
ElseIf
Gosub 技能攻击choose2
【2种技能攻击模式选择】
Sub 技能攻击choose1
If jngjms=1 //判断技能攻击1的3种模式
Gosub 技能攻击1
ElseIf jngjms=2
Gosub 技能攻击2
ElseIf jngjms=3
Gosub 技能攻击3
【以上：第1种技能攻击模式的3种攻击模式选择】
Sub 技能攻击1
Plugin Window.SendKeyDown(sanguo,83) //按下S键
Delay 20 //延迟
Plugin Window.SendKeyUp(sanguo,83) //弹起S键
Delay jn1jg*1000-bxjg*2000 //延迟
ReadMemory(内存地址,2,hong) //检测补血
If hong<bx
Plugin Window.SendKeyDown(sanguo,69)
Delay 20
Plugin Window.SendKeyUp(sanguo,69)
Delay bxjg*1000
Goto 补蓝 //再去检测是否需要补蓝
ElseIf
Goto 补蓝 //去补蓝子程序
EndIf
Rem 补蓝
ReadMemory(内存地址,2,lan) //看是否需要补蓝
If lan<bl
Plugin Window.SendKeyDown(sanguo,82)
Delay 20
Plugin Window.SendKeyUp(sanguo,82)
Delay bxjg*1000
Gosub 技能攻击1（拾物） //去捡东西子程序
ElseIf
Gosub 技能攻击1（拾物） //去捡东西子程序
EndIf
Sub 技能攻击1（拾物）
For sq
Plugin Window.SendKeyDown(sanguo,67)
Delay 20
Plugin Window.SendKeyUp(sanguo,67)
Delay 100
EndFor
Gosub 技能攻击1
【以上：第1种技能攻击模式的第1种攻击模式】
Sub 技能攻击2
ReadMemory(内存地址,2,hong)
If hong<bx
Plugin Window.SendKeyDown(sanguo,69)
Delay 20
Plugin Window.SendKeyUp(sanguo,69)
Delay bxjg*1000
Goto 补蓝 //再去检测是否需要补蓝
ElseIf
Goto 补蓝 //去补蓝子程序
EndIf
Rem 补蓝
ReadMemory(内存地址,2,lan) //看是否需要补蓝
If lan<bl
Plugin Window.SendKeyDown(sanguo,82)
Delay 20
Plugin Window.SendKeyUp(sanguo,82)
Delay bxjg*1000
Goto 2
ElseIf
Goto 2
EndIf
Rem 2
Plugin Window.SendKeyDown(sanguo,68)
Delay 20
Plugin Window.SendKeyUp(sanguo,68)
Delay jn1jg*1000-bxjg*2000
ReadMemory(内存地址,2,hong)
If hong<bx
Plugin Window.SendKeyDown(sanguo,69)
Delay 20
Plugin Window.SendKeyUp(sanguo,69)
Delay bxjg*1000
Goto 补蓝 //再去检测是否需要补蓝
ElseIf
Goto 补蓝 //去补蓝子程序
EndIf
Rem 补蓝
ReadMemory(内存地址,2,lan) //看是否需要补蓝
If lan<bl
Plugin Window.SendKeyDown(sanguo,82)
Delay 20
Plugin Window.SendKeyUp(sanguo,82)
Delay bxjg*1000
Gosub 技能攻击2（拾物） //去捡东西子程序
ElseIf
Gosub 技能攻击2（拾物） //去捡东西子程序
EndIf
Sub 技能攻击2（拾物）
For sq
Plugin Window.SendKeyDown(sanguo,67)
Delay 20
Plugin Window.SendKeyUp(sanguo,67)
Delay 100
EndFor
Gosub 技能攻击2

留学之家留学DIY社区