- 最後登錄
- 2024-4-25
- 在線時間
- 0 小時
- 註冊時間
- 2007-5-12
- 閱讀權限
- 70
- 精華
- 0
- UID
- 1286899
- 帖子
- 1412
- 積分
- 17880 點
- 潛水值
- 38277 米
| 若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。 套句 廣告詞, 黃秋生 拍可口可樂廣告
「給你個暢快」
這是我 寫的 驗證範例(砍掉一些) 但是一定能作為
- Sub checkRegister()
- '登入檔讀寫
- 'Dim sAns, sAns2 As String
- Dim sErr As String = ""
- Dim sAns, setdate As String
-
- Try
- sAns = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE", "MyLoader", Nothing)
- If sAns = Nothing Then
- My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE", "MyLoader", setdate)
-
-
- End If
- 'My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE", "MyLoader", setdate)
- '寫入位置, 名稱,資料
- End If
- End If
- ' My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE", "MyLoader", setdate)
- Catch ex As InvalidCastException
- MsgBox("You are Fail")
- End Try
- End Sub
複製代碼 ... |
|