VPF::запуск exe из бэйсика - Форум программистов

Pugach

Дата 7.3.2007, 20:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Вот код. Информация в буфер копируется, но в окно не вставляется.
вместо текста - \

Код


Dim Txt As String
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
 Txt = "d13510"
 Clipboard.Clear
 Clipboard.SetText Txt, vbCFText
 Shell "f:\program files\ðàáîòà\progs\ldxxx\gsmkw.exe", vbNormalFocus
 Sleep 3000
 SendKeys (Ctrl - V)
End Sub

Еще вопросик, что означает vbCFText ?

bom

Дата 7.3.2007, 20:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Попробуй инициировать нажатия нужных клавиш с помощью keybd_event из user32.dll

Note: ищем описание вышеуказанной АПИ функции и примеры работы с ней в MSDN или других местах, АКА Гугл.

Pugach

Дата 10.3.2007, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Нашел хорошую ссылочку, кому надо.
Сам пока еще разбираюсь.
Подробно расписано использование keybd_event

Pugach

Дата 10.3.2007, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Ура! получилось.

Код


Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal cChar As Byte) As Integer
Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function OemKeyScan Lib "user32" (ByVal wOemChar As Integer) As Long
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2

Public Sub SendMyKey(ByVal c$)
    Dim vk%, scan%, oemchar$
    vk% = VkKeyScan(Asc(c$)) And &HFF
    oemchar$ = " " 
    CharToOem Left$(c$, 1), oemchar$
    scan% = OemKeyScan(Asc(oemchar$)) And &HFF
    keybd_event vk%, scan%, 0, 0
    keybd_event vk%, scan%, KEYEVENTF_KEYUP, 0
End Sub

Private Sub Command1_Click()
   Shell "f:\program files\ðàáîòà\progs\ldxxx\gsmkw.exe", vbNormalFocus
   Sleep 3000
   Call SendMyKey("t")
End Sub

Прога прописывает букву "t" в окне под досом.

Только Ентер не получается нажать. Пытался так:
1ый вар.
keybd_event &HD, 0, 0, 0
keybd_event &HD, 0, KEYEVENTF_KEYUP, 0
2ой вар.
Call SendMyKey(chr(13))
Помогите!

Это сообщение отредактировал(а) Pugach - 11.3.2007, 20:49

Pugach

Дата 13.3.2007, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Извините за назойливость, но с Enter - беда. Где только не искал. Не получается

bom

Дата 14.3.2007, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Код


                  keybd_event 13, 0, 0, 0  ' нажимаем enter
                  keybd_event 13, 0, 38, 0  ' отпускаем enter

Pugach

Дата 14.3.2007, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Не нажимается smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »