您还未登陆，请登录后操作！
后台脚本的,求指导
的脚本。进入游戏后运行：Plugin Hwnd =Window.MousePoint() ' 得到鼠标指向的窗口句柄//备选方案，可替换为：Plugin Hwnd =Window.GetKeyFocusWnd()//备选方案，可替换为：Plugin Hwnd =Window.Foreground()Rem startPlugin Bkgnd.KeyPress(hwnd,84)
' 按键&t&
&t&的扫描码:&84&Plugin Bkgnd.KeyPress(hwnd,53)
' 按键&5&Delay 1500Plugin Bkgnd.KeyPress(hwnd,53)
' 按键&5&Delay 1500Plugin Bkgnd.KeyPress(hwnd,9)
' 按键&TAB&Goto start真心为您解答，有帮助请点击&有用&哦~~
您的举报已经提交成功，我们将尽快处理，谢谢！
我的共享里有你要的按键，很好用的，绝对安全可靠，我自己用了好久了！
大家还关注
visual studio 2010页面...vb6 postmessage怎么模拟鼠标后台单击
[问题点数：20分，结帖人q]
vb6 postmessage怎么模拟鼠标后台单击
[问题点数：20分，结帖人q]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关推荐：
2011年5月 VB大版内专家分月排行榜第一2011年4月 VB大版内专家分月排行榜第一2011年3月 VB大版内专家分月排行榜第一2011年2月 VB大版内专家分月排行榜第一2011年1月 VB大版内专家分月排行榜第一2010年12月 VB大版内专家分月排行榜第一2010年11月 VB大版内专家分月排行榜第一2002年2月 VB大版内专家分月排行榜第一2002年1月 VB大版内专家分月排行榜第一
2002年3月 VB大版内专家分月排行榜第三
2011年5月 VB大版内专家分月排行榜第一2011年4月 VB大版内专家分月排行榜第一2011年3月 VB大版内专家分月排行榜第一2011年2月 VB大版内专家分月排行榜第一2011年1月 VB大版内专家分月排行榜第一2010年12月 VB大版内专家分月排行榜第一2010年11月 VB大版内专家分月排行榜第一2002年2月 VB大版内专家分月排行榜第一2002年1月 VB大版内专家分月排行榜第一
2002年3月 VB大版内专家分月排行榜第三
2011年5月 VB大版内专家分月排行榜第三2011年4月 VB大版内专家分月排行榜第三
2011年5月 VB大版内专家分月排行榜第一2011年4月 VB大版内专家分月排行榜第一2011年3月 VB大版内专家分月排行榜第一2011年2月 VB大版内专家分月排行榜第一2011年1月 VB大版内专家分月排行榜第一2010年12月 VB大版内专家分月排行榜第一2010年11月 VB大版内专家分月排行榜第一2002年2月 VB大版内专家分月排行榜第一2002年1月 VB大版内专家分月排行榜第一
2002年3月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。按键精灵后台模拟鼠标按键_百度知道
按键精灵后台模拟鼠标按键
Plugin Hwnd = Window.GetKeyFocusWnd()Delay 5000MoveTo 633,276RightDown 1RightUp 1Delay 2400000MoveTo 669,276RightDown 1RightUp 1Delay 2400000MoveTo 711,276RightDown 1RightUp 1Delay 2400000MoveTo 754,276RightDown 1RightUp 1Delay 2400000MoveTo 790,276RightDown 1RightUp 1Delay 2400000MoveTo 835,276RightDown 1RightUp 1Delay 2400000MoveTo 867,276RightDown 1RightUp 1Delay 2400000MoveTo 910,276RightDown 1RightUp 1Delay 2400000代码就是这么写的本来我以后只要有第一段代码就可以后台了我错了,这个代码是用在游戏里面的自动换包包里面的物品如果不最小化没问题 但是最小化了以后不是在后台模拟鼠标而是在当前窗口请问应该怎么改 上面坐标是正确的 回答好或者帮我改一下的话在送50分下面这个也是一个和上面一样的东西 顺便帮我改一下 感谢大家了Plugin Hwnd = Window.GetKeyFocusWnd()MoveTo 638,313RightDown 1RightUp 1Delay 3600000MoveTo 670,313RightDown 1RightUp 1Delay 3600000MoveTo 702,313RightDown 1RightUp 1Delay 3600000MoveTo 754,313RightDown 1RightUp 1Delay 3600000
提问者采纳
//下面这句是得到当前最前面的窗口句柄Plugin Hwnd = Window.Foreground()Delay 5000//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个鼠标移动到客户区域(坐标：633, 276)处Plugin Bkgnd.MoveTo(Hwnd, 633, 276)//下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：633, 276)处发送一个鼠标右键单击Plugin Bkgnd.RightClick(Hwnd, 633, 276)Delay 2400000//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个鼠标移动到客户区域(坐标：669, 276)处Plugin Bkgnd.MoveTo(Hwnd, 669, 276)//下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：669, 276)处发送一个鼠标右键单击Plugin Bkgnd.RightClick(Hwnd, 669, 276)Delay 2400000 //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个鼠标移动到客户区域(坐标：711, 276)处Plugin Bkgnd.MoveTo(Hwnd, 711, 276)//下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：711, 276)处发送一个鼠标右键单击Plugin Bkgnd.RightClick(Hwnd, 711, 276)Delay 2400000//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个鼠标移动到客户区域(坐标：754, 276)处Plugin Bkgnd.MoveTo(Hwnd, 754, 276)//下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：754, 276)处发送一个鼠标右键单击Plugin Bkgnd.RightClick(Hwnd, 754, 276)Delay 2400000//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个鼠标移动到客户区域(坐标：790, 276)处Plugin Bkgnd.MoveTo(Hwnd, 790, 276)//下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：790, 276)处发送一个鼠标右键单击Plugin Bkgnd.RightClick(Hwnd, 790, 276)Delay 2400000//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个鼠标移动到客户区域(坐标：835, 276)处Plugin Bkgnd.MoveTo(Hwnd, 835, 276)//下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：835, 276)处发送一个鼠标右键单击Plugin Bkgnd.RightClick(Hwnd, 835, 276)Delay 2400000//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个鼠标移动到客户区域(坐标：867, 276)处Plugin Bkgnd.MoveTo(Hwnd, 867, 276)//下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：867, 276)处发送一个鼠标右键单击Plugin Bkgnd.RightClick(Hwnd, 867, 276)Delay 2400000//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个鼠标移动到客户区域(坐标：910, 276)处Plugin Bkgnd.MoveTo(Hwnd, 910, 276)//下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：910, 276)处发送一个鼠标右键单击Plugin Bkgnd.RightClick(Hwnd, 910, 276)Delay 2400000这是上面第一个的，不知道改的行不行。有些游戏是封后台鼠标的就连电脑的辅助功能键盘鼠标也不能用，所以不一定会有效果的
提问者评价
谢谢了 不知道能用不等下我去测试
其他类似问题
为您推荐：
按键精灵后台的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁【已解决】VBS是不是不能模拟鼠标呀？ - VBS求助&讨论 -
批处理之家 批处理_BAT_CMD_DOS_VBS_Perl_Python_PowerShell - Powered by Discuz!
帖子83&积分154&技术4 &捐助0 &注册时间&
【已解决】VBS是不是不能模拟鼠标呀？
本帖最后由 c 于
06:00 编辑
vbs是不是不能模拟鼠标呀？
感谢给帖子标题标注[已解决]字样PB + 2
帖子521&积分857&技术87 &捐助0 &注册时间&
本帖最后由 yu2n 于
20:37 编辑
用VBS控制鼠标（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）
用VBS控制鼠标（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）
标签： Excel.Application, VB, VBS, VBScript, Windows API, 鼠标
标题: 用VBS控制鼠标（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）
作者: Demon
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。
不止一个人问过我怎样用VBS控制鼠标操作，比如：怎么用VBS获取鼠标指针的坐标位置？怎么用VBS移动鼠标？怎么用VBS模拟鼠标左键单击、左键双击、右键单击？……
网上搜到的答案普遍是VBS无法实现，或者是要用第三方COM（ActiveX？）组件。我对第三方组件是很反感的，使用第三方组件毫无可移植性可言，因为别人的系统中不一定注册了这个组件。我的建议是，尽量不要在VBS代码中调用第三方组件，除非你的程序只是写来自己用。（顺便说一下，也尽量不要用不靠谱的Sendkeys方法，原因不解释）
好了，废话就说这么多，现在说说用VBS控制鼠标的方法。我以前写过一篇《VBS调用Windows API函数》，本以为既然都能调用API了，用VBS控制鼠标还不是很简单是事？事实证明我错了，不明真相的同学永远是大多数，不知道API是什么的VBSer大有人在。不贴出实实在在的代码，他们根本不会自己写！
使用此代码的前提是你的系统上安装了Excel，因为要用到Excel.Application对象（如果你偏要认为这算第三方组件我也没话说）：Option Explicit
Dim WshShell
Dim oExcel, oBook, oModule
Dim strRegKey, strCode, x, y
Set oExcel = CreateObject(&Excel.Application&) '创建 Excel 对象
set WshShell = CreateObject(&wscript.Shell&)
strRegKey = &HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM&
strRegKey = Replace(strRegKey, &$&, oExcel.Version)
WshShell.RegWrite strRegKey, 1, ®_DWORD&
Set oBook = oExcel.Workbooks.Add '添加工作簿
Set oModule = obook.VBProject.VBComponents.Add(1) '添加模块
strCode = _
&'Author: Demon&& && && && && vbCrLf & _
&'Website: http://demon.tw& & vbCrLf & _
&'Date: && && && & & vbCrLf & _
&Private Type POINTAPI : X As Long : Y As Long : End Type&& && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && & & vbCrLf & _
&Private Declare Function SetCursorPos Lib &&user32&& (ByVal x As Long, ByVal y As Long) As Long&& && && && && && && && && && && && && && && && && && && && && && && && && && && && & & vbCrLf & _
&Private Declare Function GetCursorPos Lib &&user32&& (lpPoint As POINTAPI) As Long&& && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && &&&& vbCrLf & _
&Private Declare Sub mouse_event Lib &&user32&& Alias &&mouse_event&& (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)& & vbCrLf & _
&Public Function GetXCursorPos() As Long&& && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && vbCrLf & _
& & &Dim pt As POINTAPI : GetCursorPos pt : GetXCursorPos = pt.X&& && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && vbCrLf & _
&End Function&& && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && vbCrLf & _
&Public Function GetYCursorPos() As Long&& && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && vbCrLf & _
& & &Dim pt As POINTAPI: GetCursorPos pt : GetYCursorPos = pt.Y&& && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && & & vbCrLf & _
&End Function&
oModule.CodeModule.AddFromString strCode '在模块中添加 VBA 代码
'Author: Demon
'Website: http://demon.tw
'Date:
x = oExcel.Run(&GetXCursorPos&) '获取鼠标 X 坐标
y = oExcel.Run(&GetYCursorPos&) '获取鼠标 Y 坐标
WScript.Echo x, y
oExcel.Run &SetCursorPos&, 30, 30 '设置鼠标 X Y 坐标
Const MOUSEEVENTF_MOVE& && & = &H1
Const MOUSEEVENTF_LEFTDOWN& &= &H2
Const MOUSEEVENTF_LEFTUP& &&&= &H4
Const MOUSEEVENTF_RIGHTDOWN&&= &H8
Const MOUSEEVENTF_RIGHTUP& & = &H10
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP& &= &H40
Const MOUSEEVENTF_ABSOLUTE& &= &H8000
'模拟鼠标左键单击
oExcel.Run &mouse_event&, MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
'模拟鼠标左键双击（即快速的两次单击）
oExcel.Run &mouse_event&, MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
oExcel.Run &mouse_event&, MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
'模拟鼠标右键单击
oExcel.Run &mouse_event&, MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
'模拟鼠标中键单击
oExcel.Run &mouse_event&, MOUSEEVENTF_MIDDLEDOWN + MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
'关闭 Excel
oExcel.DisplayAlerts = False
oBook.Close
oExcel.Quit复制代码注释已经够详细了，要知道我很少写注释的，如果还看不懂，说明你的水平有待提高！
乐于助人技术 + 1
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。
帖子5365&积分16840&技术706 &捐助100 &注册时间&
控制鼠标键盘什么的，建议用 ahk、au3 之类的脚本，实现起来比较简单
帖子83&积分154&技术4 &捐助0 &注册时间&
难道就没有在windows系统下通用的，不用借助第三方软件的方法么
帖子5365&积分16840&技术706 &捐助100 &注册时间&
bat、vbs、js 都不能直接调用 api，也没有自带控制鼠标的功能。
通用的办法就是用 .net 自带的 jsc、vbc、csc 之类的编译工具临时编译一个程序来控制鼠标...
你什么系统？有装 powershell 的话可以考虑这个：
帖子151&积分491&技术3 &捐助0 &注册时间&
如果需要在XP或者更低版本的WINDOWS中实现鼠标功能，建议调用按键精灵大漠插件免费版的dm.dll文件来实现，我试用过感觉还过得去。
帖子83&积分154&技术4 &捐助0 &注册时间&
好像VB和C++可以控制鼠标，但麻烦些，不能通用在windows系统下，好像要在别的机器上安装些文件
帖子151&积分491&技术3 &捐助0 &注册时间&
& & 用大漠吧，可以在VBS内自注册：完整的程序请参考这里：& & On Error Resume Next
& && &&&.write &'注册大漠&br&&
& && &&&Set dm= CreateObject(&dm.dmsoft&)
& && &&&base_path = dm.GetBasePath() '检查是否注册大漠组件dm.dll，以更好支持鼠标、窗口、OCR等功能
& && &&&If base_path=&& Then
& && && && &Mark=&& '检查文件是否齐全
& && && && &.write progfolder & &\dm.dll&
& && && && &if not objFSO.FileExists (&c:\windows\system32\dm.dll&) then
& && && && && && &Mark=progfolder
& && && && && && &.write &'复制大漠组件&br&&
& && && && && && &if not objFSO.FileExists (Mark & &\dm.dll&) then Mark=&k:&
& && && && && && &if not objFSO.FileExists (Mark & &\dm.dll&) then msgbox &找不到dm组件，请把大漠组件复制入K盘。&:ie.quit:wscript.quit
& && && && && && &objFSO.copyfile Mark & &\dm.dll&,&c:\windows\system32\&,&True&
& && && && && && &objFSO.movefile progfolder & &\dm.dll&,&c:\windows\system32\&&&'将下面三个文件移动到%ProgramFiles%，system32可能没权限
& && && && && && &if not objFSO.FileExists (&c:\windows\system32\dm.dll&) then msgbox (&复制失败&)
& && && && && && &.write &'已复制&
& && && && &end if
& && && && &.write &'&&正在注册&
& && && && &ws.Run ®svr32&&& /S && chr(34) & &dm.dll& & chr(34) '因没有注册大漠组件dm.dll
& && && && &.write &重新运行&& chr(34) & Wscript.scriptfullname & chr(34) & &&br&&
& && && && &ws.Run &wscript.exe && chr(34) & Wscript.scriptfullname & chr(34) '重新运行并退出
& && && && &objFSO.deleteFile ws.CurrentDirectory & &dm.dll&
& && && && &.write &'&&注册完成，正在退出&
& && && && &wscript.sleep 30000
& && && && &ie.quit:wscript.quit
& && &&&End If
& & On error goto 0
& & .write &'大漠组件正常&br&&
& & 'ws.CurrentDirectory = progfolder & &\&
& & dm.SetPath progfolder&&& &\&'设programfile文件夹为DM默认工作文件夹
& & Set dm= CreateObject(&dm.dmsoft&)
& & base_path = dm.GetBasePath()
& & dm.SetPath prog 复制代码
[通过 QQ、MSN 分享给朋友]查看: 2208|回复: 7
注册时间最后登录阅读权限70积分2325精华1帖子
青铜长老, 积分 2325, 距离下一级还需 675 积分
金币2128 枚
本帖最后由 斜阳巷里 于
11:15 编辑
可以说是VB同步youxi鼠标状态吧，这个在制作按键脚本的时候很重要哦。
比如 鼠标移动到&&物品的上面物品会变成 一只手的形状， 而当鼠标移动到怪物的身上鼠标会变成一把剑的形状。这样就可以实现 一些判断了，比如我杀时候捡起物品，杀时候杀怪物。通过鼠标的不同形状来判断。
[Visual Basic] 纯文本查看 复制代码Option Explicit
Private Declare Function GetCursorInfo Lib &user32.dll& (ByRef pci As PCURSORINFO) As Long
Private Declare Function DrawIcon Lib &user32& (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function LoadCursor Lib &user32& Alias &LoadCursorA& (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Public Enum CursorShape
IDC_APPSTARTING = 32650&
IDC_ARROW = 32512&
IDC_CROSS = 32515&
IDC_HAND = 32649
IDC_HELP = 32651
IDC_ICON = 32641&
IDC_NO = 32648&
IDC_SIZE = 32640&
IDC_SIZEALL = 32646&
IDC_SIZENESW = 32643&
IDC_SIZENS = 32645&
IDC_SIZENWSE = 32642&
IDC_SIZEWE = 32644&
IDC_UPARROW = 32516&
IDC_WAIT = 32514&
DOT_KNOWN = -1&
Private Type POINTAPI
Private Type PCURSORINFO
cbSize As Long
flags As Long
hCursor As Long
ptScreenPos As POINTAPI
Private Type MyCursor
hCursor As Long '光标句柄
IDCValue As CursorShape '光标常量
Description As String '描述
Dim isInit As Boolean '表是否已初始化
Dim CursorInfoTable(14) As MyCursor
Dim pCurInfo As PCURSORINFO
Public Function GetCursorShapeCode() As CursorShape
Dim I As Long, hCur As Long
If isInit = False Then Call initTable '首次调用需要初始化表
hCur = GetCursorShape '取得当前句柄
For I = 0 To UBound(CursorInfoTable) '开始查表
If CursorInfoTable(I).hCursor = hCur Then
GetCursorShapeCode = CursorInfoTable(I).IDCValue '返回查得的鼠标状态值
Debug.Print CursorInfoTable(I).Description '输出描述
End Function
Public Function DrawCursorImage(ByVal destDC As Long, ByVal mX As Long, ByVal mY As Long) As Long
'把当前鼠标形状画到指定的DC上的指定位置
Call DrawIcon(destDC, mX, mY, GetCursorShape) '画到指定位置
End Function
Private Function GetCursorShape() As Long
pCurInfo.cbSize = Len(pCurInfo)
Call GetCursorInfo(pCurInfo)
GetCursorShape = pCurInfo.hCursor
End Function
Private Sub initTable()
With CursorInfoTable(0)
.hCursor = LoadCursor(0, IDC_APPSTARTING)
.IDCValue = IDC_APPSTARTING
.Description = &后台运行&
With CursorInfoTable(1)
.hCursor = LoadCursor(0, IDC_ARROW)
.IDCValue = IDC_ARROW
.Description = &箭头&
With CursorInfoTable(2)
.hCursor = LoadCursor(0, IDC_CROSS)
.IDCValue = IDC_CROSS
.Description = &十字线&
With CursorInfoTable(3)
.hCursor = LoadCursor(0, IDC_HAND)
.IDCValue = IDC_HAND
.Description = &手&
With CursorInfoTable(4)
.hCursor = LoadCursor(0, IDC_HELP)
.IDCValue = IDC_HELP
.Description = &帮助&
With CursorInfoTable(5)
.hCursor = LoadCursor(0, IDC_ICON)
.IDCValue = IDC_ICON
.Description = &图标&
With CursorInfoTable(6)
.hCursor = LoadCursor(0, IDC_NO)
.IDCValue = IDC_NO
.Description = &禁止&
With CursorInfoTable(7)
.hCursor = LoadCursor(0, IDC_SIZE)
.IDCValue = IDC_SIZE
.Description = &大小&
With CursorInfoTable(8)
.hCursor = LoadCursor(0, IDC_SIZEALL)
.IDCValue = IDC_SIZEALL
.Description = &全向调整&
With CursorInfoTable(9)
.hCursor = LoadCursor(0, IDC_SIZENESW)
.IDCValue = IDC_SIZENESW
.Description = &双向对角线（东北/西南）大小调整&
With CursorInfoTable(10)
.hCursor = LoadCursor(0, IDC_SIZENS)
.IDCValue = IDC_SIZENS
.Description = &双向垂直（北/南）大小调整&
With CursorInfoTable(11)
.hCursor = LoadCursor(0, IDC_SIZENWSE)
.IDCValue = IDC_SIZENWSE
.Description = &双向对角线（西北/东南）大小调整&
With CursorInfoTable(12)
.hCursor = LoadCursor(0, IDC_SIZEWE)
.IDCValue = IDC_SIZEWE
.Description = &双向水平（西/东）大小调整&
With CursorInfoTable(13)
.hCursor = LoadCursor(0, IDC_UPARROW)
.IDCValue = IDC_UPARROW
.Description = &上箭头&
With CursorInfoTable(14)
.hCursor = LoadCursor(0, IDC_WAIT)
.IDCValue = IDC_WAIT
.Description = &忙&
isInit = True
开源。youxi里面的图标显示到VB里面。
本帖子中包含更多资源
才可以下载或查看，没有帐号？
7人 等
过：
他们
技术改变生活，生活创造更好的技术——我的技术生活，一生不悔。
注册时间最后登录阅读权限30积分307精华0帖子
中级会员, 积分 307, 距离下一级还需 193 积分
向楼主学习!向楼主致敬!
注册时间最后登录阅读权限10积分24精华0帖子
新手上路, 积分 24, 距离下一级还需 26 积分
向楼主学习!向楼主致敬!
注册时间最后登录阅读权限20积分94精华0帖子
初级会员, 积分 94, 距离下一级还需 106 积分
楼主威武87，跪下来慢慢学习
注册时间最后登录阅读权限10积分2精华0帖子
新手上路, 积分 2, 距离下一级还需 48 积分
看着功能够强的，只是没金币，不能下载学习
注册时间最后登录阅读权限20积分57精华0帖子
初级会员, 积分 57, 距离下一级还需 143 积分
状态可以获取到，但无论&&攻击 还是 走路 的图标都是 一样的特征码
注册时间最后登录阅读权限10积分1精华0帖子
新手上路, 积分 1, 距离下一级还需 49 积分
不错， 学习下
注册时间最后登录阅读权限10积分2精华0帖子
新手上路, 积分 2, 距离下一级还需 48 积分
怎么调用啊。
Visual Basic 6.0
