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

Beiträge von Darter

  • GUI Status Bar Bug?!?

    • Darter
    • 2. August 2010 um 19:33

    hmmm genauso sinnnlos, da es genau daselbe ist wie meins, nur dass du ne zeile auskommentiert hast, die nicht auskommentiert sein soll!

  • GUI Status Bar Bug?!?

    • Darter
    • 2. August 2010 um 19:00

    Sag mal kannst du bitte den ersten post lesen?

    Ich hab doch beschrieben, dass ich einen Fehler von Windows bekomme. Ab und zu kommt dieser auch in Scite und im vompilierten zustand kommt dieser Fehler immer.

    Und ich wollte wissen, ob jemand eine Lösung dafür hat, bzw ob jemand weiß warum dieser Fehler entsteht.

    So ein Rumgespamme und sinnlosen Antworten wie deiner kannst du gut und gerne für dich behalten oder hat mich dein Post jetzt auch nur ein stuck weiter gebracht? Nein

    EDIT. die galt für Jam00 nicht an den vorposter

    Zum Vorposter ja was soll ich sagen, ich dachte ich hätte mit meinem letzten Post klar gemacht, dass das keinen unterschieb bewirkt. Kann doch auch jeder an dem Bsp. ausprobieren kann.

  • GUI Status Bar Bug?!?

    • Darter
    • 2. August 2010 um 18:39

    Ich versteh nicht, was du mit beta includes meinst. Ich hab nur einen Include Ordner, indem meine Includes sitzen.
    Was will er da vo Beta nehmen?

  • GUI Status Bar Bug?!?

    • Darter
    • 2. August 2010 um 17:48

    und was soll das jetzt bringen?

  • Website Scannen klappt "fast"

    • Darter
    • 2. August 2010 um 16:07

    wenn du die ID haben willstgeht das:

    [autoit]

    $sString = '<span id="id_23456"><img src="bild.gif" alt="text" /></span>'

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

    $aRet = StringRegExp($sString,'<span id="id_(\d+)">.+</span>',3)

    [/autoit]

    EDIT: nicht richtig gelsen :-8

    Das dürfte wohl dann ein Lösungsansatz sein:

    [autoit]

    $sString = '<span id="id_12345"><font size="2"> gesuchte Information </font></span>'

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

    $aRet = StringRegExp($sString,'<span id="id_\d+">[^>]>(.+)[^>]',3)

    [/autoit]
  • GUI Status Bar Bug?!?

    • Darter
    • 2. August 2010 um 12:49

    Hey.
    Hier mal ein kleines Testscript.
    Wenn ich dies in Scite ausführe läufts ohne Probleme, nur sobald ich es compiliere und es ausführe bekomm ich direkt nen Fehler von Window: Programm funktioniert nicht mehr usw.

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_UseX64=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #Include <GuiStatusBar.au3>

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

    Enum $MGUI, $hMGUI, $hMGUISB, $MGUIanz
    Global $aMGUI[$MGUIanz],$bTest = True

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

    Opt("GUIOnEventMode",1)
    $aMGUI[$MGUI] = GUICreate("Test",200,200)
    $aMGUI[$hMGUI] = WinGetHandle($aMGUI[$MGUI])
    Local $aParts[3] = [150, -1]
    $aMGUI[$hMGUISB] = _GUICtrlStatusBar_Create($aMGUI[$hMGUI])
    _GUICtrlStatusBar_SetParts($aMGUI[$hMGUISB], $aParts)
    _GUICtrlStatusBar_SetText($aMGUI[$hMGUISB], "Bereit...", 0 )
    GUISetOnEvent(-3,"_exit")
    GUISetState()

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

    AdlibRegister("Chance",2000)

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

    While 1
    If $bTest Then
    If _GUICtrlStatusBar_GetText($aMGUI[$hMGUISB],0) <> "Warte..." Then _GUICtrlStatusBar_SetText($aMGUI[$hMGUISB], "Warte...", 0 )
    Else
    If _GUICtrlStatusBar_GetText($aMGUI[$hMGUISB],0) <> "Bereit..." Then _GUICtrlStatusBar_SetText($aMGUI[$hMGUISB], "Bereit...", 0 )
    EndIf
    Sleep(100)
    WEnd

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

    Func Chance()
    Local $aText[10] = ["Test","loooooool","huhuhuuhuh","12345","nixxxx","hmmmm","naaaaaja","blaaaaaa","bkuuub","soooo"]
    _GUICtrlStatusBar_SetText($aMGUI[$hMGUISB], $aText[Random(0,UBound($aText)-1,1)], 0 )
    Sleep(1000)
    $bTest = Random(0,1,1)
    EndFunc

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

    Func _exit()
    Exit
    EndFunc

    [/autoit]

    wer ne Idee an was das liegt?

    mfg Darter

  • Wurzel (Sqrt) Rückgabewertproblem

    • Darter
    • 31. Juli 2010 um 18:19
    Zitat von Darter

    Naja das ganze ist etwas confus aufgebaut und könnte anders strukturiert bestimmt besser funktionieren aber so gehts

    Spoiler anzeigen
    [autoit]

    $Ergebnis = ""

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

    While 1
    $Wurzeltest = InputBox("Wurzelrückgabewert Test", "Gib die Zahl ein, deren Wurzel Du erfahren möchtest!")
    If @error = 1 Then Exit

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

    If $Wurzeltest > 0 And Not "" Then
    $Ergebnis = Sqrt($Wurzeltest)
    MsgBox(0, "Ergebnis der Wurzel", "Die Wurzel aus "&$Wurzeltest&" ist "&$Ergebnis&".")
    ElseIf $Wurzeltest < 0 And Not "" Then
    $Ergebnis = Sqrt($Wurzeltest)
    MsgBox(0, "Ergebnis der Wurzel", "Die Wurzel aus "&$Wurzeltest&" ist "&$Ergebnis&".")
    If $Ergebnis == "-1.#IND" Then ; <-\ == Case sensitiv
    MsgBox(0, "Ungültige Eingabe!", "-1.#IND")
    EndIf ; <-/
    Else
    MsgBox(0, "Ungültige Eingabe!", "Du hast nichts eingegeben."&@CR&"Probiere es erneut.")
    EndIf
    WEnd

    [/autoit]

    EDIT: und was sollen die endlosvielen Leerzeilen im Code und allgemein etwas auf das Format schauen, auch wenns nur wenig Code istm ist es trotzdem total unleserlich.

    Alles anzeigen


    Ich verweise nochmals hierauf ^^

    EDIT: oder hierauf

    Zitat von AspirinJunkie

    Du hast die Antwort von Darter nicht gelesen...
    Du führst keine Abfrage sondern eine Zuweisung aus.
    Um diese Mehrdeutigkeit aufzulösen wird in diesem Fall "==" (man bemerke die 2 Gleichheitszeichen) verwendet.
    Mal davon abgesehen hast du das Skript jetzt völlig verbaut.
    Nur der Rückgabewert von Sqrt() kann den Wert -1.#IND annehmen - du testest aber den Eingangsparameter darauf?!?

  • Bestimmte Position Zahlen auslesen

    • Darter
    • 31. Juli 2010 um 18:14

    _INetGetSource() und
    stringinstr() oder stringregexp() oder stringbeetween

    Zitat von AspirinJunkie

    Darter
    Du bist fies - der Junge kann sich nicht mal richtig äußern und du gibst ihm gleich eine unnötig komplizierte Antwort.
    Völlig kontextlos (wie die Frage auch schon) nun mein Hinweis dazu: StringMid()

    hehe.
    Ich Prinzip ist StringMid() nichts anderes als eine vereinfachte Form von meinem ^^

  • Wurzel (Sqrt) Rückgabewertproblem

    • Darter
    • 31. Juli 2010 um 18:10
    Zitat von Darter

    Naja das ganze ist etwas confus aufgebaut und könnte anders strukturiert bestimmt besser funktionieren aber so gehts

    Spoiler anzeigen
    [autoit]

    $Ergebnis = ""

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

    While 1
    $Wurzeltest = InputBox("Wurzelrückgabewert Test", "Gib die Zahl ein, deren Wurzel Du erfahren möchtest!")
    If @error = 1 Then Exit

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

    If $Wurzeltest > 0 And Not "" Then
    $Ergebnis = Sqrt($Wurzeltest)
    MsgBox(0, "Ergebnis der Wurzel", "Die Wurzel aus "&$Wurzeltest&" ist "&$Ergebnis&".")
    ElseIf $Wurzeltest < 0 And Not "" Then
    $Ergebnis = Sqrt($Wurzeltest)
    MsgBox(0, "Ergebnis der Wurzel", "Die Wurzel aus "&$Wurzeltest&" ist "&$Ergebnis&".")
    If $Ergebnis == "-1.#IND" Then ; <-\ == Case sensitiv
    MsgBox(0, "Ungültige Eingabe!", "-1.#IND")
    EndIf ; <-/
    Else
    MsgBox(0, "Ungültige Eingabe!", "Du hast nichts eingegeben."&@CR&"Probiere es erneut.")
    EndIf
    WEnd

    [/autoit]

    EDIT: und was sollen die endlosvielen Leerzeilen im Code und allgemein etwas auf das Format schauen, auch wenns nur wenig Code istm ist es trotzdem total unleserlich.

    Alles anzeigen


    wer lesen kannist klar im Vorteil ^^

  • Bass.dll funktioniert auf Win7 x64 nicht??

    • Darter
    • 31. Juli 2010 um 18:08
    Zitat von Developer30

    damit ändert sich bei mir komischerweise nichts.


    Das ändert sich dann erst nach dem Compilieren^^.
    Das ist nur ein befehlt für den compilierer, dass er es in 32 bit compiliert

  • Bestimmte Position Zahlen auslesen

    • Darter
    • 31. Juli 2010 um 18:02

    LoL dann hättest du dich von anfang an besser ausdrücken müssen.
    Kann ich auch fragen, warum hab ich keine kippen mehr? Da könntest du mir genausowenig eine preziese Antwort geben.
    Und oben links auf ner Webseite finde ich immer noch etwas zu ungenau.
    Wann willst du diese 3 Zahlen auslesen und warum?
    Auf welcher Seite?

    mfg Darter

  • Bestimmte Position Zahlen auslesen

    • Darter
    • 31. Juli 2010 um 17:55

    Welche position? Wo? in einem String?
    Wenn da geht das um das 1, 2 ,3 ,4 ,.... , nte Zeichen eines Stringes zu bekommen.

    [autoit]

    $sString = "io3uhuf"
    $ret = StringRight(StringLeft($sString,3),1)
    MsgBox(0,"",$ret)

    [/autoit]
  • Wurzel (Sqrt) Rückgabewertproblem

    • Darter
    • 31. Juli 2010 um 17:45

    Naja das ganze ist etwas confus aufgebaut und könnte anders strukturiert bestimmt besser funktionieren aber so gehts

    Spoiler anzeigen
    [autoit]

    $Ergebnis = ""

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

    While 1
    $Wurzeltest = InputBox("Wurzelrückgabewert Test", "Gib die Zahl ein, deren Wurzel Du erfahren möchtest!")
    If @error = 1 Then Exit

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

    If $Wurzeltest > 0 And Not "" Then
    $Ergebnis = Sqrt($Wurzeltest)
    MsgBox(0, "Ergebnis der Wurzel", "Die Wurzel aus "&$Wurzeltest&" ist "&$Ergebnis&".")
    ElseIf $Wurzeltest < 0 And Not "" Then
    $Ergebnis = Sqrt($Wurzeltest)
    MsgBox(0, "Ergebnis der Wurzel", "Die Wurzel aus "&$Wurzeltest&" ist "&$Ergebnis&".")
    If $Ergebnis == "-1.#IND" Then ; <-\ == Case sensitiv
    MsgBox(0, "Ungültige Eingabe!", "-1.#IND")
    EndIf ; <-/
    Else
    MsgBox(0, "Ungültige Eingabe!", "Du hast nichts eingegeben."&@CR&"Probiere es erneut.")
    EndIf
    WEnd

    [/autoit]

    EDIT: und was sollen die endlosvielen Leerzeilen im Code und allgemein etwas auf das Format schauen, auch wenns nur wenig Code istm ist es trotzdem total unleserlich.

  • Visualisierungen - Was ist die schnellste?

    • Darter
    • 31. Juli 2010 um 16:54

    Jop lag wohl daran. Echt schöne Sache :)

  • Visualisierungen - Was ist die schnellste?

    • Darter
    • 31. Juli 2010 um 16:48

    Win7 x64

  • Visualisierungen - Was ist die schnellste?

    • Darter
    • 31. Juli 2010 um 16:40

    Hey.

    Das erste versteh ich ich nicht ganz. Ich hab da nur ne schwarze gui mit ne besonderen mauscourser und unten ist noch ein flyout mehr kann ich da nicht erkennen ?!?

    Lichtquelle kann ich bei dem bsp keine erkennnen :(

  • Tastatur & Maus deaktivieren wenn USB-Stick nicht angeschlossen ist

    • Darter
    • 31. Juli 2010 um 16:21

    Mal ne einfache Frage, wofur braucht man das?

  • täglich Forumausfälle (nur bei mir?)

    • Darter
    • 31. Juli 2010 um 13:15

    Hey.

    Ich konnte die letzten 3 Tage nicht hier drauf wegen eines db fehlers -.-

  • Imagesearch auf 64 bit (dll) Vista

    • Darter
    • 29. Juli 2010 um 15:47
    Zitat von Ineluki

    Wie gesagt: 32 Bit ausführen, wenn du bei SciTE das nicht findest, schreib an den Anfang vom Script

    [autoit]

    #AutoIt3Wrapper_usex64=n

    [/autoit]


    Wie ich schon im anderen Thread geschiieben habe, hat das überhaupt nichts mit 64 oder 32 bit version zu tun !!

    Leg die Dll UND die ImageSearch UDF in das Script verzeichniss.

    Ich bin der meinung du hast jetzt zwar die Dll in das Scriptverzeichniss gepackt aber die ImageSearch UDF in den Include Ordner von Autoit.

    Als lösch diese da mal raus und leg die UDF und die DLL in das Scriptverzeichniss und schon funktionierts.

  • Hotkey-Klavier v 1.0

    • Darter
    • 28. Juli 2010 um 17:32

    Hey.
    Das ganze ist noch sehr zu vereinfachen, vllt schaust du dir mal Arrays an.
    Aber so wie du es aufgebaut hast ist auch noch um die hälte verkürzbar.
    Soll jetzt keine schwere kritik sein aber man kuckt doch allgemein immer, dass sein Script so übersichtlich wie möglich ist und umsolänger ein Script wir, umso unübersichtlicher kann es werden

    Spoiler anzeigen
    [autoit]

    HotKeySet("{PAUSE}", "TogglePause")
    HotKeySet("{ESC}", "Terminate")
    HotKeySet("{1}", "boop1")
    HotKeySet("{2}", "boop2")
    HotKeySet("{3}", "boop3")
    HotKeySet("{4}", "boop4")
    HotKeySet("{5}", "boop5")
    HotKeySet("{6}", "boop6")
    HotKeySet("{7}", "boop7")
    HotKeySet("{8}", "boop8")
    HotKeySet("{q}", "boop1r")
    HotKeySet("{w}", "boop2r")
    HotKeySet("{e}", "boop3r")
    HotKeySet("{r}", "boop4r")
    HotKeySet("{t}", "boop5r")

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

    $Pause = False

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

    While 1
    Sleep(100)
    WEnd
    ;;;;;;;;

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

    Func TogglePause()
    If $Pause = True Then
    $Pause = False
    ToolTip("", 0, 0, "")
    Sleep( 1000 )
    Else
    $Pause = True
    While $Pause = True
    ToolTip("Pause", 0, 0, "Hotkey-Klavier", 8)
    WEnd
    EndIf
    EndFunc ;==>TogglePause

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

    Func Terminate()
    ToolTip("END", 0, 0, "Wird beendet", 8)
    Sleep( 2000 )
    Exit
    EndFunc ;==>Terminate

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

    Func boop1()
    If $Pause = False Then Beep(440, 100)
    EndFunc ;==>boop1

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

    Func boop2()
    If $Pause = False Then Beep(493.88, 100)
    EndFunc ;==>boop2

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

    Func boop3()
    If $Pause = False Then Beep(523.25, 100)
    EndFunc ;==>boop3

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

    Func boop4()
    If $Pause = False Then Beep(587.33, 100)
    EndFunc ;==>boop4

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

    Func boop5()
    If $Pause = False Then Beep(659.26, 100)
    EndFunc ;==>boop5

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

    Func boop6()
    If $Pause = False Then Beep(698.46, 100)
    EndFunc ;==>boop6

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

    Func boop7()
    If $Pause = False Then Beep(783.99, 100)
    EndFunc ;==>boop7

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

    Func boop8()
    If $Pause = False Then Beep(880, 100)
    EndFunc ;==>boop8

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

    Func boop1r()
    If $Pause = False Then Beep(466.16, 100)
    EndFunc ;==>boop1r

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

    Func boop2r()
    If $Pause = False Then Beep(554.37, 100)
    EndFunc ;==>boop2r

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

    Func boop3r()
    If $Pause = False Then Beep(622.25, 100)
    EndFunc ;==>boop3r

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

    Func boop4r()
    If $Pause = False Then Beep(739.99, 100)
    EndFunc ;==>boop4r

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

    Func boop5r()
    If $Pause = False Then Beep(830.61, 100)
    EndFunc ;==>boop5r

    [/autoit]


    mfg Darter

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™