|
|
发表于 2013-2-3 07:42:36
|
显示全部楼层
来自: 中国辽宁
- Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long3 [. E$ p# N9 C6 |7 W9 i
- Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long7 d: J" Q* r- T8 _7 I3 T
3 a( s3 e$ b- D; [9 T) \- Sub MT()
, ?; k0 }! Y+ D - SetWindowText FindWindow("OpusApp", vbNullString), "改着玩玩"
1 M. d8 S2 N! S Q3 P) P - End Sub
复制代码 |
|