冰楓論壇»論壇 › 程式設計/技術交流 › VisualBasic › 如何限定此程式只可以開一次

查看: 1506|回覆: 3

[求助] 如何限定此程式只可以開一次

[複製鏈接]

0720

頭像被屏蔽

13 主題	1 好友	115 積分

禁止訪問

UID: 199718
帖子: 75
主題: 13
精華: 0
積分: 115
楓幣: 1011
威望: 113
存款: 1009
贊助金額: 0
推廣: 0
ＧＰ: 12
閱讀權限: 0
性別: 男
在線時間: 47 小時
註冊時間: 2017-7-31
最後登入: 2019-12-17

發消息

電梯直達

1樓

發表於 2018-6-11 19:03:51 |只看該作者 |倒序瀏覽

提示: 作者被禁止或刪除內容自動屏蔽，只有管理員或有管理權限的成員可見

請問各位

要如何更改，把這個做出的程式
限定只能開啟一次，無法多開

(現在點幾次，就可以開幾個)

已有 1 人評分	楓幣	威望	ＧＰ	收起理由
冰楓	-10	-1	-1	求助文未分類

總評分: 楓幣 -10 威望 -1 ＧＰ -1 查看全部評分

收藏0 推0 噓0

把本文推薦給朋友或其他網站上,每次被點擊增加您在本站積分: 1彩票

簽名被屏蔽

回覆

使用道具舉報

複製連結並發給好友，以賺取推廣點數

簡單兩步驟，註冊、分享網址，即可獲得獎勵！一起推廣文章換商品、賺$$

boindary

17 主題	5 好友	886 積分

高級贊助會員

Rank: 20

UID: 10228
帖子: 788
主題: 17
精華: 0
積分: 886
楓幣: 513
威望: 461
存款: 64354
贊助金額: 1650
推廣: 0
ＧＰ: 405
閱讀權限: 150
性別: 男
在線時間: 248 小時
註冊時間: 2012-7-14
最後登入: 2024-6-23

發消息

2樓

發表於 2018-6-11 19:07:13 |只看該作者

判斷程序吧??

點評回覆

使用道具舉報

0720

頭像被屏蔽

13 主題	1 好友	115 積分

禁止訪問

UID: 199718
帖子: 75
主題: 13
精華: 0
積分: 115
楓幣: 1011
威望: 113
存款: 1009
贊助金額: 0
推廣: 0
ＧＰ: 12
閱讀權限: 0
性別: 男
在線時間: 47 小時
註冊時間: 2017-7-31
最後登入: 2019-12-17

發消息

3樓

發表於 2018-6-15 09:43:47 |只看該作者

提示: 作者被禁止或刪除內容自動屏蔽，只有管理員或有管理權限的成員可見

boindary 發表於 2018-6-11 19:07
判斷程序吧??

有語法嗎～

[發帖際遇]: 0720 支持『反黑箱課綱』活動，因而獲得民主獎勵 1 楓幣

幸運榜 / 衰神榜

簽名被屏蔽

點評回覆

使用道具舉報

qwe032747

20 主題	23 好友	509 積分

高級會員

Rank: 4

UID: 213575
帖子: 227
主題: 20
精華: 0
積分: 509
楓幣: 600
威望: 503
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 92
閱讀權限: 50
性別: 女
在線時間: 127 小時
註冊時間: 2017-11-24
最後登入: 2024-11-1

發消息

4樓

發表於 2018-6-18 22:47:47 |只看該作者

0720 發表於 2018-6-15 09:43
有語法嗎～

Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As SECURITY_ATTRIBUTES, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Type SECURITY_ATTRIBUTES
      nLength As Long
      lpSecurityDescriptor As Long
      bInheritHandle As Long
End Type
Private Const ERROR_ALREADY_EXISTS = 183&
Private Sub Form_Load()
Dim sa As SECURITY_ATTRIBUTES
sa.bInheritHandle = 1
sa.lpSecurityDescriptor = 0
sa.nLength = Len(sa)
Call CreateMutex(sa, 1, App.Title)
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
      MsgBox "請勿重復運行", , ""
      End
End If
End Sub

VB6防多開的寫法

點評回覆

使用道具舉報

返回列表

免責聲明：本網站是以即時上載留言的方式運作，本站對所有留言的真實性、完整性及立場等，不負任何法律責任。

而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。

		保持登入	找回密碼
密碼			立即註冊

[求助] 如何限定此程式只可以開一次

您可能感興趣的文章

中秋節紀念勳章

2018中秋節紀念勳章

2019中秋節紀念勳章

Apple勳章

2017中秋節紀念勳章

2018年紀念勳章

VIP會員

太陽勳章

神手勳章

私服達人

積分勳章

發帖達人

貢獻王

高級客戶

解說達人

論壇粉絲

懶人勳章

性別（男）

音樂勳章

幼兒勳章

版主勳章

性別（女）

熱心助人

管理者

2019年紀念勳章

2021年紀念勳章

屁孩勳章

2022年紀念勳章

2023聖誕節紀念勳章

2023年紀念勳章

2024年紀念勳章

2018萬聖節紀念勳章

2019聖誕節紀念勳章