[VB6]修改視窗名稱

MyStyle星月

10元˙ ˙  買不起,單純推一下

aiwelpoi

蛙那我要改爐石戰記XD

qwe123

aiwelpoi 發表於 2015-6-27 00:39 [url=forum.php?mod=redirect&goto=findpost&pid=1099636&ptid=21541][/url]
蛙那我要改爐石戰記XD

改那能幹嘛!?

happy09033

請問能提供原始碼嗎?

YYYpo

我來公開實際源碼搂!!我覺得那種東西只要2條API就可以完成了
--------------------------------------
首先創個模塊來存放

1. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
2. Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
   
3. 
   
4. Public Function WritewindownameBytes(ByVal Name As String, ByVal Text As String) As Long
   
5. '修改窗口名稱
   
6. Dim are As Long
   
7. are = FindWindow(vbNullString, Name)
   
8. SetWindowText are, Text
   
9. End Function

複製代碼

--------------------------------------
再到表單去呼叫

1. Dim a As New Class1
   
2. Private Sub Command1_Click()
   
3. a.WritewindownameBytes "原本遊戲名稱", "修改後的遊戲名稱"
   
4. End Sub
   

複製代碼

------------------------------------
如果還看不懂的，專案就放在這裡
修改遊戲名稱專案.rar (1.52 KB, 下載次數: 5)

2017-1-26 10:13 上傳

點擊文件名下載附件
閱讀權限: 10

aspoy123

看看囉謝謝

gta5123cc

感謝
來試試看修改後能不能雙開

千蒼雷

怎麼看起來就像是來騙錢的沒用東西=口=

3dvr

雖不知為啥要改視窗名, 不過…
        Dim iHWnn As Long
        iHWnd = FindWindowEx(0&, 0&, vbNullString, ByVal "原視窗名稱")
        Debug.Print SetWindowText(ByVal iHWnd, "新視窗名稱")