Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
eldar22
-
- Обычный пользователь
-
-
- Сообщения: 91
- Зарегистрирован: 09.09.2008 (Вт) 18:11
eldar22 » 02.05.2010 (Вс) 20:53
Здравствуйте
- Код: Выделить всё
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
Dim ReturnValue, i
ReturnValue = Shell("notepad.exe", 1)
AppActivate ReturnValue
Const VK_ALT = 101
keybd_event VK_ALT, 0, 0, 0 ' press Alt
End Sub
По нажатие кнопки программа открывает блокнот и вводит цифру 5.
А как сделать чтобы можно было открыть текстовый файл зная его путь (D:\1.txt)
-
eldar22
-
- Обычный пользователь
-
-
- Сообщения: 91
- Зарегистрирован: 09.09.2008 (Вт) 18:11
eldar22 » 03.05.2010 (Пн) 10:46
Пример чтобы открыть exe файл
- Код: Выделить всё
Private Sub Command1_Click()
Dim ReturnValue, i
ReturnValue = Shell("d:/1.exe", 1) ' Run Calculator.
AppActivate ReturnValue ' Activate the Calculator.
Const VK_5 = 101
Const VK_alt = 107
Const VK_al = 187
keybd_event VK_5, 0, 0, 0 ' press 5
keybd_event VK_alt, 0, 0, 0 ' press +
keybd_event VK_5, 0, 0, 0 ' press 5
keybd_event VK_al, 0, 0, 0 ' press =
End Sub
Debugger Спасибо!
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot и гости: 108
