Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Виртуальная клавиатура Добавлено: 12.03.07 13:26  

Автор вопроса:  WFS2007
Как в ВБ эмулировать нажатие клавиши на клавиатуре?

Ответить

  Ответы Всего ответов: 11  

Номер ответа: 1
Автор ответа:
 Dark



Вопросов: 4
Ответов: 41
 Профиль | | #1 Добавлено: 12.03.07 14:07
SendKeys Ctrl as String, [Wait as Boolean]

Для передачи фокуса используй
AppActivate Title as String, [Wait as Boolean]

Пример:

Private Sub Command1_Click()
ret=Shell("calc.exe", vbNormalFocus)
AppActivate "Калькулятор", False
SendKeys "1{+}2=^C%{F4}", True
Text1.Text=Clipboard.GetText()
End Sub

Ответить

Номер ответа: 2
Автор ответа:
 WFS2007



Вопросов: 2
Ответов: 6
 Профиль | | #2 Добавлено: 12.03.07 14:33
спасибо!

Ответить

Номер ответа: 3
Автор ответа:
 WFS2007



Вопросов: 2
Ответов: 6
 Профиль | | #3 Добавлено: 12.03.07 14:43
А где можно взять таблицу символов для различных клавиш типа Alt в примере? Например, стрелочки, ВВОД и тд

Ответить

Номер ответа: 4
Автор ответа:
 WFS2007



Вопросов: 2
Ответов: 6
 Профиль | | #4 Добавлено: 12.03.07 14:49
Путем недолгого анализа выяснилось, что клавиши Alt в примере напрямую не было... Как формируются команды типа Стрл+С или Альт+Ф4? Имеются в виду принципы формирования подобных команд.

Ответить

Номер ответа: 5
Автор ответа:
 WFS2007



Вопросов: 2
Ответов: 6
 Профиль | | #5 Добавлено: 12.03.07 15:10
И еще вопрос: Калькулятор является одиночным ехе-шником, а вот та прога, что я запускаю, работает еще с парой библиотек и при запуске вышеуказанным образом эти файлы не находит. Почему?? При запуске мышкой :) работает нормально

Ответить

Номер ответа: 6
Автор ответа:
 WFS2007



Вопросов: 2
Ответов: 6
 Профиль | | #6 Добавлено: 12.03.07 15:14
Вопрос решился сам собой... Вроде... Поместил ехе-шник в папку с программой... Однако вопрос остается открытым - как при запуске командой Shell указать рабочую папку запускаемой программы?

Ответить

Номер ответа: 7
Автор ответа:
 Dark



Вопросов: 4
Ответов: 41
 Профиль | | #7 Добавлено: 12.03.07 17:07
************************
*Клавиша * Обозначение *
************************
* A * A *
* B * B *
* C * C *
* ... * ... *
* a * a *
* b * b *
* c * c *
* ... * ... *
* F1 * {F1} *
* F2 * {F2} *
* F3 * {F3} *
* ... * ... *
* Enter * {Enter} *
* Esc * {Esc} *
* Ctrl * ^ *
* Shift * + *
* * *
* * *
* * *
* * *
************************
Alt-не знаю :(.
Попробуй не Shell, а API:

Private Declare Sub WinExec Lib "kernel32" _
(ByVal lpCmdLine As String, ByVal nCmdShow As Long)
WinExec App.Path & "\" & App.EXEName & ".exe", 0

Ответить

Номер ответа: 8
Автор ответа:
 Dark



Вопросов: 4
Ответов: 41
 Профиль | | #8 Добавлено: 12.03.07 17:11
Попробуй так:

Shel "cd " & path

Ответить

Номер ответа: 9
Автор ответа:
 Dark



Вопросов: 4
Ответов: 41
 Профиль | | #9 Добавлено: 12.03.07 17:11
Попробуй так:

Shell "cd " & path

Ответить

Номер ответа: 10
Автор ответа:
 Dark



Вопросов: 4
Ответов: 41
 Профиль | | #10 Добавлено: 12.03.07 17:11
Попробуй так:

Shell "cd " & path

Ответить

Номер ответа: 11
Автор ответа:
 fwh



Вопросов: 1
Ответов: 2
 Профиль | | #11 Добавлено: 12.03.07 23:01
Ой СПАСИБО!!!

Хороший форум!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам