冰楓論壇

 找回密碼
 立即註冊
查看: 170|回覆: 3

[求助] VB 2010 楓之谷斯福 偵測遊戲

[複製鏈接]

1

主題

0

好友

1

積分

新手上路

Rank: 1

UID
188843
帖子
1
主題
1
精華
0
積分
1
楓幣
8
威望
1
存款
0
贊助金額
0
推廣
0
GP
1
閱讀權限
10
性別
在線時間
0 小時
註冊時間
2017-5-21
最後登入
2019-7-3
發表於 2019-6-1 08:35:09 |顯示全部樓層
Public Function OpenProcessByProcessName(ByVal lpName As String) As Long
        Dim PE32 As PROCESSENTRY32
        Dim hSnapshot As Long
        pid = 0
        hSnapshot = CreateToolhelp32Snapshot(2, 0&) 'TH32CS_SNAPPROCESS = 2
        PE32.dwSize = Len(PE32)
        Process32First(hSnapshot, PE32)
        While pid = 0 And CBool(Process32Next(hSnapshot, PE32))
            If Right$(LCase$(Left$(PE32.szExeFile, InStr(1, PE32.szExeFile, Chr(0)) - 1)), Len(lpName)) = LCase$(lpName) Then
                pid = PE32.th32ProcessID
            End If
        End While
        CloseHandleAPI(hSnapshot)
        OpenProcessByProcessName = OpenProcess()
    End Function
    Public Function OpenProcessByWindow(ByVal lpWindowName As String, Optional ByVal lpClassName As String = vbNullString) As Long
        hWnd = FindWindow(lpClassName, lpWindowName)
        GetWindowThreadProcessId(hWnd, pid)
        OpenProcessByWindow = OpenProcess(pid)
        hprocess = OpenProcessAPI(PROCESS_ALL_ACCESS, False, pid)
    End Function

End Module

OpenProcessByWindow("惡犬谷", "StartUpDlgClass")
        If pid <> 0 Then
            MsgBox("遊戲鎖定成功囉!", 64, "FirstProject_Tipe")
        Else
            MsgBox("鎖定遊戲失敗!", 16, "FirstProject_Error")
        End If
    End Sub
End Class


怎麼偵測不到

3

主題

1

好友

23

積分

新手上路

Rank: 1

UID
24833
帖子
141
主題
3
精華
0
積分
23
楓幣
1091
威望
20
存款
0
贊助金額
0
推廣
0
GP
3
閱讀權限
10
性別
保密
在線時間
59 小時
註冊時間
2013-2-24
最後登入
2019-7-11

2019端午節紀念勳章

發表於 2019-6-24 15:25:37 |顯示全部樓層
惡犬谷 這個不是進程 名稱壓
[發帖際遇]: blackk 想向「亂親阿翔」學習「友情界線」,花費學費 2 楓幣 並購入一台X3汽車 幸運榜 / 衰神榜
大家好阿
回覆

使用道具 舉報

35

主題

7

好友

156

積分

註冊會員

Rank: 2

UID
89923
帖子
3360
主題
35
精華
0
積分
156
楓幣
4
威望
146
存款
62
贊助金額
0
推廣
0
GP
19
閱讀權限
20
性別
保密
在線時間
192 小時
註冊時間
2015-1-24
最後登入
2019-7-4

2015中秋節紀念勳章 Android勳章 私服達人 2017年紀念勳章 太陽勳章 積分勳章 解說達人 論壇粉絲 發帖達人 中秋節紀念勳章

發表於 2019-6-24 15:38:22 |顯示全部樓層
酷 偵測惡犬谷 這是視窗名 他那是偵測進程名
想要我的私服外掛或數據嗎 那就去找吧 我都放在那裡
RC:zx7754123
千萬別反白 樓上沒隱字
回覆

使用道具 舉報

1

主題

0

好友

1

積分

新手上路

Rank: 1

UID
265354
帖子
2
主題
1
精華
0
積分
1
楓幣
11
威望
1
存款
0
贊助金額
0
推廣
0
GP
1
閱讀權限
10
性別
保密
在線時間
0 小時
註冊時間
2019-6-25
最後登入
2019-6-27
發表於 2019-6-26 21:29:53 |顯示全部樓層
OpenProcessByWindow("惡犬谷", "StartUpDlgClass")

可以改成

OpenProcessByWindow("視窗名稱", vbNullString)




註:
1."視窗名稱"不需要加上.exe

2.工作ˋ管理員->應用程式頁->裡面的就是視窗名稱哦
回覆

使用道具 舉報

您需要登入後才可以回帖 登入 | 立即註冊

正在連接伺服器...
打開冰楓聊天室
廣告刊登意見回饋關於我們職位招聘

Copyright © 2011-2019 冰楓論壇, All rights reserved

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

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

小黑屋|意見反饋|手機版|Archiver|冰楓論壇

GMT+8, 2019-7-19 13:43

APP Store下載 Play Store下載
回頂部