|
楼主 |
发表于 2013-9-15 06:59:29
|
显示全部楼层
天津市天津市
[e]
.版本 2
.支持库 spec
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码
返回 (0)
.子程序 接口子程序, , 公开
.参数 参数一, 整数型
游戏窗口 = 参数一
载入 (窗口1, , 真)
.子程序 读自进程内存整数型_, 整数型
.参数 读取地址, 整数型
置入代码 ({ 139, 68, 36, 8, 61, 0, 0, 16, 0, 126, 8, 133, 192, 116, 4, 139, 0, 235, 5, 184, 255, 255, 255, 255, 139, 229, 93, 194, 4, 0 })
返回 (-1)
.子程序 API_取色, 整数型
.参数 句柄, 整数型, 可空, 窗口句柄(可空:取屏幕中)
.参数 水平位置, 整数型, , 指定点横坐标
.参数 垂直位置, 整数型, , 指定点纵坐标
.局部变量 设备场景句柄, 整数型
.局部变量 临时颜色值, 整数型
设备场景句柄 = 取设备场景_ (句柄)
处理事件 ()
临时颜色值 = GetPixel (设备场景句柄, 水平位置, 垂直位置)
释放设备场景_ (句柄, 设备场景句柄)
返回 (临时颜色值)
.子程序 超级延迟_
.参数 time, 整数型
.局部变量 hTimer, 整数型
.局部变量 int64, LARGE_INTEGER
int64.QuadPart = -10 × 1000 × time
hTimer = CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer (hTimer, int64, 0, 0, 0, 假)
.判断循环首 (MsgWaitForMultipleObjects (1, hTimer, 假, -1, 255) ≠ 0)
处理事件 ()
.判断循环尾 ()
_关闭对象 (hTimer)
.子程序 取API地址, 整数型
.参数 API名, 文本型
.局部变量 API组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 地址, 整数型
API组 = { “kernel32.dll”, “user32.dll”, “winmm.dll”, “ws2_32.dll”, “WinINet.dll”, “gdi32.dll”, “GLU32.DLL”, “aclui.dll”, “acsmib.dll”, “activeds.dll”, “AcXtrnal.dll”, “adimage.dll”, “adptif.dll”, “ADVAPI32.DLL”, “advpack.dll”, “atl.dll”, “authz.dll”, “avicap32.dll”, “avifil32.dll”, “browseui.dll”, “CABINET.DLL”, “clusapi.dll”, “comctl32.dll”, “comdlg32.dll”, “comsvcs.dll”, “crtdll.dll”, “crypt32.dll”, “cryptnet.dll”, “D3DRM.DLL”, “dbghelp.dll”, “ddraw.dll”, “DHCPCSVC.DLL”, “digest.dll”, “DINPUT.DLL”, “dplay.dll”, “dplayx.dll”, “dsound.dll”, “dsprop.dll”, “dsuiext.dll”, “ftsrch.dll”, “gpedit.dll”, “hhctrl.ocx”, “hlink.dll”, “iasperf.dll”, “icm32.dll”, “ICMP.DLL”, “icmui.dll”, “idq.dll”, “iedkcs32.dll”, “iissuba.dll”, “IMAGEHLP.DLL”, “imm32.dll”, “inetcpl.cpl”, “IPHLPAPI.DLL”, “iprop.dll”, “KSUSER.DLL”, “loadperf.dll”, “lz32.dll”, “mapi32.dll”, “mgmtapi.dll”, “MOBSYNC.DLL”, “mpg4dmod.dll”, “mpr.dll”, “mprapi.dll”, “mqrt.dll”, “msacm32.dll”, “msafd.dll”, “mscms.dll”, “mscpxl32.dLL”, “msgina.dll”, “MSHTML.DLL”, “MSI.DLL”, “msimg32.dll”, “msorcl32.dll”, “MSPATCHA.DLL”, “msrating.dll”, “mstlsapi.dll”, “msvbvm50.dll”, “msvfw32.dll”, “MSWSOCK.DLL”, “MTXDM.DLL”, “MTXOCI.DLL”, “NDDEAPI.DLL”, “ndisnpp.dll”, “netapi32.dll”, “npptools.dll”, “ntdll.dll”, “ntdsapi.dll”, “ntdsbcli.dll”, “ntmsapi.dll”, “nwprovau.dll”, “odbc32.dll”, “ODBCBCP.DLL”, “odbccp32.dll”, “ODBCTRAC.DLL”, “ole32.dll”, “OLEACC.DLL”, “oleaut32.dll”, “olecli32.dll”, “oledlg.dll”, “olesvr32.dll”, “opengl32.dll”, “password.cpl”, “pdh.dll”, “Powrprof.dll”, “psapi.dll”, “qosname.dll”, “query.dll”, “rasapi32.dll”, “raschap.dll”, “rasdlg.dll”, “rasman.dll”, “rassapi.dll”, “rastls.dll”, “resutils.dll”, “RICHED20.DLL”, “rpcns4.dll”, “rpcrt4.dll”, “RSRC32.dll”, “rtm.dll”, “rtutils.dll”, “scarddlg.dll”, “secur32.dll”, “SENSAPI.DLL”, “setupapi.dll”, “SFC.DLL”, “shdocvw.dll”, “shell32.dll”, “shlwapi.dll”, “snmpapi.dll”, “softpub.dll”, “spoolss.dll”, “SVRAPI.DLL”, “tapi32.dll”, “TLBINF32.dll”, “traffic.dll”, “url.dll”, “URLMON.DLL”, “userenv.dll”, “USP10.DLL”, “uxtheme.dll”, “VB5STKIT.DLL”, “vba6.dll”, “VDMDBG.DLL”, “version.dll”, “winfax.dll”, “wininet.dll”, “winscard.dll”, “winspool.dll”, “winspool.drv”, “wintrust.dll”, “wldap32.dll”, “WOW32.DLL”, “wsnmp32.dll”, “wtsapi32.dll”, “xolehlp.dll” }
.计次循环首 (取数组成员数 (API组), 计次)
地址 = 取函数入口 (API组 [计次], API名)
.如果真 (地址 > 0)
跳出循环 ()
.如果真结束
.计次循环尾 ()
返回 (地址)
.子程序 取函数入口, 整数型
.参数 DLL路径, 文本型
.参数 函数名, 文本型
.局部变量 地址, 整数型
.局部变量 hLibModule, 整数型
hLibModule = LoadLibraryExA (DLL路径, 0, 1)
地址 = GetProcAddress (hLibModule, 函数名)
.如果真 (地址 = 0)
FreeLibrary (hLibModule)
返回 (0)
.如果真结束
FreeLibrary (hLibModule)
返回 (地址)
[/e] |
|