steam想申明库存量，不晓得在哪里去增设，那个出口处是稍稍有点儿深，由此可见毕竟也很单纯，一起来看一看什么样操作方式。操作方式方式01登入steam后，点选街道社区旁的对个人......
2024-02-05 561
用VB设置开机自动启动应用程序
来源：互联网
2023-02-20 20:55:18 173
用VB设置开机自动启动应用程序
工具/原料
- 开机自动启动程序的编辑实际上是调用API函数来修改或增加注册表中的值，这样在系统启动时就会自动执行。/
- 下面是这个开机自动启动程序的设计界面和运行界面。/开机自动启动设计界面/
- 开机自动启动运行界面/br />/
步骤/方法
Option Explicit
Const REG_SZ As Long = 1
Const HKEY_LOCAL_MACHINE = &H80000002
'创建注册表项
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias _
"RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _
phkResult As Long) As Long
'设置注册表项中的值
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
"RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, _
ByVal cbData As Long) As Long
'打开注册表中的项
Private 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
'获取子项
Private 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 Any, lpcbData As Long) As Long
Const REG_DWORD = 4
Private Sub Form_Load()
'为text1设置默认路径程序
Text1.Text = "C:\Program Files\****\****.exe"'请修改自动启动程序的路径。
End Sub
Private Sub Command1_Click()
'设置开机启动
Dim hKey As Long
Dim myexe As String
Dim myint As Integer
myint = Len(Text1.Text) - InStrRev(Text1.Text, "\")'取得应用程序文件名字符串的字节数，含扩展名
myexe = Right(Text1.Text, myint)'取得应用程序文件名字符串，含扩展名
If Text1.Text > "" Then
RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", hKey
'"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run"是注册表中的路径
RegSetValueEx hKey, myexe, 0, REG_SZ, ByVal Text1.Text, 255
'myexe是上面注册表路径中添加的项，Text1.Text是该项的数据。
End If
MsgBox "设置完成,请您重新启动计算机!" & vbCrLf & vbCrLf & "你设置的程序将开机自动执行！", 64, "提示信息"
End Sub
Private Sub Command2_Click()
'查找自动启动的程序
DHK1.DialogTitle = "选择程序"'注意打开对话框的名称是DHK1
DHK1.Filter = "应用程序(*.exe)|*.exe"
DHK1.ShowOpen
If Len(DHK1.FileName) Then
Text1.Text = DHK1.FileName
End If
End Sub
Private Sub Command3_Click()
End
End Sub
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
上一篇：怎样DIY你的摩托DEFY开机画面 下一篇：笔记本电脑为什么开机慢
相关文章
- 详细阅读
-
ps快捷键大全与常用快捷键-ps常用快捷键大全和技巧详细阅读
操作方式方法01【辅助widget】多种辅助工具相连接两个功能键的可同时按【Shift】加此功能键挑选出1、正方形、圆锥选框辅助工具 【M】 2、终端辅助工具 【V】 3、截叶......
2024-02-05 501
-
qq头像上传失败怎么办-qq头像上传失败1503详细阅读
操作方式01文档格式难题qq肖像最合适用jpeg文档格式的相片，若是相片有透明化地下通道，能选用png文档格式上载。 02大小不一难题若是相片极重也可能将引致上载失利，检......
2024-02-05 421