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

Beiträge von ProblemUser

  • Nur jeder 2te Array

    • ProblemUser
    • 7. August 2010 um 21:15
    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <date.au3>
    #include <string.au3>
    #include <Array.au3>

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

    $Form2 = GUICreate("Form2", 188, 95, 210, 142)
    $Edit1 = GUICtrlCreateEdit("", 0, 0, 185, 89)
    GUICtrlSetData(-1, "foo" & @CRLF & "bar")
    GUISetState(@SW_SHOW)
    $Auswerten1 = GUICtrlRead($Edit1)
    MsgBox(0, "", $Auswerten1)
    $Auswerten2 = StringSplit($Auswerten1, @CRLF)
    For $i = 1 To UBound($Auswerten2) - 1 Step 2
    $Erg = $Auswerten2[$i]
    MsgBox(0, "", $Erg)
    Next
    $Erg1 = StringSplit($Auswerten1, @CRLF)
    For $i = 0 To 99
    If Not Mod($i, 2) Then
    $Erg1[$i] = _StringRepeat(Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)), 18)
    $Erg1[$i] = Random(1, 31, 1) & "." & Random(1, 12, 1) & "." & Random(1960, 2000, 1); Pseudo-Datum ohne Prüfung auf Existenz z.B.31.02.2010 durchaus möglich
    Else
    $Erg1[$i] = "Schrott"
    $Erg1[$i] = "Schrott"
    EndIf
    Next
    _ArrayDisplay($Erg1)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit]


    Bei mir kommt jedoch nichts dabei raus!

  • Nur jeder 2te Array

    • ProblemUser
    • 7. August 2010 um 19:18

    Das habe ich vergessen, aber das ist ja nicht das Problem.. Das Problem ist es soll jedes 2te Array speichern und mit Array Display ausgeben.

  • Nur jeder 2te Array

    • ProblemUser
    • 7. August 2010 um 05:34

    Danke hat geklappt! Hier das fertige Script, auch wen es so keinen helfen wird (denke ich)

    [autoit]


    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    $Form2 = GUICreate("Form2", 188, 95, 210, 142)
    $Edit1 = GUICtrlCreateEdit("", 0, 0, 185, 89)
    GUICtrlSetData(-1, "foo" & @CRLF & "bar")
    GUISetState(@SW_SHOW)
    $Auswerten1 = GUICtrlRead($Edit1)
    MsgBox(0,"",$Auswerten1)
    $Auswerten2 = StringSplit($Auswerten1, @CRLF)
    For $i = 1 to UBound($auswerten2) -1 Step 2
    $Erg = $Auswerten2[$i]
    MsgBox(0,"",$Erg)
    next
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit]


    Jetzt hab ich aber ein Problem, das ich das gleiche nochmal brauche aber das ich den Array dann auch mit

    [autoit]

    _ArrayDisplay()

    [/autoit]

    ausgeben kann.
    Danke schonmal!

  • Nur jeder 2te Array

    • ProblemUser
    • 7. August 2010 um 02:45

    Hallo,
    ich hab folgendes Problem, ich muss jedes 2te Array Ausgeben, wie mache ich das?
    Ich vermute mit einer For Schleife aber ich weiß nicht wie!

    [autoit]


    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    $Form2 = GUICreate("Form2", 188, 95, 210, 142)
    $Edit1 = GUICtrlCreateEdit("", 0, 0, 185, 89)
    GUICtrlSetData(-1, "foo" & @CRLF & "bar")
    GUISetState(@SW_SHOW)
    $Auswerten1 = GUICtrlRead($Edit1)
    MsgBox(0,"",$Auswerten1)
    $Auswerten2 = StringSplit($Auswerten1, @CRLF)
    ; Hier ist das Problem wenn ich $Auswerten2[2] mache kommt nichts, da soll es dann rüber gehen zu 3 dann zu 5 usw. For schleife?

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit][/autoit]
  • AVI

    • ProblemUser
    • 4. August 2010 um 17:42

    Gibt es auch eine möglichkeit ohne den WMPlayer/oder DSEngine? Ich versteh nicht wießo AVI's nicht funktionieren!

  • ICQ-Kontakt online?

    • ProblemUser
    • 14. Juli 2010 um 09:33

    Nette Idee find ich klasse :D
    Zum IE: Bei denen die ihn gelöscht haben geht also auch der Windows Explorer (Das Programm das die Ordner anzeigt) auch nicht, sowie die Hilfethemen welche ebenfalls nicht gehen dürften. Ich glaube eher nicht das ihr ihn komplett entfernt habt.

  • Iniwrite Enable wenn Checkbox Aktiv/Haken ist.

    • ProblemUser
    • 14. Juli 2010 um 09:27
    [autoit]


    #include <GUIConstantsEx.au3>

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

    Opt("GUIOnEventMode", 1)

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

    $foobar = 5
    $hGui = GUICreate("Gui", 200, 200)
    $hInput = GUICtrlCreateInput(IniRead("Test.ini", "Sektion", "Input", ""), 10, 10, 100, 20)
    $CheckBox = GUICtrlCreateCheckbox("Speichern", 100, 40)
    GUICtrlSetOnEvent($Checkbox, "_enableSave")
    GUISetState()
    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    If $foobar = 1 Then
    IniWrite("Test.ini", "Sektion", "Input", GUICtrlRead($hInput))
    Exit
    Else
    Exit
    EndIf
    Case $Checkbox
    $foobar = 1
    EndSwitch
    WEnd

    [/autoit]
  • Tasttatur

    • ProblemUser
    • 12. Juli 2010 um 22:36

    Sag mir ein guten Grund warum du nicht einfach eine Input/Editbox benutzt und den Inhalz in eine Txt. speicherst?
    Alles Andere wär ein KeyLogger.

  • Hochbegabt

    • ProblemUser
    • 9. Juli 2010 um 22:43

    Ich hatte mal für den Beruf eine Fortbildung dort wurde auch ein IQ Test gemacht. Dieser wird oft in gleicher Form von Firmen wie BASF, Microsoft etc. gemacht.
    Bei mir kam 132 raus. Wobei ich sagen muss der Test war auch wirklich leicht. In 30 Sekunden nur die "d" 's aus einer Reihe von "d", "p", "q", und "b" zu umkreisen war mit unteranderem die Leichteste.
    Wobei ich in der Schule zum Teil nicht sehr gute Noten habe. Das hängt aber mehr mit den Lehrern zusammen als mit meiner "Schlau- / Dummheit". Naja wie dem auch sei.
    Weiß einer was ein IQ über 3 hat und ist trotzdem Lehrer?

    Spoiler anzeigen

    3 Sportlehrer ;)

  • button zuweisen

    • ProblemUser
    • 5. Juli 2010 um 21:34

    In einer Funk kann eine While Schleife sein, die andere Muss jedoch mit

    [autoit]

    ExitLoop

    [/autoit]

    beendet werden ;)

  • Bildshirmfärben oder Farbe auf kompletten Bildshirm anzeigen

    • ProblemUser
    • 4. Juli 2010 um 22:34

    Hallo,
    gibt es eine Möglichkeit, den Bildshirm mit einer Farbe komplett zu Färben?
    Also so dass man auch keine Taskleiste oder sonstwas sieht? Nur eine Farbe soll angezeigt werden!
    Danke PU

  • GUICtrlCreateAvi

    • ProblemUser
    • 29. Juni 2010 um 01:36

    Same shi* here..
    Also die Avis müssen anscheinend "echte" Avis sein. Ich hab es mit jedem Encoder den es gibt Decodiert aber nie ging es in Autoit. Für mich gibt es nur diese Möglichkeit mit GUICtrlCreateAvi zu machen, da ich mit mehreren Fenstern(GUIs) Arbeite lässt sich kein Fenster mehr schließen, wenn ich DSEngine (übrigens Top empfehlung für Videos in Autoit) oder WMP-Objekt nutzte bzw. einbinde.

  • Gui in Gui schließen

    • ProblemUser
    • 17. Juni 2010 um 04:03

    Schau dir mal den OpenWorldBrowser an (Signatur von mir) da benutze ich das auch!
    Das Problem ist es müssen erst alle Fenster geschlossen werden bevor man das Script schließen kann.
    Als erstest erstellst du eine GUi (z.b.) $GUI1 Bei diesem Abscnitt kommmt folgendes hinein:

    [autoit]

    Case $GUI_EVENT_CLOSE
    Exit

    [/autoit]


    In deiner While rufst du am besten eine Funk auf!
    Dort kommt dann der gleiche Code wie sonst auch rein. Nur das in diesem Abschnitt folgendes hinein kommt:

    [autoit]

    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $GUI2)
    ExitLoop

    [/autoit]


    Dann dürfte das funktionieren, jedoch habe ich schon erlebt das es manchml Probleme gibt!

  • Real Dektop Tools [Leute gesucht & in bearbeitung]

    • ProblemUser
    • 15. Juni 2010 um 14:04

    Eine Frage habe ich? Wo werden die Scripte gespeichert?
    Ich benötige für mein Script weitere Dateien und soll ich sie einfach

    [autoit]

    @ScriptDir & "/XXX/*.XX"

    [/autoit]


    benutzen?

  • Open World Browser

    • ProblemUser
    • 15. Juni 2010 um 13:58

    Ich nutze Xp darum kann ich das nicht einschätzen.
    Dazu gibt es Zwei möglichkeiten:
    Hast du A, das Komplette Rar Archive geladen? (Ganz Oben "DOWNLOAD")
    Wenn ja, dann versuche mal die Start.html mit dem Internet Explorer zuöffnen. Dort können einige Probleme auftreten, welche bei dir zuerst behoben werden müssen.
    Ansonsten muss ich mir was überlegen lassen.
    Aber das nichts fuktioniert ist mir ein Rätsel!

  • [Frage] Gibt es eine möglichkeit *.ogg VIDEOS abzuspielen?

    • ProblemUser
    • 15. Juni 2010 um 02:13

    Das ist ja eig. etwas was ich nicht machen wollte, denn nicht jeder hat den VLC oder WMP noch auf dem PC.

  • [Frage] Gibt es eine möglichkeit *.ogg VIDEOS abzuspielen?

    • ProblemUser
    • 14. Juni 2010 um 23:47

    Ich hab es per SUPER konvertiert. Das Abspielen ging ja im VLC oder WMP aber eben nicht über Autoit..

  • [Frage] Gibt es eine möglichkeit *.ogg VIDEOS abzuspielen?

    • ProblemUser
    • 14. Juni 2010 um 22:29

    Hallo, ich suche eine möglichkeit, *.ogg VIDEOS abzuspielen. Ich habe versucht die Datei zu Konvertieren zu einer AVI und diese dann abzuspielen aber Autoit meckert da Nur.
    Mein Script dazu WAR:

    [autoit]

    Global $VideoGUI
    $1Land = GUICreate("Neil Armstrong Landing", 511, 343, -2, 0)
    $1Group = GUICtrlCreateGroup("Play Video", 8, 0, 497, 337)
    $1Neil = GUICtrlCreateAvi(@ScriptDir & "/Data/Videos/1land.avi", -1, 16, 16, 480, 272)
    $1Play = GUICtrlCreateButton("Play", 16, 296, 233, 33, $WS_GROUP)
    $1Stop = GUICtrlCreateButton("Stop", 264, 296, 233, 33, $WS_GROUP)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW, $1Land)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $1Play
    GUICtrlSetState($1Neil, 1)
    Case $1Stop
    GUICtrlSetState($1Neil, 0)
    EndSwitch
    WEnd

    [/autoit]


    Das Org. Video kam von hier, die AVI ist zu groß um sie Anzuhängen:
    http://commons.wikimedia.org/wiki/File:Apol…ontage_720p.ogv

  • Internetzensur - Nein Danke

    • ProblemUser
    • 14. Juni 2010 um 20:09

    Um auf solch einer Seite zugelangen muss man noch nichtmal ein Link geklickt haben sowas genügt dann auch:

    Code
    [img]HIERKOMMTKINDERPORNOGRAFIEHIN[/img]


    Und das bild kann jeder in eine Signatur einbauen wenn dann noch das Bild mit dem Hintergrund gleich ist merkt man das noch nichtmal!
    Für mich ist das Schwachsinn was die Regirung uns alles unterstellt (vorverdächtig etc.) Ich finde Kinderpornografie auch nicht gut, aber ich denke mir mal:
    Kaum ein Mörder betreibt eine Website, auf der er sich mit anderen Austauscht. Sicher gibt es welche aber es gibt in der Realität mehr Mörder.
    Genauso ist es auch mit KP dort sind warsch. nur ein kleiner Teil dieser "Menschen" im Internet, der Rest lebt in Ruhe (vor der Regierung) als Kindergärtner oder Pfarrer.. Ich finde man sollte zuerst mal Einrichtungen wie Kindergärten oder sonstige speziell für Kinder eingerichtete Einrichtungen durch Suchen.
    Aber ja, so ist das nun mal, was die Regierung will, das kommt auch meißt durch. Eine Demokratie besteht hier nicht mehr bzw. hat noch nie Bestanden. Aber naja wer Geld hat, der hat Alles..

  • Runterladen von YoutubeVideos

    • ProblemUser
    • 14. Juni 2010 um 00:34

    D.h. du darfst die Videos auch nicht anschauen, da sie gegen das Urheberrecht verstoßen.

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™