阿杰 发表于 2008-5-30 20:10:02

[分享]修改标题名称最简单的修改方法

<p><font face="Verdana">Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long<br/>Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long</font></p>
<p><font face="Verdana">Private Sub Command1_Click()<br/>&nbsp;&nbsp;&nbsp; Dim hw As Long<br/>&nbsp;&nbsp;&nbsp; hw = FindWindow(vbNullString, Text1.Text) '找到标题为Text1.text的窗口并返回句柄<br/>&nbsp;&nbsp;&nbsp; If hw = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; message = MsgBox("未找到指定窗口,检查输入是否正确", 0, "出错")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; SetWindowText hw, Text2.Text '把找到的窗口标题更改为Text2.Textr<br/>End Sub</font></p>
<p><font face="Verdana"></font>&nbsp;</p>

马大哈 发表于 2008-5-31 17:19:55

<p>这个好处是只要知道句柄就可以改,跨进程都可以用.</p>
<p>&nbsp;</p>
<p>SetWindowText的本质貌似就是SendMessage+WM_SETTEXT~~~</p>
页: [1]
查看完整版本: [分享]修改标题名称最简单的修改方法