AutoIt BETA

1. offizieller Beitrag

    Hier:

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.0.0
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #include <StructureConstants.au3>
    #include <GUIScrollBars.au3>
    #include <ScrollBarConstants.au3>
    #include <ListViewConstants.au3>

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

    Global $OldPos_1, $OldPos_2, $OldPos_3
    Global $CurrentPage = 1
    Global $ISCMDLINE = 0, $nMsg

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

    $MainGUI_Handle = GUICreate("News", 512, 347)

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

    GUICtrlCreateGraphic(0, 0, 512, 35)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    GUICtrlCreateLabel("", 0, 35, 512, 2, -1, $WS_EX_STATICEDGE)

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

    $Tab_News = GUICtrlCreateLabel(@CRLF & "Newsfeeds", 10, 0, 100, 35, $SS_CENTER)
    GUICtrlSetBkColor(-1, 0xC1D2EE)

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

    $Tab_PlugIns = GUICtrlCreateLabel(@CRLF & "Plug-Ins", 112, 0, 100, 35, $SS_CENTER)
    GUICtrlSetBkColor(-1, 0xFFFFFF)

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

    $Tab_Download = GUICtrlCreateLabel(@CRLF & "Plug-Ins herunterladen", 214, 0, 130, 35, $SS_CENTER)
    GUICtrlSetBkColor(-1, 0xFFFFFF)

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

    $TabGUI_1 = GUICreate("TabSheet1", 512, 310, 0, 37, $WS_CHILD, -1, $MainGUI_Handle)

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

    $TabGUI_2 = GUICreate("TabSheet2", 512, 310, 0, 37, $WS_CHILD, -1, $MainGUI_Handle)
    $TabGUI_2_ListView = GUICtrlCreateListView("Plug-Ins", 8, 8, 496, 260)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 492)
    $TabGUI_2_Button_Update = GUICtrlCreateButton("Nach Updates suchen", 368, 275, 131, 25, $WS_GROUP)
    GUISetState(@SW_HIDE, $TabGUI_2)

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

    $TabGUI_3 = GUICreate("TabSheet3", 512, 310, 0, 37, $WS_CHILD, -1, $MainGUI_Handle)

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

    GUICtrlCreateInput("Suche nach Plug-Ins", 8, 8, 140, 23)

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

    GUICtrlCreateGraphic(8, 37, 496, 1)
    GUICtrlSetColor(-1, 0x7F9DB9)

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

    GUICtrlCreateGraphic(8, 302, 496, 1)
    GUICtrlSetColor(-1, 0x7F9DB9)

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

    GUICtrlCreateGraphic(7, 37, 1, 266)
    GUICtrlSetColor(-1, 0x7F9DB9)

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

    GUICtrlCreateGraphic(503, 37, 1, 266)
    GUICtrlSetColor(-1, 0x7F9DB9)

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

    $TabGUI_4 = GUICreate("TabSheet4", 496, 264, 8, 38, $WS_CHILD, -1, $TabGUI_3)
    _GUIScrollBars_Init($TabGUI_4)
    _GUIScrollBars_ShowScrollBar($TabGUI_4, $SB_HORZ, False)
    GUISetBkColor(0xFFFFFF, $TabGUI_4)
    GUISetState(@SW_SHOW, $TabGUI_4)

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

    GUISetState(@SW_HIDE, $TabGUI_3)
    GUISetState(@SW_SHOW, $MainGUI_Handle)

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

    While 1
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    WinSetState($MainGUI_Handle, "", @SW_HIDE)
    Exit

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

    Case $Tab_News
    If _IsPressedCtrl($MainGUI_Handle, $Tab_News) Then
    _SetWindowHide()
    _SetColor()
    $CurrentPage = 1
    _SetColor2()
    Else
    GUICtrlSetBkColor($Tab_PlugIns, 0xFFFFFF)
    EndIf

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

    Case $Tab_PlugIns
    If _IsPressedCtrl($MainGUI_Handle, $Tab_PlugIns) Then
    _SetWindowHide()
    GUISetState(@SW_SHOW, $TabGUI_2)
    _SetColor()
    $CurrentPage = 2
    _SetColor2()
    Else
    GUICtrlSetBkColor($Tab_PlugIns, 0xFFFFFF)
    EndIf

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

    Case $Tab_Download
    Switch $ISCMDLINE
    Case 0
    If _IsPressedCtrl($MainGUI_Handle, $Tab_Download) Then
    _SetWindowHide()
    GUISetState(@SW_SHOW, $TabGUI_3)
    _SetColor()
    $CurrentPage = 3
    _SetColor2()
    Else
    GUICtrlSetBkColor($Tab_PlugIns, 0xFFFFFF)
    EndIf
    Case 1
    _SetWindowHide()
    GUISetState(@SW_SHOW, $TabGUI_3)
    _SetColor()
    $CurrentPage = 3
    _SetColor2()
    $ISCMDLINE = 0
    EndSwitch
    EndSwitch
    $nMsg = GUIGetMsg()
    _Pic()
    WEnd

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

    Func _IsPressedCtrl($hWnd, $Control_Hwnd)
    $Cursorinfo99 = GUIGetCursorInfo($hWnd)
    If IsArray($Cursorinfo99) Then
    While $Cursorinfo99[4] = $Control_Hwnd
    $Cursorinfo99 = GUIGetCursorInfo($hWnd)
    If Not $Cursorinfo99[2] Then
    Return 1
    ExitLoop
    EndIf
    Sleep(10)
    WEnd
    EndIf
    Return 0
    EndFunc ;==>_IsPressedCtrl

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

    Func _Pic()
    $CursorInfo = GUIGetCursorInfo($MainGUI_Handle)
    Switch IsArray($CursorInfo)
    Case 1
    ;===========================================
    Switch $CursorInfo[4]
    Case $Tab_News
    Switch $CursorInfo[4]
    Case $OldPos_1
    Case Else
    If $CurrentPage <> 1 Then GUICtrlSetBkColor($Tab_News, 0xE0E8F6)
    $OldPos_1 = $CursorInfo[4]
    EndSwitch
    Case Else
    If $CursorInfo[4] <> $OldPos_1 Then
    Switch $CurrentPage
    Case 1
    GUICtrlSetBkColor($Tab_News, 0xC1D2EE)
    Case Else
    GUICtrlSetBkColor($Tab_News, 0xFFFFFF)
    EndSwitch
    $OldPos_1 = $CursorInfo[4]
    EndIf
    EndSwitch
    ;===========================================
    Switch $CursorInfo[4]
    Case $Tab_PlugIns
    Switch $CursorInfo[4]
    Case $OldPos_2
    Case Else
    If $CurrentPage <> 2 Then GUICtrlSetBkColor($Tab_PlugIns, 0xE0E8F6)
    $OldPos_2 = $CursorInfo[4]
    EndSwitch
    Case Else
    Switch $CursorInfo[4]
    Case $OldPos_2
    Case Else
    Switch $CurrentPage
    Case 2
    GUICtrlSetBkColor($Tab_PlugIns, 0xC1D2EE)
    Case Else
    GUICtrlSetBkColor($Tab_PlugIns, 0xFFFFFF)
    EndSwitch
    $OldPos_2 = $CursorInfo[4]
    EndSwitch
    EndSwitch
    ;===========================================
    Switch $CursorInfo[4]
    Case $Tab_Download

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

    Switch $CursorInfo[4]
    Case $OldPos_3
    Case Else
    If $CurrentPage <> 3 Then GUICtrlSetBkColor($Tab_Download, 0xE0E8F6)
    $OldPos_3 = $CursorInfo[4]
    EndSwitch
    Case Else
    Switch $CursorInfo[4]
    Case $OldPos_3
    Case Else
    Switch $CurrentPage
    Case 3
    GUICtrlSetBkColor($Tab_Download, 0xC1D2EE)
    Case Else
    GUICtrlSetBkColor($Tab_Download, 0xFFFFFF)
    EndSwitch
    $OldPos_3 = $CursorInfo[4]
    EndSwitch
    EndSwitch
    ;===========================================
    EndSwitch
    EndFunc ;==>_Pic

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

    Func _SetColor2()
    Switch $CurrentPage
    Case 1
    GUICtrlSetBkColor($Tab_News, 0xC1D2EE)
    Case 2
    GUICtrlSetBkColor($Tab_PlugIns, 0xC1D2EE)
    Case 3
    GUICtrlSetBkColor($Tab_Download, 0xC1D2EE)
    EndSwitch
    EndFunc ;==>_SetColor2

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

    Func _SetWindowHide()
    Switch $CurrentPage
    Case 1
    ;~ GUICtrlSetBkColor($Tab_News, 0xFFFFFF)
    ;~ GUISetState(@SW_HIDE, $TabGUI_1)
    Case 2
    GUISetState(@SW_HIDE, $TabGUI_2)
    Case 3
    GUISetState(@SW_HIDE, $TabGUI_3)
    EndSwitch
    EndFunc ;==>_SetWindowHide

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

    Func _SetColor()
    Switch $CurrentPage
    Case 1
    GUICtrlSetBkColor($Tab_News, 0xFFFFFF)
    Case 2
    GUICtrlSetBkColor($Tab_PlugIns, 0xFFFFFF)
    Case 3
    GUICtrlSetBkColor($Tab_Download, 0xFFFFFF)
    EndSwitch
    EndFunc ;==>_SetColor

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

    Du musst dabei auf Plug-Ins klicken. Danach taucht unten rechts ein Button auf. Jetzt beweg mal den Cursor über dem Button hin und her. Bei mir fangen nach 2 Sekunden die Labels oben an zu flackern.

    Also ich habe mein System mal auf Ubuntu mit der PHP-Version 5.2.4 geuppt und bei mir funktioniert unser Script immer noch.

    Ich muß auch GunFood was gestehen..... ich glaube die Serverausfälle hat das Script verursacht, weil file_get_content irgendwie net mag.
    Kennt jemand eine Lösung?????

    Bitte hier melden.


    EDIT:
    Ich werde nun auch mal auf 5.2.11 updaten.

    MfG
    Der_Doc

    Einmal editiert, zuletzt von Der_Doc (18. Oktober 2009 um 13:52)

    Mein Script stimmt net ganz. :rolleyes: (Pee wird es mir verzeihen)
    Ok mal kurz eine Erklärung.

    Hinter der Portalbox "Autoit Downloads" steckt ein etwas aufwendigeres Script, was (im Moment noch) alle Stunde bestimmte Webseitenteile (autoitscript.com) nach Änderungen durchsucht.
    Wenn es eine Änderung feststellt (das tut es in dem es eine Datenbank dagegen laufen lässt), wird die Änderung in die Datenbank geschrieben, und die nächste Stunde wird immer nur die Datenbank abgefragt. Wenn die Stunde rum ist, löst der User der als erstes nach der Zeit das Portal aktualisiert das Script wieder aus.

    Im Moment wird die Datenbank nur leider nicht aktualisiert, da "unser" Script ;) keine Antwort auf die Funktion file_get_content bekommt.

    EDIT: :rofl: so und nun lese ich auch deine Frage.
    Sorry

    Aber leider weis ich darauf keine Antwort.
    Mach doch lieber mal nen neuen thread auf, weil ich glaube das dieser Punkt noch etwas brauch. Sorry deswegen ging auch deine Frage leider unter.

    MfG
    Der_Doc

    Hust .... da lag schon Staub auf dem Thema.

    Ich wollte nur mitteilen, das die AutoitDownloads nun wieder automatisch funktionieren und nur noch alle 24 Stunden aktualisiert werde.
    Dies sollte unser IP net so schnell verbrennen.

    MfG
    Der_Doc

    • Offizieller Beitrag

    Hast du gut gemacht. :thumbup:;)

    Eigentlich sollte es gehen.
    Das Update von Scite hat das Skript auch alleine gefunden.

    Das ganze wird von Autoisskript.com abgefragt.

    Soweit wie ich sehe wäre auf translation das ganze um 13:53 und unter Autoit.de um 18:19 soweit.

    Lassen wir uns mal überraschen :)
    Werde aber heute abend mal schauen.

    MfG
    Der_Doc