VB6.0在记事本里输出文字

来源：百度知道 编辑：UC知道 时间：2024/09/20 23:17:13
点击command会在记事本里输出一段文字
比如在桌面上有记事本和我要做的这个程序，点击我要做的程序上的command，就会在记事本里输出 “你好啊” 这几个字.....
不知道好做不好做，先谢谢了....

用API函数完美实现！

Private Const SW_SHOWNORMAL As Long = 1
Private Const WM_SETTEXT As Long = &HC

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindowEx Lib "user32.dll" 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.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
Shell "notepad"

Dim hNotePad As Long, hTextBox As Long
hNotePad = FindWindow("Notepad", vbNullString)
hTextBox = Fi