冰楓論壇

 找回密碼
 立即註冊
ads_sugarbook
搜索
查看: 1388|回覆: 3

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

[複製鏈接]

3

主題

0

好友

3

積分

新手上路

Rank: 1

UID
188843
帖子
5
主題
3
精華
0
積分
3
楓幣
135
威望
3
存款
0
贊助金額
0
推廣
0
GP
53
閱讀權限
10
性別
在線時間
3 小時
註冊時間
2017-5-21
最後登入
2022-8-17
發表於 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


怎麼偵測不到
複製連結並發給好友,以賺取推廣點數
簡單兩步驟,註冊、分享網址,即可獲得獎勵! 一起推廣文章換商品、賺$$

6

主題

1

好友

34

積分

新手上路

Rank: 1

UID
24833
帖子
173
主題
6
精華
0
積分
34
楓幣
385
威望
27
存款
0
贊助金額
0
推廣
0
GP
6
閱讀權限
10
性別
保密
在線時間
147 小時
註冊時間
2013-2-24
最後登入
2024-2-13

2019端午節紀念勳章

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

使用道具 舉報

36

主題

7

好友

159

積分

註冊會員

Rank: 2

UID
89923
帖子
3379
主題
36
精華
0
積分
159
楓幣
196
威望
146
存款
0
贊助金額
0
推廣
0
GP
19
閱讀權限
20
性別
保密
在線時間
258 小時
註冊時間
2015-1-24
最後登入
2024-3-17

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

發表於 2019-6-24 15:38:22 |顯示全部樓層
酷 偵測惡犬谷 這是視窗名 他那是偵測進程名
本人不常上論壇
有事情請+DC找我
我DC:奶茶#5254
點評回覆

使用道具 舉報

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.工作ˋ管理員->應用程式頁->裡面的就是視窗名稱哦
點評回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies |上傳

廣告刊登意見回饋關於我們職位招聘本站規範DMCA隱私權政策

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

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

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

小黑屋|手機版|冰楓論壇

GMT+8, 2024-3-29 09:37

回頂部