Add(MainForm,2953706,21,42)
{
Width=862
Height=551
Caption="Blacklits site manager"
link(onCreate,2900892:doEvent1,[])
}
Add(WebBrowser,14393080,189,91)
{
Top=30
Width=845
Height=480
link(onNavigate,3548596:doText,[(231,97)(231,133)(178,133)(178,153)])
}
Add(Edit,3548596,189,147)
{
Left=115
Width=520
Height=30
Font=[Tahoma,11,0,0,204]
link(Str,14393080:CurrentURL,[])
}
Add(Button,1731396,21,91)
{
Width=115
Height=30
Font=[Tahoma,12,0,0,204]
Caption="Next>>"
link(onClick,7942645:doNext,[])
}
Add(StrList,13601412,119,28)
{
@Hint=#47:Загружается файл со списком сайтов для проверки|
AddHint(62,-3,175,26,@Hint)
}
Add(ArrayRW,16762889,133,91)
{
link(onRead,14393080:doNavigate,[])
link(Array,13601412:Array,[])
}
Add(Counter,7942645,70,91)
{
Min=-1
Max=1215752191
Default=-1
link(onNext,16762889:doRead,[])
}
Add(StrList,7096257,189,196)
{
@Hint=#34:Загружается "Черный список" сайтов|
FileName="bad.txt"
link(Str,3548596:Text,[])
AddHint(66,-1,176,26,@Hint)
}
Add(Button,16572728,140,231)
{
Left=750
Width=95
Height=30
Font=[Tahoma,10,0,0,204]
Caption="Save blacklist"
link(onClick,7096257:doSave,[])
}
Add(Button,7169064,140,196)
{
Left=635
Width=115
Height=30
Font=[Tahoma,10,0,0,204]
Caption="Add to blacklist"
link(onClick,7096257:doAdd,[])
}
Add(Hub,2900892,70,56)
{
link(onEvent1,13601412:doLoad,[])
link(onEvent2,7096257:doLoad,[(107,69)(107,230)])
}
------------ Дoбавленo в 17.33:
Да, не забудь прописать имя файла в первом StrList'е (где все сайты)



Поиск
Друзья
Администрация