如何实现VB控制其他程序，比如，做一个程序，调用写字板，用VB程序控制给写字板中写东西，并且保存

Question

如何实现VB控制其他程序，比如，做一个程序，调用写字板，用VB程序控制给写字板中写东西，并且保存，请高手指点

Answer 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 LongPrivate 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 Const WM_PASTE = &H302
Private Const WM_SETTEXT = &HC
    Dim TemphWnd As Long
    Shell "notepad.exe", vbNormalFocus
    TemphWnd = FindWindow("Notepad", vbNullString)
    TemphWnd = FindWindowEx(TemphWnd, 0, "Edit", vbNullString)
    If TemphWnd Then
        
        '把记事本的内容设置为Text1中的文本
        SendMessage TemphWnd, WM_SETTEXT, 0, ByVal CStr(Text1.Text)
        
    End If
    

Answer 2

谢谢,其实是要实现这样一钟效果:比如,我打开了记事本,然后再打开N个程序,比如Word然后,然后打开某个输入方法,我输入zhonggo这个拼音,然后中国,就回自动挑到WORD中去,其实就是用程序来模拟执行人们的一系列Windows操作,再比如, 用程序开始执行后,自动打开QQ并输入密码,然后给我的好友张三发送一段话语:祝你新年快乐,等等,信息.不知道能不能实现呢,请您给我指点