Вверх ↑
Этот топик читают: Гость
Ответов: 67
Рейтинг: 2
#1: 2010-08-03 17:16:57 ЛС | профиль | цитата
Всем здравствуйте, немогу осуществить простую вещь(
В общем есть список сайтов в файле(txt или ini(желательно)), каждый сайт в новой строке
http://site.com
http://site2.com
и т.п. нужно: вебраузер который будет выводить по очереди сайты(желательно как слайдшоу, нажал-сайт поменялся) и ещё одну кнопочку, после нажатия которой программа бы писала название сайта в файл например bad.txt
Требуется для вебхостинга(удаление неактивных(брошенных сайтов), аккаунтов немного, нок аждый сайт вручную вбивать и потом смотреть неудобно)
карма: 1

0
Ответов: 1379
Рейтинг: 86
#2: 2010-08-03 17:23:52 ЛС | профиль | цитата
Пища для размышления code_19813.txt
карма: 0

0
файлы: 1code_19813.txt [1KB] [96]
Ответов: 67
Рейтинг: 2
#3: 2010-08-03 17:28:42 ЛС | профиль | цитата
почти то что нужно) только нужно чтобы при сохранении был не диалог а автоматически дописывало/писало в файл bad.txt
карма: 1

0
Ответов: 1379
Рейтинг: 86
#4: 2010-08-03 17:33:05 ЛС | профиль | цитата
Вот так
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'е (где все сайты)
карма: 0

0
Ответов: 67
Рейтинг: 2
#5: 2010-08-03 17:36:20 ЛС | профиль | цитата
у меня тоже самое поулчилось "додуманное"
карма: 1

0
Ответов: 1891
Рейтинг: 110
#6: 2010-08-04 23:37:27 ЛС | профиль | цитата
cyber01, писал(а):
удаление неактивных(брошенных сайтов)


Что Вы под этим подразумеваете?
карма: 0
%time%
0
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)