.net 動態數據寫入
本帖最後由 Hudson 於 2020-1-28 22:46 編輯本人使用龍欸開源做學習教材,可是無法寫入像神諭護佑那種BYTE類型的數據
請高手幫我看看,謝謝
程式碼:
Private Sub chkByte_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkByte.CheckedChanged
Dim actByte As Byte() = {&H63, &H4A, &H6B, &HBA, &H53, &H5A, &HD3, &H15, &H26, &H90, &HD9, &H85, &H9E, &H85, &H9C, &H8C, &H21, &H71, &H64, &H4, &HCD, &HFC, &H15, &H9E}
Dim desByte As Byte() = {&HD4, &HE1, &H23, &H38, &HE, &H1F, &HC1, &HA1, &H9C, &H8F, &HD5, &H6D, &HAF, &H68, &HCA, &H3D, &H45, &H53, &HEE, &H79, &HA, &H90, &H29, &H8E}
Dim intTemp As Integer
Dim intTemp1 As Integer = vbNullString
ReadProcessMemory(MShprocess, "&H" + "03DCF228", intTemp, 4, False)
ReadProcessMemory(MShprocess, intTemp + ("&H" + "3974"), intTemp1, 4, False)
ActiveByte_LA(chkByte, Conversion.Hex(intTemp1), actByte, desByte)
End Sub 本帖最後由 prt 於 2020-1-28 23:43 編輯
qwas963563 發表於 2020-1-28 22:53 static/image/common/back.gif
把這行改成醬子試試看Private Sub xxxxxxxx_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xxxxxxx.CheckedChanged
ActiveScript_LA(xxxxxx, xxxxx.Text)
End Sub 你有用偵錯功能試試嗎?
或者每告一個段落下If判定有沒有函數沒取得到數值? 本帖最後由 qwas963563 於 2020-1-28 22:57 編輯
把這行ActiveByte_LA(chkByte, Conversion.Hex(intTemp1), actByte, desByte)改成醬子試試看ActiveByte_LA(chkByte, intTemp + ("&H" + "3974"), actByte, desByte) qwas963563 發表於 2020-1-28 22:53 static/image/common/back.gif
把這行改成醬子試試看
這樣程式會報錯,那格的型態是string
錯誤訊息:System.OverflowException: 數學運算導致溢位。 Hudson 發表於 2020-1-28 23:25 static/image/common/back.gif
這樣程式會報錯,那格的型態是string
錯誤訊息:System.OverflowException: 數學運算導致溢位。 ...
ActiveByte_LA(chkByte, Conversion.Hex(intTemp) + ("&H" + "3974"), actByte, desByte)
頁:
[1]