[此贴子已经被作者于2007-4-25 22:07:15编辑过]

老兄 是病毒呀 咋还能让用户输入 ！！！！！！ 这个程序是用来搞破坏的 不是聊天辅助工具

终于让我弄懂了.
谢谢楼主!

怎么变成红色Private Declare GetForegroundWindow Lib "user32" () As Long
Private Declare GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare 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 sendmessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare SetFocuss Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long不转折点十分有错误联系Q289589578我想拜你为师