End If
retval = RegQueryValueEx(hkey, "NoDriveTypeAutoRun", 0, REG_DWORD, lvalue, 4)
RegCloseKey hkey
If retval0 Then
MsgBox "读取注册表失败,错误代码:" + CStr(retval), vbExclamation, "错误"
End If
ShowCheck (lvalue)
End Sub
Private Sub ShowCheck(lvalue As Long)
Check0.Value = https://www.04ip.com/post/lvalue Mod 2
lvalue = https://www.04ip.com/post/(lvalue - Check0.Value) / 2
Check1.Value = https://www.04ip.com/post/lvalue Mod 2
lvalue = https://www.04ip.com/post/(lvalue - Check1.Value) / 2
Check2.Value = https://www.04ip.com/post/lvalue Mod 2
lvalue = https://www.04ip.com/post/(lvalue - Check2.Value) / 2
Check3.Value = https://www.04ip.com/post/lvalue Mod 2
lvalue = https://www.04ip.com/post/(lvalue - Check3.Value) / 2
Check4.Value = https://www.04ip.com/post/lvalue Mod 2
lvalue = https://www.04ip.com/post/(lvalue - Check4.Value) / 2
Check5.Value = https://www.04ip.com/post/lvalue Mod 2
lvalue = https://www.04ip.com/post/(lvalue - Check5.Value) / 2
Check6.Value = https://www.04ip.com/post/lvalue Mod 2
End Sub
Private Function GetValue() As Long
GetValue = https://www.04ip.com/post/Check0.Value + Check1.Value * 2 + Check2.Value * 4 + Check3.Value * 8 + Check4.Value * 16 + Check5.Value * 32 + Check6.Value * 64 + 128
End Function
以上 。
饿的老狼
如何用VB.net 写注册表我来告诉大家什么是纯绿软件--(希望无知者不要再胡说八道了)
有人说:
还有哪些所谓写绿色软件的人是不懂windows编程,根本就写不出注册的过程 。所以自我安慰的叫绿色软件 。不知大家注意没有绿色软件是不可以在天加删除中删掉的 。只要它运行就会产生很多拉圾,而且是到处乱放,这就是为什么容易出问题的原因所在 。
我只能说,这样说话的人是个电脑肓 。
或是根本不懂得绿色软件的含义 。
绿色软件有如下严格特征:
1、不对注册表进行任何操作(或只进行非常少的,一般朋友能理解的操作,典型的是开机起动 。少数也进行一些临时操作,一般在程序结束前会自动清除写入的信息) 。
2、不对系统敏感区进行操作,一般包括系统起动区根目录、安装目录(windows目录)、程序目录(Program Files)、帐户专用目录 。
3、不向非自身所在目录外的目录进行任何写操作 。
4、因为程序运行本身不对除本身所在目录外的任何文件产生任何影响,所以,根本不存在安装和卸载问题 。
5、程序的删除,只要把程序所在目录和对应的快捷方式删了就可以了(如果你手工在桌面或其它位置设了快捷方式),只要这样做了 , 程序就完全干净地从你的电脑里删去了 , 不留任何垃圾 。
对于编程人员来说,做一个绿色软件不难,做一个非绿色软件也不难,但是为什么那么多软件不做成绿色的呢?下面作一些讲解:
一、大型软件公司的大型软件为什么不做成绿色的:
1、大型软件公司并非没有能力做出绿色软件,但它们的软件涉及的方面过多,需要对系统原有的一些设置进行改动 , 以使电脑按照软件设计要求进行操作 。以PhotoShop为例 , 它就需要在注册表里添加很多种格式文件的默认打开方法为PhtoShop.exe,以便大家双击此类文件后就自动打开PhotoShop以便编辑 。
2、为了更好的为一些对电脑知识不是很了解的朋友进行一些自动设定 。还是以PhotoShop为例,这儿已经有朋友发布了解压即可用的 , 但是,还是不少的朋友,连解压也不会,解压后都不知道点哪个文件开始正常运行 , 也不知道怎么在桌面上建快捷方式 。就算别人为他做完了上面的事,要是有一天,他不想要PhotoShop了,也不知道原来安装的程序在哪个目录 , 怎么删去,甚至不知道如何删除快捷方式 , 更别说如何完全干净的删除了 。做成安装版就可以自动为使用者完成上面的事了 。
推荐阅读
- 养成冒险类游戏网游,养成冒险类游戏网游推荐
- javascript今天,js 今天函数
- 甘肃seo推广价格如何,seo推广收费标准
- 苹果ios手机常去地关闭,iphone关闭常去地点
- python可迭代函数 python迭代函数简单例题
- 华为升级鸿蒙后感受,华为升级鸿蒙系统感受
- AMZ亚马逊ERP系统排名,亚马逊erp系统有哪些品牌
- 如何设置excel行高自动,如何设置excel行高自动调整
- c语言中函数形参用数组名 c语言规定数组名做实参时和形参之间的数据传输方式