 
- UID
- 144692
- 帖子
- 787
- 主題
- 66
- 精華
- 0
- 積分
- 390
- 楓幣
- 305
- 威望
- 253
- 存款
- 316
- 贊助金額
- 500
- 推廣
- 44
- GP
- 10
- 閱讀權限
- 60
- 在線時間
- 239 小時
- 註冊時間
- 2016-7-7
- 最後登入
- 2025-2-17
|
本帖最後由 YYYpo 於 2017-1-26 10:13 編輯
我來公開實際源碼搂!!我覺得那種東西只要2條API就可以完成了
--------------------------------------
首先創個模塊來存放- Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
- Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
- Public Function WritewindownameBytes(ByVal Name As String, ByVal Text As String) As Long
- '修改窗口名稱
- Dim are As Long
- are = FindWindow(vbNullString, Name)
- SetWindowText are, Text
- End Function
複製代碼 --------------------------------------
再到表單去呼叫- Dim a As New Class1
- Private Sub Command1_Click()
- a.WritewindownameBytes "原本遊戲名稱", "修改後的遊戲名稱"
- End Sub
複製代碼 ------------------------------------
如果還看不懂的,專案就放在這裡
修改遊戲名稱專案.rar
(1.52 KB, 下載次數: 6)
|
|