Public Class Form1
Private Shared Dcomm() As String = Nothing
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
MsgBox(System.Reflection.Assembly.GetExecutingAssembly.Location.ToString)
Shell(System.Reflection.Assembly.GetExecutingAssembly.Location.ToString & " 123455")'发送值
End
End If
End Sub
Public Shared Sub Main(ByVal args() As String)
Dcomm = args
MsgBox(_comm) '接受值
End Sub
End Class