以下是引用jswjyjf在2018/2/26 17:33:00的发言:
发布后 只出现flash 登录没有出现
做个简易的例子发上来看看。
不然,试试,红色如果是发布后,改成ApplicationPath & "xxx.exe"
Dim str As String = ""
str &= "Set ws = CreateObject(""Wscript.Shell"")" & vbcrlf
str &= "ws.run ""cmd /c d:\test.bat"",vbhide"
Dim bat As String = ""
bat &= "taskkill /f /im foxtable.exe" & vbcrlf
bat &= """" & ProjectFile & """"
FileSys.WriteAllText("d:\test.bat", bat, False, Encoding.Default)
FileSys.WriteAllText("d:\test.vbs", str, False, Encoding.Default)
Dim vbs As String = "d:\test.vbs"
Dim Proc As New Process '定义一个新的Process
Proc.File = vbs '指定要打开的文件
Proc.Start()
注意,vbs文件尽量不要动态生成,容易被查杀,你可以在你项目那里编写一个vbs文件,然后调用运行即可。