远程激活程序
Dim ProcInfo As New ProcessStartInfo
Dim arguments As String = "dfshim.dll,ShOpenVerbApplication " + {{share path to the .application file (//share/drive/dir/app.application)}}
ProcInfo.FileName = "rundll32.exe"
ProcInfo.Arguments = arguments
ProcInfo.FileName = filename
ProcInfo.CreateNoWindow = True
ProcInfo.WindowStyle = ProcessWindowStyle.Hidden
ProcInfo.RedirectStandardError = False
ProcInfo.RedirectStandardOutput = False
ProcInfo.UseShellExecute = True
Dim proc As New Process
proc.StartInfo = ProcInfo
proc.Start()
Dim arguments As String = "dfshim.dll,ShOpenVerbApplication " + {{share path to the .application file (//share/drive/dir/app.application)}}
ProcInfo.FileName = "rundll32.exe"
ProcInfo.Arguments = arguments
ProcInfo.FileName = filename
ProcInfo.CreateNoWindow = True
ProcInfo.WindowStyle = ProcessWindowStyle.Hidden
ProcInfo.RedirectStandardError = False
ProcInfo.RedirectStandardOutput = False
ProcInfo.UseShellExecute = True
Dim proc As New Process
proc.StartInfo = ProcInfo
proc.Start()