VB程序放在服务器上自动运行

看我的方法行不行?
运行时请在text1中给定时器赋值,两个小时就是输入 120 就可以了单位默认是分了
还有请在text2中输入"notepad.exe"不包括引号,因为我不知道你的程序进程映像名称是什么,这里暂时用记事本来代替你的程序来演示到时请输入你的程序的映像名称就得了.
你试着运行是不是循环在你设定的时间到后,记事本打开三秒后就又关闭了.
运行成功后,你就可以根据你的实际需要改源代码了.需要什么改你看下面的代码完就知道了有不明白的M我.呵呵!
Dim k%, c%, prowin As String
Private Sub Command1_Click()
prowin = Text2.Text '该文本框输入你的进程的映像名称,任务管理器可以找到包括扩展名格式像上面一样要正确
Timer1.Interval = Val(Text1.Text) * 60 * 1000 '设定TEXT1文本框的单位为分,即设定你的程序多长时间运行一次的时间间隔
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer2.Enabled = True
Timer2.Interval = 3000 '设定你的程序要在服务器上的运行的时间长短,这里是三秒此值必须少于timer1.interval的值也可以根据需要修改
k = Shell("C:\WINDOWS\system32\notepad.exe", 1) '这里写入你自己写的可执行文件的路径
c = Shell("cmd.exe", 1) '运行控制台窗口
prowin = "taskkill /im " & prowin '控制台下的一个可以结束进程的命令
End Sub<