Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> запуск exe из бэйсика, возможно ли? 
:(
    Опции темы
Pugach
Дата 25.2.2007, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1
Здраствуйте.
Вопрос следующий:
Есть программа .exe 
запускается типа под досом, работать в ней нужно в диалоговом режиме (вводить цифры).

Возможно ли запускать ее програмно, и вводить туда данные скажем из textbox?
 
Как? 

Заранее спс.
PM MAIL   Вверх
bom
Дата 25.2.2007, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
Возможно.
Например, с помощью Shell и SendKeys.
PM MAIL   Вверх
Pugach
Дата 26.2.2007, 19:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1
Посмотрю надосуге спасибо
PM MAIL   Вверх
bom
Дата 1.3.2007, 19:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
надо только фокус предварительно на ее окно установить.

Это сообщение отредактировал(а) bom - 1.3.2007, 19:58
PM MAIL   Вверх
Kirill89
Дата 1.3.2007, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 501
Регистрация: 17.10.2006
Где: Питер

Репутация: 3
Всего: 4
А что за программа? Может можно просто передать ей параметр?


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
abalich
Дата 4.3.2007, 03:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 434
Регистрация: 26.2.2007
Где: Воронеж

Репутация: нет
Всего: нет
Код

Private Sub Command1_Click()
Shell "C:\и т.д\имя.exe", vbMaximizedFocus
'vbMaximizedFocus размер открываемого окна
'если надо открыть директорию
Shell "explorer C:\", vbNormalFocus
End Sub



--------------------
Мой дядя самых честных "грабил"...
PM MAIL WWW   Вверх
Pugach
Дата 5.3.2007, 20:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1
Спасибо, Shell работает, а вот sendkeys не получается:

Private Sub Command1_Click()
 
  Shell "f:\program files\Работа\progs\ldxxx\gsmkw.exe", vbNormalFocus
  SendKeys "d13510", wait

End Sub

' d13510 - надо ввести

Есть у кого-нибуть ссылки на ресурс, где подробно описаны все операторы и функции?
А то чувствую что такую ерунду спрашиваю, но про sendkeys больше ничего не нашел.

Это сообщение отредактировал(а) Pugach - 5.3.2007, 21:01
PM MAIL   Вверх
bom
Дата 6.3.2007, 00:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
Код

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Shell "cmd.exe", vbNormalFocus
Sleep 500
SendKeys "d", True
SendKeys "1", True
SendKeys "3", True
SendKeys "5", True
SendKeys "1", True
SendKeys "0", True
End Sub
PM MAIL   Вверх
Pugach
Дата 6.3.2007, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1
Код

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
 Shell "f:\program files\ðàáîòà\progs\ldxxx\gsmkw.exe", vbNormalFocus
 Sleep 5000
 SendKeys "d", True
 SendKeys "1", True
 SendKeys "3", True
 SendKeys "5", True
 SendKeys "1", True
 SendKeys "0", True
End Sub


Прога запускается, но вместо нужных символов там происходит следующее:

\
\
\
\
\

вот
PM MAIL   Вверх
Akina
Дата 6.3.2007, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(MSDN)

Note   You can't use SendKeys to send keystrokes to an application that is not designed to run in Microsoft Windows. Sendkeys also can't send the PRINT SCREEN key {PRTSC} to any application.

Так что ДОС-приложению SendKeys ну никак не получится - его получает окно командного процессора... однако можно вывернуться так: поместить необходимую текстовую строку в буфер обмена и инициировать Paste метод окна.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Pugach
Дата 6.3.2007, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1
Как инициировать Paste метод окна?

нашел несколько топиков на эту тему, но нигде нет окончательного результата.
Давайте не будем плодить неоконченных тем  smile . Помогите написать окончательный результат smile  
PM MAIL   Вверх
Akina
Дата 6.3.2007, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Pugach @  6.3.2007,  20:45 Найти цитируемый пост)
Как инициировать Paste метод окна?

Мамма миа! SendKeys "Ctrl-V" 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Pugach
Дата 6.3.2007, 23:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1
Ну хоть убейте не понимаю я:
Цитата(Akina @  6.3.2007,  12:47 Найти цитируемый пост)
поместить необходимую текстовую строку в буфер обмена и инициировать Paste метод окна.


Есть переменная 
txt="123"
как ее туда засунуть?!? smile 
PM MAIL   Вверх
bom
Дата 7.3.2007, 01:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
как ее засунуть в него smile
PM MAIL   Вверх
Dred
Дата 7.3.2007, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 6.1.2007

Репутация: нет
Всего: нет
А как все введеное потом применить?
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1173 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.