VB怎样使程序在开机时自动启动

　首先要声明这三个API函数，它们分别是：RegSetValue、RegCreateKey、RegCloseKey，其作用是设置某一个主键的键值、创建一个主键、关闭对注册表主键的 *** 作。

　Private

Declare

Function

RegSetValue

Lib

"advapi32dll"

Alias

"RegSetValueA"

(ByVal

hKey

As

Long,

ByVal

lpSubKey

As

String,

ByVal

dwType

As

Long,

ByVal

lpData

As

String,

ByVal

cbData

As

Long)

As

Long

　Private

Declare

Function

RegCreateKey

Lib

"advapi32dll"

Alias

"RegCreateKeyA"

(ByVal

hKey

As

Long,

ByVal

lpSubKey

As

String,

phkResult

As

Long)

As

Long

　Private

Declare

Function

RegCloseKey

Lib

"advapi32dll"

(ByVal

hKey

As

Long)

As

Long

然后声明以下两个常数，要进行注册表写入的位置是在HKEY_LOCAL_MACHINE下，我们可以在VB自带的API文本查看器中找到这些常数的定义方法。

　Private

Const

HKEY_LOCAL_MACHINE

=

&H80000002

　Private

Const

REG_SZ

=

1

然后使用如下语句就行了，你可以把这段代码放在程序的某个位置：

'写注册表

Dim

Ret2

As

Long

'打开

HKEY_LOCAL_MACHINE　下的　software\microsoft\windows\currentVersion\runServices　主键

RegCreateKey

HKEY_LOCAL_MACHINE,

"software\microsoft\windows\currentVersion\runServices",

Ret2

'将此主键下的“默认”项的值改为"c:\windows\system\myprogramexe"，也就是要开机运行的程序路径

RegSetValue

Ret2,

vbNullString,

REG_SZ,

"c:\windows\system\sysinfo2exe",

4

'关闭对主键的 *** 作

RegCloseKey

Ret2

你这个当然不行啊。

你认别人输入的时间。

而你后面又用a=a-1有什么用呢。

别人输入的时间，一般都是13：00，不可能让人再算出此时与13：00相差多少秒吧。

你的这个a=a-1只能是让人输入秒数。一秒减一次。

你要将你的timer控制设成300毫秒动作一次(一秒钟内三次动作）timer1Interval =300

让别人输入的时间格式是"hh:mm"

Private Sub Timer1_Timer()

if format(a,"hh:mm")=Format(Hour(Time) & ":" & Minute(Time), "hh:mm") then

Shell Text1Text

Timer1Enabled = false

End If

End Sub

以上就是关于VB怎样使程序在开机时自动启动全部的内容，包括:VB怎样使程序在开机时自动启动、怎么用VB做一个定时打开文件的软件、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！