冰楓論壇

標題: .net 動態數據寫入 [打印本頁]

作者: Hudson 時間: 2020-1-28 22:46
標題: .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 22:46
本帖最後由 prt 於 2020-1-28 23:43 編輯

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

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

複製代碼

作者: Beebong 時間: 2020-1-28 22:49
你有用偵錯功能試試嗎?
或者每告一個段落下If判定有沒有函數沒取得到數值?

作者: qwas963563 時間: 2020-1-28 22:53
本帖最後由 qwas963563 於 2020-1-28 22:57 編輯

把這行

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

複製代碼

改成醬子試試看

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

複製代碼

作者: Hudson 時間: 2020-1-28 23:25

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

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

作者: qwas963563 時間: 2020-1-28 23:27

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

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

歡迎光臨冰楓論壇 (https://bingfong.com/)