发个VB DNF外挂源码了权限改10了

q37369494 · 发表于 2010-5-26 09:39

本帖最后由 q37369494 于 2010-5-28 10:26 编辑

DNF外挂源码注意是VB的不是E语言

先发出点来调调大家胃口啊
Private Sub Timer2_Timer()
'定义ID , Gamehwnd1
Dim ID As Long, Gamehwnd1 As Long
'查找游戏的句柄,赋值给Gamehwnd1
Gamehwnd1 = FindWindow(vbNullString, "地下城勇士")
'用GetWindowThreadProcessId获取游戏的进程ID
GetWindowThreadProcessId Gamehwnd1, ID
'以全部权力打开进程
hProces1 = OpenProcess(&H1F0FFF, 0, ID)
'这里又用到了if , (hProces1 = 0) 就是没有地下城勇士,反之游戏已加载.
If (hProces1 = 0) Then
'游戏未启动通过Label1标题来显示证明 "游戏未启动" ,然后关闭Timer1
Label1.Caption = "游戏未启动"
'其实程序在制作初期就设定Timer1的Enabled为无效 False , 写不写这段代码无所谓
Timer1.Enabled = False
Else
'游戏未启动通过Label1标题来显示证明 "游戏已启动" ,然后打开Timer1
Label1.Caption = "游戏已启动"
Timer1.Enabled = True
End If
End Sub

gaoyang976 · 发表于 2010-5-26 10:13

可以用吗，测试过没有，不要乱发

0xdeath · 发表于 2010-5-26 10:29

我就是专门破你G的········

bob123 · 发表于 2010-5-26 10:42

不用过保护？神奇

jovian007 · 发表于 2010-5-27 13:26

权限不够、、、、、、、悲剧，看不了

jovian007 · 发表于 2010-5-27 13:27

希望LZ贴出来啊，我权限不够额，最近在学VB.NET，想看看你的源码

xxhaishixx · 发表于 2010-5-27 17:13

楼主估计又出来忽悠人了~嘿嘿……

572911846 · 发表于 2010-5-27 18:15

不可能是真的吧！楼主别是骗人呢吧！

菜鸟学编程 · 发表于 2010-5-27 21:06

哈，正在学VB呢

466599755 · 发表于 2010-5-31 13:58

DNF挂是注入了....不需要过保护！

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] 发个VB DNF外挂源码了权限改10了

个人中心

[其他转载] 发个VB DNF外挂源码了 权限改10了

个人中心

[其他转载] 发个VB DNF外挂源码了权限改10了