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. Andy

Beiträge von Andy

  • Mousemove läuft nach ein paar Stunden Scriptlauftzeit zu schnell

    • Andy
    • 31. Oktober 2009 um 20:06

    Hallo,

    [autoit]

    mousemove() in Verwendung ohne den Parameter für speed mit anzugeben.

    [/autoit]

    ...dann gib doch einfach den Speed-Parameter an! Hat danach dein Script auch dieses seltsame Verhalten?
    ciao
    Andy

  • Virtuelles laufwerk auf externe festplatte ?

    • Andy
    • 30. Oktober 2009 um 20:40
    Zitat

    hört sich ja strange an.

    Ist es aber nicht, in der aktuellen c´t haben die diese Variante getestet und sowohl von der Geschwindigkeit als auch vom Handling nur positives zu berichten gehabt. Im Prinzip läuft ein komplettes Betriebssystem aus "einer Datei". Gabs vor 40 Jahren schon...nix neues^^

  • Ist soetwas per AutoIT möglich?

    • Andy
    • 30. Oktober 2009 um 20:31

    Hi,
    die Suche nach Telnet spuckt u.a. folgendes aus...
    [ offen ] An Text der Telnet Ausgabe kommen?
    [ offen ] man sagt, man könne telnet nicht scripten, dass möchte ich beweisen, dass es geht.
    https://autoit.de/index.php?page…25349#post25349
    http://www.autoitscript.com/forum/index.php?showtopic=96224&view=findpost&p=691790&s=38f28667629e3c3ee4bd400bbc9b16af
    [ offen ] Switch programmieren

  • GDI Plus Problem

    • Andy
    • 30. Oktober 2009 um 15:47

    du musst nur irgendwo per random farben auswählen

    Spoiler anzeigen
    [autoit]

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

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

    Global Const $width = 400
    Global Const $height = 400
    Global $graphics, $backbuffer, $bitmap, $Pen, $i = 10, $bool = 0
    Global $title = "GDI+ Beispiel"

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

    Opt("GUIOnEventMode", 1)
    $hwnd = GUICreate($title, $width, $height, -1, -1, $WS_POPUP)
    GUISetOnEvent($GUI_EVENT_CLOSE, "close")
    GUISetState()

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

    _GDIPlus_Startup()
    $graphics = _GDIPlus_GraphicsCreateFromHWND($hwnd) ;erstelle GDI+ Objekt von der GUI (Grafik)
    $bitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $graphics) ;erstelle Bitmap von der Grafik
    $backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap) ;erstelle Grafik Kontext von der Bitmap (dient für die Doppeltbufferung der Grafik, damit die Bewegungen flüssiger aussehen
    $Pen = _GDIPlus_PenCreate(0, 3) ;erstelle Stift mit der Stärke 4 Pixels

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

    $color1 = 0xFF000000 + Random(3000, 65000, 1)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color1 = ' & $color1 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    $color2 = 0xFF000000 + Random(3000, 65000, 1)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color2 = ' & $color2 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    $color3 = 0xFF000000 + Random(3000, 65000, 1)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color3 = ' & $color3 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    $col = 0xFFFFFF

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

    Do
    _GDIPlus_GraphicsClear($backbuffer) ;lösche Buffer
    _GDIPlus_PenSetColor($Pen, $color1) ;setze Stiftfarbe ;# weis +++++++++++++++++++++++++
    _GDIPlus_GraphicsDrawLine($backbuffer, 10, 10, $i, 10, $Pen) ;ziehe 1. Linie
    _GDIPlus_GraphicsDrawLine($backbuffer, 10, 390, 10, 400 - $i, $Pen) ;ziehe 2. Linie
    _GDIPlus_GraphicsDrawLine($backbuffer, 390, 10, 390, $i, $Pen);Ziehe 3. Linie
    _GDIPlus_PenSetColor($Pen, $color2) ;setze Stiftfarbe für den 2. Strich ;# rot +++++++++++++++++++
    _GDIPlus_GraphicsDrawLine($backbuffer, $i, 10, 10, 400 - $i, $Pen)
    _GDIPlus_GraphicsDrawLine($backbuffer, 10, 400 - $i, 400 - $i, 390, $Pen)
    _GDIPlus_GraphicsDrawLine($backbuffer, 390, $i, 400 - $i, 390, $Pen)
    _GDIPlus_GraphicsDrawLine($backbuffer, $i, 10, 390, $i, $Pen)
    _GDIPlus_PenSetColor($Pen, $color3)
    ;_GDIPlus_GraphicsDrawLine($backbuffer,10,,$Pen)
    _GDIPlus_GraphicsDrawLine($backbuffer, 400 - $i, 390, 390, 390, $Pen) ;Ziehe Dritte Linie
    _GDIPlus_GraphicsDrawImageRect($graphics, $bitmap, 0, 0, $width, $height) ;das Zeichnen hat im Buffer stattgefunden. Damit das Ganze sichtbar wird, kopiere den Buffer (Bitmap) in den sichtbaren Bereich
    If Not $bool And $i < 390 Then
    $i += 5
    Else
    $bool = 1

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

    EndIf
    If $bool And $i > 10 Then
    $i -= 5
    Else
    $bool = 0
    $color1 = 0xFF000000 + Random(1000, $col, 1)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color1 = ' & $color1 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    $color2 = 0xFF000000 + Random(1000, $col, 1)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color2 = ' & $color2 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    $color3 = 0xFF000000 + Random(1000, $col, 1)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color3 = ' & $color3 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console


    EndIf
    Sleep(30)
    Until False

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

    Func close()
    _GDIPlus_PenDispose($Pen)
    _GDIPlus_GraphicsDispose($backbuffer)
    _GDIPlus_BitmapDispose($bitmap)
    _GDIPlus_GraphicsDispose($graphics)
    _GDIPlus_Shutdown()
    WinClose($hwnd)
    Exit
    EndFunc ;==>close

    [/autoit]
  • AutoIT Decompiler?

    • Andy
    • 30. Oktober 2009 um 14:24
    Zitat

    Habe grade nochmal den Rechner meiner Freundin durchforstet und da fand sich eine (wenn auch etwas ältere) Ausgabe des SourceCodes.

    Eigentlich schade, denn dann ist der gesamte Lerneffekt davon:

    Zitat

    Mir läuft's kalt den Rücken runter, wenn ich daran denke, dass ich alles neu schreiben muss *heul*

    weg....
    Wer 1500 Zeilen Code schreibt und Datensicherung (ist innerhalb von Scite einstellbar) so dermassen vernachlässigt, der MUSS es auf die harte Tour lernen...
    Und NEIN, das ist jetzt weder ironisch noch sarkastisch gemeint.

  • Wieso funktioniert StringInStr nicht?

    • Andy
    • 30. Oktober 2009 um 11:28

    @ojo
    ich frage auch idR das <>0 ab... De Maddin würde sagen:"Sischääärr is Sischääärr!"

  • HILFE

    • Andy
    • 30. Oktober 2009 um 11:26
    Zitat

    Ich habe ja auch die scripts von den anderen aus probiert nur bei mir gingen manche nicht

    Kann sein daß mein Browser nicht richtig funktioniert und nur die Hälfte aller Postings hier im Thread anzeigt, aber so wie ich das hier sehe habe nur ich Scripte gepostet, und wenn die nicht funktionieren, dann sollte man mir das mitteilen^^
    Da diese Scripte aber alle funktionieren werde ich mich jetzt hier ausklinken.

    Zitat

    ch habe ja auch nicht so viel anung von Autoit das kann sein das ich auch die Lösungswege falsch zusammen gebaut habe.

    Man stellt deshalb eine Frage weil man etwas nicht versteht. Wenn man die Antwort auch nicht versteht, dann muss man so lange weiterfragen, bis man es begriffen hat. Das ist nicht schlimm, sondern zeigt, daß man sich mit dem Problem konstruktiv auseinander setzen möchte! Wenn aber der Eindruck entsteht, daß du nicht auf die Antworten eingehst, dann musst du dich nicht wundern, wenn du irgendwann keine Antworten mehr bekommst....

  • Wieso funktioniert StringInStr nicht?

    • Andy
    • 30. Oktober 2009 um 11:06

    Hilfe hilft.....
    Habe nur mal das in der Hilfe als Beispiel verwendete Script um deine 3 Zeilen erweitert, funktioniert einwandfrei. Du solltest dir generell angewöhnen, erst selbst nach DEINEN Fehlern zu suchen, bevor du das Funktionieren von AutoIt-Befehlen in Frage stellst. Wenn du nicht weisst wie man in einem Script nach Fehlern sucht, empfehle ich dir die Lektüre hier.

    [autoit]

    $search = FileFindFirstFile("*.*")

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

    ; Prüfen, ob die Suche erfolgreich war
    If $search = -1 Then
    MsgBox(0, "Fehler", "Es wurden keine Dateien/Verzeichnisse gefunden, die zu dem Suchmuster passen")
    Exit
    EndIf

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

    While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop

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

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $name = ' & $file & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

    If StringInStr($file, "tag") Then
    MsgBox(4096, "Datei:", $file)
    ;FileCopy(@ScriptDir & "\" & $name, @scriptdir & "\Alles mit Tag\" & $name, 8)
    EndIf

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

    WEnd

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

    ; Handle für Suche schliessen
    FileClose($search)

    [/autoit]
  • Laufwerksbuchstaben ändern

    • Andy
    • 30. Oktober 2009 um 10:52

    Hi,

    [autoit]

    DriveSetLabel

    [/autoit]

    ist ggf nicht das was du suchst?
    Den Laufweksbuchstaben zu ändern, sagen wir mal C:\ in K:\ würde ggf einigen Programmen den Boden unter den Füssen wegziehen. Wozu brauchst du einen geänderten Laufwerksbuchstaben?
    Vielleicht hilft dir der DOS-Befehl "SUBST" weiter, um einem Pfad einen Laufwerksbuchstaben zuzuweisen.
    Andy

  • HILFE

    • Andy
    • 30. Oktober 2009 um 10:37
    Zitat

    Ich habe meins mall überarbeitet, da kam gleich schon der nächste fehler

    wenn du hier Threads erstellst die definitiv "HILFE" im Titel haben und dann nicht mal die Scripte anschaust bzw ausprobierst, welche FUNKTIONIEREN ( ! ) dann besteht wohl auch kein weiterer Grund hier Antworten zu geben....

    Zitat

    Die Checkboxen kammen nur in einen Tab und die anderen Tabs waren leer

    Hättest du dir das Script von mir im Post von 9:42 Uhr mal angeschaut, dann hättest du gesehen, was ich geändert habe, damit genau DAS nicht passiert..

  • HILFE

    • Andy
    • 30. Oktober 2009 um 10:03

    nur zur kurzen Erklärung, der Ausdruck ($i>10) liefert für alle $i>10 EINS und ansonsten NULL

    für 2 Spalten a 15 Rechner

    [autoit]

    guicreate("")
    dim $pc[31] ;anzahl Rechner+1
    For $i = 1 To 30 ;2 spalten
    $pc[$i] = GUICtrlCreateCheckbox($i, 10 + (($i > 15) * 40), 30 + ($i - (($i > 15) * 15)) * 20)
    Next
    guisetstate()
    sleep(3000)

    [/autoit]


    für 3 Spalten a 10 Rechner

    [autoit]

    guicreate("")
    dim $pc[31] ;anzahl Rechner+1
    For $i = 1 To 30
    $pc[$i] = GUICtrlCreateCheckbox($i, 10 + ((($i > 10)+($i>20)) * 40), 30 + ($i - (($i > (($i>20)+1)*10) * (($i>20)+1)*10)) * 20)
    Next
    guisetstate()
    sleep(3000)

    [/autoit]

    nicht vergessen DIM $pc[31] usw anpassen, ggf eine Variable $anzahl_pcs= erstellen

  • HILFE

    • Andy
    • 30. Oktober 2009 um 09:42

    Habs jetzt mal so wie ich denke dass es geplant war^^

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <file.au3>
    #include <array.au3>

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

    Global $aArray
    Global $text
    Global $htab
    Global $htabtext [10]
    Global $hchks1[10][30]
    Global $hchks2[10][30]
    Global $pc[100]
    GUISetBkColor(0x00E0FFFF)
    GUISetFont(9, 300)

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

    GUICreate("Test", 450, 415)
    Global $hbtnWakeUp = GUICtrlCreateButton("Aufwecken",350, 390, 100)
    $htab = GUICtrlCreateTab(10, 10, 435, 380)
    GUISetState(@SW_SHOW)

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

    $ordner = _FileListToArray(@ScriptDir, "testdatei*.txt", 1)
    _arraydisplay($ordner)

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

    For $text = 1 To $ordner[0]


    $FileToRead = @ScriptDir & $ordner & "\" & $ordner[$text]
    $htabtext[$text] = GUICtrlCreateTabItem($ordner[$text])

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

    If _FileReadToArray($FileToRead,$aArray) Then
    $pc[$text]=$aarray[0]
    MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$pc' & @lf & @lf & 'Return:' & @lf & $pc) ;### Debug MSGBOX

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


    ; MsgBox(0,"filetoread",$FileToRead)
    For $zeile1 = 1 To $aArray[0]
    $ausgabe = StringSplit($aArray[$zeile1], ";")
    ; _arraydisplay($aarray)
    $i = 50
    $j = 30+$zeile1 *25
    $hchks1[$text][$zeile1] = GUICtrlCreateCheckbox("" & $ausgabe[1], $i,$j )
    ; MsgBox(64,"",$ausgabe[1])
    $hchks2[$text][$zeile1] = $ausgabe[2]
    ; MsgBox(0,"", $hchks2[$text][$zeile1])
    Next
    EndIf
    Next

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

    GUICtrlCreateTabItem("")

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    case $msg = $hbtnWakeUp
    for $raum = 1 to $ordner[0]

    For $pc_nummer = 1 to $pc[$raum]
    if BITAND(GUICtrlRead($hchks1[$raum][$pc_nummer]),$GUI_CHECKED) = $GUI_CHECKED Then
    msgbox( 64,"",$hchks2[$raum][$pc_nummer])

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


    EndIf
    Next
    Next
    EndSelect
    WEnd

    [/autoit]

    Testdatei1:

    Zitat

    1;Eins
    2;Zwei
    3;Drei
    4;vier
    5;fünf


    Testdatei2:

    Zitat

    Mo;Montag
    Di;Dienstag
    Mi;Mittwoch

    Falls der Ablauf wirklich so sein sollte, dann würde ich allerdings anhand der maximalen Anzahl der Rechner in den einzelnen Räumen die GUI aufbauen.

  • HILFE

    • Andy
    • 30. Oktober 2009 um 09:20

    Hi,
    nachdem ich ca 10 Syntaxfehler berichtigt hatte, stehe ich nun vor einer Reihe Logikprobleme.
    WAS soll das Script eigentlich genau machen?
    Wieso stellst du nicht das komplette Script, sondern nur einen Ausschnitt ein?
    Die Variable $pc in Zeile 37 z.B. wurde weder irgendwo definiert noch vorher benutzt....

    Andy

  • IsDestinationReachable mit irrealen Werten

    • Andy
    • 30. Oktober 2009 um 08:07
    Zitat

    Die Funktion zeigt bei mir nämlich genau die WLAN-Übertragungsraten an


    Yo, hab kein Wlan, aber anhand der hier geposteten Werte und meiner Tests wird die Geschwindigkeit des Netzwerkadapters ausgegeben, bei Funkey ca 50Mbit, bei mir 100 und 10 Mbit (auf und von div Rechnern gegenseitig) und Ojo sollte wohl an einer Gigabitleitung hängen^^

  • Hilfe! Wahlprozedur Brd 1976!!!

    • Andy
    • 29. Oktober 2009 um 21:50
    Zitat

    aber ich nuch nur die Wahlprozedur

    aha...und wenn du unter diesem Begriff nichts findest, dann hats wahrscheinlich auch keine gegeben...scheinbar scheint die Aufgabe für Leute lösbar, die sich unter einer "Prozedur" etwas vorstellen können^^

    Zitat

    nichts anderes

    hier klink ich mich jetzt auch aus :rofl:

  • Hilfe! Wahlprozedur Brd 1976!!!

    • Andy
    • 29. Oktober 2009 um 18:41

    Die Tante gefüttert mit

    Zitat

    bundestagswahl 1976

    und in den ersten 5 Links finden sich reihenweise Informationen bzw weitere interessante Links....

    Zitat

    Leider finde ich garnichts.

    Wärest du in der Schule, gehört dir ne 6 nur schon allein Aufgrund dieser Aussage! :thumbdown:

  • bis 30.10 habe ich zeit dafür hilfe bitte

    • Andy
    • 29. Oktober 2009 um 18:19
    Zitat

    das was er dazwichen ausgelesen hat in eine txt datei eintragen.

    da ich davon ausgehe daß progandys regex auch das selbe Ergebnis hat wie mein Script (*kicher*) und unverschämterweise wir BEIDE die letzte Zeile

    [autoit]

    _FileWriteFromArray("namen.txt",$zeile)

    [/autoit]

    vergessen hatten, hole ich das hiemit nach....

    /EDIT/ immer zweiter...... :D

  • bis 30.10 habe ich zeit dafür hilfe bitte

    • Andy
    • 29. Oktober 2009 um 18:12

    Hi.....

    [autoit]

    #include <Array.au3>
    $text=fileread("test.txt") ;datei einlesen
    $zeile=stringsplit($text,"</a><br>",3) ;$text in array splitten
    ;_arraydisplay($zeile)
    for $i=0 to ubound($zeile)-1
    $zeile[$i]=stringright($zeile[$i],stringlen($zeile[$i])-stringinstr($zeile[$i],">",0,-1)) ;am ende steht der Name vor dem >
    Next
    _arraydisplay($zeile)

    [/autoit]

    so?

  • Tower Defense A2D.udf A-Stern

    • Andy
    • 28. Oktober 2009 um 16:40
    Zitat

    kennst du kein Tower Defence

    mit Tower defenSe kommts hin^^
    Aber ich spiele lieber in WC3 die TD-Funmaps...werden mittlerweile einige hundert verschiedene sein :thumbup:

  • Frage zum Scriptaufbau: Daten-Import aus Excel in eine externe Anwendung

    • Andy
    • 27. Oktober 2009 um 08:15

    Hallo,

    Zitat

    Das stelle ich mir bisher so vor, dass ich in einer Switch...Case...EndSwitch-Bedingung
    bei jedem Case ein Feld fülle und mit 'If WinExists...' auf evtl. Meldung(en) warte.
    Das wären über 60 Case; wäre also entsprechend langsam.

    Ich kann mir kaum vorstellen, daß im Erfolgsfall (richtige Eingabe im Feld) ein "Das hast du gut gemacht!"-Fenster aufpoppt...
    Somit müsstest du nur den eventuellen Fehlerfall abfragen. In diesem Fall würde ich den gesamten "fehlerhaften Datensatz" (Array mit den Exceldaten) in einer "Fehlertabelle" abspeichern. Im Lohnabrechnungsprogramm diesen Datensatz natürlich NICHT speichern sondern einen Neuen anlegen (und mit dem nächsten Excel-Datensatz ausfüllen).
    Zum Schluß die Fehlertabelle in die Lohnabrechnung eintragen lassen und dann die Fehler checken. So kann das Script (je nach Datenaufkommen) einige Stunden vor sich hin werkeln, und im Anschluß werden die fehlerhaften Daten (müssen sowieso berichtigt werden) eingepflegt.
    ciao
    Andy

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™