抱歉又有問題請教..vb寫入記憶體問題

慶問各位大大我依照文章中所說的放式但是沒有效果,請問使用vb寫入記憶體位址是否方式不同,
依照這方式讀出來的資料並不是ce中讀到的資料.請問該如何寫位置該如何抓取?  
       'If chkJump.CheckState = ●CSOL木馬網站● Then
        '    WriteProcessMemory(hProcess, &H452C15, &H6A1A, 4, 0) '開啟
        'Else
        '    WriteProcessMemory(hProcess, &H452C15, &H6A0A, 4, 0) '關閉
        'End If

'If chkJump.CheckState = ●CSOL木馬網站● Then   <================  1 Then   

        '    WriteProcessMemory(hProcess, &H452C15, &H6A1A, 4, 0) '開啟<==H452C15請確認正確否
                'Else
        '    WriteProcessMemory(hProcess, &H452C15, &H6A0A, 4, 0) '關閉
        'End If
試看看吧.希望有幫到你

我在CE5記憶體檢視器中看位址是h452c15沒錯呀資料是bytes 6a0a
您的意思是位址錯誤嗎?

附上面

[ 本帖最後由 hardy.tsai 於 2009-5-25 20:50 編輯 ]

或許你可以改變方式

If chkJump4.Value = 1 Then '敘述
    WriteProcessMemory hProcess, ByVal &H452C16, &H1, 1, 0& '無限跳躍 開啟
  Else '否則
    WriteProcessMemory hProcess, ByVal &H452C16, &HA, 1, 0& '無限跳躍 關閉
  End If '離開敘述

[ 本帖最後由 laserrkimo 於 2009-5-26 19:53 編輯 ]

結果還是一樣的真頭大.....
我是用vb.NET寫的不知道會不會是Function改寫的問題
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer As Integer, ByVal nSize As Integer, ByVal lpNumberOfBytesWritten As Integer) As Integer
拜託各位前輩幫幫忙....

版大:
          我用VB6寫的你參考看看.你寫的看起來怪怪的.
Private Sub chkJump2_Click()
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If chkJump2.Value = 1 Then
  WriteProcessMemory hProcess, ByVal &H452C15, &H1A6A, 2, 0&      '開啟無限跳
Else
  WriteProcessMemory hProcess, ByVal &H452C15, &HA6A, 2, 0&      '關閉
End If
CloseHandle hProcess
End Sub

大大我改用您的方式還是一樣記憶體的值沒有變化,我想應該問題應該不在這邊吧以下有的部分跟大大寫的不一樣式因為,
vb.net有的寫法跟vb不同的原因例如checkbox的屬性跟vb有點不同,另外讀寫記憶體在vb中有byval但vb.net不行這樣用,真希望
能找出問題所在...渴望寫出可以用的外掛  嗚嗚..........
YCT66B
        If chkJump.CheckState = ●CSOL木馬網站● Then
            WriteProcessMemory(hProcess, &H452C15, &H1A6A, 2, 0&)
        Else
            WriteProcessMemory hProcess, ByVal &H452C15, &HA6A, 2, 0&      '關閉
        End If
        CloseHandle(hProcess)

版大:    我認為你把問題複雜化了.這邊更改飛天只是單存ㄉ讀取與更改.你好像加了許多不必要ㄉ東西.你把chkJump.CheckState 下的程式碼清掉.只加我ㄉ看看.另外注意登入讀取資料時.是否為chkJump.Enabled = True

感謝各位大大的鼎力相助,小弟已經找到問題的所在,問題出在vb 的api使用跟vb.net有些不同修改後的api宣告如下.提供給有想同問題的大大們如果有的話呵呵...
問題出在大部分vb的byval 需要給成byref 我修改了writeprocessmemory 跟 closehandle提供給各位參考...
YCT47B
    Private Declare Function CloseHandle Lib "kernel32.dll" (ByRef hObject As Long) As Long
    Private Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function WriteProcessMemory Lib "kernel32.dll" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
YCT47B