关于网络游戏外挂，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怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
挺繁琐，之前发的帖子，分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
