UC知道如果使用VB加载文本中的路径?
来源：百度知道 编辑：UC知道 时间：2024/07/03 02:08:24
自学VB遇到了点问题，想找个老师指点一下，不胜感激~
我想用VB编写一个可以在指定的时间内启动一个指定的目标程序，目标程序只启动一次，目标程序启动后，主程序自动退出，程序启动时间和目标程序路径从一个文本（或配置文件）中加载~
再追加10分，希望老师能帮帮我~~~谢谢啦~
我想用VB编写一个可以在指定的时间内启动一个指定的目标程序，目标程序只启动一次，目标程序启动后，主程序自动退出，程序启动时间和目标程序路径从一个文本（或配置文件）中加载~
再追加10分，希望老师能帮帮我~~~谢谢啦~
定时起动自己到网上去找，本人没做过，不过好像挺简单的
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Sub Command1_Click()
' 读配置文件
Dim FlieName As String
FlieName = String(255, 0)
GetPrivateProfileString "Flie1", "ID", "没有配置", FlieName, 255, "C:\vb.ini" '读取C盘下VB.ini配置文件中的Flie1中的ID（路径）
If Dir(FlieName) <> "" Then Shell (FlieName) '如果文件存在就运行它
End '退出
End Sub