可以在程序第一次運(yùn)行的時(shí)候往系統(tǒng)注冊(cè)表的指定位置寫(xiě)入一個(gè)值,這樣只要檢測(cè)注冊(cè)表中是否有這個(gè)值就知道是首次運(yùn)行還是再次運(yùn)行了
專注于為中小企業(yè)提供成都網(wǎng)站制作、成都做網(wǎng)站、外貿(mào)營(yíng)銷(xiāo)網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)天山免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動(dòng)了1000多家企業(yè)的穩(wěn)健成長(zhǎng),幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
安裝一個(gè)sandboxie(沙盤(pán)),然后保存一個(gè)沙盤(pán)鏡像,每次打開(kāi)沙盤(pán)運(yùn)行程序就恢復(fù)一下,隨便軟件做的什么限制,都可以重復(fù)打開(kāi)。
方法一:通過(guò)Diagnostics.Process.GetProcessesByName函數(shù)來(lái)檢測(cè)程序是否已經(jīng)啟動(dòng)
Imports System.Windows.Forms
Module Module1
Sub Main()
'檢測(cè)多重啟動(dòng)
If Diagnostics.Process.GetProcessesByName( _
Diagnostics.Process.GetCurrentProcess.ProcessName).Length 1 Then
MessageBox.Show("已經(jīng)一個(gè)實(shí)例的本程序正在運(yùn)行。")
Return
End If
Application.Run(New Form())
End Sub
End Module
不過(guò)這個(gè)方法有個(gè)缺點(diǎn),如果用戶改了下exe的名字就檢測(cè)不到了,所以更好的方法如下
方法2:使用Mutex
Imports System.Windows.Forms
Module Module1
Sub Main()
Dim createdNew As Boolean
' 創(chuàng)建mutex
Dim mutex As System.Threading.Mutex = _
New System.Threading.Mutex(True, "YourAppName", createdNew)
If createdNew = False Then
MessageBox.Show("已經(jīng)一個(gè)實(shí)例的本程序正在運(yùn)行。")
Return
End If
Application.Run(New Form())
' 釋放mutex
mutex.ReleaseMutex()
End Sub
End Module
因?yàn)槟鉊im lByte As Byte 沒(méi)有聲名數(shù)組,
lSWiter.WriteByte(Nothing) '這句話也是錯(cuò)誤的,你把文件流給寫(xiě)入空了,所以第二次運(yùn)行打開(kāi)文件就沒(méi)有數(shù)據(jù)了。
多調(diào)試,跟蹤數(shù)據(jù),可以多學(xué)點(diǎn)經(jīng)驗(yàn)。
給個(gè)簡(jiǎn)單點(diǎn)的思路吧:寫(xiě)注冊(cè)表在程序初始化(即在本機(jī)中第一次運(yùn)行時(shí)候)在注冊(cè)表中寫(xiě)入個(gè)鍵值,用于標(biāo)識(shí)當(dāng)程序第一次運(yùn)行的時(shí)候,閱讀指定注冊(cè)表中鍵值,假設(shè)為1標(biāo)識(shí)今天已經(jīng)運(yùn)行了,如果為0表示今天還沒(méi)運(yùn)行那么,程序運(yùn)行時(shí)候并設(shè)置該注冊(cè)表鍵值為1,這樣當(dāng)一次運(yùn)行完后,后面當(dāng)天在運(yùn)行就自動(dòng)退出==最好是設(shè)置兩個(gè)標(biāo)識(shí),一個(gè)表示天,一個(gè)標(biāo)識(shí)程序當(dāng)天是否已經(jīng)運(yùn)行
本文標(biāo)題:包含vb.net只運(yùn)行一次的詞條
網(wǎng)頁(yè)鏈接:http://jinyejixie.com/article8/doohsop.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供動(dòng)態(tài)網(wǎng)站、ChatGPT、網(wǎng)站建設(shè)、Google、品牌網(wǎng)站建設(shè)、軟件開(kāi)發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)