方法一:通過Diagnostics.Process.GetProcessesByName函數來檢測程序是否已經啟動

目前創新互聯公司已為數千家的企業提供了網站建設、域名、虛擬空間、網站托管、企業網站設計、珠山網站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協力一起成長,共同發展。
Imports System.Windows.Forms
Module Module1
Sub Main()
'檢測多重啟動
If Diagnostics.Process.GetProcessesByName( _
Diagnostics.Process.GetCurrentProcess.ProcessName).Length 1 Then
MessageBox.Show("已經一個實例的本程序正在運行。")
Return
End If
Application.Run(New Form())
End Sub
End Module
不過這個方法有個缺點,如果用戶改了下exe的名字就檢測不到了,所以更好的方法如下
方法2:使用Mutex
Imports System.Windows.Forms
Module Module1
Sub Main()
Dim createdNew As Boolean
' 創建mutex
Dim mutex As System.Threading.Mutex = _
New System.Threading.Mutex(True, "YourAppName", createdNew)
If createdNew = False Then
MessageBox.Show("已經一個實例的本程序正在運行。")
Return
End If
Application.Run(New Form())
' 釋放mutex
mutex.ReleaseMutex()
End Sub
End Module
MSI 不是可執行程序呀
這么運行: msiexec accessrt.msi
具體你應該知道怎么弄吧.
假如指定的lisp程序存入"e:\abcd.lsp",其中有函數gczd4-1帶有三個參數即(gczd4-1 X1 X2 X3)和命令cc,則VB.NET調用程序如下:
Dim AcadApp As Object
Dim AcadDoc As Object
AcadApp = GetObject(, "AutoCAD.Application")
AcadDoc = AcadApp.ActiveDocument
AcadDoc.SendCommand("(load " Chr(34) "e:\\abcd.lsp" Chr(34) ") ")
AcadDoc.SendCommand("(gczd4-1 " Chr(34) X1 Chr(34) Chr(34) X2 Chr(34) Chr(34) X3 Chr(34) ") ")
AcadDoc.SendCommand("(c:cc) ")
AcadDoc = Nothing
AcadApp = Nothing
當前名稱:vb.net運行指定程序 vbnet keydown
文章URL:http://www.js-pz168.com/article0/dddgsoo.html
成都網站建設公司_創新互聯,為您提供網站制作、網站內鏈、企業建站、網站維護、用戶體驗、品牌網站設計
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯