Вверх ↑
Ответов: 1536
Рейтинг: 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