|

提醒:若下载的软件是收费的"请不要付款",可能是骗子,请立即联系本站举报,执意要付款被骗后本站概不负责。(任何交易请走第三方中介,请勿直接付款交易以免被骗!切记).
.版本 2
.支持库 iext
.如果真 (API_取操作系统类型 () = 2)
加载琳琅驱动 ()
透明标签3.标题 = “当前系统:Window XP”
.如果真结束
.如果真 (API_取操作系统类型 () = 5)
.如果真 (是否64位操作系统 () = 假)
信息框 (“当前系统为 Windows7 32位,本工具不支持此系统!”, 0, , )
结束 ()
.如果真结束
.如果真结束
.如果真 (API_取操作系统类型 () = 1)
透明标签3.标题 = “当前系统:Windows 2000”
.如果真结束
.如果真 (API_取操作系统类型 () = 2)
透明标签3.标题 = “当前系统:Window XP”
.如果真结束
.如果真 (API_取操作系统类型 () = 3)
透明标签3.标题 = “当前系统:Windows Server 2003”
.如果真结束
.如果真 (API_取操作系统类型 () = 4)
透明标签3.标题 = “当前系统:Windows Vista”
.如果真结束
.如果真 (API_取操作系统类型 () = 6)
透明标签3.标题 = “当前系统:Windows 8”
.如果真结束
.如果真 (API_取操作系统类型 () = -1)
透明标签3.标题 = “当前系统:未知”
.如果真结束
.如果真 (API_取操作系统类型 () = 5)
.如果真 (是否64位操作系统 () = 真)
透明标签3.标题 = “当前系统:Win7 64位”
.如果真结束
.如果真结束
.子程序 是否64位操作系统, 逻辑型
.局部变量 szWinSysDir, 文本型
.局部变量 uSize, 整数型
.局部变量 unResult, 整数型
.局部变量 szKernel32File, 文本型
.局部变量 hLibKernel32, 整数型
.局部变量 lpIsWow64Process, 整数型
.局部变量 bIsWow64Process, 逻辑型
szWinSysDir = 取空白文本 (256)
uSize = 256
unResult = GetSystemDirectory (szWinSysDir, uSize)
.如果真 (unResult > 0)
szKernel32File = szWinSysDir + “\kernel32.dll”
hLibKernel32 = LoadLibrary (szKernel32File)
.如果真结束
.如果真 (hLibKernel32 = 0)
hLibKernel32 = LoadLibrary (“kernel32.dll”)
.如果真结束
.如果真 (hLibKernel32 ≠ 0)
lpIsWow64Process = GetProcAddress (hLibKernel32, “IsWow64Process”)
.如果真结束
.如果真 (lpIsWow64Process ≠ 0)
.如果真 (IsWow64Process (GetCurrentProcess (), bIsWow64Process) = 0)
FreeLibrary (hLibKernel32)
返回 (假)
.如果真结束
.如果真结束
.如果真 (hLibKernel32 = 0)
FreeLibrary (hLibKernel32)
返回 (假)
.如果真结束
返回 (bIsWow64Process)
.子程序 API_取操作系统类型, 整数型, , 【1=Windows 2000】【2=Window XP】【3=Windows Server 2003】【4=Windows Vista】【5=Windows 7】【6=Windows 8】【-1=未知】
.局部变量 lnVer, 整数型
.局部变量 lnVerNum, 双精度小数型
.局部变量 lText, 整数型
lnVer = 右移 (左移 (GetVersion (), 16), 16)
lnVerNum = 位与 (lnVer, 255) + 右移 (位与 (lnVer, 65280), 8) ÷ 10
.判断开始 (lnVerNum = 5)
lText = 1
.判断 (lnVerNum = 5.1)
lText = 2
.判断 (lnVerNum = 5.2)
lText = 3
.判断 (lnVerNum = 6)
lText = 4
.判断 (lnVerNum = 6.1)
lText = 5
.判断 (lnVerNum = 6.2)
lText = 6
.默认
lText = -1
.判断结束
返回 (lText)
联系我时,请说是在 挂海论坛 上看到的,谢谢! |
上一篇: 最新XNF技能无CD源码下一篇: 47 透视DLL源码开源【编译即用】
免责声明:
1、本主题所有言论和图片纯属会员个人意见,与本论坛立场无关。一切关于该内容及资源商业行为与www.52ghai.com无关。
2、本站提供的一切资源内容信息仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。
3、本站信息来自第三方用户,非本站自制,版权归原作者享有,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑或手机中彻底删除上述内容。
4、如果您喜欢该程序,请支持正版,购买注册,得到更好的正版服务。如有侵犯你版权的,请邮件与我们联系删除(邮箱:xhzlw@foxmail.com),本站将立即改正。
|