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

查看: 1508|回覆: 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彩票

簽名被屏蔽

回覆

使用道具舉報

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

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

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-11

發消息

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防多開的寫法