form1.caption="bofang"Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst WM_CLOSE = &H10 Public Sub Main() Dim WinWnd As Long WinWnd = FindWindow(vbNullString, "bofang") If WinWnd <> 0 Then PostMessage WinWnd, WM_CLOSE, 0&, 0& Form1.Show Else Form1.Show End If End Sub
vb只运行一个程序实例
最新推荐文章于 2014-10-31 16:27:00 发布