UM程式研究日誌

1. Text4.Text = WebBrowser1.LocationURL

放５天假的期間．．　　嘗試做了好多ＶＢ的東西

可是我最想做的讀記憶體還是學不會

只弄得出偵測遊戲有沒有運行．．




我目前做到這樣．．．　　（網路上找的）

這個是讀取踩地雷這個程式Address:1005194的Value

將它顯示在Label4上面

由於搞不董這程式碼是在做什麼．．

只是照著複製過來

所以運行後Label4一直顯示不正確的數字



如果弄出正確的程式碼


以後我就做得出東西了．．


有高手能幫我看一下嗎？


謝謝


Private Sub Timer1_Timer()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "踩地雷")
If hwnd = 0 Then
Label2.Caption = "遊戲未運行"
Else
Label2.Caption = "遊戲已運行"
End If
spa = &H1005194
Label4.Caption = spa
End Sub
Private Function ncnr(lpADDress As Long) As Integer
   Dim hwnd As Long
    Dim pid As Long
    Dim pHandle As Long
    Dim spa As Long
        hwnd = FindWindow(vbNullString, "踩地雷")
    
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
ReadProcessMemory pHandle, lpADDress, ByVal VarPtr(ncnr), 4, 0&
CloseHandle hProcess

End Function


以下是宣告區

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

VB->ActiveX DLL

我按照赤歇大的做法
他的做法假如輸入0就無法動作
只能輸入1
赤歇大告訴我將interval設定為1
但是我設定為1後用偵錯會有錯誤耶
他就說沒有定義的Sub什麼的
我timer1的程式碼是這樣子寫...
key1 = getVK_KeyCode(Combo1.Text)
Dim keytype As Long
Dim hwn As Long
hwn = FindWindow(vbNullString, "MapleStory")
keytype = MakeKeyLparam(key4, WM_KEYDOWN)
rundll32 "user32.dll", "PostMessageA", hwn, WM_KEYDOWN, key1, keytype
keytype = MakeKeyLparam(key4, WM_KEYUP)
rundll32 "user32.dll", "PostMessageA", hwn, WM_KEYUP,

PostMessage被檔了啊~
不知道用SendKeys會不會被偵測到~

WINIO.DLL....
模擬硬體按鍵
還不錯
可以過HS

我就拿 取消怪物死亡特效 來做解釋好了

WriteProcessMemory hProcess, ByVal &H4EADC3, &H3675, 2, 0&

以上是轉好的VB函數

WriteProcessMemory hProcess, ByVal &H4EADC3, &H3675, 2, 0&

紅=代碼前面00去掉

藍=AOB(請反過來填寫例如36 75就寫成75 36)

綠=AOB數量

咖啡=是否為驗證 0=否  1=是

擴充方法必須在非泛型靜太類別中定義鍵盤是我們使用電腦的一個很重要的輸入設備了，即使在滑鼠大行其道的 今天，很多程式依然離不開鍵盤來操作。但是有時候，一些重複性的，很繁瑣的鍵盤操作總會讓人疲憊，於是就有了用程式來代替人們按鍵的方法，這樣可以把很多 重複性的鍵盤操作交給程式來類比，省了很多精力，按鍵精靈就是這樣的一個軟體。那麼我們怎樣才能用VB來寫一個程式，達到與按鍵精靈類似的功能呢？那就讓 我們來先瞭解一下windows中回應鍵盤事件的機制。

相信有用過VB.NET、C#的一定知道有 Progressbar 這東西存在