龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

VB 获取系统26项配置信息

时间:2009-12-30 15:42来源:未知 作者:admin 点击: 次
分享到：

用最简单的代码获取系统信息包括（系统盘符，系统目录，用户名，系统引导等26项配置信息！！）

Option Explicit
'设置Text1的MultiLine属性为True
'设置Text1的ScrollBars属性为 2 - Vertical
Private Sub Form_Load()
Dim i As Integer
Dim txt As String

    For i = 1 To 10000
        If Environ(i) <> "" Then
            txt = txt & Environ(i) & vbCrLf
        Else
            Exit For
        End If
    Next i
    Text1.Text = txt
End Sub

精彩图集
灵活实用的VBS入门教程基础篇
灵活实用的
Vbs COM之打开/保存文件脚本代码
Vbs COM之打开
当某IP 连接我机器的3389端口 报警的脚本
当某IP 连接

热门标签

删除重复数据 python字典 乱码问题 无法运行 限制用户 scroll opencv拉伸图像 网站的结构 获取sess 表单验证 继承法 域名解析 iisvdir.vbs tns配置 Servelt normal模式 hashtable用法 屏幕高宽 php php实 PHP PHP递归 重复键值 MSServer mysql(i)_set 递归查询 php php通 简单工厂模式 速排序 全角字符 字段列 url识别 保存url 全角 php使 局部 MT6589 php读取excel文件 众数 运行时间 最后一位 python日期 xml文档 有效期 运行时 类型校验 控制台 update多条记录 lftp 读写 图片圆角 httperr services 左对齐 捕获 天数 重编译 磁盘权限 MD5算法 Windows服务程序 缓存文件 循环 zip文件

赞助商链接