VB 如何編寫程式來防止多個程式同時執行？ 緊急！！！！！！！！！

分數有點高，不知道是不是誤會了？

private sub form_load()if then end

end sub

看來一樓的答案是正確的解決方案，學到了！

無論您輸入哪個驅動器號，您都可以檢測它是否已開啟！

private function enum1() as stringdim wmi

set wmi = getobject("winmgmts:")set objs = "win32_process")for each obj in objs

enum1 = enum1 + chr(13) +chr(10)

nextend function

private sub form_load()dim progress as variantdim i as integer

static num as integerprogress = split(enum1, vbcrlf)for i = 1 to ubound(progress) -1if progress(i) = "" then '這裡""將您建立的檔案的名稱更改為 exe。

num = num + 1

if num > 1 then

msgbox "節目開始了！ "

endend if

end if

nextend sub

程式啟動時，嘗試在C盤根目錄下建立乙個具有特定名稱的檔案，如果建立成功，程式繼續執行，並以獨佔方式開啟檔案，如果建立失敗，則表示其他程式已經鎖定了該檔案，程式不再繼續。

首先列舉程序，然後確定視窗型別和視窗名稱。

滿足所有條件後，傳送訊息

給程序的自定義訊息（你必須先設定這個自定義訊息），如果有返回，它就點選它（如果不返回，則說明它不是你自己的程序），原始碼不在你身邊，想法是這樣的。

是否可以使用定時器控制來實現同步監控？

private sub timer1_timer()call wsksock(1,ips(1))end sub

private sub timer2_timer()call wsksock(2,ips(2))end sub

private sub timer3_timer()call wsksock(3,ips(3))end sub

private sub form_load()= true

5000 '每 5 秒監控一次。

true 5000 '每 5 秒監控一次。

end sub

你是按順序執行的，你正在嘗試實現乙個多執行緒程式，但你不能這樣做，而且 VB6 也相當困難。

VB 應該不能執行多執行緒處理。

我不知道你的wsksock是什麼樣子的。

但你說應該同時監控它。 似乎可以。

以正常方式開啟文件

Win8 和 Win10 具有分屏瀏覽功能，可以將乙個視窗分成多個視窗而不會相互干擾。

右鍵單擊工作列以排列視窗。