[Creat0R]

Всем привет!

Подскажите пожалуйста, можно ли имитировать зажатие двух клавиш (ctrl shift), но чтобы они оставались зажатыми до тех пор, пока не будет закрыт определённый процесс в системе?

А ещё лучше, чтобы они оставались зажатыми до тех пор, пока заданное окно программы (не мсдос, а обычная прога, точнее браузер opera) будет активным, и как только оно не активно, эти клавиши как бы будут отжиматься, а скрипт как бы будет уходит в спячку до тех пор, пока опять не активируется то самое окно проги - И этот цыкл пусть будет пока в системе висит определённый процесс (opera.exe), как только процесс закрывается, скрипт пусть завершает свою работу.

[ANDLL]

Да, написать можно.
За тебя писать никто не будет.
Никрофилия(поднятие старых топиков) на этом форуме иногда поощрается предупреждениями.
Если что непонятно - разбей на НОРМАЛЬНЫЕ вопросы и задавай... В НОВЫХ темах...

[Creat0R]

ANDLL
А что значит Нормальные вопросы? разве я задал не нормальный вопрос? или имеется ввиду писать на каждую функцию отдельный вопрос (и также новую тему на него)?

[GSerg]

Creat0R
А правда было непонятно, что та тема не имеет никакого отношения к твоему вопросу?
Отделяю. Первый и, надеюсь, последний раз.

[Creat0R]

GSerg

А правда было непонятно, что та тема не имеет никакого отношения к твоему вопросу?

Я действительно не обратил внимания (что та тема именно по вопросу касающимуся dos'а) - Тогда извините, погаречился

Первый и, надеюсь, последний раз.

Спасибо, буду стараться быстро адаптироваться к форуму!

[neic]

Юзай виртуальные клавиши (VK)

Shift - Private(Public) Const VK_SHIFT As Long = &H10
Ctrl(L) - Private(Public) Const VK_LCONTROL As Long = &HA2

В коде (например Button1) пишешь:

Код: Выделить всё

keybd_event VK_SHIFT, 0, 0, 0 'зажимаем клавишу
keybd_event VK_SHIFT, 0, KEYEVENTF_KEYUP, 0 'отжимаем клавишу

Дальше сам догодаешься?

[Creat0R]

neic

Дальше сам догодаешься?

Не совсем не получается у меня .

Как я понял, нажатие клавиш, должно быть в каком то цикле, и также в этом цикле нужно поставить проверку существования процесса, и если существует, то выходить из цикла... а после цикла поставить отжатие этих клавишь... хм.. в теории довольно просто, но на практике не получается, я про vbs, знаю столько-же, сколько учёный про любовь...

Я пробовал так (но это ооочень далеко от правильности):

Код: Выделить всё

var = 0
Do
Shift - Private(Public) Const VK_SHIFT As Long = &H10
Ctrl(L) Private(Public) Const VK_LCONTROL = &HA2
keybd_event VK_CTRL, 0, 0, 0
keybd_event VK_SHIFT, 0, 0, 0
if ProcessExists("process.exe") Then
var=1
EndIf
Until var = 1
keybd_event VK_SHIFT, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_CTRL, 0, KEYEVENTF_KEYUP, 0

Кстати, мне нужно чтобы это всё произошло не при нажатии кнопки, а просто после запуска скрипта.

[Хакер]

Вот так вот Научишь одного, а он научит другого... И таким образом обучается подпольное сообщество программистов

[neic]

Creat0R

Код: Выделить всё

Private Const VK_LCONTROL = &HA2
Private Const VK_SHIFT As Long = &H10
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 Timer1_Timer()
if ProcessExists("process.exe") Then
keybd_event VK_LCONTROL, 0, 0, 0
keybd_event VK_SHIFT, 0, 0, 0
Else
keybd_event VK_SHIFT, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0
End If
End Sub
__________________________________


Вот, так вот!

Хакер
Надо пользоваться тем, что научился

[Creat0R]

neic
Я записал код который ты привёл в своём посте, в файл vbs, и когда запустил его, мне выдалось следующее сообщение:



Как исправить? я пытался убирать слова после знаков ровно (=), но другие ошибки стали всплывать.. что я не так делаю?

[Oxygen]

2Creat0R А ты вообще понимаешь различие между VisualBasic и VBScript? Код предложенный здесь предназначен для Visual Basic. Из этого и делай выводы.

[Creat0R]

2Creat0R А ты вообще понимаешь различие между VisualBasic и VBScript? Код предложенный здесь предназначен для Visual Basic. Из этого и делай выводы.

Хм.. ну если честно, я действительно думал что Visual Basic это тоже что и VBScript - Ведь асоциативно совпадают первые две буквы V и B, а скрипт это типа дополнения...

Тогда вопрос такой, а как пользоваться Visual Basic? т.е как запускать скрипт чтобы он сработал? нужно ставить какие-то внешние программы (компиляторы?), или можно средствами виндоус? - Направьте плиз заблудшего на путь верный, ибо сошёл я с него (или не наступал на него никогда )

[Oxygen]

VB и VBScipt это несколько разные вещи. Имеют они схожий синтаксис. Разумеется нужна среда, которая включает в себя компилятор. И средствами Windows ты здесь никак не обойдешься. Идешь в магазин, покупаешь диск с Visual Basic 6. Устанавливаешь его. Там создаешь новый проект и добавляешь на него таймер. Открываешь просмотр кода. И вставляешь туда нужный тебе код. Это если вобщем.

[Kovu]

Ну ещё можно

Код: Выделить всё

rundll32 user32,keybd_event , 16, 0, 0, 0


Запустить как обычную программу.

[ANDLL]

2Creat0R: Запусти программу winword, нажми Alt+F11... Вот тебе Visual Basic.. Ну не VB6 конечно, но тебе для начала хватит... Я именно на этом учился программировать первые полгода наверное

[tyomitch]

Ну ещё можно

Код: Выделить всё

rundll32 user32,keybd_event , 16, 0, 0, 0


Запустить как обычную программу.

Ничего подобного: так нельзя.
См. http://blogs.msdn.com/oldnewthing/archi ... 58973.aspx

[Creat0R]

ANDLL

Запусти программу winword, нажми Alt+F11... Вот тебе Visual Basic..

Спасибо на совете, но у меня нет возможности на данный момент установить ворд (мало места на диске), может быть есть альтернативы?

[Хакер]

Creat0R.
- Хм... а я думал что мотоцикл и автомобиль одно и тоже.
- Мотоцикл и автомобиль это несколько разные вещи. Оба работают на бензине. Идёшь в автомагазин и покупаешь себе машину.
- Ну можно ещё ходить пешком.
- Сходи автопрокат. Вот тебе и машина. Не собственная конечно. Но для начала хватит.
- [Цитата: - Ну можно ещё ходить пешком. ] Ничего подобного.
- [Цитата: - Сходи автопрокат. ] Спасибо на совете. Но у меня и прав то нет. Есть какая нибудь альтернатива?