从品牌网站建设到网络营销策划,从策略到执行的一站式服务
在 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”
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图