我的程序要发送文本信息到另一个程序的text控件上？

Question

比如我要做个软件，点一下按钮，就在IE地址栏上自动写上www.csdn.net

Answer 1

FindWindow
EnumChildWindows
SetWindowText

Answer 2

Const WM_USER = 1024
  Dim hwndCalc, bb, cc As Long
  hwndCalc = FindWindow(0&, "集成系统")
  
  
  If hwndCalc > 0 Then
  
    
   
    bb = FindWindowEx(hwndCalc, ByVal 0&, "ThunderRT6TextBox", vbNullString)
     
    If bb <> 0 Then
     
      SendMessage bb, WM_SETTEXT, 0, ByVal "要发的字符串"
      bb = FindWindowEx(hwndCalc, ByVal 0&, "ThunderRT6CommandButton", "接收")
      If bb <> 0 Then
        SendMessage bb, BM_CLICK, 0, ByVal 0&
        
      End If
      
      
    End If
 end if