[求助] 龍大的VB開源

[複製鏈接]

nisasd001

13 主題	4 好友	14 積分

新手上路

Rank: 1

UID: 107776
帖子: 77
主題: 13
精華: 0
積分: 14
楓幣: 736
威望: 13
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 20
閱讀權限: 10
性別: 保密
在線時間: 25 小時
註冊時間: 2015-7-28
最後登入: 2024-6-1

發消息

電梯直達

1樓

發表於 2015-8-21 11:28:45 |只看該作者 |倒序瀏覽

我的開源的聖十字魔法噸我有跟新到182.4
但是我開啟遊戲鎖定後進去遊戲把他打勾但是沒效果人物血量魔量都沒顯示
'======================================================================='
'==============================Pointer讀寫=============================='
'======================================================================='

Private Sub tmPointer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmPointer.Tick
      WritePointer_LA("17FB3F8", "58", 48)
      WritePointer_LA("17FB3F8", "5C", 48)
      lblHp.Text = ReadPointer_LA("17F6EC0", "3034")
      lblMp.Text = ReadPointer_LA("17F6EC0", "3038")
End Sub

這個我也不知道182.4的哪= =

'========================================================================'
'==============================Byte寫入方式=============================='
'========================================================================'

Private Sub chkByte_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkByte.CheckedChanged
      Dim actByte As Byte() = {db, &H81, &H1D, &H70, &H56, &HEC, &H80, &HB3, &H5A, &H58, &H70, &H1A, &HC2, &H90, &H35, &H07, &H58, &HB7, &H23, &HC1, &H8A, &HE3, &H79, &HD6, &H79, &H54, &H7E, &H29, &HAC, &HC1, &HA8, &H72, &H85, &H33, &HCD, &H26, &H4E}
      Dim desByte As Byte() = {db, &H0F, &HE7, &HE8, &HB7, &H38, &H47, &HBF, &H7D, &HF0, &H6F, &H29, &H8E, &H2C, &H13, &H4E, &HB7, &H99, &H70, &HBA, &H65, &HB2, &H8F, &H29, &H6E, &HAD, &HB9, &H87, &H28, &HE3, &HE8, &H57, &H29, &H30, &H3B, &HE9, &H2D}
      ActiveByte_LA(chkByte, "01951BE0", actByte, desByte)
End Sub

這是動態數據無敵我也更新到182.4版了
但是就是不能用
誰可以救我啊
'============================================================================='
'==============================CEAutoAsm寫入方式=============================='
'============================================================================='

Private Sub chkScript_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkScript.CheckedChanged
      ActiveScript_LA(chkScript, txtScript.Text)
End Sub

那如果我要新增
新的功能假如
//TwMs_v182.4_ICS_只撿錢
//作者:未知
//更新:V3611441

[Enable]
Alloc(MoneyOnly, 64)
Alloc(MoneyOnlySW,4)
RegisterSymbol(MoneyOnlySW)

MoneyOnlySW:
DD 01

MoneyOnly:
Cmp [MoneyOnlySW],0
Je 00A8309D
Cmp [Esp+13C], 006387BB
Jne 00A8309D
Mov [Esp+13C], 00638852
Jmp 00A8309D

018EE274:
DD MoneyOnly

[Disable]
018EE274:
DD 00A8309D
DeAlloc(MoneyOnly)

那我這邊要該嗎?
還是只要新增這邊就好

sdf.png (17.16 KB, 下載次數: 1)