Question

VB实现定时打开软件

我要的是 每隔几分钟 或者 几秒钟 打开的 那种 可以一直重复 不是 好多时间 打开的

Answer 1

　　1. 启动VB 6,创建一新工程，选择“标准EXE”,单击“确定”；

　　2. 在窗体中放一文本控件,命名text1,用以输入定时关机的时间；

　　3. 在窗体中放两个标签控件,命名分别为label1和label2. label1的caption属性为“请输入定时关机的时间”，Label2的 Caption属性为“00 00 00”,用以显示当前系统的时间；

　　4. 在窗体中放两个定时器控件,命名分别为timer1和timer2, interval属性都为1000；

　　5. 在窗体中放一命令按钮控件,命名command1。

　　■程序开发

　　首先显式声明下面三个API函数:

　　Private Declare Function ExitWindowsEx＆ Lib ″user32″ (ByVal uFlags＆, ByVal dwReserved＆) As long

　　′用于关闭或重新启动计算机，由uFlags的值决定。当uFlags=1时关闭计算机，当uFlags=2时重新启动计算机。

　　Private Declare Function FindWindow Lib ″user32″ Alias ″FindWindowA″ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

　　′寻找指定窗口，如存在，则置为当前活动窗口。

　　Private Declare Function PostMessage Lib ″user32″ Alias ″PostMessageA″ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

　　Const WM—CLOSE = ＆H10

　　Const EWX—SHUTDOWN = 1

　　Dim s(10) As Long

　　Option Explicit

　　′命令按钮的click事件

　　Private Sub Command1—Click()

　　 ′声名日期型变量

　　Dim Time1 As Date

　　Dim Time2 As Date

　　′首先关闭定时器timer1

　　Timer1.Enabled = False

　　Timer2.Enabled = False

　　′取系统当前时间

　　Time2 = Time()

　　′判断用户输入时间的合法性

　　If Text1.Text = ″　″ Then

　　 MsgBox ″请输入定时关机时间！″, vbExclamation ＋ vbOKCancel, ″警告信息″

　　 Text1.SetFocus

　　Exit Sub

　　End If

　　 If IsDate(Text1) = False Then

　　 MsgBox ″非法时间！请重新输入！″, vbExclamation ＋ vbOKCancel, ″警告信息″

　　 Text1.SetFocus

　　 Exit Sub

　　 Else:

　　Time1 = CDate(Text1.Text)

　　′把输入的时间字符串转换为日期型

　　′ 把设定的关机时间转换为秒数值

　　s(0) = Val(Left(Trim(Text1.Text), 2)) 60 60

　　s(1) = Val(Mid(Trim(Text1.Text), 4, 2)) 60

　　s(2) = Val(Right(Trim(Text1.Text), 2))

　　s(3) = s(0) ＋ s(1) ＋ s(2)

　　End If

　　If Time1 〈= Time2 Then

　　MsgBox ″定时关机时间必须大于当前时间！″, vbExclamation ＋ vbOKCancel, ″警告信息″

　　Text1.SetFocus

　　Exit Sub

　　Else:

　　Timer1.Enabled = True′打开定时器

　　Timer2.Enabled = True

　　Label1.Visible = False

　　Text1.Visible = False

　　Command1.Visible = False

　　Label2.Visible = True

　　End If

　　End Sub′自定义函数

　　Function exit_win() ′关机的函数

　　Dim a As Variant

　　a = ExitWindowsEx(EWX—SHUTDOWN, 0＆) ′shut down the computer

　　End Function

　　Private Sub Form—Load()

　　Label2.Visible = False

　　End Sub′定时器1的事件

　　Private Sub Timer1—Timer() ′定时器触发事件

　　Dim cur—time As String

　　Dim winhwnd As Long

　　Dim retval As Long ′取系统当前时间

　　cur_time = CStr(Time())

　　′把系统当前时间值转换为秒数值

　　s(4) = Val(Left(cur—time, 2)) 60 60

　　s(5) = Val(Mid(cur—time, 4, 2)) 60

　　s(6) = Val(Right(cur—time, 2))

　　s(7) = s(4) ＋ s(5) ＋ s(6)

　　If s(7) = s(3) Then

　　 ′关机前关闭执行程序

　　 winhwnd = FindWindow(vbNullString, ″定时关机″)

　　 If winhwnd 〈〉 0 Then

　　 retval = PostMessage(winhwnd, WM—CLOSE, 0＆, 0＆)

　　 If retval = 0 Then

　　 MsgBox ″发送消息错误.″

　　 End If

　　 End If

　　 Beep ′报警

　　 Beep

　　Call exit_win

　　End If

　　End Sub′定时器2的事件

　　Private Sub Timer2—Timer()

　　′把当前的系统时间显示在 label2上

　　Timer2.Enabled = False

　　If (Format＄(Time, ″hh″) ＆ ″:″ ＆ Format＄(Time, ″nn″) ＆ ″:″ ＆ Format＄(Time, ″ss″)) 〈〉 ″00:00:00″ Then

　　 Time = DateAdd(″s″, 1, Time)

　　 Label2.Visible = False

　　 Label2.Caption = Format＄(Time, ″hh″) ＆ ″:″ ＆ Format＄(Time, ″nn″) ＆ ″:″ ＆ Format＄(Time, ″ss″)

　　 Label2.Visible = True

　　 Timer2.Enabled = True

　　End If

　　End Sub

　　程序在VB6.0下调试通过，如在较低版本下运行，可用notepad.exe编辑VBP工程文件，删除retained=0行即可

Answer 2

不知道你懂不懂 VB的,建立一个TIMER控件;设置TIMER属性写入你要打开的程序SHELL函数打开路径就可以了!非常简单