Dreamhack Webcam

  • So liebe Community

    Da GunFood so nett war und eineWebcam eingerichtet hat, habe ich ein kleine s Programm geschrieben, was das aktuelle Bild der Webcam zeigt, so müsst ihr nicht immer erst auf den Blog... ;)

    Achtung evt meckert wurde FW das das Programm eine Internetverbindung herstellt

    Grund: eigentlich logisch, die Bilder sind ja nicht lokal auf dem Rechner...

    Waluev :rock:

    [autoit]


    #include <GUIConstants.au3>
    #include <IE.au3>

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

    _IEErrorHandlerRegister()

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

    $oIE = _IECreateEmbedded()

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

    GUICreate("Dreamhack - Lifecam")
    GUISetBkColor(0x3C3C3C)

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

    GUICtrlCreateObj($oIE, 10, 10, 362, 300)

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

    $Checkbox = GUICtrlCreateCheckbox("Auto refresh", 10, 320)
    $button = GUICtrlCreateButton(" refresh ", 90, 320)
    GUISetState()

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

    _IENavigate($oIE, "http://dreamhack.aufwaerts.info/webcam1.jpg")

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

    Do
    If GUICtrlRead($Checkbox) = 1 Then
    Sleep(10000)
    _IEAction($oIE, "refresh")
    Else
    EndIf
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $button
    _IEAction($oIE, "refresh")
    EndSelect
    Until Not WinExists("Dreamhack - Lifecam")

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

    ;----
    ; by Waluev
    ; help: Daniel W.
    ; Pics from DreamhackLAN Party made by GunFood
    ;----

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

    Flensburg ist wie Payback - wenn man 18 Punkte hat bekommt man ein Fahrrad.

    Einmal editiert, zuletzt von Waluev (16. Juni 2007 um 15:29)

  • Funktioniert fast einwandfrei , ausser das es sich ned mehr schliessen lässt (durch drücken des roten X)

    So gehts :) :

    [autoit]

    #include <GUIConstants.au3>
    #include <IE.au3>

    _IEErrorHandlerRegister()

    $oIE = _IECreateEmbedded()

    GUICreate("Dreamhack - Lifecam")
    GUISetBkColor(0x3C3C3C)

    GUICtrlCreateObj($oIE, 10, 10, 362, 300)

    $Checkbox = GUICtrlCreateCheckbox("Auto refresh", 10, 320)
    $button = GUICtrlCreateButton(" refresh ", 90, 320)
    GUISetState()


    _IENavigate($oIE, "http://dreamhack.aufwaerts.info/webcam1.jpg")

    While 1
    If GUICtrlRead($Checkbox) = 1 Then
    Sleep(10000)
    _IEAction($oIE, "refresh")
    EndIf
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $button
    _IEAction($oIE, "refresh")
    EndSelect
    WEnd


    ;----
    ; by Waluev
    ; help: Daniel W.
    ; Pics from DreamhackLAN Party made by GunFood
    ;----

    [/autoit]

    Dieser Beitrag wurde 9521 mal editiert, zum letzten Mal von Blubkuh: Morgen, 02:28.

    [autoit]

    If Not $Elephant Then $Irelephant = True

    [/autoit]
    • Offizieller Beitrag

    Hallo

    erstens wird Livecam mit v und nicht mit f geschrieben :P und zweitens kann man die gui erst nach ca 10 sekunden schließen wenn man auf autorefresh gedrückt hat... so is es besser:

    [autoit]

    #include <GUIConstants.au3>
    #include <IE.au3>

    _IEErrorHandlerRegister()

    $oIE = _IECreateEmbedded()

    GUICreate("Dreamhack - Livecam")
    GUISetBkColor(0x3C3C3C)

    GUICtrlCreateObj($oIE, 10, 10, 362, 300)

    $Checkbox = GUICtrlCreateCheckbox("Auto refresh", 10, 320)
    $button = GUICtrlCreateButton("refresh ", 90, 320)
    GUISetState()


    _IENavigate($oIE, "http://dreamhack.aufwaerts.info/webcam1.jpg")

    While 1

    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $button
    _IEAction($oIE, "refresh")
    Case $msg = $Checkbox
    If GUICtrlRead($Checkbox) = 1 Then
    AdlibEnable("refresh",5000)
    Else
    AdlibDisable()
    EndIf
    EndSelect
    WEnd

    Func refresh()
    _IEAction($oIE, "refresh")
    EndFunc

    ;----
    ; by Waluev
    ; help: Daniel W.&GtaSpider
    ; Pics from DreamhackLAN Party made by GunFood
    ;----

    [/autoit]

    Vielen dank nochma an Gunfood für die Livecam :)

    Mfg Spider

  • Thx euch beiden, hab es von den Maßen jetzt nochmal etwas angepasst


    [autoit]


    #include <GUIConstants.au3>
    #include <IE.au3>

    _IEErrorHandlerRegister()

    $oIE = _IECreateEmbedded()

    GUICreate("Dreamhack - Livecam",415,400)
    GUISetBkColor(0x3C3C3C)

    GUICtrlCreateObj($oIE, 10, 10, 395, 325)

    $Checkbox = GUICtrlCreateCheckbox("Auto refresh", 10, 340)
    $button = GUICtrlCreateButton(" refresh ", 95, 340)
    GUISetState()


    _IENavigate($oIE, "http://dreamhack.aufwaerts.info/webcam1.jpg")

    While 1

    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $button
    _IEAction($oIE, "refresh")
    Case $msg = $Checkbox
    If GUICtrlRead($Checkbox) = 1 Then
    AdlibEnable("refresh",5000)
    Else
    AdlibDisable()
    EndIf
    EndSelect
    WEnd

    Func refresh()
    _IEAction($oIE, "refresh")
    EndFunc

    ;----
    ; by Waluev
    ; help: Daniel W.&GtaSpider
    ; Pics from DreamhackLAN Party made by GunFood
    ;----

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

    Flensburg ist wie Payback - wenn man 18 Punkte hat bekommt man ein Fahrrad.