Программное заполнение текстового поля другой программы
Кто-нибудь знает как можно программно скопировать текст из текстового поля в моей программе в текстовое поле другой программы?
Всем привет!
Кто-нибудь знает как можно программно скопировать текст из текстового поля в моей программе в текстовое поле другой программы?
Вот если бы обе программы были твои тогда можно:
Небольшой пример использования DDE. DDE - это механизм для обмена данными между приложениями.
Создайте 2 проекта (с именами "Project1" и "Project2"). В первом проекте у формы установить свойства LinkTopic="SYSTEM" и LinkMode=1. Добавьте на форму Label и установите свойство LinkItem="DDE".
Во втором проекте добавьте TextBox и CommandButon (имена не изменяйте).
Добавьте в проекты расположенный ниже код.
Запустите первый проект (сервер DDE), затем второй (клиент DDE). Нажмите на кнопку - в TextBox на форме первого проекта появится строка, переданная из второго проекта.
'Код первого проекта
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
MsgBox "Received " & CmdStr, vbInformation
Cancel = False
End Sub
'Код второго проекта
Private Sub Command1_Click()
Text1.LinkMode = vbLinkNone
Text1.LinkTopic = "Project1|SYSTEM"
Text1.LinkItem = "DDE"
Text1.LinkMode = vbLinkManual
Text1.LinkExecute "Hello World"
End Sub
а вот с другой програмой незнаю..
Это очень полезная для меня информация. Теперь буду знать.
Однако мне нужно копировать содержимое текстового поля в чужую программу. Ведь с помощью API можно скопировать содержимое текстового поля чужой программы, думаю как-то можно и наоборот сделать.
http://visualbasic.km.ru/downloads/windows.html
может чнонибудь есть, сам не смотрел
Конечно, полезные вещи там есть, но ничего того из чего я мог был извлечь решение моей проблемы я там не нашел. Жаль
Я бы на твоём месте попробовал WinAPI:
Делаем необходимые декларации:
Declare Function FindWindowA Lib "user32" (ByVal ClassName As String, ByVal WindowName As String) As Long
Declare Function FindWindowExA Lib "user32" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal Name As String, ByVal Class As String) As Long
Declare Function SetWindowTextA Lib "user32" (ByVal hwnd As Long, ByVal lpString As String) As Long
Declare Function GetWindowTextA Lib "user32"(ByVal hwnd As Long, ByVal Text As String, ByVal cch As Long) As Long
И, непосредственно код:
Dim hwndWnd as Long
Dim hwndTextBox as Long
hwndWnd = FindWindowA("<Имя окошка, содержащего текстбокс>", vbNull)
hwndTextBox = FindWindowExA(hwndWnd, 0, "Имя тектбокса", vbNull)
Dim str as String * 255
GetWindowTextA <ТвойТексбокс>.hWnd, str, 255
SetWindowsTextA hwndTextBox, str
Всё! По крайней мере, в шестом Бейсике это работает. Имя основного окна - это его заголовок, а имя текстбокса обычно совпадает с текстом, написанным в нём.
..............
GetWindowTextA <ТвойТексбокс>.hWnd, str, 255
SetWindowsTextA hwndTextBox, str
...............
кстати, да, гдето я такой код уже встречал...
http://www.dotfix.net/module.php?module=@6e786b366a6a70736a6a5f6d725e6c646268676227