Handball WM Live Ticker

1. offizieller Beitrag
    • Offizieller Beitrag

    Hallo!

    So jetzt noch mal 15 minuten vor anpfiff will ich mein Live Ticker vorstellen, den ich grad noch schnell erstellt hab, für die die nich genung zeit haben sich vorm fernseher zusetzen oder einfach für die die keine lust haben sich das spiel anzugucken.. Konnte den Liveticker leider ja noch nich 100%ig ausprobieren, da das spiel ja noch nich angepfiffen ist, aber es sollte eigetnlich gehen :)

    So.. Hier der Handball WM LiveTicker

    EDIT: Mal schnell in der halbzeit verbessert ;)

    [autoit]

    #include <inet.au3>
    #include <date.au3>

    [/autoit][autoit][/autoit][autoit]

    #include <GUIConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    Global $ListView[4]

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $maingui = GUICreate("Handball WM", 264, 180, 203, 119, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
    GUISetBkColor(0)

    [/autoit][autoit][/autoit][autoit]

    $mainlistview = GUICtrlCreateListView("Teams |Score |Time ", 8, 8, 250, 150)

    [/autoit][autoit][/autoit][autoit]

    $timeinput = GUICtrlCreateInput(10, 80, 160, 47, 15)
    GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif")

    [/autoit][autoit][/autoit][autoit]

    GUICtrlCreateUpdown($timeinput)
    GUICtrlSetLimit(-1,999,1)

    [/autoit][autoit][/autoit][autoit]

    GUICtrlCreateLabel("Update every", 8, 160, 68, 15)
    GUICtrlSetColor(-1, 0xffffff)
    GUICtrlCreateLabel("Seconds", 128, 160, 46, 15)
    GUICtrlSetColor(-1, 0xffffff)

    [/autoit][autoit][/autoit][autoit]

    ;~ $ListView[0] = GUICtrlCreateListViewItem("",$mainlistview)
    $ListView[1] = GUICtrlCreateListViewItem("",$mainlistview)

    [/autoit][autoit][/autoit][autoit]

    gUISetState()

    [/autoit][autoit][/autoit][autoit]

    _Refresh()

    [/autoit][autoit][/autoit][autoit]

    AdlibEnable("_Refresh",10*1000)

    [/autoit][autoit][/autoit][autoit]

    Do
    $msg = GUIGetMsg()
    If $msg = $timeinput Then
    AdlibDisable()
    AdlibEnable("_Refresh",GUICtrlRead($timeinput)*1000)
    EndIf
    Until $msg = $GUI_EVENT_CLOSE

    [/autoit][autoit][/autoit][autoit]

    Func _Refresh()
    GUISetBkColor(0xFFFFFF)
    Local $curplay
    Local $curscore
    Local $ret[4]

    [/autoit][autoit][/autoit][autoit]

    $inetgetsource = _INetGetSource("http://wch07live.ihf.info/html/ticker.html")
    ;~
    $date = _DateTimeFormat(_NowCalcDate(),2)

    [/autoit][autoit][/autoit][autoit]

    If Not StringInStr($inetgetsource,$date) Then Exit MsgBox(0,"","No Game today!")
    ;~ $curplay = StringTrimLeft($inetgetsource,StringInStr($inetgetsource,'K&ouml;ln</td><td>')+17)
    ;~ $curplay = StringLeft($curplay,StringInStr($curplay,"</td>")-1)

    [/autoit][autoit][/autoit][autoit]

    ;~ $curscore = StringTrimLeft($inetgetsource,StringInStr($inetgetsource,"<td>&nbsp;")+9)
    ;~ $curscore = StringLeft($curscore,StringInStr($curscore,")</td>"))
    ;~
    ;~ $ret[0] = $curplay&"|"&$curscore&"|-"

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $curscore = StringTrimLeft($inetgetsource,StringInStr($inetgetsource,"<td>&nbsp;",0,4)+9);pol-den
    $curscore = StringLeft($curscore,StringInStr($curscore,")</td>"))

    [/autoit][autoit][/autoit][autoit]

    $curplay = StringLeft($inetgetsource,StringInStr($inetgetsource,'</td><td>&nbsp;'&$curscore)-1)
    $curplay = StringRight($curplay,7)

    $curtime = StringLeft($inetgetsource,StringInStr($inetgetsource,'</td></tr></tbody></table><p>&nbsp;')-3)
    $curtime = StringTrimLeft($curtime,StringInStr($curtime,"&nbsp;",0,-1)+5)
    If $curtime = "" Then $curtime = "0:00"
    $ret[1] = $curplay&"|"&$curscore&"|"&$curtime

    GUICtrlSetData($ListView[1],$ret[1])

    GUISetBkColor(0)
    Return $ret
    EndFunc

    [/autoit]

    Viel Spaß wünscht euch euer Spider ;)

    MFg Spider