VB呼叫外部程式的問題,呼叫其它的外部程式沒問題,呼叫文通識別程式調不出,求解
源代碼下載 http://pan.baidu.com/s/1bohMI9x
麻煩哪位幫忙看看
uj5u.com熱心網友回復：
你做到哪一步進行不下去呢，至少給點代碼或者問題發生點的代碼吧？ 指明預期什么樣，實際報什么錯。uj5u.com熱心網友回復：
直接呼叫應該沒有問題,很可能是那個程式需要后面帶引數才能進去
如果有快捷方式的話,你可以看一下快捷方式的屬性里,有沒有運行的引數
uj5u.com熱心網友回復：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command2_Click()
ShellExecute Me.hwnd, "open", "explorer", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbnulstring, 1
End Sub
Private Sub Command3_Click()
'Shell App.Path & "\licecap\licecap1.24漢化 .exe", vbMaximizedFocus
Dim r, s As Long
s = ShellExecute(0, "open", App.Path & "\licecap\licecap1.24漢化 .exe", 0, 0, 1)
End Sub
Private Sub Command4_Click()
Shell App.Path & "\紅燭電子教鞭\紅燭電子教鞭.exe", vbNormalFocus
End Sub
Private Sub Command5_Click()
'Shell App.Path & "\wentong\wentong.exe", vbNormalNoFocus
'Dim a As Integer
'a = Shell(App.Path & "\wentong\wentong.exe", vbNormalFocus)
Dim r, s As Long
'r = ShellExecute(0, "open", "http://www.ifeng.com", 0, 0, 1)
's = ShellExecute(0, "open", App.Path & "\wentong\wentong.exe", 0, 0, 1)
Shell App.Path & "\wentong\wentong.exe" '運行程式
End Sub
看了快捷方式也沒有引數
其它的外部程式呼叫沒問題，就是文通呼叫不了
，不知道是什么原因？
uj5u.com熱心網友回復：
附件上，有所有的代碼和外部程式uj5u.com熱心網友回復：
100多M...沒空下你命令列下運行看看可以運行么
如果可以
建一個bat,vb運行這個bat就可以了.
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/81867.html
標籤：VB基礎類
下一篇：vb 串口通信快取區不會清除