Beiträge von RR04

  • Statusbar wird nicht angezeigt

    Hi,
    Deine Menüleiste schiebt die Statusbar zu weit nach unten.

    Spoiler anzeigen
    [autoit]


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

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

    AutoIt Version: 3.3.10.2
    Author: Pad

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

    Script:
    -Lautstärkeregler (wird vermutlich nicht funktionieren)
    -Statusbar (Uhrzeit,Akku,Akku lädt?)

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

    #ce ----------------------------------------------------------------------------
    #include <ButtonConstants.au3>
    #include <DateTimeConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <MsgBoxConstants.au3>
    #include <GuiStatusBar.au3>
    #include <Date.au3>
    #include <SliderConstants.au3>
    #include <TreeViewConstants.au3>
    #include <GDIPlus.au3>
    #include <ScreenCapture.au3>
    #include <GuiStatusBar.au3>

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

    Global $aParts[3] = [124, 124, 124]

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

    Global $hBitmap, $hImage, $hGraphic, $hFamily, $hFont, $tLayout, $hFormat, $aInfo, $hBrush1, $hBrush2, $iWidth, $iHeight, $hPen ;Screenshotvariablen
    Global $sString = " Created with AutoIt "

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

    Global $SYSTEM_POWER_STATUS = DllStructCreate("byte;byte;byte;byte;int;int") ;Akkuzustand
    Global $test = DllCall("kernel32.dll", "int", "GetSystemPowerStatus", _
    "ptr", DllStructGetPtr($SYSTEM_POWER_STATUS))
    If $test[0] Then
    Global $Akku = DllStructGetData($SYSTEM_POWER_STATUS, 3)
    EndIf

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

    $v1 = InputBox("Security", "Enter password:", "", "*", 300, 150) ;Securitycheck
    If $v1 = ("TakeOff") Then

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

    $frmSplash = GUICreate("", 300, 150, -1, -1, BitOR($WS_SYSMENU, $WS_POPUP), 0) ;PopUp Checking password...
    $proSplash = GUICtrlCreateProgress(56, 104, 193, 9)
    GUICtrlCreateLabel("Checking password...", 97, 50)
    GUISetState(@SW_SHOW, $frmSplash)

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

    For $i = 1 To 99 Step 9 ;Anhang Prozessbar
    GUICtrlSetData($proSplash, $i)
    Sleep(75)
    Next
    GUISetState(@SW_HIDE, $frmSplash)

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

    #Region ;Hauptform
    $frmHaupt = GUICreate("Help Panel", 455, 471, -1, -1)
    ;
    ;~ $Start = GUICtrlCreateMenu("&Start")
    ;~ $Exit = GUICtrlCreateMenuItem("Exit", $Start)
    ;~ ;
    ;~ $Hilfe = GUICtrlCreateMenu("&Hilfe")
    ;~ $Google = GUICtrlCreateMenuItem("???", $Hilfe)
    ;~ GUISetIcon("C:\Program Files (x86)\TERA\tera-launcher.exe", -1)
    ;~ GUISetBkColor(0x0066CC)
    ;
    $Button1 = GUICtrlCreateButton("Facebook", 10, 10, 105, 30)
    GUICtrlSetFont(-1, 14, 400, 0, "Palatino Linotype")
    $Button2 = GUICtrlCreateButton("Payday 2", 130, 10, 105, 30)
    GUICtrlSetFont(-1, 14, 400, 0, "Palatino Linotype")
    $Button3 = GUICtrlCreateButton("Notepad++", 10, 45, 105, 30)
    GUICtrlSetFont(-1, 14, 400, 0, "Palatino Linotype")
    $Button4 = GUICtrlCreateButton("DC Universe Online", 130, 45, 105, 30)
    GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
    $Input1 = GUICtrlCreateInput("", 15, 150, 200, 21)
    $YouTubeLabel = GUICtrlCreateLabel("YouTube Suche:", 15, 125, 85, 17)
    $Button5 = GUICtrlCreateButton("Los!", 240, 150, 80, 20)
    GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
    $Input2 = GUICtrlCreateInput("", 15, 210, 200, 21)
    $GoogleLabel = GUICtrlCreateLabel("Google Suche:", 15, 185, 75, 17)
    $Button6 = GUICtrlCreateButton("Los!", 240, 210, 80, 20)
    GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
    $Button7 = GUICtrlCreateButton("Opera-Browser", 10, 80, 105, 30)
    GUICtrlSetFont(-1, 11, 400, 0, "Palatino Linotype")
    $Button8 = GUICtrlCreateButton("Skype", 130, 80, 105, 30)
    GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
    $Button11 = GUICtrlCreateButton("Favoriten", 335, 206, 105, 30, $WS_GROUP)
    GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
    $Button13 = GUICtrlCreateButton("TV-Programm", 250, 10, 105, 30)
    GUICtrlSetFont(-1, 11, 400, 0, "Palatino Linotype")
    $ButtonScreenshot = GUICtrlCreateButton("Screenshot", 335, 145, 105, 30)
    GUICtrlSetFont(-1, 11, 400, 0, "Palatino Linotype")
    $MonthCal1 = GUICtrlCreateMonthCal("", 240, 250, 200, 164)
    $Akkuzustand = GUICtrlCreateLabel("Ladezustand: " & $Akku & "%", 337, 180, 110, 25)
    GUICtrlSetFont(-1, 9, 400, 0, "Palatino Linotype")
    $Note = GUICtrlCreateEdit("", 15, 250, 200, 164)
    GUICtrlSetFont(-1, 20, 400, 0, "Script")
    GUICtrlSetColor(-1, 0x0000FF)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    GUICtrlSetCursor(-1, 5)
    $Statusbar = _GUICtrlStatusBar_Create($frmHaupt)
    _GUICtrlStatusBar_SetParts($Statusbar, $aParts)
    $Datum = _GUICtrlStatusBar_SetText($Statusbar, @MDAY & "." & @MON & "." & @YEAR, 1)
    $Zeit = _GUICtrlStatusBar_SetText($Statusbar, @HOUR & ":" & @MIN & ":" & @SEC, 2)
    ;~ $VolumeSlider = GUICtrlCreateSlider(414, 30, 25, 113, BitOR($GUI_SS_DEFAULT_SLIDER,$TBS_VERT,$TBS_TOP,$TBS_LEFT,$TBS_BOTH,$TBS_NOTICKS,$TBS_FIXEDLENGTH))
    ;~ GUICtrlSetLimit(-1, 100, 0)
    ;~ GUICtrlSetCursor (-1, 2)
    ;~ GUICtrlSetBkColor(-1,0x0066CC)
    ;~ $VolumeLabel = GUICtrlCreateLabel($VolumeSlider, 415, 11, 22, 17, $SS_CENTER)
    GUISetState(@SW_SHOW, $frmHaupt)
    #EndRegion ;Hauptform

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

    AdlibRegister("_UpdateZeit", 1000)
    AdlibRegister("_UpdateAkku", 5000)

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

    Else ;password falsch dann..
    $frmSplash = GUICreate("", 300, 150, -1, -1, BitOR($WS_SYSMENU, $WS_POPUP), 0) ;PopUp Checking password...
    $proSplash = GUICtrlCreateProgress(56, 104, 193, 9)
    GUICtrlCreateLabel("Checking password...", 97, 50)
    GUISetState(@SW_SHOW, $frmSplash)

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

    For $i = 1 To 99 Step 9 ;Anhang Prozessbar
    GUICtrlSetData($proSplash, $i)
    Sleep(75)
    Next
    GUISetState(@SW_HIDE, $frmSplash)
    MsgBox(64, "Alert", "Wrong password!")
    Exit
    EndIf

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

    #Region ;Youtube Playlist Form
    $frmYoutube = GUICreate("Youtube", 372, 403, -1, -1)
    GUISetIcon("C:\Program Files (x86)\TERA\tera-launcher.exe", -1)
    $Label1 = GUICtrlCreateLabel("Beats", 15, 10, 40, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
    GUICtrlSetCursor(-1, 0)
    $Label2 = GUICtrlCreateLabel("Chiller", 205, 10, 49, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
    GUICtrlSetCursor(-1, 0)
    $List1 = GUICtrlCreateList("", 8, 40, 161, 276)
    GUICtrlSetData(-1, "6AM (Aidan Dao & Anthony Taratsas Remix) - Shameless|Call The Police (Original Mix) - Giuseppe Visciano|Cigarette (Original Mix) - Giuseppe Visciano|Crack (Original Mix) - Gee G|De Ja Vu - Keesh & Scotty Lee|Drugs - Matty Lincoln|Ecstasy - Maguta|Ghost (Jakobs Whoomp Booty) - Alex Zand|I Dont Have A Job (Original Mix) - Mandragora|I Surrender (Original Mix) - Matty Lincoln|JetFuel (Original Mix) - Uberjakd & Joel Fletcher|Minimal Feeling - Luigi Peretti|Noises (Uberjakd VIP Mix) - Uberjakd ft Sarah Bodle|Pop Dat (Original Mix) - Ish Kariuki|The Octopuss - Johannes Heil & Len Faki|Two Faced (Original Mix) - Djuro|Ultra Dope (Original Mix) - Abel Nesian|What (Original mix) - Giuseppe Visciano|When The Bass Go - SCNDL|White Vox (Anthony Taratsas Remix) - Dont Stop|Yep! (Original Mix) - Daniel Healey")
    GUICtrlSetFont(-1, 10, 400, 0, "Palatino Linotype")
    GUICtrlSetBkColor(-1, 0xBFCDDB)
    GUICtrlSetCursor(-1, 0)
    $List2 = GUICtrlCreateList("", 200, 40, 161, 276)
    GUICtrlSetData(-1, "Abu Dhabi - Krizz Kaliko feat 816 Boyz|B.I.T.C.H. - Tech N9ne feat. T-Pain|Chin Check - N.W.A. feat. Snoop Dogg|Damn It Feels Good To Be A Taylor - Wiz Khalifa|Gin & Juice - Snoop Dogg|Girls like that - Krizz Kaliko feat. Bizzy|Grave Digga - Stevie Stone|I been Dope - Kutt Calhoun feat. Tech N9ne|Im SwizZzle Bitch - SwizZz (Rack City Remix)|Playback - Collie Buddz|Red Nose - Tech N9ne|Smoke the weed - Snoop Lion ft. Collie Buddz|So dope - Tech N9ne feat. Wrekonize, Twisted Insane & Snow Tha Product|Still D.R.E - Dr Dre feat. Snoop Dogg|STU - Wiz Khalifa|Switch Lanes - Tyga feat. The Game|Thats All She Wrote - T.I. feat. Eminem|The Kid Frankie - Wiz Khalifa|The tweak is heavy - Wiz Khalifa|Till Im Gone - Tinie Tempah feat. Wiz Khalifa|Whats my name - Snoop Dogg|Work Hard Play Hard - Wiz Khalifa")
    GUICtrlSetFont(-1, 10, 400, 0, "Palatino Linotype")
    GUICtrlSetBkColor(-1, 0xBFCDDB)
    GUICtrlSetCursor(-1, 0)
    $Button9 = GUICtrlCreateButton("Los!", 50, 326, 75, 25)
    $Button10 = GUICtrlCreateButton("Los!", 244, 326, 75, 25)
    $Button12 = GUICtrlCreateButton("Exit", 244, 370, 75, 25)
    $Button14 = GUICtrlCreateButton("Zurück", 50, 370, 75, 25)
    #EndRegion ;Youtube Playlist Form

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

    #Region ;Internetseiten Form
    $Internetseiten = GUICreate("Internet - Favoriten", 260, 470, 200, 300)
    GUISetIcon("C:\Program Files (x86)\TERA\tera-launcher.exe", -1)
    $Button16 = GUICtrlCreateButton("Exit", 93, 440, 75, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
    $Button15 = GUICtrlCreateButton("Playlist", 30, 25, 75, 25, $BS_CENTER)
    GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
    $TreeView = GUICtrlCreateTreeView(30, 80, 200, 350, BitOR($GUI_SS_DEFAULT_TREEVIEW, $TVS_NOTOOLTIPS), $WS_EX_CLIENTEDGE)
    $TreeView_0 = GUICtrlCreateTreeViewItem("Google", $TreeView)
    $TreeView_1 = GUICtrlCreateTreeViewItem("Google Bilder", $TreeView_0)
    $TreeView_2 = GUICtrlCreateTreeViewItem("Google Übersetzer", $TreeView_0)
    $TreeView_3 = GUICtrlCreateTreeViewItem("Google Maps", $TreeView_0)
    $TreeView_4 = GUICtrlCreateTreeViewItem("Youtube", $TreeView)
    $TreeView_5 = GUICtrlCreateTreeViewItem("Facebook", $TreeView)
    $TreeView_6 = GUICtrlCreateTreeViewItem("AutoIT", $TreeView)
    $TreeView_7 = GUICtrlCreateTreeViewItem("Elitepvpers", $TreeView)
    $TreeView_8 = GUICtrlCreateTreeViewItem("Pirate Perfection", $TreeView)
    #EndRegion ;Internetseiten Form

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

    #Region
    $frmScreenshot = GUICreate("Screenshot", 100, 61, 302, 218, $WS_MINIMIZEBOX)
    GUISetIcon("C:\Program Files (x86)\TERA\tera-launcher.exe", -1)
    $ButtonScreen = GUICtrlCreateButton("Screen!", 30, 3, 75, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
    #EndRegion

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

    GUISwitch($frmHaupt)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $ButtonScreenshot
    GUISetState(@SW_SHOW, $frmScreenshot)
    GUISetState(@SW_HIDE, $frmHaupt)
    Case $Button14 ;Zurückbutton
    GUISetState(@SW_HIDE, $frmYoutube)
    GUISetState(@SW_SHOW, $frmHaupt)
    GUISetState(@SW_SHOW, $Internetseiten)
    Case $Button11 ;Favoritenbutton
    GUISetState(@SW_SHOW, $frmHaupt)
    GUISetState(@SW_SHOW, $Internetseiten)
    GUISwitch($frmHaupt, $Internetseiten)
    Case $Button12 ;Exitbutton
    GUISetState(@SW_SHOW, $frmHaupt)
    GUISetState(@SW_HIDE, $frmYoutube)
    GUISetState(@SW_HIDE, $Internetseiten)
    GUISwitch($frmHaupt)
    Case $Button15 ;Playlistbutton
    GUISetState(@SW_HIDE, $frmHaupt)
    GUISetState(@SW_HIDE, $Internetseiten)
    GUISetState(@SW_SHOW, $frmYoutube)
    Case $Button16 ;Exitbutton
    GUISetState(@SW_HIDE, $Internetseiten)
    Case $Button1 ;Facebookbutton
    _Func1()
    Case $Button2 ;Payday2 - Button
    _Func2()
    Case $Button3 ;Notepad++ - Button
    _Func3()
    Case $Button4 ;DC Universe Online - Button
    _Func4()
    Case $Button5 ;Losbutton Youtubesuche
    _Func5()
    Case $Button6 ;Losbutton Googlesuche
    _Func6()
    Case $Button7 ;Operabrowser - Button
    _Func7()
    Case $Button8 ;Skype - Button
    _Func8()
    Case $Button9 ;Losbutton Youtubeplaylist Beats
    _Func9()
    Case $Button10 ;Losbutton Youtubeplaylist Chiller
    _Func10()
    Case $Button13 ;TV-Programm - Button
    _Func13()
    Case $ButtonScreen
    _FuncScreen() ;Screenshot - Button
    ;~ Case $Exit
    ;~ _FuncExit()
    ;~ Case $Google
    ;~ _FuncGoogle()
    ;~ Case $VolumeSlider <===============================================================
    ;~ _FuncVolume()
    Case $TreeView_0
    _TreeView_Google()
    Case $TreeView_1
    _TreeView_GoogleBilder()
    Case $TreeView_2
    _TreeView_GoogleUEbersetzer()
    Case $TreeView_3
    _TreeView_GoogleMaps()
    Case $TreeView_4
    _TreeView_Youtube()
    Case $TreeView_5
    _TreeView_Facebook()
    Case $TreeView_6
    _TreeView_AutoIT()
    Case $TreeView_7
    _TreeView_Elitepvpers()
    Case $TreeView_8
    _TreeView_PiratePerfection()
    EndSwitch
    WEnd

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

    Func _UpdateAkku() ;Update Akku
    Global $SYSTEM_POWER_STATUS = DllStructCreate("byte;byte;byte;byte;int;int")
    Global $test = DllCall("kernel32.dll", "int", "GetSystemPowerStatus", _
    "ptr", DllStructGetPtr($SYSTEM_POWER_STATUS))
    If $test[0] Then
    Global $Akku = DllStructGetData($SYSTEM_POWER_STATUS, 3)
    EndIf
    GUICtrlSetData($Akkuzustand, "Ladezustand: " & $Akku & "%")
    _GUICtrlStatusBar_SetText($Statusbar, "Ladezustand: " & $Akku & "%")
    EndFunc ;==>_UpdateAkku

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

    Func _UpdateZeit() ;Update Uhrzeit
    _GUICtrlStatusBar_SetText($Statusbar, @HOUR & ":" & @MIN & ":" & @SEC, 2)
    EndFunc ;==>_UpdateZeit

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

    Func _Func1() ;Facebook starten
    MouseClick("", 0, 900)
    MouseClick("", 555, 353)
    EndFunc ;==>_Func1

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

    Func _Func2() ;Payday 2 starten
    MouseClick("", 0, 900)
    MouseClick("", 1100, 231)
    EndFunc ;==>_Func2

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

    Func _Func3() ;Notepad++ starten
    Run("C:\Program Files (x86)\Notepad++\notepad++.exe")
    EndFunc ;==>_Func3

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

    Func _Func4() ;DC Universe Online starten
    Run("C:\Users\Public\Sony Online Entertainment\Installed Games\DC Universe Online\LaunchPad.exe")
    EndFunc ;==>_Func4

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

    Func _Func5() ;Youtubesuche starten
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Send("www.youtube.com")
    Send("{ENTER}")
    Sleep(6000)
    Send(GUICtrlRead($Input1))
    Send("{ENTER}")
    EndFunc ;==>_Func5

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

    Func _Func6() ;Googlesuche starten
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Sleep(500)
    Send(GUICtrlRead($Input2))
    Send("{ENTER}")
    EndFunc ;==>_Func6

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

    Func _Func7() ;Opera starten
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    EndFunc ;==>_Func7

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

    Func _Func8() ;Skype starten
    MouseClick("", 0, 900)
    MouseClick("", 264, 618)
    EndFunc ;==>_Func8

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

    Func _Func9() ;Youtubeplaylist Beats
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Send("www.youtube.com")
    Send("{ENTER}")
    Sleep(5500)
    Send(GUICtrlRead($List1))
    Send("{ENTER}")
    Sleep(2000)
    MouseClick("", 689, 235)
    EndFunc ;==>_Func9

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

    Func _Func10() ;Youtubeplaylist Chiller
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Send("www.youtube.com")
    Send("{ENTER}")
    Sleep(5500)
    Send(GUICtrlRead($List2))
    Send("{ENTER}")
    Sleep(2000)
    MouseClick("", 689, 235)
    EndFunc ;==>_Func10

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

    Func _Func13() ;TV-Programm starten
    MouseClick("", 0, 900)
    MouseClick("", 560, 606)
    Sleep(1500)
    MouseClick("", 210, 242)
    EndFunc ;==>_Func13

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

    Func _FuncExit() ;Menü, Start,Exit
    Exit
    EndFunc ;==>_FuncExit

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

    Func _FuncGoogle() ;Menü, Hilfe,???
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Sleep(500)
    Send("www.google.de")
    Send("{ENTER}")
    EndFunc ;==>_FuncGoogle

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

    ;~ Func _FuncVolume() ;Lautstärkenregler <== muss überarbeitet werden
    ;~ $SetVolume = GUICtrlRead($VolumeSlider)
    ;~ GUICtrlSetData($VolumeLabel,GUICtrlRead($VolumeSlider))
    ;~ Sleep(500)
    ;~ SoundSetWaveVolume($SetVolume)
    ;~ EndFunc

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

    Func _TreeView_Google() ;TreeView Google
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Sleep(500)
    Send("www.google.de")
    Send("{ENTER}")
    EndFunc ;==>_TreeView_Google

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

    Func _TreeView_GoogleBilder() ;TreeView GoogleBilder
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Sleep(500)
    Send("http://www.google.de/imghp?hl=de&tab=wi&ei=wgB1U83GKYTe4QSt8YHIDg&ved=0CAQQqi4oAg")
    Send("{ENTER}")
    EndFunc ;==>_TreeView_GoogleBilder

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

    Func _TreeView_GoogleUEbersetzer() ;TreeView GoogleÜbersetzer
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Sleep(500)
    Send("https://translate.google.de/?hl=de")
    Send("{ENTER}")
    EndFunc ;==>_TreeView_GoogleUEbersetzer

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

    Func _TreeView_GoogleMaps() ;TreeView GoogleMaps
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Sleep(500)
    Send("https://www.google.de/maps/@48.6618471,9.0036649,8z?hl=de")
    Send("{ENTER}")
    EndFunc ;==>_TreeView_GoogleMaps

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

    Func _TreeView_Youtube() ;TreeView Youtube
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Sleep(500)
    Send("http://www.youtube.com")
    Send("{ENTER}")
    EndFunc ;==>_TreeView_Youtube

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

    Func _TreeView_Facebook() ;TreeView Facebook
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Sleep(500)
    Send("www.facebook.de")
    Send("{ENTER}")
    EndFunc ;==>_TreeView_Facebook

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

    Func _TreeView_AutoIT() ;TreeView AutoIT
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Sleep(500)
    Send("www.autoit.de")
    Send("{ENTER}")
    EndFunc ;==>_TreeView_AutoIT

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

    Func _TreeView_Elitepvpers() ;TreeView Elitepvpers
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Sleep(500)
    Send("www.elitepvpers.com")
    Send("{ENTER}")
    EndFunc ;==>_TreeView_Elitepvpers

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

    Func _TreeView_PiratePerfection() ;TreeView PiratePerfection
    Run("C:\Program Files (x86)\Opera\launcher.exe")
    WinWaitActive("Schnellwahl - Opera")
    Sleep(500)
    Send("www.pirateperfection.com")
    Send("{ENTER}")
    EndFunc ;==>_TreeView_PiratePerfection

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

    Func _FuncScreen() ;Take Screenshot
    ; Initialize GDI+ library
    _GDIPlus_Startup()

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

    ; Capture screen
    $hBitmap = _ScreenCapture_Capture(@MyDocumentsDir & '\AutoItImage.bmp')

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

    ; Load image and emboss text
    $hImage = _GDIPlus_ImageLoadFromFile(@MyDocumentsDir & '\AutoItImage.bmp')
    $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage)
    $hFamily = _GDIPlus_FontFamilyCreate("Arial")
    $hFont = _GDIPlus_FontCreate($hFamily, 16, 1)
    $tLayout = _GDIPlus_RectFCreate(0, 0)
    $hFormat = _GDIPlus_StringFormatCreate(2)
    $hBrush1 = _GDIPlus_BrushCreateSolid(0xA2FFFFFF)
    $hBrush2 = _GDIPlus_BrushCreateSolid(0xC4FF0000)
    $hPen = _GDIPlus_PenCreate(0xC4000000, 2)
    $aInfo = _GDIPlus_GraphicsMeasureString($hGraphic, $sString, $hFont, $tLayout, $hFormat)
    $iWidth = DllStructGetData($aInfo[0], "Width")
    $iHeight = DllStructGetData($aInfo[0], "Height")

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

    _GDIPlus_GraphicsFillRect($hGraphic, 0, 0, $iWidth, $iHeight, $hBrush1)
    _GDIPlus_GraphicsDrawRect($hGraphic, 1, 1, $iWidth, $iHeight, $hPen)
    _GDIPlus_GraphicsDrawStringEx($hGraphic, $sString, $hFont, $aInfo[0], $hFormat, $hBrush2)

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

    ; Save image
    _GDIPlus_ImageSaveToFile($hImage, @MyDocumentsDir & '\AutoItImage2.bmp')

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

    ; Free resources
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_BrushDispose($hBrush1)
    _GDIPlus_BrushDispose($hBrush2)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()

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

    ; Show image
    Run("MSPaint.exe " & '"' & @MyDocumentsDir & '\AutoItImage2.bmp"')

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

    GUISetState(@SW_SHOW, $frmHaupt)
    GUISetState(@SW_HIDE, $frmScreenshot)
    EndFunc ;==>_FuncScreen

    [/autoit]

    Hier noch ein Beispiel:

    Spoiler anzeigen
    [autoit]


    #include <Date.au3>
    #include <GuiStatusBar.au3>

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

    #region ### START GUI section ###
    $hGui = GUICreate("StatusBar", 585, 215, 418, 155)
    $Button1 = GUICtrlCreateButton("Button1", 56, 20, 200, 35)
    $Button2 = GUICtrlCreateButton("Button2", 56, 65, 200, 35)

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

    $tatusBar = _GUICtrlStatusBar_Create($hGui)
    Global $tatusBar_PartsWidth[2] = [500, -1]
    _GUICtrlStatusBar_SetParts($tatusBar, $tatusBar_PartsWidth)
    _GUICtrlStatusBar_SetText($tatusBar, "hallo", 0)
    ;~ _GUICtrlStatusBar_SetText($tatusBar, @TAB & @TAB & "welt", 1)
    _GUICtrlStatusBar_SetMinHeight($tatusBar, 20)
    GUISetState(@SW_SHOW)
    #endregion ### END GUI section ###

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

    ;~ _zeit()
    AdlibRegister("_zeit", 1000)

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

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3 ;$GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $txt = InputBox('Eingabe', 'Gib was ein....')
    _GUICtrlStatusBar_SetText($tatusBar, $txt, 0)
    Case $Button2
    $txt = _GUICtrlStatusBar_GetText($tatusBar, 0)
    MsgBox(64, 'Info', $txt)
    EndSwitch
    WEnd

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

    Func _zeit()
    Local $zeit = _DateTimeFormat(_NowCalc(), 5)
    _GUICtrlStatusBar_SetText($tatusBar, @TAB & $zeit, 1)
    ;~ _GUICtrlStatusBar_SetText($tatusBar, @TAB & @TAB & $zeit, 1)
    EndFunc ;==>_zeit

    [/autoit]

  • Per Button schleife unterbrechen möglich?!

    Hi,
    sollte man nicht bei "FileWrite" auch besser "FileOpen" verwenden ? ;)

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    Opt("GuiOnEventMode", 1)

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

    Global $bool = False
    Global $sFilePath = FileOpen(@ScriptDir & "\test.txt", 1)
    If $sFilePath = -1 Then MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")

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

    #Region ### START Koda GUI section ###
    $hGui = GUICreate("Form 1", 159, 220)
    GUISetOnEvent(-3, "_beenden")
    $btnGO = GUICtrlCreateButton("GO", 40, 32, 81, 41)
    GUICtrlSetOnEvent(-1, "_starten")
    $btnStop = GUICtrlCreateButton("STOP", 41, 138, 81, 41)
    GUICtrlSetOnEvent(-1, "_stopen")

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While True
    Sleep(100)
    If $bool Then
    FileWrite($sFilePath, "Wer schreibt der ..." & @CRLF)
    ConsoleWrite('+> schreiben ...' & @CRLF)
    Sleep(500)
    EndIf
    WEnd

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

    Func _starten()
    $bool = True
    EndFunc ;==>_starten

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

    Func _stopen()
    $bool = False
    EndFunc ;==>_stopen

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

    Func _beenden()
    FileClose($sFilePath)
    Exit
    EndFunc ;==>_beenden

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

    #cs
    Quelle: siehe Autoit-Hilfe

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

    Local $file = FileOpen("test.txt", 1)

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

    ; Prüfen, ob Datei im Schreibmodus geöffnet ist
    If $file = -1 Then
    MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    Exit
    EndIf

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

    FileWrite($file, "Zeile 1")
    FileWrite($file, "Immer noch Zeile 1" & @CRLF)
    FileWrite($file, "Zeile 2")

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

    FileClose($file)
    #ce

    [/autoit]

  • Hilfe zu einem Autoit-Skript (Zahlenraten)

    Hallo und herzlich Willkommen!
    Vielen Dank für Dein Interesse, anbei eine Lösung. ;)

    Spoiler anzeigen
    [autoit]


    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Outfile=zahlenraten.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #AutoIt3Wrapper_Run_Tidy=y
    #AutoIt3Wrapper_Run_Obfuscator=y
    #Obfuscator_Parameters=/striponly
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    _main()
    Func _main()
    Local $nMsg, $btnClose, $btnGo, $iptZahl, $lblOut, $lblOutMsg, $btnNew
    Local $zfzhl, $zahl, $versuche = 0

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

    GUICreate('ZahlenRaten v004', 250, 155)
    GUICtrlCreateLabel("Rate die Zahl zwischen 0 und 999", 10, 10, 230, 17, 0x001)
    GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
    $iptZahl = GUICtrlCreateInput("", 10, 35, 230, 20, 0x2000)
    GUICtrlSetLimit(-1, 3)
    $lblOut = GUICtrlCreateLabel("Hinweise.", 10, 65, 230, 17, 0x001)
    GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
    $lblOutMsg = GUICtrlCreateLabel("Anzahl der Versuche :" & @TAB & $versuche, 10, 95, 230, 17, 0x001)
    GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
    $btnNew = GUICtrlCreateButton("&Neues Spiel", 10, 125, 75, 22)
    $btnGo = GUICtrlCreateButton("&Start", 90, 125, 75, 22, 0x0001)
    $btnClose = GUICtrlCreateButton("&Beenden", 170, 125, 75, 22)
    GUISetState()

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

    $zfzhl = Random(0, 999, 1)
    ConsoleWrite("Die zufällige Zahl lautet : " & $zfzhl & @CRLF)

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

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3, $btnClose
    ExitLoop
    Case $btnNew
    $zfzhl = Random(0, 999, 1)
    ConsoleWrite("Die zufällige Zahl lautet : " & $zfzhl & @CRLF)
    $versuche = 0
    GUICtrlSetData($lblOutMsg, "Anzahl der Versuche :" & @TAB & $versuche)
    GUICtrlSetData($lblOut, "Hinweise.")
    GUICtrlSetData($iptZahl, "")
    Case $btnGo
    $zahl = GUICtrlRead($iptZahl)
    ConsoleWrite("Die vom Nutzer eingegebene Zahl : " & $zahl & @CRLF)
    If ($zahl >= 0) And ($zahl <= 999) Then
    Switch $zfzhl
    Case $zfzhl < $zahl
    $versuche += 1
    GUICtrlSetData($lblOut, "Die gesuchte Zahl ist kleiner.")
    GUICtrlSetData($lblOutMsg, "Anzahl der Versuche :" & @TAB & $versuche)
    Case $zfzhl > $zahl
    $versuche += 1
    GUICtrlSetData($lblOut, "Die gesuchte Zahl ist groesser.")
    GUICtrlSetData($lblOutMsg, "Anzahl der Versuche :" & @TAB & $versuche)
    Case Else
    $versuche += 1
    GUICtrlSetData($lblOut, "Super ! Du hast die Zahl geraten !")
    GUICtrlSetData($lblOutMsg, "Anzahl der Versuche :" & @TAB & $versuche)
    EndSwitch
    Else
    MsgBox(64, "Error", "Bitte eine Zahl zwischen 0 und 999 eingeben !")
    EndIf
    EndSwitch
    WEnd
    EndFunc ;==>_main
    ; Ende

    [/autoit]

  • Mehrere Icons in exe- Datei einbinden

    Spoiler anzeigen
    [autoit]


    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Outfile=iconPLUS_1.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
    #AutoIt3Wrapper_Res_Icon_Add=1.ico ;muss im ScriptDir liegen !!!
    #AutoIt3Wrapper_Res_Icon_Add=2.ico
    #AutoIt3Wrapper_Res_Icon_Add=3.ico
    #AutoIt3Wrapper_Run_Tidy=y
    #AutoIt3Wrapper_Run_Obfuscator=y
    #Obfuscator_Parameters=/striponly
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>

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

    #Region - GUI Create
    GUICreate(' iconPLUS', 400, 400)
    $Checkbox = GUICtrlCreateCheckbox("cb", 30, 90, 150, 40, BitOR($BS_ICON, $BS_PUSHLIKE))
    GUICtrlSetImage(-1, @ScriptFullPath, -7)
    $bnOK = GUICtrlCreateButton("OK", 20, 350, 75, 40, $BS_ICON)
    GUICtrlSetImage(-1, @ScriptFullPath, -5)
    $bnClose = GUICtrlCreateButton("b", 305, 350, 75, 40, $BS_ICON)
    GUICtrlSetImage(-1, @ScriptFullPath, -6)
    GUISetState()
    #EndRegion - GUI Create

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

    #Region - GUI SelectLoop
    While True
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE Or $msg = $bnClose
    MsgBox(64, " iconPLUS - Example", "Viel Spaß wünscht RR04 !" & @TAB, 3)
    ExitLoop
    Case $msg = $bnOK
    MsgBox(64, " iconPLUS - Example", "OK wurde gedrückt !" & @TAB)
    Case $msg = $Checkbox
    MsgBox(64, " iconPLUS - Example", "CheckBox wurde gedrückt !" & @TAB)
    EndSelect
    WEnd
    #EndRegion - GUI SelectLoop

    [/autoit]

  • Ini Pfad Leseproblem

    Das ist richtig.
    Ich frage mich, ob es nicht besser ist, noch strukturierter zu arbeiten.
    Gerade wenn man mit mehreren Programmen in verschiedenen Ordnern arbeitet.

    Also die Ini-Datei am zentralen Ort platzieren und direkte Pfade verwenden sollte, sowie die Key-Values eindeutiger formulieren.

    [autoit]


    @ScriptDir & "\Meine.exe"
    @ScriptDir & "\MeinProg.exe"
    MsgBox(0, "", @ScriptDir & "\Meine.exe")
    MsgBox(0, "", @ScriptDir & "\MeinProg.exe")
    IniWrite(@ScriptDir & "\my.ini", "MyProgs", "Meine", @ScriptDir & "\Meine.exe")
    IniWrite(@ScriptDir & "\my.ini", "MyProgs", "MeinProg", @ScriptDir & "\MeinProg.exe")
    Exit
    ; Ende

    [/autoit]

  • Ini Pfad Leseproblem

    Hi,
    ich erstelle mal eine "ini-Datei". ;)

    [autoit]


    @ScriptDir & "\Meine.exe"
    MsgBox(0, "", @ScriptDir & "\Meine.exe")
    IniWrite(@ScriptDir & "\my.ini", "MyProgs", "1", @ScriptDir & "\Meine.exe")
    Exit
    ; Ende

    [/autoit]

  • Ini Pfad Leseproblem

    [autoit]


    ;~ Dein Script in Zeile 7:
    @Scriptdir & "" &Meine.exe
    ;~ oder besser so:
    @Scriptdir & "\Meine.exe"

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

    ;! Frage ?
    ; Was wird AutoIt in Deine ini-Datei schreiben bei "@Scriptdir" ? ;)

    [/autoit]

  • Text im Button unterschiedlich formatieren

    Und jetzt auch in Farbe ! ;)

    [autoit]


    #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <ButtonConstants.au3>
    #include <WindowsConstants.au3>
    ;~ +> $WS_CLIPSIBLINGS —> WindowsConstants.au3
    ;~ +> $BS_BOTTOM —> ButtonConstants.au3
    ;~ +> $BS_MULTILINE —> ButtonConstants.au3

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

    Global $msg, $tate = 1, $sMsg[2], $Color[2] = [0xFF0000, 0x00FF00]
    $sMsg[0] = '\nViel Spaß wünscht\nRitzelrocker04 !'
    $sMsg[1] = '\nDas ist ein\nmehrzeiliger Text\nin einem\nfarbigen Button'

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

    GUICreate('Colored_image_Button-Tut', 300, 150)
    GUICtrlCreateIcon("shell32.dll", -14, 40, 40, 32, 32, 0)
    Global $btnColor = GUICtrlCreateButton(StringFormat($sMsg[1]), 10, 10, 230, 100, BitOR($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
    GUICtrlSetBkColor(-1, 0x00FF00)
    GUISetState()

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

    While True
    $msg = GUIGetMsg()
    Switch $msg
    Case -3 ;$GUI_EVENT_CLOSE
    MsgBox(64, 'tata... ;-)', StringFormat($sMsg[0]), 3)
    ExitLoop
    Case $btnColor
    $tate = BitXOR($tate, 0, 1)
    For $k = 0 To 1 ;i statisch kein Ubound
    GUICtrlSetData($btnColor, StringFormat($sMsg[$tate]))
    GUICtrlSetBkColor($btnColor, $Color[$tate])
    Next
    EndSwitch
    WEnd
    ; Ende

    [/autoit]

  • Eintrag aus eigener Combobox selektieren und ausführen

    Herzlich Willkommen und viel Spaß hier !

    Spoiler anzeigen
    [autoit]


    #AutoIt3Wrapper_AU3Check_Parameters=-w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <ComboConstants.au3>

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

    GUICreate("CreateCombo-Tut", 280, 200)
    $cmbCombo = GUICtrlCreateCombo("Fall 1", 10, 20, 260, 20)
    GUICtrlSetData($cmbCombo, "|Fall 1|Fall 2|Fall 3", "Fall 1")
    $btnEx = GUICtrlCreateButton("Example", 190, 60, 80, 22)

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

    GUISetState()

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

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3 ;i $GUI_EVENT_CLOSE
    ExitLoop
    Case $btnEx
    $comboRead = GUICtrlRead($cmbCombo)
    $Flag = 64
    $sHeader = "Example"
    Switch $comboRead
    Case "Fall 1"
    $Msg = "Der Erste."
    Case "Fall 2"
    $Msg = "Der Zweite."
    Case "Fall 3"
    $Msg = "Der Dritte."
    Case Else
    $Flag = 48
    $sHeader = "Oh oh"
    $Msg = "Keiner der definierten Fälle !"
    EndSwitch
    MsgBox($Flag, $sHeader, StringFormat("%s \n\n %s", $comboRead, $Msg) & @TAB)
    EndSwitch
    WEnd
    ; Ende

    [/autoit]

  • FileWrite zu langsam. Fast 2 Minuten!!!!

    Hi!
    Die zu schreibenden Werte sammeln und dann mit einem Funktionsaufruf schreiben! ;)

    Spoiler anzeigen
    [autoit]


    Local $file = FileOpen("test.txt", 1)
    FileWrite($file, "################################################################################" & @CRLF)
    FileWrite($file, "#Created with Excel to EEP programme" & @CRLF)
    FileWrite($file, "#User: " & 'XXXXX' & " Date: " & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF)
    FileWrite($file, "#Project File: " & 'YYYYYY' & @CRLF)
    FileWrite($file, "#Remarks: " & 'ZZZZZZ' & @CRLF)
    FileWrite($file, "################################################################################" & @CRLF)
    FileWrite($file, @CRLF)
    FileClose($file)

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

    ; Besser:
    ; Die zu schreibenden Werte sammeln und dann mit einem Funktionsaufruf schreiben!
    Local $sToWrite = ''
    $sToWrite &= @CRLF
    $sToWrite &= "#################################################################################" & @CRLF
    $sToWrite &= "#Die zu schreibenden Werte sammeln und dann mit einem Funktionsaufruf schreiben!#" & @CRLF
    $sToWrite &= "# Created with Excel to EEP programme" & @CRLF
    $sToWrite &= "# User: " & 'XXXXX' & " Date: " & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF
    $sToWrite &= "# Project File: " & 'YYYYYY' & @CRLF
    $sToWrite &= "# Remarks: " & 'ZZZZZZ' & @CRLF
    $sToWrite &= "#################################################################################" & @CRLF
    $sToWrite &= @CRLF
    Local $file = FileOpen("test.txt", 1 + 8)
    If $file = -1 Then Exit MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    FileWrite($file, $sToWrite)
    FileClose($file)

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

    #cs
    ; aus der Hilfe!
    Local $file = FileOpen("test.txt", 1)

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

    ; Prüfen, ob Datei im Schreibmodus geöffnet ist
    If $file = -1 Then
    MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    Exit
    EndIf

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

    FileWrite($file, "Zeile 1")
    FileWrite($file, "Immer noch Zeile 1" & @CRLF)
    FileWrite($file, "Zeile 2")

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

    FileClose($file)
    #ce

    [/autoit]

  • Radio Button

    Hi, da es hier nur eine von zwei Möglichkeiten gibt. ;)

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    $PDF = GUICreate("PDF-Canon-Scan", 551, 581, 530, 188)
    $btnRechnung = GUICtrlCreateButton("Rechnung", 30, 152, 187, 73)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    $Jahr = GUICtrlCreateInput("2014", 168, 32, 49, 21)
    $btnSchreiben = GUICtrlCreateButton("Schreiben", 30, 67, 187, 73)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    $btnAblage = GUICtrlCreateButton("Ablage", 30, 232, 187, 73)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    ;$Group1 = GUICtrlCreateGroup("Scan", 312, 64, 145, 89)
    $Radio1 = GUICtrlCreateRadio("Simplex", 321, 87, 113, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $Radio2 = GUICtrlCreateRadio("Duplex", 319, 115, 113, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Label1 = GUICtrlCreateLabel("Jahr", 136, 32, 24, 17)
    $btnexit = GUICtrlCreateButton("beenden", 408, 464, 75, 25)
    GUISetState(@SW_SHOW)

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

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3, $btnexit ;$GUI_EVENT_CLOSE
    Exit
    Case $btnRechnung
    RG()
    Case $btnSchreiben

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

    Case $btnAblage

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

    ;~ Case $btnexit
    ;~ ;beenden
    EndSwitch
    WEnd

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

    Func RG()
    If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) Then ;)
    MsgBox(4096, "", "Radio1 - Simplex")
    ;~ Func _Simplex()
    Else
    MsgBox(4096, "", "Radio2 - Duplex")
    ;~ Func _Duplex()
    EndIf
    EndFunc ;==>RG
    ; Ende

    [/autoit]

  • Leeres Inputfeld in gui auswerten

    Hi, ich hatte mehr an eine "sprechende MsgBox" gedacht.
    Hier das Beispiel:

    [autoit]


    ;~ Leere Inputfelder in gui auswerten "sprechende MsgBox"
    #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

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

    Opt('MustDeclareVars', 1)

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

    Global $msg, $sOutput, $lbl[2], $ipt[2], $sHeader[2] = ["Vorname", "Nachname"]

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

    Global $hGui = GUICreate("ControlGetText-Tut", 380, 120, 100, 100) ;i Hauptfenster erstellen
    Global $btn = GUICtrlCreateButton("Eingaben prüfen", 20, 80, 100, 25) ;i Button erstellen
    For $i = 0 To 1 ;i 2x = 0-1 > Labels und Inputs erstellen
    $lbl[$i] = GUICtrlCreateLabel($sHeader[$i], 25 + ($i) * 165, 20, 110, 20) ; Überschriften-Label erstellen
    GUICtrlSetFont(-1, 8, 400, 0, 'Verdana') ; Schriftgröße und -art der Überschriften festlegen
    $ipt[$i] = GUICtrlCreateInput("", 20 + ($i) * 165, 35, 160, 20) ; Eingabefelder erstellen
    GUICtrlSetFont(-1, 10, 600, 0, 'Verdana') ; Schriftgröße und -art der Eingabefelder festlegen
    Next
    GUISetState(@SW_SHOW)

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

    While True
    $msg = GUIGetMsg()
    Switch $msg
    Case -3
    ExitLoop
    Case $btn
    For $i = 0 To 1
    ;i Das Auslesen der Eingabefelder.
    While GUICtrlRead($ipt[$i]) = ""
    #cs
    Den Text aus den Labels lesen mit ControlGetText.
    Da in diesem Fall, die Labels im $sHeader-Array stehen
    ist auch die Abfrage über das $sHeader-Array möglich.
    #ce
    $sOutput = ''
    $sOutput &= ControlGetText($hGui, '', $lbl[$i])
    MsgBox(48, "Eingabeprüfung", $sOutput & " - Eine Eingabe ist erforderlich !" & @TAB)
    WEnd
    Next
    MsgBox(0, "Erfolg", "Alle Eingabefelder sind ausgefüllt !" & @TAB)
    EndSwitch
    WEnd
    ; Ende

    [/autoit]

  • Ausführen zwischen zwei Zeiten

    ;)

    [autoit]


    #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    ;~ Das Beispiel aus der Hilfe !
    Global $msg
    Switch @HOUR
    Case 6 To 11
    $msg = "Guten Morgen"
    Case 12 To 17
    $msg = "Guten Tag"
    Case 18 To 21
    $msg = "Guten Abend"
    Case Else
    $msg = "Warum bist du noch wach?"
    EndSwitch

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

    MsgBox(0, Default, $msg)

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

    ;~ Den Wochentag als Zweizeiler !
    ;~ Array neue Schreibweise !

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

    ;~ Global $aWeekDay[] = ['', 'So', 'Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa']
    ;~ MsgBox(0, Default, $msg & @CRLF & 'Heute ist ' & $aWeekDay[@WDAY])

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

    ;~ oder

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

    Global $aWeekDay[] = ['So', 'Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa']
    MsgBox(0, Default, 'Heute ist ' & $aWeekDay[@WDAY - 1])

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

    ;~ Weitere Zeitrechnungen mit _NowCalc und #include <Date.au3> !

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

    #include <Date.au3>
    MsgBox(0, '', 'Es ist jetzt ' & _NowTime() & ' Uhr.')

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

    MsgBox(0, Default, $msg & @CRLF & 'Heute ist ' & $aWeekDay[@WDAY - 1] _
    & @CRLF & 'Es ist jetzt ' & _NowTime() & ' Uhr.')
    ; Ende

    [/autoit]

  • Printfunktion

    Hi,
    vielleicht so?

    [autoit]


    Func print2()
    Local $data_print = _GUICtrlListView_GetSelectedIndices($hListView)
    ;i Alle drei Einträge in "$output" speichern.
    Local $output = ''
    $output &= _GUICtrlListView_GetItemText($hListView, Abs($data_print)) & @CRLF
    $output &= _GUICtrlListView_GetItemText($hListView, Abs($data_print), 1) & @CRLF
    $output &= _GUICtrlListView_GetItemText($hListView, Abs($data_print), 7) & @CRLF
    ;i Alle drei Einträge in "$output" als MsgBox anzeigen.
    MsgBox(0, "Datensatz drucken", $output)
    ;i Ausgabe.txt-Datei öffnen.
    Local $file = FileOpen(@ScriptDir & '\output.txt', 1)
    If $file = -1 Then
    MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    Exit
    EndIf
    ;i Ausgabe.txt-Datei einmalig schreiben.
    FileWrite(@ScriptDir & '\output.txt', $output)
    ;i Ausgabe.txt-Datei schließen.
    FileClose(@ScriptDir & '\output.txt')
    ;i Ausgabe.txt-Datei drucken.
    Local $print = _FilePrint(@ScriptDir & '\output.txt')
    If $print Then
    MsgBox(0, "Drucken ", "Die Datei wurde gedruckt. ")
    Else
    MsgBox(0, "Drucken ", "Fehler: " & @error & @CRLF & "Die Datei wurde nicht gedruckt. ")
    EndIf
    EndFunc ;==>print2
    ; Ende

    [/autoit]

  • Programmname abfragen

    Hallo,
    Du kannst auch noch die Version abfragen und die Funktion Deines Programms bei falschem Scriptnamen einstellen. ;)

    [autoit]


    #AutoIt3Wrapper_AU3Check_Parameters=-w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #AutoIt3Wrapper_Res_Fileversion=1.1.4.6
    $criptName = @ScriptName
    ; FileGetVersion(@ScriptFullPath) erst nach dem kompilieren wirksam.
    $sVersion = FileGetVersion(@ScriptFullPath)
    MsgBox(0, "", $criptName & " " & $sVersion)
    ; "Exit" Script mit falschen Namen wird nicht gestartet.
    If $criptName <> 'MyScript.exe' Then Exit MsgBox(0, "Oh oh !", "Falscher Scriptname !")
    ; "Exit" Beendet nur dieses Script.
    Exit
    ; Ende

    [/autoit]