关于网络游戏外挂，VB调用Call
Sub CallAsmRun(x As Single, y As Single, z As Single, fly As Long) '走路
Dim asm As New clsASM
Const Address1 = &H45E2F0
Const Address2 = &H461D60
Const Address3 = &H45E6F0
With asm
.Pushad '!PUSHAD
.SUB_ESP &HC '!SUB ESP,&HC
.Mov_EAX_DWORD_Ptr World2_Asm '!MOV EAX, DWORD PTR DS:[%W2i_Base]
.Mov_EAX_DWORD_Ptr_EAX_Add &H1C '!MOV EAX, DWORD PTR DS:[EAX+&H1C]
.Mov_ESI_DWORD_Ptr_EAX_Add &H20 '!MOV ESI, DWORD PTR DS:[EAX+&H20]
.Mov_ECX_DWORD_Ptr_ESI_Add &HB74 '!MOV ECX, DWORD PTR DS:[ESI+&HB74]
.Push 1 '!PUSH 1
.Mov_EDX Address1 '!MOV EDX,&H45E9B0
.Call_EDX '!CALL EDX
.Mov_EDI_EAX '!MOV EDI, EAX
.Mov_EAX Float2Int(x) '!MOV EAX,x
.Mov_DWORD_Ptr_ESP_EAX '!MOV [ESP],EAX
.Mov_EAX Float2Int(z) '!MOV EAX,z
.Mov_DWORD_Ptr_ESP_ADD_EAX &H4 '!MOV [ESP+4],EAX
.Mov_EAX Float2Int(y) '!MOV EAX,y
.Mov_DWORD_Ptr_ESP_ADD_EAX &H8 '!MOV [ESP+8],EAX
.Push_ESP '!PUSH ESP
&
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
