回 帖 发 新 帖 刷新版面

主题:[原创]用VB制作1-新天骄外挂,游戏辅助工具,附代码 界面篇 连载

先发张免费新天骄外挂下载的成品图,比目标内挂系统还要强悍:
[img]http://www.gamettg.cn/game/tj/images/tj9.jpg[/img]
[img]http://www.gamettg.cn/game/tj/images/tj5.jpg[/img]


[url=http://www.gamettg.cn/game/tj/]源代码网站示例,进入下载[/url]



代码如下:
'==================================
'Dim ret As Long, res As Long
'ret = ShellHookBegin()
'res = InstallHook(ret)

'MsgBox "调用成功=" & Str(ret)
'==================================

Private Sub Initialize()
'初始化各数据
SSTab1.TabIndex = 4
Dim txtLbl As String
txtLbl = "第一步,请确保你的防火墙等安全软件未对它有特殊限制,只要软件默认参数就可以了,挂机前请先检查系统,本外挂有自动检测安全功能 防后门程序,建议下载杀毒安全工具" & vbCrLf
txtLbl = txtLbl & "第二步请确认你的游戏窗口为窗口模式,如果不是窗口,请进游戏后改为窗口模式." & vbCrLf
txtLbl = txtLbl & "第三步,把游戏人物跑到非战斗区,这个不像目标内挂只能在打怪场景使用,它需要在安全区域有铁杂匠的地方使用." & vbCrLf
txtLbl = txtLbl & "第四步.然后再来设置职业技能,打怪场景,回城场景等,并设置好补血的条件及捡物的设置,不要到时老是问怎么不捡这个不捡那个哦,捡的物品可以自动手动添加,自行修改." & vbCrLf
txtLbl = txtLbl & "全部设置好以后,请选择第1选项卡最下边的启动挂机,就可以开始挂机了,如果未设置好的话,容易出现错误,如跳屏,断开游戏等不正常现象,特此告知"
lblsuomin.Caption = txtLbl
'-------------------------
'初始化各职业
cboWork.AddItem "普攻游侠"
cboWork.AddItem "五行游侠"
cboWork.AddItem "普攻力士"
cboWork.AddItem "五行力士"
cboWork.AddItem "普攻刺客"
cboWork.AddItem "五行刺客"
cboWork.AddItem "普攻巫师"
cboWork.AddItem "五行巫师"
cboWork.AddItem "普攻术士"
cboWork.AddItem "五行术士"
'-------------------------
'初始化挂机脚本数据GJJB(挂机脚本)
'cboRepair.Text = "苗族铁匠"
'cboAction.Text = "鸿雁岭挂机"
fileGJJB.Path = App.Path & "\脚本"          '"D:\我的程序\天骄外挂\天骄外挂\脚本\" '
Dim i As Integer
For i = 0 To fileGJJB.ListCount - 1
    cboRepair.AddItem fileGJJB.List(i)
    cboBuy.AddItem fileGJJB.List(i)
    cboAction.AddItem fileGJJB.List(i)
Next i
'-------------------------
'选择不同职业
Dim strWork As String
strWork = cboWork.Text
strWork = Mid(strWork, 3, 2)
'初始化各职业技能

If strWork = "游侠" Then
  For i = 0 To 5
    cboSkill(i).AddItem "一阶斩棘披荆": cboSkill(i).AddItem "一阶撩刺"
    cboSkill(i).AddItem "一阶止血回春": cboSkill(i).AddItem "一阶潜龙升天"
    cboSkill(i).AddItem "一阶御气之术": cboSkill(i).AddItem "二阶斩棘披荆·金"
    cboSkill(i).AddItem "二阶斩棘披荆·木": cboSkill(i).AddItem "二阶斩棘披荆·水"
    cboSkill(i).AddItem "二阶斩棘披荆·火": cboSkill(i).AddItem "二阶斩棘披荆·土"
    cboSkill(i).AddItem "二阶旋风急雨": cboSkill(i).AddItem "二阶电闪雷鸣"
    cboSkill(i).AddItem "二阶怒斩问天": cboSkill(i).AddItem "二阶凝神养气"
    cboSkill(i).AddItem "二阶移行换影": cboSkill(i).AddItem "二阶金钟护体"
    cboSkill(i).AddItem "三阶斩棘披荆II": cboSkill(i).AddItem "三阶穿心一击"
    cboSkill(i).AddItem "三阶突刺": cboSkill(i).AddItem "三阶潜龙升天II"
    cboSkill(i).AddItem "三阶止血回春II": cboSkill(i).AddItem "三阶御气之术II"
    cboSkill(i).AddItem "三阶雷霆万钧": cboSkill(i).AddItem "三阶点石成俑"
    cboSkill(i).AddItem "四阶旋风急雨II": cboSkill(i).AddItem "四阶电闪雷鸣II"
    cboSkill(i).AddItem "四阶怒斩问天II": cboSkill(i).AddItem "四阶疾风扫落叶"
    cboSkill(i).AddItem "四阶凝神养气·群体": cboSkill(i).AddItem "四阶移行换影·群体"
    cboSkill(i).AddItem "四阶金钟护体II": cboSkill(i).AddItem "四阶金钟护体·群体"
    cboSkill(i).AddItem "五阶斩棘披荆III": cboSkill(i).AddItem "五阶移行换影·群体"
    cboSkill(i).AddItem "五阶突刺II": cboSkill(i).AddItem "五阶穿心一击II"
    cboSkill(i).AddItem "五阶潜龙升天III": cboSkill(i).AddItem "五阶御气之术III"
    cboSkill(i).AddItem "五阶御气之术·群体": cboSkill(i).AddItem "五阶移行换影II"
    cboSkill(i).AddItem "五阶霸道无双": cboSkill(i).AddItem "五阶雷霆万钧II"
    cboSkill(i).AddItem "五阶雷霆万钧·群体": cboSkill(i).AddItem "五阶起死回生"
    cboSkill(i).AddItem "五阶磨锋砺刃II": cboSkill(i).AddItem "五阶噬骨之毒II"
    cboSkill(i).AddItem "五阶无情冰刃II": cboSkill(i).AddItem "五阶燃烧血刃II"
    cboSkill(i).AddItem "五阶点石成俑II": cboSkill(i).AddItem "六阶凄风狂雨"
    cboSkill(i).AddItem "六阶疾风乱舞": cboSkill(i).AddItem "六阶无影斩"
    cboSkill(i).AddItem "六阶亢龙冲天": cboSkill(i).AddItem "六阶金刚不坏"
    cboSkill(i).AddItem "七阶穿心连环击": cboSkill(i).AddItem "七阶无坚不摧"
    cboSkill(i).AddItem "七阶幻影墙": cboSkill(i).AddItem "七阶气贯山河"
    cboSkill(i).AddItem "七阶真·霸道无双": cboSkill(i).AddItem "八阶亢龙无悔"
    cboSkill(i).AddItem "八阶疾风夺命": cboSkill(i).AddItem "八阶剑气纵横"
    cboSkill(i).AddItem "八阶气贯山河2": cboSkill(i).AddItem "八阶御气之术4"
    cboSkill(i).AddItem "八阶真·霸道无双2": cboSkill(i).AddItem "八阶潜龙升天4"
    cboSkill(i).AddItem "八阶真·幻影墙"
  Next i
End If
'--------------------------
'初始化捡拾物品设置
txtCollect.Text = "金钱+玉佩+东海石+水晶+钻石+补天石+黄帝石+超级黄帝石+《易经》+《鲁班匠经》+《法经》+《山海经》+黄帝八十一难经+黄帝内经《灵枢》篇+黄帝内经《素问》篇+术士技能之书+力士技能之书+游侠技能之书+刺客技能之书+巫师技能之书+古玉佩+仙桃木+灵怪石+藤精枝+虎睛石+橄榄石+羊脂玉+照殿红+昆仑玉+刚玉+绿石髓+蓝石髓+红石髓+黑曜岩+黄水晶+萤石+珍珠+红珊瑚+黑宝石+金刚石+闪玉+天河石+石榴石+烟水玉+风神戒+情人戒+鱼鳞甲+钩镶+赤龙鳞甲+仙风云体+金缕玉衣+天眼人面盔+霸王盔+兽首盔+光武之心+光武之晶+光武之颠+稀世锻造玉+珍品锻造玉+高级锻造玉+中级锻造玉+犀魁兽之骨+犀魁兽之筋+紫铜矿石+月桂木+金丝楠木+茸水冰球+欲火仙果+欲火仙草+五行锤(金)+五行锤(木)+五行锤(水)+五行锤(火)+五行锤(土)+龙鳞护腕+神佑项链+钻石"
'捡书籍设置
cboAttBook.AddItem "全部捡取"
cboAttBook.AddItem "捡取三阶及三阶以上"
cboAttBook.AddItem "捡取四阶及四阶以上"
cboAttBook.AddItem "只捡五阶及五阶以上"
'--------------------------
'药品名称设置
For i = 0 To 5
    cboLeechdom(i).AddItem "麦饼": cboLeechdom(i).AddItem "双孢蘑菇"
    cboLeechdom(i).AddItem "金珠果": cboLeechdom(i).AddItem "乌笋干"
    cboLeechdom(i).AddItem "兰溪蜜枣": cboLeechdom(i).AddItem "茯苓"
    cboLeechdom(i).AddItem "灵芝": cboLeechdom(i).AddItem "宁夏甘草"
    cboLeechdom(i).AddItem "银杏果": cboLeechdom(i).AddItem "天麻"
    cboLeechdom(i).AddItem "华圣冬桃": cboLeechdom(i).AddItem "雪藕"
    cboLeechdom(i).AddItem "金柑": cboLeechdom(i).AddItem "文蛤"
    cboLeechdom(i).AddItem "鹿茸": cboLeechdom(i).AddItem "山东阿胶"
    Next i
'-------------------------
'喊话设置
cboChannel.AddItem "交易频道"
cboChannel.AddItem "本地频道"
cboChannel.AddItem "好友频道"
cboChannel.AddItem "帮会频道"
cboChannel.AddItem "世界频道"
Text34.Text = "招工启事:本队因工作需要,特招男女打挂手若干名,待遇丰厚,请有意者带一寸照片三张前来报名"
List1.AddItem "不说话难道也有错???"
List1.AddItem "我很郁闷,别来烦我"
List1.AddItem "嗯啊嗯啊嗯啊,没事别密我"

End Sub



Private Sub cmdAddText_Click()
List1.AddItem Text36.Text '添加自动回复内容
End Sub

Private Sub cmdOpenTxt_Click()
'打开脚本编辑
cdlOpenTxt.ShowOpen
Shell "C:\WINDOWS\NOTEPAD.EXE" & " " & cdlOpenTxt.FileName, vbNormalFocus

End Sub

Private Sub cmdRunAction_Click()
'当按下启动挂机时隐藏主窗口
frmMain.Hide

End Sub

'---------------------------------------------------------------------------------------------
Private Sub Form_Load()
Initialize
'窗口隐藏
frmMain.Visible = False
Call GetGameRun("World of Qin - Client") '寻找天骄游戏窗口
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flag
End Sub

'游戏天天挂-辅助工具玩家论坛 http://www.gamettg.cn/bbs/

回复列表 (共3个回复)

沙发

无关紧要的代码。。。

板凳

很无聊,明显是打广告。

3 楼


呵呵。。。我也同意楼上的说法
[url=http://www.43vv.com]淘宝网[/url],[url=http://www.30bc.com]电子烟[/url],[url=http://www.6aqq.com]左旋肉碱[/url],[url=http://www.jf44.com]丰胸精油[/url],[url=http://www.7smu.com]祛痘面膜[/url],[url=http://www.57dv.com]祛斑霜[/url],[url=http://www.00an.com]网购[/url]

我来回复

您尚未登录,请登录后再回复。点此登录或注册