hmmm genauso sinnnlos, da es genau daselbe ist wie meins, nur dass du ne zeile auskommentiert hast, die nicht auskommentiert sein soll!
Beiträge von Darter
-
-
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.
-
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? -
und was soll das jetzt bringen?
-
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] -
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 ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <GuiStatusBar.au3>Enum $MGUI, $hMGUI, $hMGUISB, $MGUIanz
[/autoit] [autoit][/autoit] [autoit]
Global $aMGUI[$MGUIanz],$bTest = TrueOpt("GUIOnEventMode",1)
[/autoit] [autoit][/autoit] [autoit]
$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()AdlibRegister("Chance",2000)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
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)
WEndFunc Chance()
[/autoit] [autoit][/autoit] [autoit]
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)
EndFuncFunc _exit()
[/autoit]
Exit
EndFuncwer ne Idee an was das liegt?
mfg Darter
-
Alles anzeigen
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
[/autoit] [autoit][/autoit] [autoit]
$Wurzeltest = InputBox("Wurzelrückgabewert Test", "Gib die Zahl ein, deren Wurzel Du erfahren möchtest!")
If @error = 1 Then ExitIf $Wurzeltest > 0 And Not "" Then
[/autoit]
$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
WEndEDIT: 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.
Ich verweise nochmals hierauf
EDIT: oder hierauf
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?!? -
_INetGetSource() und
stringinstr() oder stringregexp() oder stringbeetweenDarter
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
-
Alles anzeigen
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
[/autoit] [autoit][/autoit] [autoit]
$Wurzeltest = InputBox("Wurzelrückgabewert Test", "Gib die Zahl ein, deren Wurzel Du erfahren möchtest!")
If @error = 1 Then ExitIf $Wurzeltest > 0 And Not "" Then
[/autoit]
$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
WEndEDIT: 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.
wer lesen kannist klar im Vorteil
-
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 -
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
-
Welche position? Wo? in einem String?
[autoit]
Wenn da geht das um das 1, 2 ,3 ,4 ,.... , nte Zeichen eines Stringes zu bekommen.$sString = "io3uhuf"
[/autoit]
$ret = StringRight(StringLeft($sString,3),1)
MsgBox(0,"",$ret) -
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
[/autoit] [autoit][/autoit] [autoit]
$Wurzeltest = InputBox("Wurzelrückgabewert Test", "Gib die Zahl ein, deren Wurzel Du erfahren möchtest!")
If @error = 1 Then ExitIf $Wurzeltest > 0 And Not "" Then
[/autoit]
$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
WEndEDIT: 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.
-
Jop lag wohl daran. Echt schöne Sache

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

-
Mal ne einfache Frage, wofur braucht man das?
-
Hey.
Ich konnte die letzten 3 Tage nicht hier drauf wegen eines db fehlers -.-
-
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.
-
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 werdenSpoiler anzeigen
[autoit]HotKeySet("{PAUSE}", "TogglePause")
[/autoit] [autoit][/autoit] [autoit]
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")$Pause = False
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(100)
WEnd
;;;;;;;;Func TogglePause()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = True Then
$Pause = False
ToolTip("", 0, 0, "")
Sleep( 1000 )
Else
$Pause = True
While $Pause = True
ToolTip("Pause", 0, 0, "Hotkey-Klavier",
WEnd
EndIf
EndFunc ;==>TogglePauseFunc Terminate()
[/autoit] [autoit][/autoit] [autoit]
ToolTip("END", 0, 0, "Wird beendet",
Sleep( 2000 )
Exit
EndFunc ;==>TerminateFunc boop1()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(440, 100)
EndFunc ;==>boop1Func boop2()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(493.88, 100)
EndFunc ;==>boop2Func boop3()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(523.25, 100)
EndFunc ;==>boop3Func boop4()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(587.33, 100)
EndFunc ;==>boop4Func boop5()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(659.26, 100)
EndFunc ;==>boop5Func boop6()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(698.46, 100)
EndFunc ;==>boop6Func boop7()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(783.99, 100)
EndFunc ;==>boop7Func boop8()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(880, 100)
EndFunc ;==>boop8Func boop1r()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(466.16, 100)
EndFunc ;==>boop1rFunc boop2r()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(554.37, 100)
EndFunc ;==>boop2rFunc boop3r()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(622.25, 100)
EndFunc ;==>boop3rFunc boop4r()
[/autoit] [autoit][/autoit] [autoit]
If $Pause = False Then Beep(739.99, 100)
EndFunc ;==>boop4rFunc boop5r()
[/autoit]
If $Pause = False Then Beep(830.61, 100)
EndFunc ;==>boop5r
mfg Darter