非ie获取当前登录计算机用户,易语言——全API取操作系统信息、IE信息、计算机名称、用户名...

阳光穿透心脏的1/2处 2022-10-07 09:54 212阅读 0赞

.版本 2

.DLL命令 取版本号, , "kernel32",

"GetVersionExA", , 取出当前计算机操作系统版本及相关信息

.参数取win信息, 操作系统

.DLL命令 取计算机名, 整数型, "kernel32.dll",

"GetComputerNameA", ,

取出当前完整的计算机名称，TRUE(非零)表示成功，否则返回零。

.参数字串缓冲区, 文本型, ,

lpBuffer，随同计算机名载入的字串缓冲区

.参数缓冲区长度, 整数型, 传址,

nSize，缓冲区的长度。这个变量随同返回计算机名的实际长度载入

.DLL命令 取用户名, 整数型, "advapi32.dll",

"GetUserNameA", ,

取出当前的用户名,TRUE(非零)表示成功，否则返回零。

.参数字串缓冲区, 文本型, ,

lpBuffer，随同用户名载入的字串缓冲区

.参数缓冲区长度, 整数型, 传址,

nSize，缓冲区的长度。这个变量随同返回用户名的实际长度载入

.DLL命令 取浏览器, 整数型, "Shlwapi.dll",

"DllGetVersion", , 取当前计算机IE浏览器版本及版本号

.参数

dwVersion, 浏览器

2、

自定义数据类型

.版本 2

.数据类型 操作系统, , OSVERSIONINFO 结构中的

osName 返回操作系统的名称

.成员

dwOSVersionInfoSize, 整数型

.成员

dwMajorVersion, 整数型, , , 主版本号 dwMajorVersion

.成员

dwMinorVersion, 整数型, , , 次版本号

.成员

dwBuildNumber, 整数型, , , 内部版本号

.成员

dwPlatformId, 整数型, , , 操作平台标识

.成员

szCSDVersion, 字节型, , "128", 补丁版本

.成员

wServicePackMajor, 整数型

.成员

wServicePackMinor, 整数型

.成员

wSuiteMask, 整数型, , , 根据这个值可得到更具体的系统类型

.成员

wProductType, 字节型, , , 产品类型

.成员

wReserved, 字节型

.数据类型 浏览器

.成员

cbSize, 整数型

.成员

dwMajorVersion, 整数型

.成员

dwMinorVersion, 整数型

.成员

dwBuildNumber, 整数型

.成员

dwPlatformId, 整数型

3、常量

.版本 2

.常量 NameSamCompatible, "2"

4、代码部分

.版本 2

.支持库 eAPI

.子程序 取信息

.局部变量 环境变量, 操作系统

.局部变量 版本及编号, 文本型

.局部变量 操作系统, 文本型

.局部变量 X, 文本型

环境变量.dwOSVersionInfoSize ＝ 148

取版本号 (环境变量)

版本及编号 ＝ “版本号:” ＋ 到文本 (环境变量.dwMajorVersion) ＋

“.” ＋ 到文本 (环境变量.dwMinorVersion) ＋ “ 内部版本号:” ＋ 到文本 (环境变量.dwBuildNumber ％ 65536)

.如果 (环境变量.dwPlatformId ＝ 1) '

操作平台标识

.判断开始

(环境变量.dwMajorVersion ＝ 4) ' 主版本号

.判断开始 (环境变量.dwMinorVersion ＝ 0) '

次版本号

操作系统 ＝ “Microsoft Windows 95”

.判断 (环境变量.dwMinorVersion ＝ 10) '

次版本号

操作系统 ＝ “Microsoft Windows 98”

.判断 (环境变量.dwMinorVersion ＝ 90) '

次版本号

操作系统 ＝ “Microsoft Windows Millenium Edition ”

.默认

.判断结束

.默认

.判断结束

.否则

.如果

(环境变量.dwPlatformId ＝ 2) ' 操作平台标识

.判断开始 (环境变量.dwMajorVersion ＝ 5) '

主版本号

.判断开始 (环境变量.dwMinorVersion ＝ 2) '

次版本号

操作系统 ＝ “Microsoft Windows 2003”

.判断 (环境变量.dwMinorVersion ＝ 1) '

次版本号

操作系统 ＝ “Microsoft Windows XP”

.判断 (环境变量.dwMinorVersion ＝ 0) '

次版本号

操作系统 ＝ “Microsoft Windows 2000”

.默认

.判断结束

.判断 (环境变量.dwMajorVersion ＝ 3) '

主版本号

操作系统 ＝ “Microsoft Windows NT 3.51”

.判断 (环境变量.dwMajorVersion ＝ 4) '

主版本号

操作系统 ＝ “Microsoft Windows NT 4.0”

.默认

.判断结束

.否则

.如果结束

编辑框1.内容 ＝ “操作系统:” ＋ \#换行符

＋操作系统 ＋ “ ” ＋ 到文本 (环境变量.szCSDVersion) ＋ \#换行符

＋版本及编号 ＋ \#换行符 ＋

“=====================================” ＋ \#换行符 ＋ 浏览器信息

() ＋ \#换行符 ＋ “=====================================” ＋

\#换行符 ＋ “计算机名称:” ＋ 子程序\_取计算机名 () ＋ “

用户名称:” ＋子程序\_取用户名 ()

.子程序 浏览器信息, 文本型, , 获得IE的版本

.局部变量 变量, 浏览器

.局部变量 结果, 文本型

变量.cbSize ＝ 20 ' IEVerInfo

取浏览器 (变量)

结果 ＝ “IE版本:” ＋ 到文本 (变量.dwMajorVersion) ＋ “.”

＋到文本 (变量.dwMinorVersion) ＋ “ 内部版本号:” ＋ 到文本 (变量.dwBuildNumber)

返回 (结果)

.子程序 子程序\_取计算机名, 文本型

.局部变量 返回文本, 文本型

返回文本 ＝ 取空白文本 (50)

.如果真 (取计算机名 (返回文本, 取文本长度 (返回文本)) ≠ 0)

(返回文本)

.如果真结束

返回 (“”)

.子程序 子程序\_取用户名, 文本型

.局部变量 返回文本, 文本型

返回文本 ＝ 取空白文本 (50)

.如果真 (取用户名 (返回文本, 取文本长度 (返回文本)) ≠ 0)

(返回文本)

.如果真结束

返回 (“”)

.子程序 \_按钮3\_被单击, , , 此为用易支持库取得

.局部变量 系统信息, 系统信息

取系统信息 (系统信息)

编辑框1.内容 ＝ “ 操作系统 :”

＋系统信息.操作系统 ＋ \#换行符 ＋ “ 版本 :”

＋到文本 (系统信息.版本) ＋ \#换行符 ＋ “ 建立号码 :” ＋ 到文本 (系统信息.建立号码) ＋ \#换行符 ＋

“ 最后服务包 :” ＋ 系统信息.最后服务包 ＋

\#换行符 ＋ “ 当前用户 :” ＋ 系统信息.当前用户＋

\#换行符 ＋ “ WINDOWS目录 :”

＋系统信息.系统安装目录 ＋ \#换行符 ＋ “ 系统目录

:” ＋ 系统信息.系统目录 ＋ \#换行符 ＋ “ 代码

:” ＋ 到文本 (系统信息.代码) ＋ \#换行符 ＋ “ 本地语言 :” ＋ 系统信息.本地语言 ＋ \#换行符 ＋

“ 国家代码 :” ＋ 到文本 (系统信息.国家代码) ＋

\#换行符 ＋ “ 国家 :” ＋ 系统信息.国家 ＋

\#换行符 ＋ “ 货币符号 :” ＋ 系统信息.货币符号＋

\#换行符 ＋ “ 日期格式 :” ＋系统信息.日期格式 ＋

\#换行符 ＋ “ 时间格式 :” ＋ 系统信息.时间格式

＋ \#换行符 ＋ “ 时区 :” ＋系统信息.时区

非ie获取当前登录计算机用户,易语言——全API取操作系统信息、IE信息、计算机名称、用户名...

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关 java_后端获取当前登录用户信息

相关 Spring Security - 获取当前登录用户的详细信息

相关 php获取ie版本信息,php获取IE浏览器版本函数_PHP教程

相关 spingboot 获取 Security 中当前登录用户的信息

相关 Shiro权限控制,获取当前登录用户信息

相关非ie获取当前登录计算机用户,易语言——全API取操作系统信息、IE信息、计算机名称、用户名...

相关 vfp获取计算机型号,获取硬件信息的delphi源码CPUID、操作系统、Mac物理地址、计算机名称、IP地址、用户名...

相关 JAVA获取计算机的IP、名称、操作系统等信息

相关获取当前登录用户的用户名

相关计算机获取本机IP、名称、操作系统等信息