怎样用条件得调用外部程序

2025-03-26 19:17:13

推荐回答（1个）

回答1：

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

Private Declare Function CreateFile Lib "KERNEL32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As String, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "KERNEL32" (ByVal hObject As Long) As Long
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const INVALID_HANDLE_VALUE = -1
Private Sub Command1_Click()
Dim RetVal
If Dir("c:\myfile.exe") <> "" And IsFileRun("c:\myfile.exe") Then '判断c盘的myfile.exe是否运行
MsgBox "文件c:\myfile.exe已运行！" '若运行.则提示这个软件已经运行了.
Else: RetVal = Shell("cmd.EXE", 1) 'RetVal = Shell("cmd.EXE", 1) 这句话是写你所说的VB程序下一步的运行。
End If
End Sub

Private Sub Form_Load()
Dim WinWnd As Long, ret As String, RetVal As Long, lpClassName As String
'Ask for a Window title
ret = InputBox("Enter the exact window title:" + Chr$(13) + Chr$(10) + "Note: must be an exact match")
'Search the window
WinWnd = FindWindow(vbNullString, ret)
If WinWnd = 0 Then MsgBox "Couldn't find the window ...": Exit Sub
End Sub

Private Function IsFileRun(ByVal pFile As String) As Boolean
Dim ret As Long
ret = CreateFile(pFile, GENERIC_READ Or GENERIC_WRITE, 0&, vbNullString, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0&)
IsFileRun = (ret = INVALID_HANDLE_VALUE)
CloseHandle ret
End Function

本机调试成功.WIN XP ＆ VB 6.0SP6

最新问答

神经性耳鸣可以痊愈吗？

江淮瑞风2.0发动机缺缸！缸压不足时好时坏！

请问大家湖南卫视我们约会吧20110209号这期:金焰和罗昕牵手成功后那首歌叫什么名字啊?

时代驭菱的发动机号和车架号分别在什么地方

1990年阳历是7月11号农历是5月19 。是早晨7点多出生的，女孩子。克夫吗？

电信的IPTV可以回看多少小时的节目啊?

孔子的父亲到底是怎样的存在？

系统检测到账号有被盗风险。为了你的账号安全，新设备的登录请求会被拒绝。请使用常用设备登录。

钢筋漏绑绑扎不均匀处理方法

沈阳飞利浦小家电专卖店在哪