包含vb.net20010的词条 _Check

VB.net2010 操作注册表的完整路径写在HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
就可以自启动了。
以下是我前一段时间写的防u盘自动运行的程序，里面可以找到如何操作注册表。
Option Explicit
Global Const REG_SZ As Long = 1
Global Const REG_DWORD As Long = 4
Global Const HKEY_CLASSES_ROOT = H80000000
Global Const HKEY_CURRENT_USER = H80000001
Global Const HKEY_LOCAL_MACHINE = H80000002
Global Const HKEY_USERS = H80000003
Global Const ERROR_NONE = 0
Global Const ERROR_BADDB = 1
Global Const ERROR_BADKEY = 2
Global Const ERROR_CANTOPEN = 3
Global Const ERROR_CANTREAD = 4
Global Const ERROR_CANTWRITE = 5
Global Const ERROR_OUTOFMEMORY = 6
Global Const ERROR_INVALID_PARAMETER = 7
Global Const ERROR_ACCESS_DENIED = 8
Global Const ERROR_INVALID_PARAMETERS = 87
Global Const ERROR_NO_MORE_ITEMS = 259
Global Const KEY_ALL_ACCESS = H3F
Global Const REG_OPTION_NON_VOLATILE = 0
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Private Sub cmdAbout_Click()
MsgBox "作者wolfccb不对本软件可能造成的任何错误或损失负责，请自行承担使用风险。", vbInformation, "About"
End Sub
Private Sub cmdDefault_Click()
Check0.Value = https://www.04ip.com/post/1
Check1.Value = https://www.04ip.com/post/0
Check2.Value = https://www.04ip.com/post/1
Check3.Value = https://www.04ip.com/post/0
Check4.Value = https://www.04ip.com/post/1
Check5.Value = https://www.04ip.com/post/0
Check6.Value = https://www.04ip.com/post/0
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdRecommend_Click()
Check0.Value = https://www.04ip.com/post/1
Check1.Value = https://www.04ip.com/post/1
Check2.Value = https://www.04ip.com/post/1
Check3.Value = https://www.04ip.com/post/1
Check4.Value = https://www.04ip.com/post/1
Check5.Value = https://www.04ip.com/post/0
Check6.Value = https://www.04ip.com/post/1
End Sub
Private Sub cmdSet_Click()
Dim hkey As Long
Dim lvalue As Long
Dim cddata As Long
Dim retval As Long
lvalue = https://www.04ip.com/post/GetValue
retval = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", 0, KEY_ALL_ACCESS, hkey)
retval = RegSetValueEx(hkey, "NoDriveTypeAutoRun", 0, REG_DWORD, lvalue, 4)
RegCloseKey hkey
If retval = 0 Then
MsgBox "设置已保存。", vbInformation, "提示"
Else
MsgBox "保存失败，错误代码："CStr(retval), vbExclamation, "错误"
End If
End Sub
Private Sub Form_Load()
Dim hkey As Long
Dim lvalue As Long
Dim cddata As Long
Dim retval As Long
retval = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", 0, KEY_ALL_ACCESS, hkey)
If retval0 Then
MsgBox "打开注册表失败，错误代码："CStr(retval), vbExclamation, "错误"
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.ValueCheck1.Value * 2Check2.Value * 4Check3.Value * 8Check4.Value * 16Check5.Value * 32Check6.Value * 64128
End Function
以上。
饿的老狼
VB.NET2010 怎么获取IP1.获取当前电脑名：System.Net.Dns.GetHostName()
2.根据电脑名取出全部IP地址：System.Net.Dns.Resolve(电脑名).AddressList
或者 System.Net.Dns.GetHostByName(电脑名).AddressList
3.根据IP地址取出电脑名：System.Net.Dns.Resolve(IP地址).HostName
VB.NET2010"" 就是空字符串。执行 Text1.Text = "" 后，文本框 Text1 就被清空了。
vb.net2010中的隐式声明和显示声明分别是什么隐式声明就是指在使用某个变量之前,没有专门对其进行声明,
比如有个变量 J,现在用DIM J AS ...对它进行专门的声明.就用它: J = 5 这就是隐式声明.
隐式声明会有一些风险.比如会写错变量明,使得前后本来要使用的是同一个变量的,却变成了两个.
显式声明和隐式声明相反,就是在用变量之前,对它进行了专门的声明.如:
dim a as string
a = "abc"
----------------------
在编程之前可以对程序进行设置,在编辑器的选项设置里-VB默认值中 ,有个
Option Explicit 属性,如果选择ON,则会在写程序时,要求强制显式声明变量.如果没有进行显示声明的变量,在使用的时候会报错.
也可以在程序前使用 Option Explicit On 语句,来开启强制显式声明...
-------------------------
这么解释能理解吧?
【包含vb.net20010的词条】vb.net20010的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net20010的信息别忘了在本站进行查找喔。

包含vb.net20010的词条

推荐阅读

似乎的意思似乎的解释

怪物猎人世界艾露猫机械装获得方法介绍艾露猫机械装怎么获得

微信图片过期怎么恢复？小编亲测竟然...

有精神病家族史的我,是不是不应该谈恋爱？

Web渗透|一篇文章搞懂XSS跨站脚本攻击

那些年，我们，被叫做90后

旧版拿过五杀,新版没玩过今天晚上要打班赛,想用潘森妮蔻下路,请问新版潘森怎么玩？

网站用户行为数据收集和分析方法,用户行为数据怎么收集

太阳的句子说说心情怎么样的太阳

杜甫字什么号什么? 李白最恐怖的藏头诗

袋熊视频改名叫什么了？

听听那冷雨赏析听听那冷雨散文赏析

溴怎么读文字溴怎么读

有哪些好看的复仇电影有什么好看的复仇电影

市场开拓是什么意思什么是市场开拓

红楼梦的作者

六月黄吃到什么时候

2018-02-24|2018-02-24 潮州涮肉，爷爷摔跤

斗鱼直播4430775，斗鱼直播回放在哪里

redis数据量大,怎么优化 redis数据量评估