Beiträge von tobi_girst

  • [ERLEDIGT] probleme mit lan, aber keine mit internet

    Hallo! Ich habe mir auf meinem alten Rechner (Vista) einen HTTP-Server eingerichtet, der dann ein paar au3-Skripte startet und meine TV-Karte streamt.
    Von dem Server-Rechner habe ich Zugriff auf das Internet (funktioniert), ich kann auch über localhost, 127.0.0.1 und der localIP auf meinen httpd-Server zugreifen.Wenn ich aber die LokalIP in einem anderen PC eingebe, kommt timeout bei FF, IE und Ping-Abfrage.
    kann mir irgenjemand Tipps zum lösen geben? Oder ein Board/Site vorschlagen? Es zipft mich langsam an!!!1
    LG, Tobias

    edit :hab ich vergessen: habe es mit 2wlan-teilen und 1lan-kabel getestet (laufen alle zum gleichen router) und im status vom gerät wird angezeigt, dass ein signal eingeht (Eingehende Bytes wird größer), aber rausgehen tun nur ein paar Bytes, dann kommt TimeOut.

  • Quickfolder

    Habe neulich ein kleines Skript gebastelt, welches Ordner wie Kontext-Menüs darstellt.
    Programm ist bis auf den Wizard für neue Shortcuts (in englisch verfasst) sprachneutral.
    Features:

    • Öffnet bei MousePos, passt sich bei Bedarf aber an Bildschirmrand an
    • In der Windows7-Quicklaunch (k.a. wie das jetzt heißt) öffnet es sich wie ein kleines Startmenü (-> Screenshot)
    • Scrollbar bei zu langer Ordnerliste
    • Wizard zum Erstellen weiterer Shortcuts
    • Arbeitet mit Parametern und WorkingDir, daher keine lästigen ini-Dateien
    • Setup von InnoSetup
    • Gesamter Quellcode im Installationsverzeichnis enthalten
    • Am besten mit Win7Aero


    Bugs:

    • Wenn man eine Datei anklickt, verliert das Scrollrad an Wirkung (bei vertikaler Scrollbar aktiviert)
    • Weil mit @DesktopHeight u. @DesktopWidth berechnet wird, ob das Fester noch Platz hat, öffnet das Fenster immer am primären Monitor
    • Noch nicht im Wizard installiert: Hover ein spezielles Element beim öffnen des Ordners ($CMDLine[1]="Nummer des Elements")


    Bei Änderungen am Skript würde ich mich über eine eMail freuen (Adresse im licence-File enthalten)
    Hoffe um konstruktive Kritik
    Tobias

    "Readme"

  • Secreen - virtueller zweiter Bildschirm

    hoffe, das ist, was du wolltest:

    "Norton"

    >>>> Window <<<<
    Title:
    Class: SideBar_HTMLHostWindow
    Position: 1132, 5
    Size: 127, 58
    Style: 0x96010000
    ExStyle: 0x00080080
    Handle: 0x000000000001019E

    >>>> Control <<<<
    Class: Internet Explorer_Server
    Instance: 1
    ClassnameNN: Internet Explorer_Server1
    Name:
    Advanced (Class): [CLASS:Internet Explorer_Server; INSTANCE:1]
    ID:
    Text:
    Position: 0, 0
    Size: 127, 58
    ControlClick Coords: 62, 28
    Style: 0x56000000
    ExStyle: 0x00000000
    Handle: 0x00000000000101CC

    >>>> Mouse <<<<
    Position: 1194, 33
    Cursor ID: 0
    Color: 0x05AF0F

    >>>> StatusBar <<<<

    >>>> ToolsBar <<<<

    >>>> Visible Text <<<<


    >>>> Hidden Text <<<<

    &quot;CPU (direkt von Microsoft)&quot;

    >>>> Window <<<<
    Title:
    Class: SideBar_HTMLHostWindow
    Position: 1129, 62
    Size: 130, 101
    Style: 0x96010000
    ExStyle: 0x00080080
    Handle: 0x00000000000101A0

    >>>> Control <<<<
    Class: Internet Explorer_Server
    Instance: 1
    ClassnameNN: Internet Explorer_Server1
    Name:
    Advanced (Class): [CLASS:Internet Explorer_Server; INSTANCE:1]
    ID:
    Text:
    Position: 0, 0
    Size: 130, 101
    ControlClick Coords: 50, 53
    Style: 0x56000000
    ExStyle: 0x00000000
    Handle: 0x00000000000101CE

    >>>> Mouse <<<<
    Position: 1179, 115
    Cursor ID: 0
    Color: 0x666769

    >>>> StatusBar <<<<

    >>>> ToolsBar <<<<

    >>>> Visible Text <<<<


    >>>> Hidden Text <<<<

    &quot;Desktop&quot;

    >>>> Window <<<<
    Title: Program Manager
    Class: Progman
    Position: 0, 0
    Size: 1280, 1024
    Style: 0x96000000
    ExStyle: 0x00000080
    Handle: 0x0000000000010132

    >>>> Control <<<<
    Class: SysListView32
    Instance: 1
    ClassnameNN: SysListView321
    Name:
    Advanced (Class): [CLASS:SysListView32; INSTANCE:1]
    ID: 1
    Text: FolderView
    Position: 0, 0
    Size: 1280, 1024
    ControlClick Coords: 1009, 306
    Style: 0x56003A40
    ExStyle: 0x00000000
    Handle: 0x0000000000010138

    >>>> Mouse <<<<
    Position: 1009, 306
    Cursor ID: 0
    Color: 0xD1D6DC

    >>>> StatusBar <<<<

    >>>> ToolsBar <<<<

    >>>> Visible Text <<<<
    FolderView


    >>>> Hidden Text <<<<

  • Apng (Animated portable network grafik) - AutoIT unterstützt?

    @chip:der IE (v8 ) nimmt apng-Grafiken nicht an...das kann bisher nur FF, Opera, flock+seamonkey. Möglich wäre ein _FFCreateEmbedded(sofern es das bereits gibt; Kein Transparenter Hintergrund: BG=HTML-Hintergrund) oder die Apng-Datei in mehrere PNG-Files zu splitten (Frame für Frame) und dann per Schleife das Bild im GDI+-Control auszutauschen.
    Grüße
    Edit: hier Browser-APNG-Unterstütztung testen

  • News of the World - Downloader

    Dieses kleine Script lädt euch die letzte Ausgabe der NotW herunter, die wegen eines Abhörskandals geschlossen wurde.

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.6.1
    Author: [email='tobi_girst@autoit.de'][/email]

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

    Script Function:
    laedt die letzte news of the world von der offiziellen seite herunter
    ~ Standardausgabe (finalissue)
    ~ Schottische Ausgabe (scotfinal)
    ~ Herasnehmbares "Souvenier" (FINAL)

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

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

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

    _get ("finalissue", 68)
    _get ("FINAL", 47)
    _get ("scotfinal", 73)
    MsgBox (64, "Fertig!", "Download abgeschlossen!")
    Func _get ($zid, $cnt)
    $i = 1
    If DirGetSize (@scriptdir & "\News of the World") Then DirCreate (@scriptdir & "\News of the World")
    If DirGetSize (@scriptdir & "\News of the World\" & $zid) Then DirCreate (@scriptdir & "\News of the World\" & $zid)
    ;~ If DirGetSize (@scriptdir & "\News of the World\" & $zid & "\small") Then DirCreate (@scriptdir & "\News of the World\" & $zid & "\small")
    ;~ If DirGetSize (@scriptdir & "\News of the World\" & $zid & "\medium") Then DirCreate (@scriptdir & "\News of the World\" & $zid & "\medium")
    If DirGetSize (@scriptdir & "\News of the World\" & $zid & "\large") Then DirCreate (@scriptdir & "\News of the World\" & $zid & "\large")
    Do
    ;~ InetGet ("http://www.newsoftheworld.co.uk/downloads/" & $zid & "/small/" & $i & ".jpg", @scriptdir & "\News of the World\" & $zid & "\small\" & $i & ".jpg")
    ;~ InetGet ("http://www.newsoftheworld.co.uk/downloads/" & $zid & "/medium/" & $i & ".jpg", @scriptdir & "\News of the World\" & $zid & "\medium\" & $i & ".jpg")
    InetGet ("http://www.newsoftheworld.co.uk/downloads/" & $zid & "/large/" & $i & ".jpg", @scriptdir & "\News of the World\" & $zid & "\large\" & $i & ".jpg")
    $i += 1
    Until $i = $cnt+1
    EndFunc

    [/autoit]

    Grüße Tobias

  • IE-Probleme

    Hallo liebe Community!
    Ich habe ein Script (GUI mit IE.obj). Dabei hab ich 2 Probleme:
    Ich lade eine Seite mit einem Flashobject (das geht),
    1. aber ich würde gern vom swf die width+height-Attribute ändern.
    2. den JS-Code ohne Runterladen von

    Code
    <script type='text/javascript'>//.... 
so.addVariable('variable','false');
//....
</script>

    zu

    Code
    so.addVariable('variable','true');

    ändern

  • Flash im _IECreateEmbedded

    Liebe Com!
    Ich habe mir ein programm geschrieben, das via _IECreateEmbedded einen Flashplayer im ScriptDir öffenet und mit flashvars die URL zu Video angegeben.
    Wenn ich das programm mit {F5} im Scite öffne, klappt es wunderbar. Direkt aber streikt mir der Flashplayer und es wird das "keine Datei"-x im Iexplorer angezeigt.
    Code vom Object:

    [autoit]

    #include <IE.au3>
    $url = "datei.flv"
    $oIE = _IECreateEmbedded ()
    $hGUI = GUICreate ("FlashPlay", 600, 382)
    GUICtrlCreateObj ($oIE, -2, -2, 604, 366)
    GUISetState ()
    _IENavigate ($oIE, "about:blank", 0)
    _IEDocWriteHTML ($oIE, "<html><body bgcolor=#00000 topmargin='0' leftmargin='0'><center><br><br><br><br><br><br><br><br><font color=#FF5500 face=Arial size4em>FlashPlay 0.001</color></center></body><html>")
    $oIE.document.body.scroll = "no"
    _IEBodyWriteHTML ($oIE, '<embed type="application/x-shockwave-flash" ' & _
    'src="' & @ScriptDir & '\player.swf" ' & _
    'quality="high" ' & _
    'allowfullscreen="true" ' & _
    'allowscriptaccess="always" ' & _
    'wmode="opaque" ' & _
    'flashvars="file=' & $url & '&backcolor=cccccc&bufferlength=1&autostart=true" ' & _
    'width="600" ' & _
    'height="362"></embed>')
    While GUIGetMsg () <> -3
    Sleep (10)
    WEnd

    [/autoit]

  • Win7 - NewDesign GUI

    Habe ein paar Scripte zusammengebastelt und eine neue GUI-Form kreiert.
    Credits:

    • Authenticity (US-Forum) für Glass-Effekt
    • Mr_gitarre (von hier): Progress-Color


    Have fun!

    Code
    [autoit]

    #region header
    #include<SendMessage.au3>
    #include <Date.au3>
    #include <WindowsConstants.au3>
    #include <GuiButton.au3>
    #Include <GuiImageList.au3>
    #include<ProgressConstants.au3>
    Opt("MustDeclareVars", 1)
    If Not IsDeclared("WM_DWMCOMPOSITIONCHANGED") Then Global Const $WM_DWMCOMPOSITIONCHANGED = 0x031E
    Global Const $PBST_NORMAL = 0x0001
    Global Const $PBST_ERROR = 0x0002
    Global Const $PBST_PAUSED = 0x0003
    Global $i = 0
    Global $go = True
    Global Const $pauseimg = _GUIImageList_Create(23, 23, 5, 3, 6)
    _GUIImageList_AddIcon($pauseimg, "imageres.dll", 102, True)
    ;~ _GUIImageList_AddIcon($pauseimg, "shell32.dll", 212, True); hover image
    Global Const $restartimg = _GUIImageList_Create(23, 23, 5, 3, 6)
    _GUIImageList_AddIcon($restartimg, "imageres.dll", 101, True)
    ;~ _GUIImageList_AddIcon($restartimg, "shell32.dll", 212, True); hover image
    Global Const $stopimg = _GUIImageList_Create(23, 23, 5, 3, 6)
    _GUIImageList_AddIcon($stopimg, "imageres.dll", 100, True)
    ;~ _GUIImageList_AddIcon($stopimg, "shell32.dll", 212, True); hover image
    Global Const $exitimg = _GUIImageList_Create(23, 23, 5, 3, 6)
    _GUIImageList_AddIcon($exitimg, "imageres.dll", 218, True)
    ;~ _GUIImageList_AddIcon($stopimg, "shell32.dll", 212, True); hover image
    #endregion header

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

    Global $hGUI = GUICreate ("Loading...", 110, 83, -1, -1, 0x00400000)
    Global $p = GUICtrlCreateProgress (5, 20-14, 340-240, 20)
    Global $pause = GUICtrlCreateButton ("", 5, 45-15, 50, 25, 0x0040);Pause
    _GUICtrlButton_SetImageList ($pause, $pauseimg, 2)
    Global $stop = GUICtrlCreateButton ("", 55, 45-15, 50, 25);Stop
    _GUICtrlButton_SetImageList ($stop, $stopimg, 2)
    GUICtrlSetImage ($stop, @SystemDir & "\imagere.dll", 101)
    Global $hTheme = _WinAPI_OpenThemeData($hGUI, "globals")
    Global $childgui = GUICreate ("", 17, 17, 109, 45, 0x80000000, 0x00000040, $hGUI)
    _GUICreateRoundRect($childgui, 5, 5)
    Global $exit = GUICtrlCreateButton ("", -5, -5+1, 26, 26)
    _GUICtrlButton_SetImageList ($exit, $exitimg, 2)
    GUIRegisterMsg($WM_ERASEBKGND, "_WM_ERASEBKGND")
    GUIRegisterMsg($WM_DWMCOMPOSITIONCHANGED, "_WM_DWMCOMPOSITIONCHANGED")
    _SendMessage($hGUI, $WM_DWMCOMPOSITIONCHANGED)
    GUISetState (@SW_SHOW, $hGUI)
    GUISetState (@SW_SHOW, $childgui)
    Global $timer = TimerInit ()
    While 1
    If $i = 101 Then
    GUICtrlSetData ($pause, "Start")
    $i = 0
    $go = False
    EndIf
    If $i <= 100 And $go Then
    If TimerDiff ($timer) >= 100 Then
    GUICtrlSetData ($p, $i+1)
    GUICtrlSetData ($p, $i)
    $i += 1
    $timer = TimerInit ()
    EndIf
    EndIf
    Switch GUIGetMsg ()
    Case -3
    Exit 0
    Case $exit
    Exit 0
    Case $pause
    If $go Then
    $go = False
    _GUICtrlProgress_SetState($p, $PBST_PAUSED)
    _GUICtrlButton_SetImageList ($pause, $restartimg, 2)
    ElseIf Not $go Then
    $go = True
    _GUICtrlProgress_SetState($p, $PBST_NORMAL)
    _GUICtrlButton_SetImageList ($pause, $pauseimg, 2)
    EndIf
    Case $stop
    $go = False
    _GUICtrlProgress_SetState($p, $PBST_ERROR)
    $i = 0
    _GUICtrlButton_SetImageList ($pause, $restartimg, 2)
    EndSwitch
    WEnd

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

    #region functions
    _WinAPI_CloseThemeData($hTheme)
    GUIDelete()
    Exit

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

    Func _WM_ERASEBKGND($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hDC = $iwParam
    Local $tClientRect = _WinAPI_GetClientRect($hWnd)
    Local $hBrush = _WinAPI_GetStockObject($BLACK_BRUSH)

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

    _WinAPI_FillRect($hDC, DllStructGetPtr($tClientRect), $hBrush)

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

    Return 1
    EndFunc

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

    Func _WM_DWMCOMPOSITIONCHANGED($hWnd, $iMsg, $iwParam, $ilParam)
    Local $tMargs = DllStructCreate($tagMARGINS)

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

    If _WinAPI_DwmIsCompositionEnabled() Then
    For $i = 1 To 4
    DllStructSetData($tMargs, $i, -1)
    Next
    _WinAPI_DwmExtendFrameIntoClientArea($hWnd, $tMargs)
    EndIf

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

    Return 0
    EndFunc

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

    Func _WinAPI_DwmExtendFrameIntoClientArea($hWnd, ByRef $tMargins)
    Local $aResult = DllCall("dwmapi.dll", "int", "DwmExtendFrameIntoClientArea", "hwnd", $hWnd, "ptr", DllStructGetPtr($tMargins))

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

    If @error Then Return SetError(@error, @extended, -1)
    Return $aResult[0]
    EndFunc

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

    Func _WinAPI_DwmIsCompositionEnabled()
    Local $aResult = DllCall("dwmapi.dll", "int", "DwmIsCompositionEnabled", "int*", 0)

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

    If @error Then Return SetError(@error, @extended, -1)
    Return SetError($aResult[0], 0, $aResult[1])
    EndFunc

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

    Func _WinAPI_OpenThemeData($hWnd, $sClassList)
    Local $aResult = DllCall("uxtheme.dll", "hwnd", "OpenThemeData", "hwnd", $hWnd, "wstr", $sClassList)

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

    If @error Then Return SetError(@error, @extended, 0)
    If $aResult[0] = 0 Then Return SetError(1, 0, 0)
    Return SetError(0, 0, $aResult[0])
    EndFunc

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

    Func _WinAPI_CloseThemeData($hTheme)
    Local $aResult = DllCall("uxtheme.dll", "int", "CloseThemeData", "hwnd", $hTheme)

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

    If @error Then Return SetError(@error, @extended, 0)
    Return SetError(0, 0, $aResult[0] = 0)
    EndFunc

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

    Func _GUICtrlProgress_SetState($iProgress, $iState)
    ; Author: Prog@ndy
    Switch IsHWnd($iProgress)
    Case True
    Return _SendMessage($iProgress, $PBM_SETSTATE, $iState, 0)
    Case Else
    Return GUICtrlSendMsg($iProgress, $PBM_SETSTATE, $iState, 0)
    EndSwitch
    EndFunc ;==>_GUICtrlProgress_SetState

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

    Func _GUICreateRoundRect($hwnd, $radx=15,$rady=15)
    Local $pos = WinGetPos($hwnd)

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

    Local $1 = 0
    Local $2 = 0
    Local $3 = $pos[2]
    Local $4 = $pos[3]
    Local $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $1, "long", $2, "long", $3, "long", $4,"long",$radx,"long",$rady)

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

    DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $hwnd, "long", $ret[0], "int", 1)
    EndFunc ;==>_GUICreateRoundRect
    #endregion functions

    [/autoit]


    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

  • Einblend-Effekte für GUIs

    Servus,
    ich habe mir für Win7 einen Quicklaunch-Folder gebastelt, der geht super.
    Aber ich möchte gern einen Ein/Ausblendeffekt hinzufügen. Da hab ich irgendwo mal den Code gehabt, war ein DLLCall und hat das Fenster von jeder Seite einscrollen oder ausscrollen lassen. (zB links-> rechts: 1. Pixelspalte wird angezeigt, 2. Px-sp. wird hinzugefügt uns so weiter.
    Hat den jmd. noch?
    Grüße

  • Doodle Jump für Pc

    Es gibt aufm Windows (XP, Vista, ?Win7?) ein Installer Programm. Das erstellt ein CAB-Archiv, das sich selbst ausführt. Leider kann man die Dateiendung auf .cab ändern un dann hat man die Au3-exe.
    mfg

    ___________________________________________________

    Die Downloadlinks gehen nicht (v8)!
    Zip: Größe: 0Bytes
    Exe: Not found (404)

  • Ubuntu-Topbar für Windows

    Hier noch mal der Code zum Durchlesen und in Deutsch und ein paar Screens:

    Apps.au3
    [autoit]

    #NoTrayIcon
    #include <includes.au3>
    $startmenu = WinGetHandle ("[CLASS:DV2ControlHost]")

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

    $main = GUICreate ("TopBar-Apps", 115, 36, 0, 0, 0x80000000, 0x00000080, WinGetHandle ("TopBar", "System]"))
    $hImage = _GUIImageList_Create(30, 30, 5, 3, 6)
    _GUIImageList_AddIcon($hImage, "shell32.dll", 130, True)
    ;~ _GUIImageList_AddIcon($hImage, "shell32.dll", 212, True); hover image
    $apps = GUICtrlCreateButton("Anwendungen", 3, 3, 110, 31)
    _GUICtrlButton_SetImageList ($apps, $hImage)
    GUISetState (@SW_SHOW, $main)

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

    While 1
    Switch GUIGetMsg ()
    Case $apps
    _appsgui ()
    EndSwitch
    If WinActive ($startmenu) Then
    While WinActive ($startmenu)
    WEnd
    Exit 0
    EndIf
    WEnd

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

    ##Script written by Tobias Girstmair##
    Func _appsgui () ;show startmenu as apps menu
    WinMove ($startmenu, "", 0, 36, 268, 508-30)
    WinSetState ($startmenu, "", @SW_SHOW)
    ControlShow ($startmenu, "", "[CLASS:SysListView32; INSTANCE:1]")
    ControlShow ($startmenu, "", "[CLASS:DesktopSFTBarHost; INSTANCE:1]")
    ControlShow ($startmenu, "", "[CLASS:Desktop More Programs Pane; INSTANCE:1]")
    ControlShow ($startmenu, "", "[CLASS:Desktop Open Pane Host; INSTANCE:1]")
    ControlShow ($startmenu, "", "[CLASS:Desktop OpenBox Host; INSTANCE:1]")
    ;~ ControlClick ($startmenu, "", "[CLASS:Button; INSTANCE:1]")
    EndFunc

    [/autoit]
    Topbar.au3
    [autoit]

    #Region header
    #NoTrayIcon
    #include <includes.au3>
    #include <IE.au3>
    $o_IE_system = _IECreateEmbedded ()
    $o_IE_places = _IECreateEmbedded ()
    Global $off_enabled = 0
    Global $date_enabled= 0
    Global $system_enabled = 0
    Global $places_enabled = 0
    Global $time = @hour & ":" & @min & ":" & @sec & "; " & @mday & "." & @mon & "." & @year
    $i_places = _GUIImageList_Create(28, 28, 5, 3, 6)
    _GUIImageList_AddIcon($i_places, "shell32.dll", 28, True);MITTIG!!!!
    $i_system = _GUIImageList_Create(28, 28, 5, 3, 6)
    _GUIImageList_AddIcon($i_system, "shell32.dll", 21, True)
    $i_net = _GUIImageList_Create(28, 28, 5, 3, 6)
    _GUIImageList_AddIcon($i_net, @ProgramFilesDir & "\Mozilla Firefox\firefox.exe", 0, True)
    $i_mail = _GUIImageList_Create(28, 28, 5, 3, 6)
    _GUIImageList_AddIcon($i_mail, @ProgramFilesDir & "\Windows Mail\WinMail.exe", 1, True)
    $i_term = _GUIImageList_Create(28, 28, 5, 3, 6)
    _GUIImageList_AddIcon($i_term, @SystemDir & "\cmd.exe", 0, True)
    $i_off = _GUIImageList_Create(28, 28, 5, 3, 6)
    _GUIImageList_AddIcon($i_off, "shell32.dll", 27, True)

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

    #EndRegion header

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

    #Region GUIs
    #Region maingui
    $main = GUICreate ("TopBar", @desktopwidth-225+113, 36, 0+225-110, 0, 0x80000000, 0x00000080, WinGetHandle ("[CLASS:BaseBar]"))
    $b_places = GUICtrlCreateButton ("Orte", 1, 3, 110, 31)
    _GUICtrlButton_SetImageList ($b_places, $i_places, 4, 1, 7)
    $b_system = GUICtrlCreateButton ("System", 223-222+113, 3, 110, 31); (not yet set)
    _GUICtrlButton_SetImageList ($b_system, $i_system)
    $b_net = GUICtrlCreateButton ("Firefox", 336-222+113, 3, 31, 31, 0x8000+0x0040)
    _GUICtrlButton_SetImageList ($b_net, $i_net, 4)
    ;~ GUICtrlSetImage ($b_net, @ProgramFilesDir & "\Mozilla Firefox\firefox.exe", 1)
    $b_mail = GUICtrlCreateButton ("Empathy", 367-222+113, 3, 31, 31, 0x8000+0x0040)
    _GUICtrlButton_SetImageList ($b_mail, $i_mail, 4)
    ;~ GUICtrlSetImage ($b_mail, @ProgramFilesDir & "\Windows Mail\WinMail.exe", 1)
    $b_term = GUICtrlCreateButton ("Terminal", 398-222+113, 3, 31, 31, 0x8000+0x0040)
    _GUICtrlButton_SetImageList ($b_term, $i_term, 4)
    ;~ GUICtrlSetImage ($b_term, @SystemDir & "\cmd.exe", 1)
    $b_date = GUICtrlCreateButton ($time, @desktopwidth-200-222+113, 3, 160, 31)
    GUICtrlSetFont ($b_date, 8.5, 800)
    $b_off = GUICtrlCreateButton (@UserName, @DesktopWidth-34-222+110, 3, 31, 31, 0x8000+0x0040)
    _GUICtrlButton_SetImageList ($b_off, $i_off, 4)
    ;~ GUICtrlSetImage ($b_off, @SystemDir & "\shell32.dll", 28)
    GUISetState (@SW_SHOW, $main)
    ;~ GUICtrlCreateLabel ("move", 900, 3, 100, 100, -1, 0x00100000)
    #EndRegion maingui

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

    #Region subcats
    $g_off = GUICreate ("Topbar-Shutdown", 150, 84, @DesktopWidth-150, 36, 0x80000000, 0x00000080)
    $b_off_lock = GUICtrlCreateButton ("Bildschirm sperren", 1, 1, 148, 20)
    $b_off_standby = GUICtrlCreateButton ("Standby", 1, 21, 148, 20)
    $b_off_logoff = GUICtrlCreateButton ("Abmelden", 1, 42, 148, 20)
    $b_off_off = GUICtrlCreateButton ("Herunterfahren", 1, 63, 148, 20)
    $g_date = GUICreate ("Topbar-Date", 177, 160, @DesktopWidth-200, 36, 0x80000000, 0x00000080)
    GUICtrlCreateMonthCal ("Today: ", -2, -2)
    GUICtrlCreateLabel ("Calendar4TopBar", 10, 10, 0, 0)
    $g_system = GUICreate ("system4topbar", 150, 380, 227, 36, 0x80000000, 0x00000080)
    GUICtrlCreateObj ($o_IE_system, 0, 0, 150, 380)
    GUICtrlCreateLabel ("System4TopBar", 0, 0, 0, 0)
    _IENavigate ($o_IE_system, "shell:ControlPanelFolder", 0)
    $g_places = GUICreate ("places4topbar", 150, 380, 117, 36, 0x80000000, 0x00000080)
    GUICtrlCreateObj ($o_IE_places, 0, 0, 150, 380)
    GUICtrlCreateLabel ("Places4TopBar", 0, 0, 0, 0)
    _IENavigate ($o_IE_places, "about:blank", 0);_shell:desktop", 0)
    #EndRegion subcats
    #EndRegion GUIs

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

    #Region loop
    While 1
    Switch GUIGetMsg ()
    Case $b_places
    _placesgui ()
    Case $b_system
    _systemgui ()
    Case $b_net
    Run (@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
    Case $b_mail
    Run (@ProgramFilesDir & "\Windows Mail\WinMail.exe")
    Case $b_term
    Run (@SystemDir & "\cmd.exe")
    Case $b_off
    _shutdowngui ()
    Case $b_date
    _dategui ()
    Case $b_off_lock
    Run(@ComSpec & " /C " & "%windir%\System32\rundll32.exe user32.dll,LockWorkStation", "", @SW_HIDE)
    Run (@ComSpec & " /C " & @ScriptDir & "\display /power:off", "", @SW_HIDE)
    Case $b_off_standby
    Shutdown (32)
    Case $b_off_logoff
    Shutdown (0)
    Case $b_off_off
    Shutdown (1)
    EndSwitch
    If $time <> @hour & ":" & @min & ":" & @sec & "; " & @mday & "." & @mon & "." & @year Then ;reload time
    $time = @hour & ":" & @min & ":" & @sec & "; " & @mday & "." & @mon & "." & @year
    GUICtrlSetData ($b_date, $time)
    EndIf
    If $off_enabled = 1 And WinActive ("", "Herunterfahren") = 0 Then
    _shutdowngui ()
    EndIf
    If $date_enabled = 1 And WinActive ("", "Calendar4TopBar") = 0 Then
    _dategui ()
    EndIf
    If $system_enabled = 1 And WinActive ("", "System4TopBar") = 0 Then
    _systemgui ()
    EndIf
    If $places_enabled = 1 And WinActive ("", "Places4TopBar") = 0 Then
    _placesgui ()
    EndIf
    WEnd
    #EndRegion loop

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

    ##Script written by Tobias Girstmair##
    #Region functions
    Func _shutdowngui () ;switch submenus
    If $off_enabled = 1 Then
    GUISetState (@SW_HIDE, $g_off)
    $off_enabled = 0
    Else
    GUISetState (@SW_SHOW, $g_off)
    $off_enabled = 1
    GUISetState (@SW_HIDE, $g_date)
    $date_enabled= 0
    GUISetState (@SW_HIDE, $g_system)
    $system_enabled = 0
    GUISetState (@SW_HIDE, $g_places)
    $places_enabled = 0
    EndIf
    EndFunc

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

    Func _dategui () ;switch submenus
    If $date_enabled = 1 Then
    GUISetState (@SW_HIDE, $g_date)
    $date_enabled = 0
    Else
    GUISetState (@SW_SHOW, $g_date)
    $date_enabled= 1
    GUISetState (@SW_HIDE, $g_off)
    $off_enabled = 0
    GUISetState (@SW_HIDE, $g_system)
    $system_enabled = 0
    GUISetState (@SW_HIDE, $g_places)
    $places_enabled = 0
    EndIf
    EndFunc

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

    Func _systemgui () ;switch submenus
    If $system_enabled = 1 Then
    GUISetState (@SW_HIDE, $g_system)
    $system_enabled = 0
    Else
    GUISetState (@SW_HIDE, $g_date)
    $date_enabled= 0
    GUISetState (@SW_HIDE, $g_off)
    $off_enabled = 0
    GUISetState (@SW_HIDE, $g_places)
    $places_enabled = 0
    GUISetState (@SW_SHOW, $g_system)
    $system_enabled = 1
    EndIf
    EndFunc

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

    Func _placesgui () ;switch submenus
    If $places_enabled = 1 Then
    GUISetState (@SW_HIDE, $g_places)
    $places_enabled = 0
    Else
    GUISetState (@SW_HIDE, $g_date)
    $date_enabled= 0
    GUISetState (@SW_HIDE, $g_off)
    $off_enabled = 0
    GUISetState (@SW_SHOW, $g_places)
    $places_enabled = 1
    GUISetState (@SW_HIDE, $g_system)
    $system_enabled = 0
    EndIf
    EndFunc

    [/autoit]
    start.au3
    [autoit]

    WinSetTrans ("[CLASS:BaseBar]", "", 0) ;original Topbar + schatten entfernen
    TraySetIcon (@systemdir & "\shell32.dll", -35)
    Opt("TrayOnEventMode",1)
    Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown.

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

    $exit = TrayCreateItem("Beenden")
    TrayItemSetOnEvent(-1,"autoitexit")
    TraySetState()
    Run ("TopBar.exe")
    Run ("Apps.exe")
    While Not WinExists ("TopBar-Apps", "Applications")
    Sleep (10)
    WEnd
    Send ("{Lwin}") ;Startmenue einmal aufrufen, um darstellungsprobleme zu verhindern ;;;;DIESE PASSAGE IST DERZEIT
    MouseClick ("left", 20, @DesktopHeight-20, 1) ;;;;NOCH NICHT FERNIG! VORSCHLAEGE?
    While 1
    Sleep (10)
    If Not ProcessExists ("Apps.exe") Then Run ("Apps.exe")
    If Not ProcessExists ("TopBar.exe") Then Run ("TopBar.exe")
    WEnd

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

    ##Script written by Tobias Girstmair##
    Func _1 ()
    While ProcessExists ("Apps.exe")
    ProcessClose ("Apps.exe")
    WEnd
    While ProcessExists ("TopBar.exe")
    ProcessClose ("TopBar.exe")
    WEnd
    EndFunc

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

    Func autoitexit ();exit script
    If MsgBox (48+4, "Warnung!", "TopBar beenden?") = 6 Then
    WinSetTrans ("[CLASS:BaseBar]", "", 255)
    WinSetState (WinGetHandle ("[CLASS:DV2ControlHost]"), "", @SW_SHOW)
    _1 ()
    Exit 0
    EndIf
    EndFunc

    [/autoit]
    Screens

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.


    In der nächsten Version:

    • INI bzw. Ordner für Schnellstart
    • start.au3 -> Zeile 14-15 verbessern

  • Ubuntu-Topbar für Windows

    Seit mir meine HDD eingegangen ist, greife ich wieder auf das vorinstallierte Vista zurück, vermisste aber meine Leiste. Daher: TopBar bringt die Ubuntu-Leiste auf den Windows-Screen!
    Es ist nicht für die Öffentlichkeit programiert, daher alles auf meinen PC ausgelegt. Sollte aber auch funktionieren.
    Damit die Bar immer ganz oben ist und nicht eure Fensterleisten überdeckt, erstellt ihr einfach einen Ordner und zieht ihn ans öbere Bildschirmende. Dann noch Rechtsklick->immer im Vordergrund
    Starmenü darf nciht Klassisch sein! (Ändern in Rechtsklick auf Taskleiste->einstellungen-> Startmenu-> (_)Startmenu
    Dann einfach start.exe starten! (Für die Selbstcompilierer: Die Programmnamen MÜSSEN Apps.exe und TopBar.exe heißen, start.exe ist wurscht!)
    Die Display.exe ist ausm Internet, und ist zum Bildschirm-Ausschaulten Bein [0ff]->Lock Screen
    ToDo: Places-Button befüllen (momentan about:blank) und das Programm ins Deutsche übersetzten.
    Grüße, Tobias
    Zip zu groß, daher extern: http://ul.to/lht5pm