- UID
- 51815
- 帖子
- 203
- 主題
- 19
- 精華
- 0
- 積分
- 16
- 楓幣
- 1
- 威望
- 12
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 0
- GP
- 15
- 閱讀權限
- 10
- 性別
- 男
- 在線時間
- 71 小時
- 註冊時間
- 2014-3-16
- 最後登入
- 2019-5-27
|
態度好一點..
順便公佈 驗證方法
順便 公佈一下 RC驗證的的源碼..
需要東西有
I大的 clshack一個
Command1
Timer1一個
Timer3一個
Label1一個
Label2一個
'此行為宣告部分 需要用到I大的 物件類別模組
Dim hack As New clshack
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'以下程式碼
Private Sub Command1_Click()
MsgBox "成功"
End Sub
Private Sub Timer1_Timer()
hack.OpenProcessByProcessName ("Raidcall.exe")
End Sub
Private Sub Timer3_Timer()
N = hack.ReadLong(&H998914) '讀取8.1
If N <> "" Then'""裡面是要驗證的群
Label1.Caption = "你現在在 " & N & " 號RC群"
Label2.Caption = "請到我們的RC群:進入程式"
Command1.Enabled = False
Else
Label1.Caption = "你現在在 " & N & " 號RC群"
Label2.Caption = "歡迎使用本程式"
Command1.Enabled = True
End If
End Sub
|
|