Вверх ↑
Этот топик читают: Гость
Ответов: 1535
Рейтинг: 176
#1: 2012-11-17 20:46:27 ЛС | профиль | цитата
Я тут подумал, раз уж такой сервис существует, чего же его скрывать (не все об этом знают)!?

Ну, и схема для некоторого удобства.
Add(MainForm,2953706,63,308)
{
Width=763
Height=547
Caption="OnlineHiasmForum"
Position=1
}
Add(BlockFind,15864912,259,140)
{
StartBlock="<tr class="forum_post_"
EndBlock="</tr>"
link(onSearch,14658590:doCharset,[])
link(onEndSearch,13878383:doEvent1,[(307,153)(307,377)])
link(Text,11765114:Page,[(265,123)(200,123)(200,170)(167,170)])
}
Add(Button,15278373,56,84)
{
Width=755
Align=2
Caption="Обновить"
link(onClick,10244867:doEvent1,[])
}
Add(Charset,14658590,315,140)
{
Type=7
link(onCharset,14873534:doReplace,[])
}
Add(Hub,10244867,105,84)
{
OutCount=5
link(onEvent1,2456544:doClear,[(133,90)(133,34)])
link(onEvent2,12150269:doClear,[(139,97)(139,69)])
link(onEvent3,3415459:In,[])
link(onEvent4,7596394:In,[])
link(onEvent5,11765114:doRefresh,[(137,118)(137,139)])
}
Add(MTStrTbl,2098317,63,203)
{
Top=20
Width=755
Height=200
Align=5
Name="main"
Columns=#7:Ник=100|9:Время=100|9:Место=500|
ColumnClick=1
Redaction=0
link(onColumnClick,3116019:doSet,[])
}
Add(MST_RowAction,14747843,1071,336)
{
MSTControl="main"
}
Add(MT_String,9043541,1029,336)
{
link(onResult,14747843:doRowAction,[])
}
Add(MST_SortInCol,12331894,168,203)
{
MethodSort=1
MSTControl="main"
Point(doSortDigit)
}
Add(MST_Clear,2456544,154,28)
{
MSTControl="main"
}
Add(StrMask,12030384,938,350)
{
Mask="*guest*"
link(onFalse,16254830:doString,[])
link(Str,3991069:Value,[(944,335)(461,335)])
AddHint(-12,-39,49,13,Mask)
}
Add(BlockFind,8718119,406,259)
{
IncludeBlock=1
StartBlock="class="forum_menu">"
EndBlock="<"
link(onSearch,3991069:doValue,[])
link(Text,10716027:Part1,[])
}
Add(MultiSetParam,3116019,112,210)
{
Parameters=#3: ;0|3:1; |3: ;2|
Count=2
link(onSet1,12331894:doSortDigit,[])
link(onSet2,12331894:doSort,[(152,223)(152,209)])
}
Add(MultiStrPart,10716027,406,140)
{
Char=" "
From=8
Count=25
link(onSplit,8718119:doSearch,[(598,146)(598,228)(394,228)(394,265)])
}
Add(FormatStr,16254830,980,350)
{
DataCount=3
Mask="%1;%2;%3"
PColor(Str2,43775)
link(onFString,9043541:doMTString,[])
link(Str2,10716027:Part13,[(993,206)(496,206)])
link(Str3,8905776:Var3,[(1000,236)])
}
Add(Memory,3991069,455,259)
{
link(onData,13406986:doData,[])
}
Add(RE_Search,7439446,616,259)
{
Expression="<.*?>"
ModifierR=1
ModifierG=1
link(onMatch,16000759:doDelete,[])
link(onNotFound,1339603:doEvent1,[(663,272)(663,349)])
}
Add(Delete,16000759,672,259)
{
PColor(onDelete,43520)
link(onDelete,3435672:doWork1,[(731,265)(731,325)(550,325)])
link(Str,5306010:Var2,[])
link(Position,7439446:MatchPos,[(685,244)(719,244)(719,309)(629,309)])
link(Count,7439446:MatchLen,[(692,251)(710,251)(710,299)(636,299)])
}
Add(DoData,13406986,504,259)
{
link(onEventData,3435672:doWork2,[])
link(Data,10716027:Part25,[(510,215)(580,215)])
}
Add(HubEx,3435672,546,259)
{
PColor(onEvent,43520)
link(onEvent,14118122:doValue,[])
}
Add(Replace,14873534,357,140)
{
SubStr="
"
link(onReplace,10716027:doSplit,[])
}
Add(GetDataEx,5306010,672,231)
{
Angle=3
link(Data,14118122:Value,[(605,236)(605,303)(573,303)])
}
Add(Memory,14118122,567,259)
{
link(onData,7439446:doExec,[])
}
Add(StrList,11576084,861,259)
{
Point(doGetIndex)
Point(onGetIndex)
Point(StrToFind)
link(Str,8905776:Var2,[])
}
Add(GetDataEx,4597172,784,231)
{
Angle=3
link(Data,5306010:Var3,[])
}
Add(ArrayCountRepeats,7186409,875,371)
{
link(onEndCount,13785097:doEnum,[(920,384)(920,410)(863,410)(863,426)])
link(Array,11576084:Array,[])
}
Add(Hub,1339603,749,343)
{
link(onEvent1,13536524:doCompare,[(773,349)(773,265)])
link(onEvent2,12030384:doCompare,[])
}
Add(MTStrTbl,7011868,63,252)
{
Top=220
Width=755
Height=296
Align=4
Name="main2"
ModeSp=2
Columns=#20:Посещаемые места=600|9:Всего=100|0:|
ColumnClick=1
Redaction=0
link(onColumnClick,1474935:doSet,[])
}
Add(MST_RowAction,5880828,931,420)
{
MSTControl="main2"
}
Add(MT_MTArrayEnum,13785097,875,420)
{
link(onItem,5880828:doRowAction,[])
link(Array,7186409:ArrayCount,[])
}
Add(MST_SortInCol,2991239,168,252)
{
MethodSort=1
MSTControl="main2"
Point(doSortDigit)
}
Add(MultiSetParam,1474935,112,259)
{
Parameters=#3: ;0|3:1; |
Count=2
link(onSet1,2991239:doSortDigit,[])
link(onSet2,2991239:doSort,[(152,272)(152,258)])
}
Add(MST_Clear,12150269,154,63)
{
MSTControl="main2"
}
Add(LineBreak,11875486,819,266)
{
Caption="X"
link(Out,11576084:doClear,[])
Primary=[3415459,-665,-168]
}
Add(ChildPanel,6091457,392,378)
{
}
BEGIN_SDK
Add(EditMulti,7205413,21,21)
{
WorkCount=1
link(doWork1,12905673:doVisible,[(28,27)(28,118)])
}
Add(Panel,12905673,49,105)
{
Left=70
Top=75
Width=260
Font=[Consolas,10,0,32768,0]
Visible=1
Caption=" Ждите, страница загружается..."
Point(doVisible)
}
END_SDK
Add(Hub,13878383,322,371)
{
link(onEvent1,7186409:doCount,[])
link(onEvent2,16297975:doWork1,[])
}
Add(ChanelToIndex,16297975,350,378)
{
link(onIndex,6091457:doWork1,[])
}
Add(If_else,13536524,784,259)
{
Type=5
link(onTrue,11576084:doAdd,[])
link(Op1,4597172:Var2,[])
}
Add(GetDataEx,8905776,861,231)
{
Angle=3
link(Data,4597172:Var3,[])
}
Add(WebBrowser,11765114,154,126)
{
Left=320
Top=130
Visible=1
Enabled=1
URL="http://www.hiasm.com/xf/online.php"
link(onStatus,6065431:doCompare,[])
}
Add(If_else,6065431,210,140)
{
Op2=String(Готово)
link(onTrue,15864912:doSearch,[])
link(onFalse,16297975:doWork2,[(254,153)(254,391)])
}
Add(LineBreak,2609305,357,182)
{
Caption="X"
link(Out,10716027:doClear,[(397,188)(397,153)])
Primary=[7596394,-154,-77]
}

Прежде основу схемы составлял компонент TCP_Client, но в последний момент данная страница перестала откликаться, поэтому перешел на WebBrowser, сохранив скорость. Вроде, работает пока.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
1
Сообщение
...
Прикрепленные файлы
(файлы не залиты)