幫我檢查一下這樣子有沒有完全轉對(VB6->VB2008)

vb6

1.     Static BeUsed As Boolean
   
2.     If BeUsed = False Then
   
3.         Dim hProcess As Long
   
4.         hProcess = OpenProcessAPI(PROCESS_ALL_ACCESS, 0, GetCurrentProcessId)
   
5.         If hProcess = 0 Then Exit Function
   
6.         Dim sLenth As Long
   
7.         Dim BaseAddress As Long
   
8.         sLenth = LenB(lpImagePath) + 1 + 26
   
9.         BaseAddress = VirtualAllocEx(hProcess, ByVal 0&, ByVal sLenth, MEM_COMMIT, PAGE_READWRITE)
   
10.         If BaseAddress = 0 Then Exit Function
    
11.         WriteProcessMemoryAPI hProcess, ByVal BaseAddress + 0, ByVal VarPtr(&H30058B64), 4, False
    
12.         WriteProcessMemoryAPI hProcess, ByVal BaseAddress + 4, ByVal VarPtr(&H8B000000), 4, False
    
13.         WriteProcessMemoryAPI hProcess, ByVal BaseAddress + 8, ByVal VarPtr(&HC0831040), 4, False
    
14.         WriteProcessMemoryAPI hProcess, ByVal BaseAddress + 12, ByVal VarPtr(&H245C8B3C), 4, False
    
15.         WriteProcessMemoryAPI hProcess, ByVal BaseAddress + 16, ByVal VarPtr(&H89188904), 4, False
    
16.         WriteProcessMemoryAPI hProcess, ByVal BaseAddress + 20, ByVal VarPtr(&HC2042444), 4, False
    
17.         WriteProcessMemoryAPI hProcess, ByVal BaseAddress + 24, ByVal VarPtr(&H10), 2, False
    
18.         WriteProcessMemoryAPI hProcess, ByVal BaseAddress + 26, ByVal StrPtr(lpImagePath), sLenth, False
    
19.         CloseHandleAPI hProcess
    
20.         CallWindowProc BaseAddress, BaseAddress + 26, 0, 0, 0
    
21.         BeUsed = True
    
22.         ChangeImagePath = BaseAddress
    
23.     End If

複製代碼

vb2008

1.         Static BeUsed As Boolean
   
2.         If BeUsed = False Then
   
3.             Dim hProcess As Long
   
4.             hProcess = OpenProcessAPI(PROCESS_ALL_ACCESS, 0, GetCurrentProcessId)
   
5.             If hProcess = 0 Then Exit Function
   
6.             Dim sLenth As Long
   
7.             Dim BaseAddress As Long
   
8.             sLenth = lpImagePath.Length + 1 + 26
   
9.             BaseAddress = VirtualAllocEx(hProcess, 0, sLenth, MEM_COMMIT, PAGE_READWRITE)
   
10.             If BaseAddress = 0 Then Exit Function
    
11.             WriteProcessMemoryAPI(hProcess, BaseAddress + 0, VarPtr(&H30058B64), 4, False)
    
12.             WriteProcessMemoryAPI(hProcess, BaseAddress + 4, VarPtr(&H8B000000), 4, False)
    
13.             WriteProcessMemoryAPI(hProcess, BaseAddress + 8, VarPtr(&HC0831040), 4, False)
    
14.             WriteProcessMemoryAPI(hProcess, BaseAddress + 12, VarPtr(&H245C8B3C), 4, False)
    
15.             WriteProcessMemoryAPI(hProcess, BaseAddress + 16, VarPtr(&H89188904), 4, False)
    
16.             WriteProcessMemoryAPI(hProcess, BaseAddress + 20, VarPtr(&HC2042444), 4, False)
    
17.             WriteProcessMemoryAPI(hProcess, BaseAddress + 24, VarPtr(&H10), 2, False)
    
18.             WriteProcessMemoryAPI(hProcess, BaseAddress + 26, StrPtr(lpImagePath), sLenth, False)
    
19.             CloseHandleAPI(hProcess)
    
20.             CallWindowProc(BaseAddress, BaseAddress + 26, 0, 0, 0)
    
21.             BeUsed = True
    
22.             ChangeImagePath = BaseAddress
    
23.         End If

複製代碼

vb6

1.     Dim pe32        As PROCESSENTRY32
   
2.     Dim hSnapshot   As Long
   
3.     Dim bProcFound  As Boolean
   
4.     Dim bFoundGame  As Boolean
   
5.    
   
6.     hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
   
7.     pe32.dwSize = Len(pe32)
   
8.    
   
9.     bProcFound = Process32First(hSnapshot, pe32)
   
10.     Do While bProcFound
    
11.         If Right$(LCase$(Left$(pe32.szExeFile, InStr(1, pe32.szExeFile, Chr(0)) - 1)), Len(strGameName)) = LCase$(strGameName) Then
    
12.             dwProcId = pe32.th32ProcessID
    
13.             bFoundGame = True
    
14.         End If
    
15.         bProcFound = Process32Next(hSnapshot, pe32)
    
16.     Loop
    
17.     CloseHandle hSnapshot
    
18.     FindGame = bFoundGame

複製代碼

vb2008

1.         Dim PE32 As processentry32
   
2.         Dim hSnapshot As Long
   
3.         Dim bProcFound As Boolean
   
4.         Dim bFoundGame As Boolean
   
5. 
   
6.         hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
   
7.         PE32.dwsize = Len(PE32)
   
8.         bProcFound = Process32First(hSnapshot, PE32)
   
9.         Do While bProcFound
   
10.             ?????
    
11.                 bFoundGame = True
    
12.             End If
    
13.             bProcFound = Process32Next(hSnapshot, PE32)
    
14.         Loop
    
15.         FindGame = bFoundGame

複製代碼

中間這段不太會寫,求指教...



...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

一看就知道你是寫 注入的程式碼段
我單看一個地方就大概知道你有轉錯
就是 VB.net (2008) 不能用varptr  !!
至於該怎麼使用 網路上有範例請自己搜尋

darkjack 發表於 2012-10-31 06:32 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

一看就知道你是寫 注入的程式碼段
我單看一個地方就大概知道你有轉錯
就是 VB.net (2008) 不能用varptr  !! ...

...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

我只能跟你說，如果你是要注入方面的
不用搞的那麼複雜，連托管代碼都出現
我有寫過注入方面的程式碼段 連VarPtr 都不太需要
在我轉過很多個vb6 > vb.net
有 20% vb6 的程式碼不能照著copy 過去
例如
copymemory , varptr & strptr
繪圖指令
Type(靜態宣告   Structures） 的陣列