.net 動態數據寫入

Hudson

本人使用龍欸開源做學習教材，可是無法寫入像神諭護佑那種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

qwas963563 發表於 2020-1-28 22:53
把這行改成醬子試試看

1. Private Sub xxxxxxxx_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xxxxxxx.CheckedChanged
   
2.         ActiveScript_LA(xxxxxx, xxxxx.Text)
   
3.     End Sub

複製代碼

Beebong

你有用偵錯功能試試嗎?
或者每告一個段落下If判定有沒有函數沒取得到數值?

qwas963563

把這行

1. ActiveByte_LA(chkByte, Conversion.Hex(intTemp1), actByte, desByte)

複製代碼

改成醬子試試看

1. ActiveByte_LA(chkByte, intTemp + ("&H" + "3974"), actByte, desByte)

複製代碼

Hudson

qwas963563 發表於 2020-1-28 22:53
把這行改成醬子試試看

這樣程式會報錯，那格的型態是string
錯誤訊息:System.OverflowException: 數學運算導致溢位。

qwas963563

Hudson 發表於 2020-1-28 23:25
這樣程式會報錯，那格的型態是string
錯誤訊息:System.OverflowException: 數學運算導致溢位。 ...

ActiveByte_LA(chkByte, Conversion.Hex(intTemp) + ("&H" + "3974"), actByte, desByte)