请问有没有人有这一方面的知识,能够正确的使用这几个API函数?谢谢!

解决方案 »

  1.   

    以下是我在剑侠情缘2下作的锁内力,只能用于当前等级,升级后就不能用了
    请各位大哥帮帮忙!
    Private Sub Check1_Click()
    Dim hwnd As Long 
    Dim pid As Long 
    Dim pHandle As Long 
    hwnd = FindWindow(vbNullString, "Sword Window")
    If (hwnd = 0) Then
    MsgBox "Window not found!"
    Exit Sub
    End If
    GetWindowThreadProcessId hwnd, pid
    pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (pHandle = 0) Then
    MsgBox "Couldn't get a process handle!"
    Exit Sub
    End If
    WriteProcessMemory pHandle, &H5A9080‘(这个就是内力值的内存地址), "aa"‘(这个就是我改后的内力值), 8, 0&
    CloseHandle hProcess
    End Sub
      

  2.   


    http://www.csdn.net/expert/topic/698/698746.xml?temp=1.453799E-02
    http://www.csdn.net/expert/topic/698/698746.xml?temp=1.453799E-02