Never Nop Tech

Never Nop Tech

創造意義,動手去做。

[ASM][轉]外掛代碼怎麼寫入vb

 

近期貼上一些以前搜集的彙編指令教學,有些作者已不可溯,有些有作者的將會著名,若有侵犯到請告知,會立即刪除,謝謝。

像浪漫月光遊戲代碼分享區的那些代碼怎麼寫入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

=============================

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

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

當初學一半  就決定先做單機遊戲的就好!!(傳說的基礎!?)

所以沒有學完整! 應該是這樣所以我看不懂那一行  :D   抱歉囉!

 

我盡力了,自己比較吧

  1. //==================================================
  2. // 召喚獸影分身-CRC For TWMS107
  3. // 更新: DrakeDog
  4. // 更新時間: 2009/12/16
  5. //==================================================
  6. [Enable]
  7. 00757885:
  8. jmp 00757893
  9. [Disable]
  10. 00757885:
  11. 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