Visual Basic 问题～！！

weiwei8

本人对VB一窍不通，想请各路高手指导下～


纯粹是想学习～～

这个是游戏完美世界，站立坐下的一个小VB原始码，我试了后还是运作不到。



建立專案後放兩個按鈕
'填入下面原始碼
'至於clsASM請自己網路上面找

Private Sub Command1_Click() '起立

Dim hWnd As Long
dim pid as long

hWnd = FindWindow("ElementClient Window", "Element Client")
GetWindowThreadProcessId hWnd, pid
Dim asm As New clsASM

'5B19F0
'5D0890
'58D860*****
'5B3E50


With asm                             '  asm
     .Pushad
     '.Mov_EAX Val(Text1.Text)
     '.Mov_EBX H58D860
     .Mov_EBX H5D08D0
     .Call_EBX
     .Popad                          '  popad
     .Ret
End With                             '  end
asm.Run_ASM pid

End Sub


Private Sub Command2_Click()  '坐下
Dim hWnd As Long
dim pid as long

hWnd = FindWindow("ElementClient Window", "Element Client")
GetWindowThreadProcessId hWnd, pid
Dim asm As New clsASM

'5B19F0
'5D0890*****
'58D860
'5B3E50


With asm                             '  asm
     .Pushad
     '.Mov_EAX Val(Text1.Text)
     .Mov_EBX H5D0890               'CALL elementc.005BB3D0
     .Call_EBX
     .Popad                          '  popad
     .Ret
End With                             '  end
asm.Run_ASM pid

End Sub



我照着做还是不行









马服的 elementclient 是连在一起的 不知道我需要更改成连在一起吗？？





当我开了游戏要试看的时候
系统说这里有问题 Dim asm As New clsASM

这段好像过不到，是我的clsASM不对吗？

TSHsoft

你有clsASM的class文件吗？没有的话，肯定error的。

weeming21

clsASM.cls 存在不?

goodday

每个version 都会update patch
那么那个的　memory block 的 data 肯定会　换了地址

GetWindowThreadProcessId hWnd, pid
你肯定　位存　里的是　存对的东西吗？？

weiwei8

你有clsASM的class文件吗？没有的话，肯定error的。
TSHsoft 发表于 2010-6-22 10:04 PM

   
真的是没有喔～～

要怎么写呢？？

weiwei8

clsASM.cls 存在不?
weeming21 发表于 2010-6-23 08:39 AM

    没有存在 TT

weiwei8

每个version 都会update patch
那么那个的　memory block 的 data 肯定会　换了地址

GetWindowThreadP ...
goodday 发表于 2010-6-24 12:15 AM

    哇～～ 这个就不知道要怎么找了，‘
这篇我是COPY来学习的。

TSHsoft

下面是clsASM.cls的源代码的下载地址

http://rapidshare.com/files/409176929/clsASM.cls

goodhermit95

大佬goodday的意思是他的address不会一样的，patch了过后就会改