打開VB,建一個按鈕,雙擊進去,寫下面的代碼:然后運行就可以了
創(chuàng)新互聯(lián)長期為成百上千客戶提供的網(wǎng)站建設(shè)服務(wù),團隊從業(yè)經(jīng)驗10年,關(guān)注不同地域、不同群體,并針對不同對象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺,與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為漣水企業(yè)提供專業(yè)的網(wǎng)站建設(shè)、成都網(wǎng)站建設(shè),漣水網(wǎng)站改版等技術(shù)服務(wù)。擁有10年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。
創(chuàng)建批處理文件,用文件操作,分3部:1,打開:OPEN 2,寫入:PRINT 3,關(guān)閉:CLOSE
然后用SHELL運行就可以了:
Private Sub Command1_Click()
Open "E:\test.bat" For Append As #1
Print #1, "@echo off"
Print #1, "echo This is just a test"
Print #1, "pause"
Close #1
x = Shell("E:\test.bat")
End Sub
shell函數(shù)是的作用是運行一個可執(zhí)行程序,語法是:
Function Shell(PathName) As Double
"E:\test.bat"是文件路徑名,因為這個函數(shù)要返回一個Double所以前面加了一個 X=
調(diào)用c:\1.bat,可以這樣:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("cmd.exe /c call c:\1.bat", AppWinStyle.NormalFocus)
End Sub
在 Form_Load 寫入
Dim cmd As String = Command()
cmd 就是傳入的參數(shù)了。
就看你怎么利用了。
我覺得應(yīng)該有兩種解決方法
1:把patran的安裝路徑添加到系統(tǒng)環(huán)境變量的path屬性下;
2:在你的批處理里面改為如下格式,patran完整路徑(如c:\MSC.software\········patran.exe)+ "-sfp patran.ses",也就是下面這種情況試下“c:\MSC.software\········patran.exe -sfp patran.ses -b -ans yes”