android qq 禁用字体,手机qq我发的消息是系统字体,别人发的消息确实其他的字体,怎样设置...

'新建一个abc.txt文件并打开，测试正常Option Explicit

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32 " Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const WM_SETTEXT = &HC

Private Sub Command1_Click()

Dim s As String, myhwnd As Long

s = Text1

myhwnd = FindWindow(vbNullString, "abc.txt - 记事本")

myhwnd = FindWindowEx(myhwnd, 0&, "Edit", vbNullString) '控件名用spy++查看，这里是Edit，特定的软件控件名都是固定的

If myhwnd = 0 Then

MsgBox "!!"

Exit Sub

End If

SendMessage myhwnd, WM_SETTEXT, 0, ByVal s

End Sub

取消

评论