代碼怎載入－UM程式研究日誌

像浪漫月光的遊戲代碼分享區的那些代碼怎麼寫入VB

變成像這種的東西

Private Sub Check6_Click() '召喚獸影分身
If Check6.Value = 1 Then
WriteProcessMemory hProcess, ByVal &H73AAD2, &HCEB, 3, 0& '0073AAD2: eb 0c
Else
WriteProcessMemory hProcess, ByVal &H73AAD2, &H12850F, 3, 0& '0073AAD2: 7E 0C FF
WriteProcessMemory hProcess, ByVal &H73AAD5, &H5637, 2, 0& '0073AAD5: 37 56
End If
End Sub

Private Sub Check6_Click() '召喚獸影分身

If Check6.Value = 1 Then

WriteProcessMemory hProcess, ByVal &H73AAD2, &HCEB, 3, 0& '0073AAD2: eb 0c

Else

WriteProcessMemory hProcess, ByVal &H73AAD2, &H12850F, 3, 0& '0073AAD2: 7E 0C FF ←這我不知道

WriteProcessMemory hProcess, ByVal &H73AAD5, &H5637, 2, 0& '0073AAD5: 37 56
End If

End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

可以注意紅色的地方！！　　以你的聰明才智應該知道寫入的辦法了！！

我不知道到那行　　沒辦法嘛～。～　　

當初學一半　　就決定先做單機遊戲的就好！！（傳說的基礎！？）

所以沒有學完整！　應該是這樣所以我看不懂那一行　　：Ｄ　　　抱歉囉！

我盡力了，自己比較吧

//==================================================
// 召喚獸影分身-CRC For TWMS107
// 更新: DrakeDog
// 更新時間: 2009/12/16
//==================================================
[Enable]
00757885:
jmp 00757893
[Disable]
00757885:
db 7E 0C FF 37 56

複製代碼

Private Sub Check6_Click() '召喚獸影分身
If Check6.Value = 1 Then //假如check6的值是1就繼續執行下一行，如果不是就跳到Else執行
WriteProcessMemory hProcess, ByVal &H73AAD2, &HCEB, 3, 0& '0073AAD2: eb 0c //將0073AAD2機械碼改成eb 0c
Else
WriteProcessMemory hProcess, ByVal &H73AAD2, &H12850F, 3, 0& '0073AAD2: 7E 0C FF //將0073AAD2的機械碼改成7E 0C FF
WriteProcessMemory hProcess, ByVal &H73AAD5, &H5637, 2, 0& '0073AAD5: 37 56 //將0073AAD5的機械碼改成37 56
End If
End Sub