1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. autoBert

Beiträge von autoBert

  • Netzwerkdaten komprimieren

    • autoBert
    • 16. Januar 2011 um 20:47
    Zitat von veronesi

    Wenn ja, dann würde mir das ja nichts nützen, weil eben das Laden so lange dauert!


    Das geht bei mir sehr schnell:

    Code
    C:\Programme\AutoIt3\AutoIt3.exe 0x78C22DF03127318893CE5B1FEDE8401C Dauer: 42.268221240409 ms
    C:\Programme\AutoIt3\Neuer Ordner\AutoIt3.exe 	0x78C22DF03127318893CE5B1FEDE8401C Dauer: 42.3855545886419 ms

    ermittelt mit diesem Beispielskript:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <Crypt.au3>

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

    ; Example of hashing files

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

    ; Create GUI
    $hWnd=GUICreate("Hasher",370,60)
    $hFileControl=GUICtrlCreateInput("",5,5,200,20)
    $hBrowseButton=GUICtrlCreateButton("...",210,5,35,20)
    $hHashCombo=GUICtrlCreateCombo("MD5",250,5,50,20)
    GUICtrlSetData(-1,"MD2|MD4|SHA1")
    $hCalcButton=GUICtrlCreateButton("Calculate",305,5,60,20)
    $hHashLabel=GUICtrlCreateLabel("Hash Digest",5,35,365,20,$SS_CENTER)

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

    GUISetState(@SW_SHOW)

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

    _Crypt_Startup()

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

    Do
    $msg=GUIGetMsg()

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

    Switch $msg
    Case $hBrowseButton
    $sFile=FileOpenDialog("Open file","","All files (*.*;)")
    GUICtrlSetData($hFileControl,$sFile)

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

    Case $hCalcButton
    $iALG_ID=0
    ; What algorthm did the user choose?
    Switch GUICtrlread($hHashCombo)
    Case "MD2"
    $iALG_ID=$CALG_MD2
    Case "MD4"
    $iALG_ID=$CALG_MD4
    Case "MD5"
    $iALG_ID=$CALG_MD5
    Case "SHA1"
    $iALG_ID=$CALG_SHA1
    Case Else
    MsgBox(16,"Error","Not a valid algorithm!")
    ContinueLoop
    EndSwitch
    $sFile=GUICtrlRead($hFileControl)
    If Not FileExists($sFile) Then
    MsgBox(16,"Error","Invalid file")
    ContinueLoop
    EndIf
    $tdStart = TimerInit()
    $bDigest=_Crypt_HashFile($sFile,$iALG_ID)
    $tdDauer = TimerDiff($tdStart)
    GUICtrlSetData($hHashLabel,$bDigest)
    ConsoleWrite($sFile & " " & $bDigest & " Dauer: " & $tdDauer & " ms" & @crlf)
    Case $GUI_EVENT_CLOSE
    ExitLoop

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

    EndSwitch
    Until False

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

    _Crypt_Shutdown()

    [/autoit]

    mit dem Standard-Parameter: MD5

    mfg autoBert

  • Sicherungs Script

    • autoBert
    • 16. Januar 2011 um 20:27

    Hallo dr. mo,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    für deine Frage könnte auch [ gelöst ] dircopy bzw filecopy mit progressbar hilfreich sein. Die dor vewendedeten Parameter von XCopy kannst du dir ja an deine Bedürfnisse anpassen,

    mfg autoBert

  • Textfile ändern

    • autoBert
    • 16. Januar 2011 um 12:13

    Hallo Pitter,

    Zitat

    _ReplaceStringInFile

    Ersetzt in einer Textdatei einen String mit einem anderen String (binary funktioniert nicht!)

    Quelle: Hilfe

    Edit: StringReplace gegen _ReplaceStringInFile ausgetauscht

    mfg autoBert

  • Case problem

    • autoBert
    • 16. Januar 2011 um 11:44

    Hallo manuel6000,

    ohne Bilder kann man dein Skript nicht testen und die meisten (ich auch) sind zu bequem sich selbst welche zu suchen.
    Deshalb hier ein allgemeines Beispiel für den Umgang mit mehreren GUIs im Message-Loop Modus:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include<WindowsConstants.au3>

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

    Global $idGui1, $idGui2=-99, $idMsgBox, $idZurueck, $idbtnExit2
    _CreateGui2() ;entweder hier oder erst wenn benötigt ($idbtmToGui2 Klick)

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

    $idGui1 = GUICreate('GUI 1', 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
    ;erzeugt eine GUI die zurückgebebene ID wird in der Variablen $idGui1 gespeichert
    ;die GUI hat BOXen für Mininmieren, Maximieren und ist in der Größe frei änderbar
    GUISetOnEvent($GUI_EVENT_CLOSE, '_End')

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

    $idbtnToGui2 = GUICtrlCreateButton('&Aufruf GUI 2', 20, 20, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

    $idbtnICQ = GUICtrlCreateButton('&ICQ', 20, 50, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "ICQ" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

    $idbtnExit1 = GUICtrlCreateButton('be&enden', 20, 80, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

    GUISetState(@SW_SHOW, $idGui1)

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

    While 1
    $nMsg = GUIGetMsg(1) ;extended Modus wichtig!!
    Switch $nMsg[1] ;für welches Fenster ist die Message
    Case $idGui1 ;ab hier ist Gui 1 dran
    Switch $nMsg[0] ;welche Message wurde ausgelöst
    Case $idbtnToGui2
    GUISetState(@SW_Hide, $idGui1) ;Gui 1 verstecken, damit nur Gui2 sichtbar ist und bearbeitet werden kann
    ;If $idGui2 = -99 Then _CreateGui2() ;nur wenn nicht am Anfang bereits erzeugt nötig, dann auf Vorbelegung der Variable in Global achten)
    GUISetState(@SW_SHOW, $idGui2) ;Gui 2 anzeigen
    Case $idbtnICQ
    MsgBox(0,"","Jetzt würde ICQ gestartet")
    ;Run("C:\Program Files\ICQ7.0\ICQ.exe")
    Case $idbtnExit1, $GUI_EVENT_CLOSE
    _end()
    EndSwitch
    Case $idGui2 ;ab hier ist Gui 2 dran
    Switch $nMsg[0] ;welche Message wurde ausgelöst
    Case $idMsgBox
    MsgBox(0, 'Test', 'Test', 0, $idGui2)
    Case $idZurueck, $GUI_EVENT_CLOSE
    GUISetState(@SW_Show, $idGui1) ;Gui 1 wieder anzeigen
    GUISetState(@SW_HIDE, $idGui2) ;Gui 2 verstecken
    Case $idbtnExit2
    _end()
    EndSwitch
    EndSwitch
    WEnd

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

    Func _CreateGui2()
    $idGui2 = GUICreate('GUI 2', 500, 300, 200, 50, -1, -1, $idGui1) ;wichtig ist der letzte Parameter
    ;erzeugt eine GUI als Child von Gui1, die zurückgebebene ID wird in der Variablen $idGui2 gespeichert

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

    $idMsgBox = GUICtrlCreateButton('&MsgBox', 20, 20, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "MsgBox" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

    $idZurueck = GUICtrlCreateButton('&Zurück zu GUI 1', 20, 50, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "zurück" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

    $idbtnExit2 = GUICtrlCreateButton('be&enden', 20, 80, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "beenden" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    EndFunc ;==>_CreateGui2

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

    Func _end()
    GUIDelete($idGui2)
    GUIDelete($idGui1)
    Exit
    EndFunc ;==>_end

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

    sind zwar Buttons aber das chema ist das gleiche. In der Regel benötigt man auch bei mehreren GUIs nur 1

    [autoit]

    GuiGetMsg

    [/autoit]

    Abfrage.
    Du solltest dir aber auch den OnEvent-Modus anschauen, vielleicht kommst du ja damit besser zurecht. Hier das gleiche Skript im OnEvent-Modus:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include<WindowsConstants.au3>

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

    Opt('GUIOnEventMode', 1)

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

    $cidGui1 = GUICreate('GUI 1', 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
    ;erzeugt eine GUI die zurückgebebene ID wird in der Variablen $cidGui1 gespeichert
    ;die GUI hat BOXen für Mininmieren, Maximieren und ist in der Größe frei änderbar
    GUISetOnEvent($GUI_EVENT_CLOSE, '_End')

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

    $cidbtnToGui2 = GUICtrlCreateButton('&Aufruf GUI 2', 20, 20, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_CallGui2')
    ;Beim Klicken des Buttons wird die Funktion _CallGui2 aufgerufen

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

    $cidbtnICQ = GUICtrlCreateButton('&ICQ', 20, 50, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "ICQ" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_RunICQ')
    ;Beim Klicken des Buttons wird die Funktion _RunICQ aufgerufen

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

    $cidbtnExit1 = GUICtrlCreateButton('be&enden', 20, 80, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_End')
    ;Beim Klicken des Buttons wird die Funktion _END aufgerufen

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

    $cidGui2 = GUICreate('GUI 2', 500, 300, 200, 50, -1, -1, $cidGui1)
    ;erzeugt eine GUI als Child von Gui1, die zurückgebebene ID wird in der Variablen $cidGui2 gespeichert
    GUISetOnEvent($GUI_EVENT_CLOSE, '_BackToGui1')

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

    $cidButton1 = GUICtrlCreateButton('&MsgBox', 20, 20, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "MsgBox" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_MsgBox')
    ;Beim Klicken des Buttons wird die Funktion _MsgBox aufgerufen

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

    $cidButton2 = GUICtrlCreateButton('&Zurück zu GUI 1', 20, 50, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "zurück" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_BackToGui1')
    ;Beim Klicken des Buttons wird die Funktion _BackToGui1 aufgerufen

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

    $cidbtnExit2 = GUICtrlCreateButton('be&enden', 20, 80, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_End')
    ;Beim Klicken des Buttons wird die Funktion _END aufgerufen
    GUISetState(@SW_SHOW, $cidGui1)

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

    While 1
    Sleep(1000)
    WEnd

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

    Func _end()
    GUIDelete($cidGui2)
    GUIDelete($cidGui1)
    Exit
    EndFunc ;==>_end

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

    Func _CallGui2()
    GUISetState(@SW_HIDE, $cidGui1) ;entweder so
    ;GUISetState(@SW_DISABLE, $cidGui1) ;oder so dann bleibt die 1. Gui sichtbar ist aber nicht aktriv
    GUISetState(@SW_SHOW, $cidGui2)
    EndFunc ;==>_CallGui2

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

    Func _RunICQ()
    MsgBox(0, "", "Jetzt würde ICQ gestartet")
    ;Run("C:\Program Files\ICQ7.0\ICQ.exe")
    EndFunc ;==>_RunICQ

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

    Func _BackToGui1()
    GUISetState(@SW_SHOW, $cidGui1) ;nur nötig falls Gui versteckt
    ;GUISetState(@SW_ENABLE, $cidGui1) ;nur nötig falls Gui DISABLEd
    GUISetState(@SW_HIDE, $cidGui2)
    EndFunc ;==>_BackToGui1

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

    Func _MsgBox()
    MsgBox(0, 'Test', 'Test', 0, $cidGui2)
    EndFunc ;==>_MsgBox

    [/autoit]

    mfg autoBert

    mfg autoBert

  • Netzwerkdaten komprimieren

    • autoBert
    • 16. Januar 2011 um 02:38

    @Matthias_199

    Zitat von Oscar

    Sind das alles AutoIt-Skripte?

    Wenn ja, dann könntest Du die doch als Skript (zusätzlich gepackt) verschicken und dann vor Ort compilieren.

    Zitat von veronesi

    (Leider) nein. Das sind alles Delphi Scripte.

    Diese Idee wurde schon vorgetragen, geht aber nicht.

    Die vernünftigste Idee ist wirklich diese:

    Zitat von veronesi

    PRO Standort ein gemeinsames Netzlaufwerk haben, auf welches ALLE von diesem Standort Zugriff haben.

    wenn der Rechner, der dieses physische LW bereitstellt, dann noch zeitgesteuert (Arbeitsbeginn -x Stunden) sich die Daten automatich abholt, sollte das Ideal erreicht sein,

    PS.: mich wundert allerdings die Packrate. ich habe einige Delphi-5 EXEn gepackt und kam damit auf 60% Ersparnis.

    mfg autoBert

  • ihc krieg das mit dem menü nicht hin

    • autoBert
    • 15. Januar 2011 um 19:10

    Hallo aflakes,

    mach es so dann klappt es:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <ScreenCapture.au3>
    #include <GDIPlus.au3>
    #RequireAdmin
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("screen by aflakes", 260, 80, 959, 1)
    $screen = GUICtrlCreateButton("screen", 16, 32, 89, 25, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("´Klick", 136, 15, 50, 30)
    $Label2 = GUICtrlCreateLabel("letzer screen:", 64, 8, 67, 17)
    $menu = GUICtrlCreateMenu("Menue")
    $menuitem = GUICtrlCreateMenuItem("Always on top", $menu)
    GUICtrlSetState($menuitem, $GUI_CHECKED)

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

    GUISetState(@SW_SHOW)

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

    #endregion ### END Koda GUI section ###
    Sleep(555)
    WinSetOnTop("[ACTIVE]", "", 1)
    MsgBox(0, "screen", "bilder werden gespeichert unter:" & @CRLF & "C:/Users/username/dokumente/bildname")

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

    While 1

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

    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $screen
    GUICtrlSetData($Label1, @HOUR & ":" & @MIN & ":" & @SEC)
    _Main()
    Case $menuitem
    If BitAND(GUICtrlRead($menuitem), $GUI_CHECKED) = $GUI_CHECKED Then
    GUICtrlSetState($menuitem, $GUI_UNCHECKED)
    WinSetOnTop("[ACTIVE]", "", 0)
    Else
    GUICtrlSetState($menuitem, $GUI_CHECKED)
    WinSetOnTop("[ACTIVE]", "", 1)
    EndIf
    EndSwitch
    WEnd

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

    Func _Main()
    Local $hBmp
    ; Capture full screen
    $hBmp = _ScreenCapture_Capture()
    $input = InputBox("filename", "bitte bildname eingeben")
    ; Save bitmap to file
    _ScreenCapture_SaveImage(@MyDocumentsDir & "\" & $input & ".bmp", $hBmp)
    EndFunc ;==>_Main

    [/autoit]

    die func muss ausserhalb der While..Wend Schleife erstellt werden,

    mfg autoBert

  • ihc krieg das mit dem menü nicht hin

    • autoBert
    • 15. Januar 2011 um 18:57
    Zitat von aflakes

    was is source???


    Dein Skript

    mfg autoBert

  • ihc krieg das mit dem menü nicht hin

    • autoBert
    • 15. Januar 2011 um 18:40

    Hallo aflakes,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    Auch das lesen von Autoit-Anfänger Guide / Wie poste ich richtig? kann dir nicht schaden.

    und jetzt zu deinem Problem: solange du nicht deinen Source Skript hier einstellst, darfst du nicht erwarten, dass sich jemand die Mühe macht dir zu antworten. Deshalb hier nur das Beispiel aus der Hilfe:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>

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

    Opt('MustDeclareVars', 1)

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

    Example()

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

    Func Example()
    Local $defaultstatus = "Ready", $status, $filemenu, $fileitem
    Local $helpmenu, $saveitem, $infoitem, $exititem, $recentfilesmenu
    Local $separator1, $viewmenu, $viewstatusitem, $okbutton, $cancelbutton
    Local $statuslabel, $msg, $file

    GUICreate("My GUI menu", 300, 200)

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

    $filemenu = GUICtrlCreateMenu("&File")
    $fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $helpmenu = GUICtrlCreateMenu("?")
    $saveitem = GUICtrlCreateMenuItem("Save", $filemenu)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
    $exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
    $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu, 1)

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

    $separator1 = GUICtrlCreateMenuItem("", $filemenu, 2) ; create a separator line

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

    $viewmenu = GUICtrlCreateMenu("View", -1, 1) ; is created before "?" menu
    $viewstatusitem = GUICtrlCreateMenuItem("Statusbar", $viewmenu)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $okbutton = GUICtrlCreateButton("OK", 50, 130, 70, 20)
    GUICtrlSetState(-1, $GUI_FOCUS)
    $cancelbutton = GUICtrlCreateButton("Cancel", 180, 130, 70, 20)

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

    $statuslabel = GUICtrlCreateLabel($defaultstatus, 0, 165, 300, 16, BitOR($SS_SIMPLE, $SS_SUNKEN))

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

    GUISetState()
    While 1
    $msg = GUIGetMsg()

    If $msg = $fileitem Then
    $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
    If @error <> 1 Then GUICtrlCreateMenuItem($file, $recentfilesmenu)
    EndIf
    If $msg = $viewstatusitem Then
    If BitAND(GUICtrlRead($viewstatusitem), $GUI_CHECKED) = $GUI_CHECKED Then
    GUICtrlSetState($viewstatusitem, $GUI_UNCHECKED)
    GUICtrlSetState($statuslabel, $GUI_HIDE)
    Else
    GUICtrlSetState($viewstatusitem, $GUI_CHECKED)
    GUICtrlSetState($statuslabel, $GUI_SHOW)
    EndIf
    EndIf
    If $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton Or $msg = $exititem Then ExitLoop
    If $msg = $infoitem Then MsgBox(0, "Info", "Only a test...")
    WEnd
    GUIDelete()
    EndFunc ;==>Example

    [/autoit]

    PS.: selbst Leute die bereit sind dir zu helfen werden es so nicht schaffen, da der Link nicht funktioniert (kein Skript)

    mfg autoBert

  • Mein Fehler bei _Stringbetween (mal gehts, mal nicht)

    • autoBert
    • 15. Januar 2011 um 18:27
    Zitat von Manne363

    Die Webseite ist doch immer da und der Name damit auch....


    Auch grosse leistungsstarke Server sind ab und zu überfordert, also kurzzeitig nicht für alle erreichbar. Wenn du es so machst:

    Spoiler anzeigen
    [autoit]

    #include <INet.au3>
    #include <String.au3>
    #include <array.au3>

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

    Global $sNewestVersion, $sInstallVersion, $PF=@HomeDrive
    Global $NameUpdDatei

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

    FF_Upd()

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

    Func FF_Upd(); Name der Update-Datei
    $sBinary = InetRead('http://releases.mozilla.org/pub/mozilla.org/firefox/releases/3.6.13/update/win32/de/', 1)
    if not @error Then
    $sFF_Upd_Source=BinaryToString($sBinary)
    ;ConsoleWrite($sFF_Upd_Source & @CRLF)
    $NameUpdDatei=_StringBetween($sFF_Upd_Source,'<img src="/icons/unknown.gif" alt="[ ]"> <a href="','">firefox')
    if IsArray($NameUpdDatei) Then
    _ArrayDisplay($NameUpdDatei)
    ConsoleWrite("Name: "&$NameUpdDatei[0]&@CRLF)
    Else
    MsgBox(1,"Name","Kein Update verfügbar") ;sollte nicht vorkommen ausser Mozillahat den Seitenaufbau geändert
    EndIf
    Else
    MsgBox(1,"Seitenladenfehler","versuchen sie es später noch einmal") ;Internetstörung
    EndIf
    EndFunc

    [/autoit]

    erfährst du wenigstens den Grund, da auch dieser mögliche Fehler behandelt ist,

    mfg autoBert

  • wie sonderzeichen wie ÄÖÜ `´ usw ausgeben?

    • autoBert
    • 14. Januar 2011 um 21:45

    Hallo maximus1,

    da du nicht antworstest darf man ja davon ausgehen dass dann dein Problem gelöst ist , schön wäre es allerdings auch wenn du den Thread auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)

    mfg autoBert

  • [Beispiel] SnapShot's from WebCam ver.: 0.8.1.3

    • autoBert
    • 14. Januar 2011 um 20:38

    Hallo StayAwayKnight,

    wenn sich hier kein WIN-7 User findet der das Problem gelöst hat poste es doch bitte hier: http://www.autoitscript.com/forum/index.php?showtopic=79366&view=findpost&p=572154 , denn @ludocus hat die UDF erstellt. Ich selbst habe kein wIN-7 zur Verfügung kann also nicht testen,

    mfg autoBert

  • Mein Fehler bei _Stringbetween (mal gehts, mal nicht)

    • autoBert
    • 14. Januar 2011 um 11:25

    Hallo Mann363,

    wenn _StringBeetween nichts findet erhälst du auch kein Array zurück. Du kannst den möglichen Fehler so abfangen:

    [autoit]

    if IsArray($NameUpdDatei) Then
    ;$NameUpdDatei=$NameUpdDatei[0]
    MsgBox(1,"Name",$NameUpdDatei[0])
    Else
    MsgBox(48,"Name2","Konnte nichts finden!")
    EndIf

    [/autoit]

    mfg autoBert

  • TAG-Eigenschaft von Steuerelementen

    • autoBert
    • 14. Januar 2011 um 11:15

    Hallo ineedhelp,

    bei einigen Controls gibt es die Möglichkeit Parameter zu setzen und wieder zu lesen z.B.:

    [autoit]

    _GUICtrlListView_SetItemParam
    _GUICtrlListView_GetItemParam

    [/autoit]

    musst halt die Hilfe durchgehen,

    mfg autoBert

  • Bildschirmübertragung

    • autoBert
    • 14. Januar 2011 um 02:36

    Hallo Thomas,

    du solltest dir auch DeskStream 2 (Assembler Tune) anschauen,

    mfg autoBert

  • Kontextmenü erkennt den Dateipfad

    • autoBert
    • 13. Januar 2011 um 22:16

    sorry, muss so aussehen:

    [autoit]

    MsgBox(0, $i & ":",$CmdLine[$i])

    [/autoit]

    läuft aber auf das gleiche hinaus wie UEZ gepostet bin. Von der Technik "verteckte NTFS Datenstöme zuweisen" habe ich noch nichts gehört bin aber trotzdem der Meinung dass der gemeinsame Nenner von UEZ und mir nämlich cmdline der Schlüssel zu deinem Problem ist.
    Eventuell lässt es sich auch über Makros lösen: @AutoItExe (in compiliertem Skript) bzw. @ScriptFullPath,

    mfg autoBert

  • Onlinespiele

    • autoBert
    • 13. Januar 2011 um 22:03

    Hallo manuel6000,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem: die Befehslfolge ist unsinnig (selbst meine Galkugel lässt mich im Stich).
    Du solltest zuallerst einmal die Hilfe von Anfang bis mindestens einschliesslich GUI-Referenz durchlesen und auch die Beispiele der einzelnen funcs nachvollziehen. Danach kannst du dich dann an grössere Aufgaben herantasten,

    mfg autoBert

  • Popupfenster + kurzer Text + ok

    • autoBert
    • 13. Januar 2011 um 21:29

    Hallo Poster63,

    handelt es sich hierbei zufällig um dieses Problem? Firefox Masterpasswort eingeben

    mfg autoBert

  • Kontextmenü erkennt den Dateipfad

    • autoBert
    • 13. Januar 2011 um 20:43

    Hallo du Zauberlehrling (der Buchstaben verwechelt),

    wenn ich dich richtig vertanden habe willst du ein bestimmtes Dateiformat immer mit deiner "X:\\meine Test.exe" öffnen. Dazu solltest du cmdline benutzen. Um zu verstehen was es bewirkt kompiliere einfach dieses kleine Skript als "meine Test.exe":

    [autoit]

    For $i = 1 to $CmdLine[0]
    MsgBox(0,$i & ":",($CmdLine[$i])
    next

    [/autoit]

    klicke danach auf das Contextmenü und schau dir die Messageboxes an, danach weist du wie es funktioniert,

    mfg autoBert

  • Bug in _WeekNumberISO?

    • autoBert
    • 13. Januar 2011 um 20:33

    Hallo Tweaky,

    dies scheint tatsächlich ein Bug in _WeekNumberISO zu sein. Da nach ISO 8601 die Woche die den 1. Donnerstag des Jahres enthält als Woche 1 definiert wird kannst du nach meinen (kurzen) Stichproben die 0 = 53 setzen,

    mfg autoBert

  • Übersehe Fehler

    • autoBert
    • 13. Januar 2011 um 04:10

    Hallo Goldy,

    dazu

    Zitat von dt. Hilfe Bemerkungen zu GUICtrlCreatePic

    ...
    Wird ein Bild als Hintergrundbild genutzt, während die anderen Controls dieses quasi überlappen, so ist es wichtig, das Bild-Control zu deaktivieren und es nach den anderen Controls zu erstellen: GuiCtrlSetState(-1,$GUI_DISABLE). ...

    Da du ja deine Bilder nicht mit eingetellt hattest, habe ich ohne getestet, wodurch das Skript lief,

    mfg autoBert

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™