使用VB写一个简单的添加系统环境变量的软件以及实现一键格式化U盘

软件制作-----使用VB实现插入系统环境变量，实现一键格式化U盘！
核心源代码代码如下（有点vb基础的一眼就知道，我就不解释了）：

VERSION 5.00
Begin VB.Form Form1 Caption         =   "环境变量"ClientHeight    =   5115ClientLeft      =   120ClientTop       =   450ClientWidth     =   6870LinkTopic       =   "Form1"ScaleHeight     =   5115ScaleWidth      =   6870StartUpPosition =   3  '窗口缺省Begin VB.TextBox Text3 Height          =   2805Left            =   0MultiLine       =   -1  'TrueScrollBars      =   2  'VerticalTabIndex        =   5Text            =   "Form1.frx":0000Top             =   2250Width           =   6615EndBegin VB.CommandButton addBtn Caption         =   "添加"Height          =   615Left            =   1890TabIndex        =   4Top             =   1560Width           =   1455EndBegin VB.TextBox Text2 Height          =   585Left            =   900TabIndex        =   3Top             =   870Width           =   5715EndBegin VB.TextBox Text1 Height          =   435Left            =   960TabIndex        =   0Top             =   120Width           =   3435EndBegin VB.Label Label1 Caption         =   "变量值"Height          =   495Index           =   1Left            =   60TabIndex        =   2Top             =   960Width           =   765EndBegin VB.Label Label1 Caption         =   "变量名"Height          =   495Index           =   0Left            =   150TabIndex        =   1Top             =   120Width           =   765End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addBtn_Click() 'setEnv Trim(Text1.Text), "" ' 先移除DoEventssetEnv Trim(Text1.Text), Trim(Text2.Text) '再添加DoEventsDoEventsText3.Text = getEnviron(Text1.Text)
End SubFunction isMatch(str, patrn)Dim objRegExp As ObjectSet objRegExp = CreateObject("vbscript.regExp")objRegExp.Pattern = patrnisMatch = objRegExp.test(str)
End FunctionPrivate Sub setEnv(ByVal pPath As String, ByVal pValue As String)On Error GoTo 0Dim pSysEnv As ObjectSet pSysEnv = CreateObject("WScript.Shell").Environment("System")Dim ExistValueOfPathIf pValue <> "" ThenExistValueOfPath = pSysEnv(pPath)If Right(pValue, 1) = "\" Then pValue = Left(pValue, Len(pValue) - 1)If isMatch(ExistValueOfPath, "\*?" & Replace(pValue, "\", "\\") & "\\?(\b|;)") Then Exit SubIf ExistValueOfPath <> "" Then pValue = ";" & pValuepSysEnv(pPath) = ExistValueOfPath & pValueElsepSysEnv.Remove (pPath)End IfEnd SubFunction getEnviron(environName As String) As StringDim x As IntegerDim Env As StringDim cmpName() As Stringx = 1Env = Environ(x)'getEnviron = Env'Exit FunctionDo Until Env = ""'If InStr(UCase(Env), UCase(environName)) Then'Me.Caption = Me.Caption & "," & Env'End IfIf InStr(Env, "=") ThencmpName = Split(Env, "=")'Debug.Print cmpName(0)If UCase(Trim(cmpName(0))) = UCase(Trim(environName)) ThengetEnviron = cmpName(1)Exit FunctionEnd IfEnd Ifx = x + 1Env = Environ(x)LoopgetEnviron = ""
End FunctionPrivate Sub Form_Load() 'windir=C:\Windows'MsgBox getEnviron("Path")
End SubPrivate Sub Text1_Change()Text3.Text = getEnviron(Trim(Text1.Text))
End Sub
//特殊：
Form1 = 13, 240, 785, 755, , 25, 25, 887, 540, C
ProcessEnvironment = 129, 276, 815, 772, C
SystemEnvironment = 72, 100, 953, 673, C
UserEnvironment = 134, 43, 1021, 616, C
Registry = 35, 106, 768, 679,

效果图如图所示：

软件成品展示：下载地址

使用VB写一个简单的添加系统环境变量的软件以及实现一键格式化U盘相关推荐

如何搭建python框架_从零开始:写一个简单的Python框架
原标题:从零开始:写一个简单的Python框架 Python部落(python.freelycode.com)组织翻译,禁止转载,欢迎转发. 你为什么想搭建一个Web框架?我想有下面几个原因: 有一个 ...
ipad php mysql_如何用PHP/MySQL为 iOS App 写一个简单的web服务器（译） PART1
原文:http://www.raywenderlich.com/2941/how-to-write-a-simple-phpmysql-web-service-for-an-ios-app 作为一个i ...
用java写一个简单的区块链（下）
用java写一个简单的区块链(下) 2018年03月29日 21:44:35 java派大星阅读数:725 标签: 区块链java 更多个人分类: 区块链版权声明:本文为博主原创文章,转载请标明 ...
linux下Qt编写串口调试助手,如何在linux下用QT写一个简单的串口调试助手
如何在linux下用QT写一个简单的串口调试助手 QT5串口类在QT5以前,编写串口一般使用的是qextserialport类,但在QT5之后有了QT自带的串口类SerialPort(串口基础类)和 ...
python解析器是什么_如何用python写一个简单的词法分析器
编译原理老师要求写一个java的词法分析器,想了想决定用python写一个. 目标能识别出变量,数字,运算符,界符和关键字,用excel表打印出来. 有了目标,想想要怎么实现词法分析器. 1.先进行 ...
ios php mysql实例_如何用PHP/MySQL为 iOS App 写一个简单的web服务器（译） PART1
原文:http://www.raywenderlich.com/2941/how-to-write-a-simple-phpmysql-web-service-for-an-ios-app 作为一个i ...
写一个简单的登录页面!!!(html)
写一个简单的登录页面!!! 大家好,我是伍柒. 今天我又双叒叕发现了一个好东西. 那就是用html做一个登录页面那,该如何做呢? 首先现在html里的body里写一个头部header标签(双标签 ...
python可以做机器人吗_零基础如何用Python写一个简单的WeChat机器人？（内附代码）...
(bing图片) python这两年热火朝天,依托其众多类库,基于python的应用层出不穷,也大大降低了非计算机专业人员的入门门槛,WeChat机器人自然不在话下!-- 聪明的瓦肯人苦于有时候总是 ...
基于JavaScript+css写一个简单的h5动态下雨效果
基于JavaScript+css写一个简单的h5动态下雨效果文章目录什么是前端展示效果 JavaScript是什么? 步骤 1.html 2.css 3.js 什么是前端前端它是一个工作,它的 ...

使用VB写一个简单的添加系统环境变量的软件以及实现一键格式化U盘

使用VB写一个简单的添加系统环境变量的软件以及实现一键格式化U盘相关推荐

最新文章

热门文章