Почта отправлена";

//Почта отправлена - OK!

?>



(Строка оранжевого цвета должна быть записана без переносов.)

Обратите внимание, как легко включить в текст письма линки. Если включить в текст письма тэги, используемые в HTML-страницах, то можно отправлять письмо в формате web-страницы. И там можно размещать и банеры и счетчики, и линки с безусловным переходом и iframe. Все-таки, большинство использует web-интерфейс для почты, а Вам это, в данном случае, очень выгодно.


18.   Как использовать чужие счетчики.

Зайдите на http://top.mail.ru  и в нужном разделе (например, Авто) посмотрите, статистика какого сайта из ТОР-вых, не запаролена. Зайдите в статистику, посмотрите, с каких поисковых систем или из каких каталогов приходит наибольшее количество посетителей. Регистрируйтесь там же.

Или вот вообще почти анекдот – на несколько web-страниц, созданных для раскрутки форума, был установлен счетчик List.ru (та его часть, которая показывает статистику) с другого сайта, имеющего очень большой рейтинг. Интересно было потом в форуме прочитать восторженные записи о большой посещаемости. Т.е. значительная часть посетителей НЕ ПРОВЕРЯЕТ, чей счетчик реально стоит на странице.

19.   Как размещать свои страницы на своих сайтах.

Как бы ничего сложного в этом нет. Однако, некоторые поисковые системы и каталоги (западные, чаще всего) требуют, чтобы при регистрации сайтов адрес был указан с символом   "/"   в конце адреса. Поэтому, для каждой страницы лучше делать отдельный каталог, страницы делать с именем index.htm или index.html.

Дополнительно для версии 6 руководства. Точно ак же можно использовать размещение имиджей для сайта. Если у Вас на сайте есть красивые картинки или фото, то лучше всего разместить их в разных каталогах. Файлы имиджей следует назвать словами, наиболее часто встречающимися в запросах поисковых систем. Например – mp3, free, soft, download, girl, photo, gallery и т.д. Размещение в различных каталогах позволит вам несколько разных фото анонсировать в поисковые системы с одним и тем же именем.

        

Можно сделать баннер на свои собственные страницы

   http://barbie-moscow.narod.ru/

20.   Серфинг-системы. Только не делайте на них ставку.

Так называемые, системы обмена траффиком, IP-адресами или посетителями - серфинг-системы.


Делятся, по-крупному, на системы, поддерживающие авто-серфинг и системы с ручным серфингом.

Дополнительно, можно в некоторых системах привлекать реферралов, т.е. строить пирамиду.

Позволяют быстро анонсировать свои страницы некоторому ограниченному (по количеству) кругу таких же "халявщиков". Бескорыстные и наивные пользователи в такие системы не заходят - незачем.

Системы серфинга позволяют быстро "поднять" свой счетчик, что может быть хорошо для демонстрации шефу (если Вы ответственный за продвижение сайта фирмы),  показа банеров (пока банерная система не обратила на Вас внимание). Требует участия в серфинге ежедневно. Реферралов привлекать трудно - нужно много времени и труда для кропотливой работы.

Из удобных систем серфинга:

www.neosap.com  - удобный интерфейс, возможность выбора ручной/автосерфинг, хороший список настройки параметров серфинга, можно рекламировать сразу несколько страниц. Недостаток - не самый большой список участников.

http://www.autoraskrutka.ru/  - все то же самое.

http://www.autohits.dk   - англоязычная система, но работает и с русскоязычными сайтами. Позволяет крутить одновременно только одну страницу. Очень много зарегистрированных пользователей. Если вы несколько недель не запускаете систему серфинга, ваш аккаунт блокируется. Недостатком системы является то, что в статистике счетчиков четко  прописывается адрес "раскрутчика" www.autohits.dk

21.   Хостинг одной страницы.

Если дисковое пространство в Вашем распоряжении велико, эксплуатируйте его чужими руками. Разыщите на бесплатных хостингах интересные web-сайты. Предложите разместить их Index страницы в отдельном каталоге на Вашем сервере (все остальные страницы, картинки и т.д. можно и не переносить. Просто указать абсолютные адреса их загрузки с прежнего адреса). Предложите авторам совместно рекламировать первую страницу.

Ваше предложение может быть интересно тем, чьи сайты имеют очень длинные имена, медленный доступ (chat.ru , nm.ru, tam.ru) или не имеют некоторых сервисов (например, PHP или Perl).


Имея несколько таких карманных проектов, можно легко "перекачивать" траффик.

Если авторы вырастут до самостоятельного платного хостинга, Вы ничего не потеряете. В поисковых системах еще долго будут стоять ссылки на Ваши каталоги. Разместив там свои страницы, скрипты пересылки или файл . htaccess , Вы легко "приручите" поток пользователей. Таким приемом очень часто пользуются. На бесплатном хостинге  NM.RU часто удаляют страницы пользователей и делают пересылку на страницу обработки 404 ошибки. Количество показов банеров на этой странице огромно.

Дополнительно для версии руководства 6. Если вы размещаете на своем домене страницы с тематикой, не совпадающей с тематикой или дизайном своего сайта, то лучше всего при этом создавать поддомены на своем сайте.

Например, для сайта http://www.oflameron.com – поддомен http://delphi.oflameron.com

В таком варианте их значительно выгоднее прописывать в поисковиках и каталогах.

22.   Как снять сливки с каждого линка своей страницы

Если у Вас есть страницы с большим количеством линков (каталог линков), то каждый переход  посетителя по линку может "поднимать" Ваш счетчик, показывать банер.

Для этого нужно использовать следующий PHP скрипт, размещенный в файле load.php

Пример:






print "\n";

print "\n";

print "\n";

print "\n";

?>






( Строки оранжевого цвета должны быть записаны без переносов.) Пример записан в архиве в файл

load.php

И так же создайте файл left.htm , в котором разместите необходимую для "прокручивания" информацию - счетчик, банер.

















.

.

.

.







Если Вы разместите файлы load.php и left.htm , к примеру, в каталоге

http://www.lolik.ru/load/

то линки на Ваших страницах надо переписать ввиде:

Было    - Mp3-Search

Новый  - Скачай игры

Это только базовый вариант.

Неплохо бы спрятать собственно пустой файл left.htm от любопытных глаз.

23.   Классический скрипт для “накрутки” посещений

                Вариант скрипта на Perl. Найден где-то в Internet без указания авторства.  Приводится без изменений.

КЛИКЕР - скрипт для имитации посещений web-сайтов.

КЛИКЕР - Perl-скрипт для имитации посещений web-сайтов. Данное руководство позволит Вам создать и использовать свою программу для web-серфинга. Для этого Вам понадобится установить на машине web-сервер, например Apache. И использовать список анонимных прокси-серверов.

Для написания самого скрипта рекомендуется использовать PerlBuilder. Это довольно удобная софтина, которая умеет выделять программу цветом, проверять синтаксис и многие другие вещи. Найти ее можно где-то на листсофте, (www.listsoft.ru), а регистрашку к ней - на асталависте (www.astalavista.box.sk).


Чтобы PerlBuilder нормально понимал русский, в каталоге windows найди файл "pbuilder.ini". В нем есть строчка: "Font Face=Courier New". Замените ее на "Font Face=Courier New Cyr" и перезапустите PerlBuilder.

Первая строка скрипта - это путь к перлу на шелле. Чаще всего это:

#!/usr/bin/perl.

Потом к скрипту подключаем дополнительные модули:

use HTTP::Request::Common;

require LWP::UserAgent;

Инициализируем генератор случайных чисел и уменьшим буфер до единицы:

srand($$ & time ^ $$);

$|=1;

Теперь откроем файл, в котором хранится список твоих проксей:

open(PROXY, "proxy.lst");

@proxies=;

chomp(@proxies);

close(PROXY);

Все адреса проксей должны храниться в текстовом файле с именем "proxy.lst". В следующем формате:

адрес.сервера:порт

адрес.сервера:порт

Инициализируем переменную "$suc", а в "$pr" записываем адрес прокси, случайно выбранного из всего списка.

$suc=1;

$pr = splice(@proxies, int rand @proxies, 1);

Теперь самое интересное. Создадим виртуальный браузер, который будет заходить по ссылке, тем самым кликая по баннеру. Этот скрипт будет изображать собой IE5 и Windows98.

$ua = new LWP::UserAgent;

$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");

$ua->timeout(60);

$ua->proxy('http',"http://".$pr);

print "Try... $pr ";

Браузер готов, теперь - заголовок, который браузер передаст серверу.

$h1 = new HTTP::Headers

Accept => 'application/vnd.ms-excel, application/msword, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-comet, */*',

User_Agent => 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)',

Referer => 'http://www.xakep.ru/default.asp';

Замените "http://www.nnm.ru/ " на адрес своей страницы, на которой висит кнопка топа. Настало время делать запрос:

$req1 = new HTTP::Request ('GET', 'http://fomenko.ru/cgi-bin/top/lspro.cgi?click=номер', $h1);

$response=$ua->request($req1);

$suc=$response->is_success;

Делаете запрос к серверу и получаете от него ответ. Слово "номер" замени на свой номер, который тебе выдали при регистрации.

Теперь надо обработать результат, и если все прошло нормально, записать его в файл "click.log"

($suc) || print $response->code;

if ($suc) {

open(FH,">>click.log");

print FH $pr."\n";

close FH;

};

($suc) && print "+";

И завершить работу скрипта

exit;

Вот и весь текст скрипта. Не правда ли, все просто? Самое важное - найти место, где разместить свой скрипт и получить доступ к Shell.

Установка

Как определить, есть ли на твоем шелле возможность запустить кликер или нет? Кликер запускается с помощью программки "cron". Это своеобразный аналог Планировщика из виндов. Указываете  программу, которую надо запускать, и устанавливаете время. Для создания задания необходимо будет создать файл в формате "crontab" (Unix-команда для периодического выполнения программ).

Допустим, Вы решили, что скрипт должен запускаться через каждые 20 минут, начиная с полуночи. Для этого надо написать:

0, 20, 40, * * * * clicker.pl

Где "clicker.pl" - имя твоего кликера.

Если у Вас не доступа к  Shell, то можно попробовать вызывать скрипт каждый раз, когда на Вашу страничку заходит посетитель. Но для этого Ваш хостинг должен поддерживать perl и ssi. Изменим чуть-чуть наш скрипт. Для этого после строки:

#!/usr/bin/perl

добавьте:

print "Content-type: text/html\n\n";

И в html файл своей странички добавьте ssi команду вызова скрипта:

[an error occurred while processing this directive]

Предварительно скопировав "clicker.pl" в каталог "cgi-bin" и установив права доступа к файлу командой "chmod 755".

Итого:

Совершенно реальный и работоспособный скрипт. Найти список прокси-серверов можно на любом из поисковиков.

24.   Маленькая личная рассылка.

                Если у Вас есть хостинг с поддержкой PHP и отправка почты разрешена, то можно сделать маленькую рассылку информации по списку адресов. При каждом посещении страницы с Вашего сервера будет отправляться одно письмо по адресу, взятому из файла со списком адресов.

Полный листинг скрипта на PHP








      //Прочитать список адресов подписчиков

      $filename="mailbaza.txt";

      //Читать файл

      $fp = @fopen($filename,"r");

      if ($fp) {

      $rew =@File($filename);

          @fclose($fp);

      } else {

      }

      $sendaddr = $rew[0]; //Первый e-mail из списка зпомнить

      $r = Count($rew); //Количество строк с адресами


      $r--; //Уменьшить число записей на 1

      //Записать в тот же файл mailbaza.txt, но на 1 адрес меньше

      $fp = fopen($filename,"w");

      if ($fp) {

        for ($j = 1; $j < $r; $j++) {

          fputs($fp,$rew[$j]);

        }

          fclose($fp);

      }

 

       //Отправить сообщение подписчику

       $subject = "Руководство по Раскрутке Web-Сайтов";

       $message = "Здравствуйте!\n";

       mail($sendaddr,$subject,$message,"From: webmaster@$SERVER_NAME\nX-Mailer: PHP/" . phpversion());

?>



Пример записан в файле mail-submitter.php

E- mail адреса должны быть записаны в файл mailbaza.txt в следующем виде:

primer@yahoo.com

text@yahoo.com

hello@mail.ru

new@tr.ru

и т.д.

Однако некоторые бесплатные хостинги уже ограничили отправку почты с web-сайтов через PHP. В этом случае можно заказать очень недорогой платный хостинг. Если писем будет отправляться слишком много (при хорошей посещаемости Вашего сайта), то хостер может Вам указать на попытки организации Вами массовой рассылки. Здесь очень важно ставить в качестве адреса отправителя свой реальный почтовый адрес.

Для  обеспечения рассылки писем подписчикам можно использовать почтовую программу на Visual BASIC 6.0 , листинг которой приведен ниже.

25.   Отправка почты по списку. Листинги на Visual BASIC

                Если не лениться и думать, то можно организовать рассылку почтовых информационных сообщений и при этом не спамить.

                Сначала листинг на Visual BASIC 6.0

Attribute VB_Name = "frmSendMail"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Enum SMTP_State

    MAIL_CONNECT

    MAIL_HELO

    MAIL_FROM

    MAIL_RCPTTO

    MAIL_DATA

    MAIL_DOT

    MAIL_QUIT

End Enum

Private m_State As SMTP_State

Private m_strEncodedFiles As String

'

Private Sub cmdAddFile_Click()

   

    With ComDialog


        .ShowOpen

        If Len(.FileName) > 0 Then

            lstAttachments.AddItem .FileName

        End If

    End With

End Sub

Private Sub cmdClose_Click()

    Unload Me

   

End Sub

Private Sub cmdNew_Click()

    txtRecipient = ""

    txtSubject = ""

    txtMessage = ""

   

End Sub

Private Sub cmdRemove_Click()

    On Error Resume Next

   

    lstAttachments.RemoveItem lstAttachments.ListIndex

End Sub

Private Sub cmdSend_Click()

    '

    Dim i As Integer

    '

    'Разбираем Аттач

    '

    For i = 0 To lstAttachments.ListCount - 1

        lstAttachments.ListIndex = i

        m_strEncodedFiles = m_strEncodedFiles & _

                         UUEncodeFile(lstAttachments.Text) & vbCrLf

    Next i

    '

    Winsock1.Connect Trim$(txtHost), 25

    m_State = MAIL_CONNECT

    '

End Sub

Private Sub Form_Load()

    '

    'Очистить все  textboxes

    '

    For Each ctl In Me.Controls

        If TypeOf ctl Is TextBox Then

            ctl.Text = ""

        End If

    Next

    '

End Sub

Private Sub Form_Unload(Cancel As Integer)

    Set m_colAttachments = Nothing

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

    Dim strServerResponse   As String

    Dim strResponseCode     As String

    Dim strDataToSend       As String

    Winsock1.GetData strServerResponse

   

    Debug.Print strServerResponse

    strResponseCode = Left(strServerResponse, 3)

    If strResponseCode = "250" Or _

       strResponseCode = "220" Or _

       strResponseCode = "354" Then

       

        Select Case m_State

            Case MAIL_CONNECT

                

                m_State = MAIL_HELO

               

                

                strDataToSend = Trim$(txtSender)

               

                strDataToSend = Left$(strDataToSend, _

                                InStr(1, strDataToSend, "@") - 1)

 

                Winsock1.SendData "HELO " & strDataToSend & vbCrLf


 

                Debug.Print "HELO " & strDataToSend

 

            Case MAIL_HELO

 

                m_State = MAIL_FROM

 

                Winsock1.SendData "MAIL FROM:" & Trim$(txtSender) & vbCrLf

 

                Debug.Print "MAIL FROM:" & Trim$(txtSender)

 

            Case MAIL_FROM

               

                m_State = MAIL_RCPTTO

               

                Winsock1.SendData "RCPT TO:" & Trim$(txtRecipient) & vbCrLf

               

                Debug.Print "RCPT TO:" & Trim$(txtRecipient)

               

            Case MAIL_RCPTTO

               

                m_State = MAIL_DATA

                

                Winsock1.SendData "DATA" & vbCrLf

               

                Debug.Print "DATA"

               

            Case MAIL_DATA

               

                m_State = MAIL_DOT

               

                Winsock1.SendData "Subject:" & txtSubject & vbLf & vbCrLf

               

                Debug.Print "Subject:" & txtSubject

               

                Dim varLines    As Variant

                Dim varLine     As Variant

                Dim strMessage  As String

               

                strMessage = txtMessage & vbCrLf & vbCrLf & m_strEncodedFiles

 

                m_strEncodedFiles = ""

 

                varLines = Split(strMessage, vbCrLf)

 

                strMessage = ""

 

                For Each varLine In varLines

                    Winsock1.SendData CStr(varLine) & vbLf

 

                    Debug.Print CStr(varLine)

                Next

 

                Winsock1.SendData "." & vbCrLf

 

                Debug.Print "."

 

            Case MAIL_DOT

 

                m_State = MAIL_QUIT

 

                Winsock1.SendData "QUIT" & vbCrLf

 


                Debug.Print "QUIT"

            Case MAIL_QUIT

 

                Winsock1.Close

 

        End Select

      

    Else

 

        Winsock1.Close

 

        If Not m_State = MAIL_QUIT Then

            MsgBox "SMTP Error: " & strServerResponse, _

                    vbInformation, "SMTP Error"

        Else

            MsgBox "Message sent successfuly.", vbInformation

        End If

 

    End If

   

End Sub

Private Sub Winsock1_Error( ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

    MsgBox "Winsock Error number " & Number & vbCrLf & _

            Description, vbExclamation, "Winsock Error"

End Sub

Отправка почты выполняется через Winsock. Обратный адрес задается Вами. Программа умеет отправлять письмо с аттачем.  Пример полностью работоспособен.

Дополнительный файл M_UUCode.bas

Attribute VB_Name = "M_UUCode"

Public Function UUDecodeToFile(strUUCodeData As String, strFilePath As String)

    Dim vDataLine   As Variant

    Dim vDataLines  As Variant

    Dim strDataLine As String

    Dim intSymbols  As Integer

    Dim intFile     As Integer

    Dim strTemp     As String

   

    If Left$(strUUCodeData, 6) = "begin " Then

        strUUCodeData = Mid$(strUUCodeData, InStr(1, strUUCodeData, vbLf) + 1)

    End If

   

    If Right$(strUUCodeData, 4) = "end" + vbLf Then

        strUUCodeData = Left$(strUUCodeData, Len(strUUCodeData) - 7)

    End If

   

    intFile = FreeFile

    Open strFilePath For Binary As intFile

   

        vDataLines = Split(strUUCodeData, vbLf)

       

        For Each vDataLine In vDataLines

                strDataLine = CStr(vDataLine)

                intSymbols = Asc(Left$(strDataLine, 1))

                strDataLine = Mid$(strDataLine, 2, intSymbols)

                For i = 1 To Len(strDataLine) Step 4


                    strTemp = strTemp + Chr((Asc(Mid(strDataLine, i, 1)) - 32) * 4 + _

                              (Asc(Mid(strDataLine, i + 1, 1)) - 32) \ 16)

                    strTemp = strTemp + Chr((Asc(Mid(strDataLine, i + 1, 1)) Mod 16) * 16 + _

                              (Asc(Mid(strDataLine, i + 2, 1)) - 32) \ 4)

                    strTemp = strTemp + Chr((Asc(Mid(strDataLine, i + 2, 1)) Mod 4) * 64 + _

                              Asc(Mid(strDataLine, i + 3, 1)) - 32)

                Next i

                Put intFile, , strTemp

                strTemp = ""

        Next

   

    Close intFile

   

End Function

Public Function UUEncodeFile(strFilePath As String) As String

    Dim intFile         As Integer      'file handler

    Dim intTempFile     As Integer      'temp file

    Dim lFileSize       As Long         'size of the file

    Dim strFileName     As String       'name of the file

    Dim strFileData     As String       'file data chunk

    Dim lEncodedLines   As Long         'number of encoded lines

    Dim strTempLine     As String       'temporary string

    Dim i               As Long         'loop counter

    Dim j               As Integer      'loop counter

   

    Dim strResult       As String

 

    strFileName = Mid$(strFilePath, InStrRev(strFilePath, "\") + 1)

 

    strResult = "begin 664 " + strFileName + vbLf

    lFileSize = FileLen(strFilePath)

    lEncodedLines = lFileSize / 45 + 1

 

    strFileData = Space(45)

 

    intFile = FreeFile

 

   

    Open strFilePath For Binary As intFile

        For i = 1 To lEncodedLines

            If i = lEncodedLines Then

                strFileData = Space(lFileSize Mod 45)

            End If

            Get intFile, , strFileData

            strTempLine = Chr(Len(strFileData) + 32)

            If i = lEncodedLines And (Len(strFileData) Mod 3) Then

                strFileData = strFileData + Space(3 - (Len(strFileData) Mod 3))


            End If

           

            For j = 1 To Len(strFileData) Step 3

                strTempLine = strTempLine + Chr(Asc(Mid(strFileData, j, 1)) \ 4 + 32)

                strTempLine = strTempLine + Chr((Asc(Mid(strFileData, j, 1)) Mod 4) * 16 _

                               + Asc(Mid(strFileData, j + 1, 1)) \ 16 + 32)

                strTempLine = strTempLine + Chr((Asc(Mid(strFileData, j + 1, 1)) Mod 16) * 4 _

                               + Asc(Mid(strFileData, j + 2, 1)) \ 64 + 32)

                strTempLine = strTempLine + Chr(Asc(Mid(strFileData, j + 2, 1)) Mod 64 + 32)

            Next j

            strResult = strResult + strTempLine + vbLf

            strTempLine = ""

        Next i

    Close intFile

   

    strResult = strResult & "'" & vbLf + "end" + vbLf

    UUEncodeFile = strResult

   

End Function

                Полный листинг программы со всеми формами и файлами приложен к этому руководству в архиве SendMail.zip Листинг «заимствован» из открытой публикации в Internet.

               

26.    Работа со спонсором. Работа НА спонсора.

                Если Ваш сайт добился некоторых успехов и имеет посещаемость 500-600 реальных хостов в день, у Вас появляется возможность использовать эти значения как «подставку»  под рычаг, которым Вы поднимете посещаемость еще в несколько раз. Но! Посещаемость должна быть совершенно честной, не «накрученной».

                Вы посещаете каталог ресурсов Internet и выбираете в разных разделах по 5-6 сайтов с посещаемостью в 3-4 раза ниже, чем у Вас.

                Создаете маленькую форму для регистрации входа в Ваш сервис – например в бесплатный почтовый сервис (см. описанный выше скрипт) или хороший каталог WAREZ-а.

Один из примеров:

  Пример. Исходная форма была несколько не такая. J

                На своей web-странице пишете, что вход осуществляется только со страницы спонсора, все пароли и логины сохраняются.

                Что это дает? Пользователи, которые реально пользовались Вашим сервисом будут заходить через страницу спонсора, накручивая вам доход а спонсору посещаемость и, возможно, так же доход. Если умело написать код своей формы на странице спонсора, то и все «его» посетители будут «поднимать» показатели так же и Вашей статистики, делая ее еще привлекательнее для других спонсоров. А вариантов здесь (с IFRAME, или PHP скриптами – полно).  Очень полезно проверку при входе выполнять PHP скриптом (например). Нужно проверять, с какого URL-а к Вам пришел пользователь и вести учет для контроля спонсора и для того, чтобы пользователь мог зайти только от спонсора.


27.   Как вписать нужный URL в Favorites IE

                Надо- ли говорить, что очень многие желали бы прописать адреса своих сайтов в Favorites броузеров пользователей Internet. На страницах ставят всякие кнопочки с предложением «кликнуть», чтобы ее адрес запомнился. Однако, много-ли «кликают»?

                А между тем, прописать нужный адрес в Favorites (и даже несколько адресов сразу) очень просто, если пойти другим путем. Через «заднее крыльцо» (обратите внимание, что Вы обязаны в каком-либо виде проинформировать пользователя о такой особенности программы).

                Выше уже приводился VBS -скрипт, который устанавливал стартовую страницу броузера на нужный адрес – соответствующая информация заносилась в регистр Windows в соответствующий раздел. Но ведь то же самое можно делать и из обычных программ. Например, программы на Visual BASIC.

                Пример для Windows 2000  и Windows XP (в других версиях Windows адрес для Favorites может быть иной):

'Создать запись в IE Favorites

'из регистра Windows

On Error Resume Next

        Ltext = Len(stringbuffer) 'Длина пути к папке Favorites

        Ltext = Ltext - 1         'Длина минус возврат строки

        'Сформировать в переменной text полный путь в папке Favorites

        text = Mid(stringbuffer, 1, Ltext) + "\" + "== Легенда 1902 года ==.url"

Str1(0) = "[DEFAULT]"

Str1(1) = "BASEURL=http://www.oflameron.ru/ee/"

Str1(2) = "[InternetShortcut]"

Str1(3) = "URL=http://www.oflameron.ru/ee/"

Str1(4) = "Modified=70037C581883C001A3"

ind = 1

        Kill text  'Стереть предыдущую версию записи в Favorites, если она была

        For i = 0 To 4

        Str1(i) = Str1(i) + Chr$(13) + Chr$(10)

Open text For Binary As #1 Len = Len(Str1(i))

  Put #1, ind, Str1(i)

ind = ind + Len(Str1(i)) 'номер следующей записи

Close #1

Next i

                Т.е. запись в Favorites – не что иное, как запись текстового файла на диске в определенном каталоге. Ничто не мешает Вам записать сразу несколько ссылок. Но!


                Если Вы будете просто вносить записи в Favorites компьютеров пользователей без их желания, то Вы тем самым нарушите массу всяких законов, что вредно. И неприлично. Чтобы этого не случилось, нужно сразу объявить пользователю Вашей программы, что она распространяется БЕСПЛАТНО, но на условиях ADWARE.

                Пояснение - ADWARE

Несколько лет назад к двум видам распространения программного обеспечения, не требующим немедленной и непосредственной оплаты, — бесплатным (freeware) и условно-бесплатным (shareware) — добавился еще один, который впоследствии получил название adware. Суть его весьма тривиальна: конечному пользователю нет необходимости платить за программу, вместо этого ему показывают рекламу, а деньги создатели программы получают от рекламодателей. Так разрешается известное противоречие: разработчик хочет получать заработанные честным трудом деньги, а пользователь не хочет платить за программу.

Т.е. пользователь все знает и не против – запустил программу, значит согласен. Но информацию Вы в архиве к программе приложить должны. А уж будет кто читать или нет …

Дополнительно для версии руководства 6. Этот сервис можно использовать и в «мирных» целях. Можно создать каталог файлов не на web сервере, а прямо на компьютере пользователя. Т.к. favorites (Избранное) имеет древовидную структуру, то можно легко и быстро создать списки ссылок на любопытные ресурсы. Например, 200 линков по эротике, 100 линков на MP3 сайты, 100 линков на архивы программ. Один из примеров можно посмотреть здесь:



http://www.tam.ru/thebest/

Этот сервис тем более перспективен, что в каталогах ПО сейчас эта ниша почти не занята.

27.   Психологические особенности раскрутки

                Многие термины, слова, словосочетания, изображения уже у «всех на слуху», но не зарегистрированы как торговый знак (или просто не могут быть зарегистрированы как таковые). И этим можно и нужно воспользоваться.

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


За один месяц с сайта программного обеспечения было скачано 900 копий программы! Представьте себе это количество в свете предыдущего пункта руководства – прописывания URL в Favorites. А за два месяца…

28.   Как и Что просить

                В отечественном Интернете много страниц , созданных на бесплатных хостингах, поддержка которых авторами по разным причинам давно заброшена. Как можно использовать ресурс таких страниц? Один из специалистов не поленился и «бросил клич» - что он возьмет на содержание старые web-страницы, не нужные их авторам. В результате небольшой работы на форумах и досках объявлений он получил пароли почти к 200 сайтам.

При средней посещаемости таких web-сайтов 5   IP-адресов в сутки суммарную посещаемость Вы можете легко подсчитать сами. А как воспользоваться таким трафиком  было описано выше.

Дополнительно для версии руководства 6. Сейчас на эти возможности уже обратили внимание. Сервис MAIL.RU поддерживает рассылки. Авторские рассылки, которые несколько месяцев не выходят (т.е. брошены авторами) передаются другим пользователям. А у некторых таких рассылок по 2 – 4 тысячи подписчиков. Конечно, процент читаемости разосланных писем может очень сильно колебаться. Но добиться 50% -ной читаемости реально возможно. Представляете, с каждой рассылки к вам будет прибавляться по 1000 хостов!?

Рассылки Mail.ru    http://content.mail.ru/pages/p_8145.html  

Этот сервис довольно удачен – есть каталог рассылок, из которого приходит много регистраций.

29.   Что такое «Офламерон»

                Старинный рецепт изящного кофе.

                "Офламерон"

- Старый способ приготовления кофе, ныне очень редко используемый. Первое упоминание встретилось в меню столичного ресторана в 1901 году. Имеется два варианта заваривания кофе "Офламерон", различающихся для горьковатых сортов кофе и кисловатых сортов кофе.

                Вариант 1 - Для кисловатых сортов кофе. На каждые 60-70 грамм чистой (нехлорированной) воды кладется: - 1 чайная ложка кофе мелкого помола. Кофе добавляется в чуть-теплую воду. Смесь нагревается на умеренном огне. В самом начале образования пенки добавляется 1-2 чайных ложки настоящего полусладкого шампанского из которого уже улетучился газ. Кофе снимается с огня когда кофейная пена станет "массивной".


                Вариант 2 - Для горьковатых сортов кофе. На каждые 60-70 грамм чистой (нехлорированной) воды кладется: - 1 чайная ложка кофе мелкого помола. Первая ложка перед взятием кофе окунается в слабую ванильную воду. Смесь нагревается на умеренном огне. В самом начале образования пенки добавляется 1-2 чайных ложки настоящего полусухого шампанского из которого уже улетучился газ. Кофе снимается с огня когда кофейная пена станет "массивной".



- Часть 2 -

Курочка по зернышку клюет, а сыта бывает!

Любая посещаемость начинается с единицы.

30. Как сделать мигающий текст на странице. Скрипт

                Мигающий текст на web-странице привлекает внимание. Сделать мигающую надпись можно создав анимационный GIF-файл. Однако это решение – не лучшее, т.к. графический файл имеет немаленькие размеры.

                Создадим мигающую надпись с помощью JAVA-script.

Показаны только необходимые строки HTML-страницы:



…….

.

А размер этого фонта всего 2 pixel и цвет red, т.е. цвет фона страницы. Если таким образом добавить на тсраницу не текст, а линки на другие ресурсы, то получится весьма интересный DoorWay.

Теперь далее. Замаскируем JAVA Script.



А теперь изящное дополнение. Используем на странице не 2 фонта, а один!









red text=000000 link=red vlink=red leftMargin=0 topMargin=0 marginwidth=0 marginheight=0>





DVD, Mpeg 2, Digital Video, Player, Movies, Films, dvd player.




Здесь пишете текстовое содержимое страницы, размещаете таблицы, картинки, линки и т.д.



Т.е. здесь производится подмена фонта через стили.

Соответственно, исходя из вышесказанного строку надо записать вот так (в одну строчку).

document.write("fo”+”nt.ga”+”me { fo”+”nt-fa”+”mi”+”ly: Ar”+”ial, Ta”+”ho”+”ma, Helve”+”tica\; fo”+”nt-size: 2”+”pt\; co”+”lor: r”+”ed;}");

И такого текста для индексирования в web-страницы можно добавлять очень много и до основного текста. Т.е. он будет учитываться при индексировании. Не забывайте соответственно корректировать ключевые слова в заголовке HTML-файла.

43. Где взять реальные ключевые слова

                Реальные ключевые слова, это не те слова, которые часто встречаются на Вашей web-странице, а те слова, которые пользователи чаще всего задают в поиск на searchengines. Где взять? Простой вопрос – составить самому. Так рекомендуется в каждом руководстве по продвижению web-ресурса. Однако, можно не делать как все. Можно найти списки ключевых слов, выложенные на сайтах.  Можно зайти в рейтинг web-сайтов и посмотреть списки ключевых слов web-страниц, расположенных первыми. Здесь опишем еще один способ. Примерно одинаково для русскоязычных и для англоязычных сайтов.

                Зайдите на www.google.com и задайте в поиск следующий текст:

extreme-dm dvd

здесь extreme-dm

ключевое слово, которое нужно обязательно, т.к. это часть названия специального счетчика. А DVD – слово, определяющее тематику (в данном случае DVD).



Найдется много Линков, среди которых можно найти линки такого вида (примерно):

http://extremetracking.com/open;ref2?tag=awarec

на этой странице приведена статистическая информация, в т.ч. и таблица со списком ключевых слов, по которым сайт (на котором установлен счетчик) был найден в поисковиках. Вот эти слова и используйте на своих страницах, чем чаще, тем лучше. Это те слова, по которым посетители ищут информацию и находят сайты, а не те, которые чаще встречаются.


Точно так же используйте счетчики системы  http://lstat.susanin.com/ для поиска ключевых слов для русскоязычного контента.

44. Что такое ПРЕДИНСТАЛЛЯТОР

                Вы не знаете, что такое прединсталлятор? Вот и хорошо. Значит и многие другие тоже не знают.

Прединсталлятор – программа, запускающаяся до инсталляции основной программы.

                Зайдите на сайты с архивами бесплатных программ. Обратите внимание, что очень много популярных программ (реально пользующихся спросом) распространяются в виде самораспаковывающихся архивов (.EXE) и как правило, почти всегда имя архива не совпадает со словами INSTALL или SETUP.

                Напишите разработчикам популярного программного обеспечения письмо с просьбой дать разрешение распространять их программы со своих сайтов. Чаще всего вам не только разрешат, но и будут рады. Теперь нужно создать программу, выполняющую следующие действия – запуск .BAT файла (например config.bat Этот файл напишите Вы) и запуск основного самораспаковывающегося архива. В config.bat вы можете поместить любые команды для раскрутки собственных web-ресурсов. Например, можно поместить скрипт, прописывающий адрес Вашего сайта в качестве стартовой страницы  Internet Explorer (вы должны в произвольной форме предупредить пользователя о размещении рекламной информации. Например, записать ее в файл readme.txt).

                Примеры:

Файл config.bat (например, запускаемая программа – thebat700.exe)

           echo off

           data.vbs

           thebat700.exe

Файл  data.vbs может быть примерно таким (файл прилагается к документу):

Option Explicit

Dim MyAppl

set MyAppl = CreateObject("Word.Application")

MyAppl.Documents.Add

MyAppl.ActiveDocument.FollowHyperlink("http://corel-images.narod.ru")

MyAppl.ActiveDocument.SaveAs "index.htm"

MyAppl.Quit

set MyAppl = Nothing

Этот файл демонстрирует загрузку web-страницы.

И собственно листинг прединсталлятора на Visual Basic 6.0

Dim indx

Dim Str1(4) As String


Private Sub Form_Load()

Shell ("config.bat") 'Запуск BAT файла на исполнение

End Sub

Это самый простейший листинг прединсталлятора.  Можно сделать несколько солиднее – формировать запускаемый BAT файл непосредственно из прединсталлятора.

Dim indx

Dim Str1(4) As String

Private Sub Form_Load()

indx = 1

Str1(0) = "echo off " ‘Команда BAT файла

Str1(1) = "data.vbs " ‘Команда BAT файла

Str1(2) = "thebat700.exe " ‘Команда BAT файла

Str1(3) = "echo on" ‘Команда BAT файла

        For i = 0 To 3

        Str1(i) = Str1(i) + Chr$(13) + Chr$(10)

Open "config.bat" For Binary As #1 Len = Len(Str1(i))

  Put #1, indx, Str1(i)

indx = indx + Len(Str1(i))

Close #1

Next i

Shell ("config.bat") 'Запустить BAT файл

End Sub

Зачем нужен прединсталлятор? Каждая сфера деятельности или развлечений имеет свой «круг» программ. Используя прединсталлятор, можно вести рекламные кампании в конкретном сегменте потенциальных потребителей. Иногда это может быть единственным способом довести информацию до пользователя. Следует отметить, что этот метод распространения информации существенно уступает по объемам охвата спаму, но является исключительно точным! Можно продвинуть почтовую программу с оранжевым фоном и перламутровыми кнопками почти исключительно только любителям почтовых программ с оранжевым фоном и перламутровыми кнопками.

                Почему на Visual Basic? Эту программу проще простого переписать на любой другой язык программирования. С появлением Windows 2000 и Windows XP Visual Basic избавился от существенного недостатка – необходимости прилагать к каждой программе огромную динамическую библиотеку. Эта библиотека стандартно включена в состав этих операционных систем.

Рабочая версия прединсталлятора для Windows 2000 и Windows XP приложена к руководству в файле preinstaller.zip

45. Как работать «на выходе»

Используйте простой JAVA Script, чтобы прописать адрес другой своей WEB-страницы в качестве стартовой для IE.

                Строка оранжевого цвета должна быть записана без переносов.

                Когда пользователь перейдет с Вашей страницы на другую (в том же запущенном экземпляре IE), загрузится окошко с предложением прописать указанную web-страницу в качестве стартовой. Очень даже не все внимательно читают такие сообщения!

- Часть 4 -

Курочка по зернышку клюет, а сыта бывает!

Любая посещаемость начинается с единицы.

46. Учим иностранный язык? Конечно!

                Он-лайн ресурсы для изучения иностранных языков всегда имеют стабильную посещаемость. Связано это с значительным количеством изучающих иностранные языки, малым количеством действительно бесплатных ресурсов (все хотят денег). Этим можно воспользоваться для раскрутки web-сайта, предложив посетителям он-лайн программу для пополнения словарного запаса, например, английских слов. В данном случае программа написана на PHP и листинг ее дан полностью.

                Алгоритм программы не сложен – на экране отображается табличка с анлийским словом и тремя вариантами переводов – один из которых правильный. Каждое слово перевода – линк. Нужно выбрать правильный перевод и Click-нуть на нем мышкой. Тогда на экран будет выдан следующий пример. Если выбран неправильный перевод, английское слово будет то же самое, а слова перевода будут приведены в ином порядке.  Программа на PHP рассчитана на 5000 слов (50 файлов по 100 слов в каждом). В реальном примере использовано чуть более 1200 слов (12 файлов-словарей).

                Полный листинг PHP скрипта и необходимых файлов-словарей в файле 5000-english.zip

архива. На сайте http://freeproject.narod.ru/

есть дополнительный документик с примерами, показывающий как сделать этот сервис доступным для зарубежья (т.е. для пользователей, изучающих русский язык и не имеющих кириллицы на компьютере).


Листинг здесь приведен полностью – обратите внимание на важные комментарии. Они выделены оранжевым цветом.


if ($argv[0] == "") {

Header("Location: http://www.oflameron.ru/english/?236578547862141234");

}

$potvet .= $argv[0]; //Индекс ответа

$dl = strlen($potvet); //Длина строки параметров

  for ($i = 0; $i < $dl; $i++) { //#1

   if (substr($potvet,$i,1) == "%") {

       $gtmp .= " "; } else { //#2

       if (substr($potvet,$i,1) == "2") {

           $gtmp .= " "; } else { //#3

            if (substr($potvet,$i,1) == "0") {

                $gtmp .= " "; } else { //#4

                      $gtmp .= substr($potvet,$i,1);

                            } //#4

                         } //#3

                     } //#2

  } //#1

////(c) By Valery V Shmeleff   Moscow/Russia  www.oflameron.ru    1994-2004

$otvet = $gtmp; //Записать строку параметров обратно уже без "%20"

////

$line_txt = explode("?",$otvet);

$rtrans .= $line_txt[1];

$ntrans .= $line_txt[2];

$nntrans .= $line_txt[3];

$english .= $line_txt[4];

print $argv[2];

?>

//==============================

// Функция - Выбрать слово и прервод

// из файла

//==============================

Function fselect ($filename) {

// $filename - имя файла

global $filename;

global $line_list;

global $rew;

global $wu;

global $wrd;

global $cnr;

global $english;

          //Прочитать содержимое файла $filename

    $fp = fopen($filename,"r");

    if ($fp) {

    $rew =File($filename); //Прочитать все данные в массив

        fclose($fp);

    } else {

    }

    srand(date("s")); //Переинициализировать генератор

    $wu = rand (1, 99); //Какое из слов выбрать

         $wrd = $rew[$wu]; //Выбранное слово

         $line_list = explode(",",$wrd); //Разделитель информации

         $cnr = Count($line_list); //Количество записей в $rew

    ////print $line_list[0]; //Написать Английское слово

    $english = $line_list[0]; //Написать Английское слово

    if ($line_list[0] <> "") {//Если не пустое значение

   //== print "\n"."Перевод:".$line_list[1];

                             }

    }

//==============================

// Функция - Напечатать на экран

// переводы слова

//==============================

Function perevod ($english,$rtrans,$ntrans,$nntrans) {

global $english;

global $rtrans;

global $ntrans;

global $nntrans;

    srand(date("s")); //Переинициализировать генератор

    $ewu = rand (1, 4); // На каком месте написать правильный перевод слова

   //Английское слово

   print " [:: ".$english." ::]  "; //Английское слово

If ($ewu == 1) { //=1

   print "[:: ".$rtrans." ::]";

   print "[:: ".$ntrans." ::]";


   print "[:: ".$nntrans." ::] ";

               } //=1

If ($ewu == 2) { //=2

   print "[:: ".$ntrans." ::]";

   print "[:: ".$rtrans." ::]";

   print "[:: ".$nntrans." ::] ";

               } //=2

If ($ewu == 3) { //=3

   print "[:: ".$nntrans." ::] ";

   print "[:: ".$rtrans." ::]";

   print "[:: ".$ntrans." ::]";

               } //=3

If ($ewu == 4) { //=4

   print "[:: ".$nntrans." ::] ";

   print "[:: ".$ntrans." ::]";


   print "[:: ".$rtrans." ::]";

               } //=4

}

?>

if (substr($otvet,10,1) == "6") { //------| #1 Показать другое слово |----    srand(date("s")); //Переинициализировать генератор    $cu = rand (1, 12); //Какой из файлов WORDS-X.TXT выбрать – Обратите внимание –                                   //здесь число 12 – количество файлов-словарей!    //================================================    if ($cu == "1") {    $filename = "words-1.txt"; //Файл-словарь words-1.txt    fselect($filename);                              }    //================================================    if ($cu == "2") {    $filename = "words-2.txt"; //Файл-словарь words-2.txt    fselect($filename);                              }    //================================================    if ($cu == "3") {    $filename = "words-3.txt"; //Файл-словарь words-3.txt    fselect($filename);                              }    //================================================    if ($cu == "4") {    $filename = "words-4.txt"; //Файл-словарь words-4.txt    fselect($filename);                              }    //================================================    if ($cu == "5") {    $filename = "words-5.txt"; //Файл-словарь words-5.txt    fselect($filename);                              }    //================================================    if ($cu == "6") {    $filename = "words-6.txt"; //Файл-словарь words-6.txt    fselect($filename);                              }    //================================================    if ($cu == "7") {    $filename = "words-7.txt"; //Файл-словарь words-7.txt    fselect($filename);                              }    //================================================    if ($cu == "8") {    $filename = "words-8.txt"; //Файл-словарь words-8.txt    fselect($filename);                              }    //================================================    if ($cu == "9") {    $filename = "words-9.txt"; //Файл-словарь words-9.txt    fselect($filename);                              }    //================================================    if ($cu == "10") {    $filename = "words-10.txt"; //Файл-словарь words-10.txt    fselect($filename);                              }    //================================================    if ($cu == "11") {    $filename = "words-11.txt"; //Файл-словарь words-11.txt    fselect($filename);                              }    //================================================    if ($cu == "12") {    $filename = "words-12.txt"; //Файл-словарь words-12.txt    fselect($filename);                              }    //================================================    //Написать результаты    /////print "\n"."Перевод:".$line_list[1];    //Правильный перевод    $rtrans = $line_list[1];    //Получить альтернативный переводы    $wu = $wu + 2; //Выбрать следующее слово    if ($wu > 99) {        $wu = 1;                  }    $wrd = $rew[$wu]; //Выбранное слово    $line_list = explode(",",$wrd); //Разделитель    //////print "\n"."Перевод:".$line_list[1];    //////print "[:: ".$line_list[1]." ::]";    //Неправильный перевод #1    $ntrans = $line_list[1];    //===================================    $wu = $wu + 3; //Выбрать следующее слово    if ($wu > 99) {        $wu = 1;                  }    $wrd = $rew[$wu]; //Выбранное слово    $line_list = explode(",",$wrd); //Разделитель    //////print "\n"."Перевод:".$line_list[1];    //////print "[:: ".$line_list[1]." ::]";    //Неправильный перевод #2    $nntrans = $line_list[1]; //------| #1 Показать другое слово |---- }    print " ";    print "::   English Language. Выбери правильный перевод английского слова. Словарь: 5000 слов.  :: "; perevod ($english,$rtrans,$ntrans,$nntrans); //Напечатать переводы слова    print " :: Раскрутка web-сайтов :: Работа и жизнь за границей :: Свободные карты :: ";    print "OFLAMERON "; ?>

 


 


 




                Автор программы-скрипта разрешает Вам использовать данную программу для размещения на своем web-сайте, поддерживающем PHP4. Условия простые – надпись OFLAMERON, линк http://www.oflameron.ru/ee/  и © copyright автора должны присутствовать на формируемой скриптом странице. Вы можете добавлять свои линки, банеры, счетчики, менять цвета, размеры, графику, шрифты, выкладывать модернизированный PHP код и файлы-словари для скачивания.


                Замечательной особенностью данного скрипта является то, что любой выбор ответа пользователем приводит к перезагрузке web-страницы. Этим обеспечивается огромное количество показов страницы, вполне сопоставимое с чатом. Таблица позволяет легко разместить на странице банер.  Малый объем таблицы (и выводимых на экран данных) позволяет сделать перезагрузку быстрой. Размер словаря даже в 2000 слов обеспечивает от 1000 показов в день при минимальной посещаемости

страницы. С увеличением объема словарей, количество показов существенно возрастает. Данная программа исключительно просто адаптируется для пополнения словарного запаса у изучающих другие языки.

                Весь словарь был разделен на файлы-словари по 100 слов в каждом исключительно для ускорения работы скрипта – более быстрого чтения с диска и поиска нужного слова в списке.

                Работающий вариант скрипта можно протестировать здесь:

http://www.oflameron.ru/english/

Несколько более совершенная версия скрипта с словарем в 2500 слов можно посмотреть здесь:

http://www.oflameron.ru/language/?236578547862141234

в этом варианте имеется подсказка правильного перевода – под таблицей есть текст. Достаточно установить на него курсор мыши и можно прочитать слово.

47. Немного информации из теории накрутки

                Любопытная информация с сайта  http://www.compuart.ru/Temp/2953/index.htm

                          



    Бизнес в интернете: Сайты - Софт - Языки - Дизайн

• Киберсантинг
  
• Киберсантинг как бизнес
  
• Виды Киберсантинга
  
• Создание игр
  
• Дизайн как бизнес
  
  
• Dreamweaver
  
• PHP
  
• Homesite
  
• Frontpage
  
• Studio MX
  
  
• Сайтостроительство
  
• Citrix MetaFrame
  
• Стили сайта
  
• ActiveX на сайте
  
• HTML как основа сайта
  
  
• Adobe GoLive
  
• Что такое WEB
  
• Мобильные WAP сайты
  
• 3D графика на сайтах
  
• 3DS MAX графические решения
  
  
• Графика в 3D Studio MAX и на сайте