PK
(»lEФ)“Й Й Random X.pubNBW Publication Source File
(C)1993-2013 NeoSoft Corp.
Title=Rando X
Language=US
NeoBookVer=5,80
ScreenColors=16777216
ScreenWidth=320
ScreenHeight=200
BkndColor=0
ScreenAutoSize=Yes
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowPos=0
WindowProps=31
BiDiMode=0
UseUpdateTimer=Yes
ReturnTime=60
ShapeTransColor=536870912
SplashProps=3
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MyProgram
SetupTitle=Установка
SetupColors=16711680|0|65535
Variables=[#34]¶[games]¶[games2]¶[pos]¶[Result]¶
VersionMajor=1
VersionMinor=0
VersionRelease=0
VersionBuild=0
ReqExLevel=1
CustomFontName=Arial
CustomFontSize=9
CustomFontStyle=0
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=OK
L_CANCEL=Отмена
L_YES=Да
L_NO=Нет
L_CLOSE=Закрыть
L_ERRORTITLE=Ошибка
L_FINDTITLE=Поиск
L_FINDPROMPT=Что искать
L_FINDFIRST=Найти
L_FINDNEXT=Найти далее
L_FINDERROR=Искомый текст не найден.
L_PWORDTITLE=Требуется пароль
L_PWORDMSG=Для продолжения необходимо|ввести правильный пароль
L_PWORDPROMPT=Пароль:
L_PWORDERROR=Неверный пароль!
L_MEDIAERROR=Для воспроизведения файла этого типа необходимо установить|соответствующее мультимедийное оборудование и/или|программное обеспечение
L_INTERNETERROR=Не удалось обнаружить обозреватель Интернет.
L_ABORTFUNCTION=Желаете отменить эту функцию?
L_EXTRACTERROR=Невозможно извлечь и воспроизвести файл.
L_INSTDIRPROMPT=Пожалуйста, выберите диск и каталог, в который Вы желаете установить программу. Для установки в указанный каталог нажмите клавишу Enter.
L_INSTFOLDERPROMPT=Желаете создать папку программы?
L_INSTRUNPROMPT=Желаете запустить
L_INSTDISKPROMPT=Пожалуйста, вставьте диск #
L_INSTDISKERROR=Неверный диск. Попробуйте снова.
L_INSTGENERROR=Установка прервана.
L_INSTEXITPROMPT=Желаете отменить установку?
L_INSTWINTITLE=Установка
L_INSTPROGTITLE=Извлечение файлов...
L_SENDEMAIL=Отправка почты...
L_MAILSERVER=Пожалуйста, введите имя сервера исходящей почты:
L_COPY=Копировать в буфер обмена
L_SELECTALL=Выбрать все
L_DONWLOADFILE=Загрузка: %s
L_PLEASEWAIT=Пожалуйста, подождите...
TrayMenuBegin
MenuName=TrayOpen
MenuText=Открыть
MenuState=3
MenuKey=0
MenuAction=SetVar "[WindowState]" "Normal"
MenuName=TrayExit
MenuText=Exit
MenuState=3
MenuKey=0
MenuAction=Exit "" ""
MenuEnd
MasterPage
NewPage=New Page
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
ObjectType=8
Name=Text1
X=0
Y=168
W=320
H=32
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=204
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset204 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b [games2]}}}
HMargin=4
VMargin=4
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=2
ObjectType=3
Name=PushButton1
X=64
Y=0
W=184
H=32
Anchor=0
Text=Генерировать
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=Random "1" "[rad]"¶¶If "[rad]" "=" "0"¶DisableObject "PushButton6"¶¶Random "17125" "[games]"¶InternetGet "http://small-games.info/?go=game&c=1&i=[games]" "[Result]" "HideProgress+Async"¶zmConvertString "Utf8ToAnsi" "[Result]" "[Result]"¶.возмем надежную метку с названием¶SearchStr "" "[Result]" "[pos]" ""¶.обработать ошибку если вдруг текста не найдется¶.вырежем метку¶StrDel "[Result]" "1" "[pos]+29" "[Result]"¶.теперь название идет с начала строки, найдем конец¶SearchStr "" "[Result]" "[pos]" ""¶.вырежем название¶SubStr "[Result]" "1" "[pos]-1" "[Result]"¶¶SetVar "[games2]" "[Result]"¶¶EnableObject "PushButton6"¶EndIf¶¶If "[rad]" "=" "1"¶DisableObject "PushButton6"¶¶Random "5000000" "[games]"¶¶InternetGet "http://rutracker.org/forum/viewtopic.php?t=[games]" "[Result]" "HideProgress"¶¶FileLen "[Result]" "[games2]"¶¶While "[games2]" "<=" "873"¶Random "5000000" "[games]"¶¶InternetGet "http://rutracker.org/forum/viewtopic.php?t=[games]" "[Result]" "HideProgress"¶¶FileLen "[Result]" "[games2]"¶EndWhile¶¶zmConvertString "Utf8ToAnsi" "[Result]" "[Result]"¶.возмем надежную метку с названием¶SearchStr "" "[Result]" "[pos]" ""¶.обработать ошибку если вдруг текста не найдется¶.вырежем метку¶StrDel "[Result]" "1" "[pos]+29" "[Result]"¶.теперь название идет с начала строки, найдем конец¶SearchStr "" "[Result]" "[pos]" ""¶.вырежем название¶SubStr "[Result]" "1" "[pos]-1" "[Result]"¶¶SetVar "[games2]" "[Result]"¶¶EnableObject "PushButton6"¶EndIf
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=204
TextColor=0
TabOrder=5
ObjectType=8
Name=Text3
X=248
Y=0
W=72
H=24
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=0
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset0 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b 0.006 alfa}}}
HMargin=4
VMargin=4
LineColor=0
LineWidth=0
LineStyle=0
FillColor=12632256
FillPattern=1
TabOrder=6
ObjectType=3
Name=PushButton6
X=64
Y=40
W=184
H=40
Anchor=0
Text=Открыть сайт с игрой
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=InternetLink "http://small-games.info/?go=game&c=1&i=[games]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=204
TextColor=0
Enabled=No
TabOrder=7
ObjectType=3
Name=PushButton7
X=0
Y=0
W=56
H=32
Anchor=0
Text=тест
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=.Random "5000000" "[games]"¶SetVar "[games]" "4512141"¶¶InternetGet "http://rutracker.org/forum/viewtopic.php?t=[games]" "[Result]" "HideProgress"¶¶zmConvertString "Utf8ToAnsi" "[Result]" "[Result]"¶SearchStr "data-share_title" "[Result]" "[pos]" ""¶StrDel "[Result]" "1" "[pos]+29" "[Result]"¶SearchStr "Сообщение" "[Result]" "[pos]" ""¶SubStr "[Result]" "1" "[pos]-1" "[Result]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=204
TextColor=0
TabOrder=3
ObjectType=8
Name=Text9
X=8
Y=88
W=304
H=32
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=204
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset204 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b [g1][g2][g3][g4][g5][g6][g7][g8][g9][g10][g11]}}}
HMargin=4
VMargin=4
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=1
ObjectType=3
Name=PushButton13
X=8
Y=128
W=200
H=32
Anchor=0
Text=Генерировать ссылку на ютуб
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=FileRead "C:\Users\TBOIR\Desktop\Random X\gen.txt" "1" "[gen1]"¶¶Random "65" "[gen]"¶SubStr "[gen1]" "[gen]" "1" "[g1]"¶Random "65" "[gen]"¶SubStr "[gen1]" "[gen]" "1" "[g2]"¶Random "65" "[gen]"¶SubStr "[gen1]" "[gen]" "1" "[g3]"¶Random "65" "[gen]"¶SubStr "[gen1]" "[gen]" "1" "[g4]"¶Random "65" "[gen]"¶SubStr "[gen1]" "[gen]" "1" "[g5]"¶Random "65" "[gen]"¶SubStr "[gen1]" "[gen]" "1" "[g6]"¶Random "65" "[gen]"¶SubStr "[gen1]" "[gen]" "1" "[g7]"¶Random "65" "[gen]"¶SubStr "[gen1]" "[gen]" "1" "[g8]"¶Random "65" "[gen]"¶SubStr "[gen1]" "[gen]" "1" "[g9]"¶Random "65" "[gen]"¶SubStr "[gen1]" "[gen]" "1" "[g10]"¶Random "65" "[gen]"¶SubStr "[gen1]" "[gen]" "1" "[g11]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=204
TextColor=0
TabOrder=8
ObjectType=3
Name=PushButton14
X=216
Y=128
W=96
H=32
Anchor=0
Text=Открыть
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=InternetLink "http://www.youtube.com/watch?v=[g1][g2][g3][g4][g5][g6][g7][g8][g9][g10][g11]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=204
TextColor=0
TabOrder=9
PK
(»lEФ)“Й Й $ Random X.pub
ыZёЕ¶юПfы¶Е¶юПп
(ЄaьПPK ^ у