今天 在这个贴吧里教大家用Vb在W7 64位下写辅助

laocooon

1、为什么在W7  64下，主要原因是 不用过检测。
2、为什么要用Vb。其他只要思路对了，用VC 或其他语言都可以。
3、思路 ：
1> 程序判断DNF是否打开。
2>如果打开，就对指定的内存进行修改。
3>代码如下：

(注意，如何游戏更新，只要改一下相关参数就可以了，不会的可以联系me.或百度查LaoCooon)
2014年7月27日 有效
（通用）
'声明API，后面调用要使用
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Const RenWuJiZhi = &H2A96FE8

Public Function GetHandle(Title As String) As Long
   Dim tmp As String
   Dim hWnd As Long
   Dim lngProcID As Long
   Dim strTitle As String * 255     '//用来存储窗口的标题
      '//取得桌面窗口
   hWnd = GetDesktopWindow()
   '//取得桌面窗口的第一个子窗口
   hWnd = GetWindow(hWnd, GW_CHILD)
   '//通过循环来枚举所有的窗口
   Do While hWnd <> 0
        '//取得下一个窗口的标题，并写入到列表框中
        GetWindowText hWnd, strTitle, Len(strTitle)
          If Left$(strTitle, 1) <> vbNullChar Then
             tmp = Left$(strTitle, InStr(1, strTitle, vbNullChar))
             If Left(tmp, Len(Title)) = Title Then
                GetHandle = hWnd
  
               
             End If
        End If
        '//调用GetWindow函数，来取得下一个窗口
        hWnd = GetWindow(hWnd, GW_HWNDNEXT)
   Loop
  
   
End Function
Private Sub Wudi_Bati()  '无敌和霸体
Dim aaa As String            
Dim pid As Long              
Dim base As Long            
Dim P1 As Long
Dim H As Double
Dim H1 As Long
Dim pHandle As Long
aaa = GetHandle("地下城与勇士")
GetWindowThreadProcessId aaa, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If pHandle = 0 Then Exit Sub
If pHandle Then ReadProcessMemory ByVal pHandle, RenWuJiZhi, VarPtr(base), 4, 0&         
P1 = base + &H33E8  
If pHandle Then ReadProcessMemory ByVal pHandle, P1, VarPtr(base), 4, 0&         
P1 = base + &H13EC
H1 = 100
If pHandle Then WriteProcessMemory pHandle, P1, VarPtr(H), 4, 0&         
If pHandle Then ReadProcessMemory ByVal pHandle, RenWuJiZhi, VarPtr(base), 4, 0&         
P1 = base + &H92C
H1 = 1
If pHandle Then WriteProcessMemory pHandle, P1, VarPtr(H1), 4, 0&         

CloseHandle pHandle
End Sub
Private Sub Command1_Click()
Call  Wudi_Bati
End Sub

逆天__看破红尘

复制粘贴重命名，楼主对吧

闲额额

路过 顺便拿个金币

双鱼丶乔巴

大哥 win7 也要过检测    不信查百度  其实win7 64位不适合玩游戏 最适合的还是xp  但是我要告诉楼主 win7写的辅助 xp不一定能用 但是xp写的辅助兼容win7/8  就可以用 所以还是xp写辅助比较好  但是 dnf是个坑爹游戏 我还是建议大家不要玩了~

Sakura彡

一看我就用不到

laocooon

这是我自己写的代码。你们却不领情。算拉，以后不来了，浪费感情浪费业务。

------空城°

爷：众人仰慕

推荐楼主把PROCSSS_ALL_ACCESS改成2035711