重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在 Form_Load 写入
创新互联是一家专业提供游仙企业网站建设,专注与成都网站建设、成都做网站、H5页面制作、小程序制作等业务。10年已为游仙众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。
Dim cmd As String = Command()
cmd 就是传入的参数了。
就看你怎么利用了。
Option Explicit
Const CC_不关闭窗口 As String = " pause"
Private Sub Form_Load()
'在c:\ 建立一个 1.bat 的批处理文件,里面的内容为:
'dir
'然后,运行本程序,就可以不关闭窗口了。
Shell "c:\1.bat" CC_不关闭窗口, vbNormalFocus
End Sub
Imports System.IO
Imports System.Diagnostics
Imports System.Windows.Forms
Class Form1
Inherits Form
Private filename As String = "abc.bat"
Private bat As String = "@echo off" vbCr vbLf "dir" vbCr vbLf "pause" vbCr vbLf "exit" vbCr vbLf
Private Sub New()
Dim btn As New Button()
btn.Parent = Me
btn.Text = "Run bat"
AddHandler btn.Click, Sub() Process.Start(filename)
End Sub
Protected Overrides Sub OnLoad(e As EventArgs)
File.WriteAllText(filename, bat)
MyBase.OnLoad(e)
End Sub
Protected Overrides Sub OnClosed(e As EventArgs)
File.Delete(filename)
MyBase.OnClosed(e)
End Sub
STAThread _
Public Shared Sub Main()
Application.Run(New Form1())
End Sub
End Class
我觉得应该有两种解决方法
1:把patran的安装路径添加到系统环境变量的path属性下;
2:在你的批处理里面改为如下格式,patran完整路径(如c:\MSC.software\········patran.exe)+ "-sfp patran.ses",也就是下面这种情况试下“c:\MSC.software\········patran.exe -sfp patran.ses -b -ans yes”