我用VB寫修改器 寫到後面只能修改數字 請問我接下來應該如何寫 Bot = Len(Text5.Text) For P = 0 To Bot - 1 aux = txtAns + P lBassAddr = aux ps = P + 1 tux = Mid(Text5.Text, ps, 1) If tux = "" Then HEX = "00" ElseIf tux = 0 Then HEX = "48" ElseIf tux = 1 Then HEX = "49" ElseIf tux = 2 Then HEX = "50" ElseIf tux = 3 Then HEX = "51" ElseIf tux = 4 Then HEX = "52" ElseIf tux = 5 Then HEX = "53" ElseIf tux = 6 Then HEX = "54" ElseIf tux = 7 Then HEX = "55" ElseIf tux = 8 Then HEX = "56" ElseIf tux = 9 Then HEX = "57" End If va = HEX Data1 = va CopyMemory s(0), Data1, n 'ReDim s(n - 1) hWndOfApp = FindWindow(vbNullString, Text1.Text) hThreadID = GetWindowThreadProcessId(hWndOfApp, hProcessID) hProcess = OpenProcess(PROCESS_ALL_ACCESS _ , 0, hProcessID) WriteProcessMemory hProcess, ByVal lBassAddr, s(0), n, ByVal 0& CloseHandle hProcess Next P End Sub |
||
請問一下唷!!!~~~~~~空調設備裡面的!~儲冰系統跟冰水系統有一樣嗎??麻煩知道ㄉ人回答一下.....謝謝!!!!! |
||
請問有玩天堂的各位大大 有人知道打小惡魔要怎麼穿裝打小惡比較有效率嗎? |
||
我還滿想看看他的作品，聽說很好看，所以我想看看。 還有，在哪裡可以看到？ |
||
什麼是巧克力布丁果、神秘果、香檳果？ 好像是澳洲ㄉ水果....... 麻煩各位幫我解開此疑惑~~~ 3Q~~~ |
| UP TO DATE BLOG |
| LINK BLOG |