VB6. Пишем загрузчик aka бесконечный триал

  1. Intro

    Не так давно мне понадобилась программулина для какания флуда/спама во всякого рода чатиках. Что мне было нужно, так это чтобы прога имитировала нажатия клавиш Ctrl+V и затем, немного подождав, имитировала нажатие Enter-а. Вбив в Goolge требуемый функционал, я наткнулся на Auto-Keyboard 9.0 (http://www.autokeyboard.com) Весьма порадовали функции:

    Можно было не только имитировать нажатия клавиш, но и тыкать мышкой в нужную часть экрана, работать с текстом, заполнять некоторые формы..НО программа была shareware, и по истечении 15 дней вылезло следующее окошко:

    [​IMG]

    Найти в сети keygen/crack/serial мне не удалось, и я решил покопаться в проге сам. Т.к. в реверсинге я ни черта не соображаю, первое что мне влезло на ум - это удалить за ней следы, чтобы мне опять дали 15 дней на пробное пользование. А т.к.

    ограничений по функциям не было, это показалось мне самой реалистичной идеей. Увы, ничего интересного в логах Regmon-а я не нашел, но возникла слегка странная идея обследовать пациента AppShell-ом И, Evrica!
    Как оказалось, ограничение обходится очень просто: достаточно скрыть окно "Auto-Keyboard 9.0" и разблокировать другое окно, "Untitled - Auto-Keyboard" и ВСЕ! Прога готова к использованию!

    Coding

    Теперь напишем программу, которая выполнит все эти действия автоматически:
    Создадим Новый проект - Standart EXE, далее удалим форму Form1 (т.к. нафиг нам не нужен доп. вес загрузчика:))

    [​IMG]

    Далее создадим новый Модуль1 и введем API-функции:

    Код:
    Private Declare Function PostMessage& Lib "user32" Alias "PostMessageA" (ByVal hwnd&, ByVal message&, ByVal wParam&, ByVal lParam&)
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
    Создадим процедуру Main и напишем в нее код:

    Код:
    Private Sub main()
    On Error GoTo 1 ' переход вниз при ошибке
    Dim a As String 'переменные
    Call Shell("AutoKeyboard.exe", vbNormalFocus) 'запускаем нашу программу
    a = FindWindow(vbNullString, "Auto-Keyboard 9.0") 'ищем окна
    b = FindWindow(vbNullString, "Untitled - Auto-Keyboard") 'ищем окна
    EnableWindow b, 1 ' окно Untitled - Auto-Keyboard разблокируем
    ShowWindow a, 0 ' окно Auto-Keyboard 9.0 скроем
    End
    1:
    MsgBox "Программа должна находиться в одной папке с загрузчиком!", 48
    End
    End Sub
    Ну и в свою процедуру я добавил еще кусочек кода)):

    Код:
    Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
    SetWindowText b, "Auto-Keyboard - unlimited trial by chimati for grabberz.com"
    Теперь компилируем и кидаем полученный экзешник в папку с программой.
    Результат собственно вот:

    [​IMG]

    И без надоедливых окон)
    Собственно, таким простым методом можно "взломать" (если можно это так назвать:eek:) немало программ))

    Скачать Auto-Keyboard 9.0 + загрузчик
    Скачать исходники
     
    5 пользователям это понравилось.
  2. Подобное можно сделать с помощью InqSoft Window Scanner
    К примеру, реггер почт от Tavel так ломался. Окно с приблудой про регистрацию просто убивалось и он продолжал работать)
     
  3. угу)) буду знать) я еще помимо Auto-Keyboard пробовал играться с Batch Rename какой то версией (2.0 что ли, только там keygen нерабочий оказался), только там помимо убития окна еще нужно было ключ из реестра удалить

    некоторые возможности этой софтины есть в исходниках (на том же vb6 легко можно найти)

    помешался я по ходу на vb:eek:
     
  4. столкнулись с проблемой Auto-Keyboard 9.0. Chimatii огромная просьба скинь загрузчик на почту [email protected]
     
  5. перезалил файлы, обновил ссылки + добавил сам лоадер во вложения, на случай, если слил.ру опять удалит файлы. качаем)
     
  6. chimatii smojesh vistovit file na ska4ku zanavo ato zalil.ru sterli :/
    o4en nujno :)
    sposiba ;)
     
  7. Как им пользоваться парни плиз подскажите,а то я никак разобраться не огу...