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

  • Happy Birthday Oscar

    • autoBert
    • 18. Januar 2012 um 14:40

    die besten Wünsche dazu, vor allem Gesundheit, Erfolg und Glück in allen Lebenslagen. Lass dich ausgiebig feiern :party::party::party::party:

    autoBert

  • (anfänger)Skript kürzen? tipps?

    • autoBert
    • 18. Januar 2012 um 13:49

    Hallo nuyx,

    wie du an diesem Skript:

    [autoit]

    #include <Array.au3>

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

    Global $aRandNr[10]
    Global $aNr[10]
    For $i = 0 To 9
    $aNr[$i] = $i
    Next

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

    For $i = 0 To 9
    $j = Random(0, UBound($aNr) - 1, 1)
    $aRandNr[$i] = $aNr[$j]
    ;ConsoleWrite($aRandNr[$i] & @TAB)
    _ArrayDelete($aNr, $j)
    ;_ArrayDisplay($aNr,"Zahlen im Lostopf")
    Next
    _ArrayDisplay($aRandNr,"Zufallszahlen")
    ;ConsoleWrite(@CRLF)

    [/autoit]

    erkennst kannst du beim Ermitteln der Zufallszahlen einiges kürzen. Falls du das Verfahren nicht verstehst solltest du die auskommentierten Zeilen aktivieren,

    mfg autoBert

  • FTPEx.au3 + Win7

    • autoBert
    • 18. Januar 2012 um 12:21

    Hall Hugbert,

    ich habe kein Win7 kann mir aber nicht vrstellen dass sich dadurch etwas ändert. Starte einmal dieses Skript (in der Hilfe ist leider das falsche Beispiel):

    Spoiler anzeigen
    [autoit]

    #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <FTPEx.au3>
    Opt('MustDeclareVars', 1)

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

    _example()

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

    Func _example()
    Local $s_ServerName = 'ftp.csx.cam.ac.uk' ;das ist ein real exitierender Server
    Local $s_Username = ''
    Local $s_Password = ''
    Local $i_Passive = 0 ;aktive Verbindung nutzen wenn bei anderen Server Probleme dann ach mit 1 für passive Verbung testen

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

    Local $s_LocalFile = @TempDir & "\tmp.txt"
    Local $s_RemoteFile = "README"
    Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP

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

    $l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
    $errOpen = @error
    If Not @error Then
    $l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
    $errFTP = @error
    If Not @error Then
    If _FTP_FileGet($l_FTPSession, $s_RemoteFile, $s_LocalFile) Then
    ShellExecute($s_LocalFile)
    ConsoleWrite("Download: erfolgreich" & @CRLF)
    Else
    ConsoleWrite("Download: fehlgeschlagen " & " " & @error & @CRLF)
    EndIf
    Else
    MsgBox(0, "Connect", "fehlgeschlagen")
    ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
    EndIf
    Else
    MsgBox(0, "Open", "fehlgeschlagen")
    ConsoleWrite("Open " & " " & $errOpen & @CRLF)
    EndIf
    _FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzng
    EndFunc ;==>_example

    [/autoit]

    und poste danach die Einträge in der Scite-Konsole,

    mfg autoBert

  • Problem mit einer For...To...Step-Schleife

    • autoBert
    • 17. Januar 2012 um 23:54

    wie bereits geschrieben in den beiden Skriptteilen ist kein Fehler, dein SKript müsste laufen. Zu Testzwecken habe ich ConsoleWrite-Zeilen eingefügt:

    'Screenbuttn&quot;
    [autoit]

    Case $screenButton ;====== Take Screenshot ======
    ;===== call func _screen_dateset to get new timestamp
    _screen_dateset()
    ;===== open Telnet to connect to target
    ConsoleWrite("Screenbutton vor TELNET" & @CRLF)
    _telnet()
    ConsoleWrite("Screenbutton nach TELNET" & @CRLF)
    ;===== call func _screenshot to take screenshot
    _screenshot()
    ;===== main structure to take screenshot
    While WinExists($WinTitle, "")
    If WinActive($WinTitle, "") Then
    HotKeySet("{F10}", "_screenshot")
    Else
    ExitLoop
    HotKeySet("{F10}")
    EndIf
    Sleep(20)
    WEnd

    [/autoit]
    _telnet
    [autoit]

    Func _telnet()
    ; Run Telnet
    ConsoleWrite("TELNET Enter" & @CRLF)
    Run("telnet " & $adress, @SystemDir, $STDIN_CHILD + $STDOUT_CHILD) ; @SW_HIDE,
    WinWait("Telnet " & $adress, "", 1)

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

    ;======= Rename window
    $WinTitle = "Telnet connection to MIB target <<- Screenshot ->>"
    WinSetTitle("Telnet " & $adress, "", $WinTitle)
    ConsoleWrite("TELNET Exit" & @CRLF)
    EndFunc ;==>_telnet

    [/autoit]

    Laut meiner Konslenausgabe:

    Code
    Screenbutton vor TELNET
    TELNET Enter
    TELNET Exit
    Screenbutton nach TELNET

    ist alles in Ordnung als nur 1 Aufruf der func _telnet,

    mfg autoBert

  • Problem mit einer For...To...Step-Schleife

    • autoBert
    • 17. Januar 2012 um 21:56

    Hallo Pitter,

    poste bitte dein komplettes Skript, denn auch in diesem Codeschnipsel ist kein Fehler zu erkennen,

    mfg autoBert

  • FTPEx.au3 + Win7

    • autoBert
    • 17. Januar 2012 um 21:50

    Hall HugBert,

    dieses Skript hätte auch unter Win XP nicht funktiniert. _FTP_FileGet erwartet als 1. Parameter den zurügegebenen Wert vn _FTP_Connect() und nicht von _FTP_Open(),

    mfg autoBert

  • Problem mit einer For...To...Step-Schleife

    • autoBert
    • 17. Januar 2012 um 20:53
    Zitat von Pitter

    Jetzt hab ich mir mal eine MsgBox ausgeben lassen mit $i... öhm... Die wird runter gezählt, aber bekommt immer wieder den Startwert?!? Hä???


    Dann scheinst du die func _telnet aus einer Schleife heraus auf zu rufen, aber auch deine Schleife würde Telnet 2 * aufrufen,

    mfg autoBert

  • Werte der Variablen "verschwunden"??

    • autoBert
    • 17. Januar 2012 um 15:38

    Hallo Pixelwizard,

    wie Raupi bin auch ich der Meinung, dass dein Vorhaben mit Array's am einfachsten zu lösen ist. Ein einfaches Beispiel findest du in https://autoit.de/index.php?page…9633#post239633 ,

    mfg autBert

  • Eingabefelder anklicken und vorhandenen Text austauschen

    • autoBert
    • 16. Januar 2012 um 21:31

    Hallo cjmatsel,

    ist zwar vorbildlich dass du gleich die Info von AutoIt Window Info Tool bereitstellst, nützlich wären aber noch die Infos zu den entsprechenden Eingabe-Elementen. Wenn du die Anwendung benennst steigt deineChance nochmals dass bereits ein anderer das Problem gelöst hat und dir weiter helfen kann,

    mfg autoBert

  • Battlefield 3 Remote Admin

    • autoBert
    • 16. Januar 2012 um 19:51

    Bin selbst kein Spielekind, habe aber Bedenken dass du gegen die Forenregeln verstösst. Imho sind "Privat-Server" verboten und andere haben kein Bedarf für so ein Tool,

    Mod/Admin bitte prüfen

    mfg autoBert

  • WinWait Schwierigkeit

    • autoBert
    • 16. Januar 2012 um 19:45

    Falls du damit versuchen willst auf deine EMAils bei Google zu zu greifen schau dir lieber die Pop3.udf von Stilgar an. Oscar hat mit seiner "Popshow" demostriert wie mächtig sie ist,

    mfg autoBert

  • Wer wird 100€ reicher?(Wer wird Millionär cover)

    • autoBert
    • 15. Januar 2012 um 18:13
    Zitat von Cheater Dieter

    Hi ihr zwei. Ich habe für euch mal die orginal (!) Töne aus Wer wird Millionär zusammengestellt. Ich habe Sie aus der iOS App von Wer wird Millionär.


    Hast du dir die Rechte daran geben lassen oder ist es allgemein freie Musik?

    mfg autoBert

  • Adressen/Städtenamen von Umlauten befreien

    • autoBert
    • 12. Januar 2012 um 14:29
    Zitat von Krabat

    jetzt macht er es auch wenn ein bindestrich drinn ist
    jedoch darf kein Bindestruch UND leerzeichen da sein ;)

    das widerum ineressiert

    [autoit]

    _StringProper

    [/autoit]

    nicht der 1. Buchstabe wird Grossbuchstabe, alle anderen klein, siehe dazu https://autoit.de/index.php?page…4184#post244184

    Zitat von x0r

    @autoBert:Sorry, wenn ich dir evtl zu nahe trete, aber liest du überhaupt die Beiträge komplett?

    Testest du überhaupt die Empfehlungen?

    mfg autoBert

  • Adressen/Städtenamen von Umlauten befreien

    • autoBert
    • 12. Januar 2012 um 14:22

    Warun so umständlich? So geht's auch:

    [autoit]

    #include <Array.au3>
    #include <String.au3>

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

    Global $aNames[3]
    $aNames[0] = 'KöLN'
    $aNames[1] = 'Bad Öynhausen'
    $aNames[2] = 'Frankfurt-nied'
    _ArrayDisplay($aNames,"Original")

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

    for $i = 0 to UBound($aNames) -1
    $aNames[$i]=StringReplace($aNames[$i],"ö","oe")
    $aNames[$i]=StringReplace($aNames[$i],"ä","ae")
    $aNames[$i]=StringReplace($aNames[$i],"ü","ue")
    $aNames[$i] =_StringProper($aNames[$i])
    Next
    _ArrayDisplay($aNames,"Gewandelt")

    [/autoit]

    mfg autoBert

  • Adressen/Städtenamen von Umlauten befreien

    • autoBert
    • 12. Januar 2012 um 12:27

    Hallo x0r.

    du solltest dir die Hilfe zu StringReplace anschauen, denn es kann sehr wohl Gross- und Kleinschrebung unterscheiden. Dazu musst du allerdings diesen Parameter auch benutzen,

    mfg autoBert

  • Variablen aus der letzten Sitzung speichern

    • autoBert
    • 12. Januar 2012 um 11:39

    Typischer Fall für

    [autoit]

    IniWrite

    [/autoit]

    und

    [autoit]

    IniRead

    [/autoit]

    mfg autoBert

  • Backup von Ordnern

    • autoBert
    • 10. Januar 2012 um 14:30
    Zitat von Tibripri

    on mir aus kann das Thema geschlossen werden. Habe selbst versucht das Thema zu schließen, aber das kann wohl nur ein Admin :D

    In den Foren Programmieranfragen geht man idealerweise so vor:

    • Erstellen den Präfix (über der Überschrift) auf neu stehen lasen
    • Wenn man sich mit einem anderen Benutzer geeinigt hat, dass er die Aufgabe übernimmt editiert man seinen Eröffnungs-Beitrag und stellt den Präfix auf "in Arbeit"
    • wenn die Anfrgae abgeschlossen ist stellt man den Präfix auf abgeschlossen.

    Jeweils das Speichern (absenden) nicht vergessen, dies kann jeder Benutzer selbst erledigen und braucht nicht einen Mod/Admin dazu,

    mfg autoBert

  • EXE FIles aus Ordner Starten

    • autoBert
    • 10. Januar 2012 um 14:10

    verwende statt FileFindFirst ... FileFindNext

    [autoit]

    _FileListToArray

    [/autoit]

    dieses Array kannst du ja mit

    [autoit]

    _ArraySort

    [/autoit]

    sortieren lassen, dabei daran ddenken dass $aResult[0] die ANzahl der Funde enthält => also als Starindex 1 angeben. Danach kannst du in einer Schleife von 1 bis $aResult[0] alle EXEn starten.

    mfg autoBert

  • IE - Seitenaufruf beschränken

    • autoBert
    • 10. Januar 2012 um 13:09
    Zitat von Protex

    ich würde die URL immer beim Klick auf den Go Button Prüfen und dann erst "wenn die URL OK" _IENavigate() andernfalls halt nichts oder so :D


    Du finndest auf (fast) jeder Website Links mit denen du auf andere Webseiten kommen kannst, dadurch ist durch diese Lösung mit dem Prüfen des Go-Buttons das Tor zur grossen "feindlichen" Welt nur zum Teil geschlossen, die bestehende Lücke ist so gross, dass sie auch ein DAU findet.

    Dass mein Lösungansatz bei IE < 8.0 nicht funktioniert ist schade,

    mfg autoBert

  • VMware in Sandboxie

    • autoBert
    • 10. Januar 2012 um 04:56

    So sollte es klappen:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    Global $aCommands[8][2]
    $aCommands[0] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\hqtray.exe"'
    $aCommands[1] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\vmnat.exe"'
    $aCommands[2] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\VMnetDHCP.exe"'
    $aCommands[3] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\vmware-authd.exe"'
    $aCommands[4] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\Common Files\VMware\USB\vmware-usbarbitrator.exe"'
    $aCommands[5] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\vmware-ufad.exe" -d "C:\Program Files (x86)\VMware\VMware Workstation\\" -s ufad-p2v.xml'
    $aCommands[6] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\x64\vmware-vmx.exe"'
    $aCommands[7] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\vmware.exe"'

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

    _Main()

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

    Func _Main()
    Local $StartenID, $BeendenID, $msg

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

    GUICreate("VMware Prozesse", 210, 80)

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

    GUICtrlCreateLabel("VMware Prozesse in Sandboxie", 20, 20)
    $StartenID = GUICtrlCreateButton("Starten", 10, 50, 50, 20)
    $BeendenID = GUICtrlCreateButton("Beenden", 140, 50, 50, 20)

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

    GUISetState() ; display the GUI

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

    While 1
    $msg = GUIGetMsg()

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

    Select
    Case $msg = $StartenID
    MsgBox(0, "", "Prozesse werden gestartet")
    For $i = 0 To UBound($aCommands) - 1
    If $aCommands[$i][0] <> "" Then $aCommands[$i][1] = Run($aCommands[$i][0], @ScriptDir, @SW_MINIMIZE)
    Next
    Case $msg = $BeendenID
    MsgBox(0, "", "Prozesse werden beendet")
    For $i = 0 To UBound($aCommands) - 1
    If $aCommands[$i][1] > 0 Then ProcessClose($aCommands[$i][0])
    Next
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    EndSelect
    WEnd
    EndFunc ;==>_Main

    [/autoit]

    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™