@Raupi und m-obi: Danke für eure Mühe. Es funktioniert ![]()
Beiträge von DeepRed92
-
-
Ich hab gerade zufällig was gefunden

Script ist von MrCreatoR
http://www.autoitscript.com/forum/index.php?showtopic=79879&st=0&p=575411&#entry575411Spoiler anzeigen
[autoit]#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------AutoIt Version: 3.3.2.0
[/autoit] [autoit][/autoit] [autoit]
Author: myNameScript Function:
[/autoit] [autoit][/autoit] [autoit]
Template AutoIt script.#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_AutoItErrorHandler()
[/autoit] [autoit][/autoit] [autoit]MsgBox(0,"","")
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, "" ;This is meant to produce an error !
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _AutoItErrorHandler()
[/autoit] [autoit][/autoit] [autoit]
If StringInStr($CmdLineRaw, "/AutoIt3ExecuteScript") Then ReturnLocal $sErrorMsg = ""
[/autoit] [autoit][/autoit] [autoit]
Local $sRunLine = @AutoItExe & ' /ErrorStdOut /AutoIt3ExecuteScript "' & @ScriptFullPath & '"'Local $iPID = Run($sRunLine, @ScriptDir, 0, 2 + 4)
[/autoit] [autoit][/autoit] [autoit]
ProcessWait($iPID)While 1
[/autoit] [autoit][/autoit] [autoit]
$sErrorMsg &= StdoutRead($iPID)
If @error Then ExitLoopSleep(1)
[/autoit] [autoit][/autoit] [autoit]
WEndIf $sErrorMsg = "" Then Exit
[/autoit] [autoit][/autoit] [autoit]MsgBox(262144+48, "AutoIt3 Error Message", _
[/autoit] [autoit][/autoit] [autoit]
StringFormat("Program Terminated <%s>.\n\nError Message:\n\n%s\n\n" & _
"Please report about this bug to the author, sory for the inconvenience!
", @ScriptName, $sErrorMsg))Exit
[/autoit]
EndFuncEdit: Nun Nachteil bei dieser Lösung ist, dass 2 Prozesse von einem Script laufen.

-
Zitat
Naja, ich weis nicht obs ses gibt, aber wenn ein Fehler auftritt, wie soll der dann noch weiter rechnen/arbeiten.
Das ist doch wie wenn ich meinem Rechner den Stecker ziehe(ohne Akku) und er läuft noch solang bis er fertig gerechnet hat,oder?
Ne nicht direkt. Da AutoIt "nur" eine Interpretersprache ist, beendet der Interpreter sozusagen das Script. Es ist aber bestimmt möglich, das der Interpreter kurz davor eine Funktion ausführen kann. Schließlich wird bei einem Fehler auch ein Dialog mit dem Fehler angezeigt

Edit: Meine Idee war, das bei einem Fehler ein anders Script ausgeführt wird, das den Fehler "analysiert" und überprüft, woran das liegen kann.
-
Hallo,
hat man bei AutoIt die Möglichkeit bei einem Scriptfehler noch eine letzte Funktion aufzurufen? Also ungefähr so was wie
[autoit]Opt("OnAutoItError", "FehlerFunktionBzwMeldung")
[/autoit] -
Vielen Dank für eure Hilfe. Ich muss jetzt erstmal versuchen den code zu vertehen
Ich meine bringt ja nichts wenn ich es nicht verstehe und dann einbaue
-
Hallo,
ich habe eine GUI erstellt, wo sich 5 graue Sterne befinden. Fährt man z.b. mit der Maus über Stern 4 werden alle Sterne von 1 bis 4 gelb. Jetzt weiß ich aber nicht, wie ich es machen soll, wenn man nun wieder auf Stern 2 zurückgeht, dass alle Sterne bis Stern 2 gelb sind un der Rest grau. Kann mir jemand dabei Helfen?
Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------AutoIt Version: 3.3.2.0
[/autoit] [autoit][/autoit] [autoit]
Author: myNameScript Function:
[/autoit] [autoit][/autoit] [autoit]
Template AutoIt script.#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>_ErstelleNeuBearbeitenGUI("Sender hinzufügen", "Name", "www.www.www")
[/autoit] [autoit][/autoit] [autoit]Func _ErstelleNeuBearbeitenGUI($xiTitel, $xiSendername = "", $xiSenderadresse = "", $xiGenre = "", $xiBewertung = "")
[/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode", 0)
Global $xProgrammOrdner = @ScriptDir
Local $xGenreListe = IniRead($xProgrammOrdner & "\Settings.ini", "Radio Station Manager", "GenreList", "")
Global $AltePos[1]Global $SenderGUI_Handle = GUICreate($xiTitel, 406, 186)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0xFFFFFF)WinSetOnTop($SenderGUI_Handle, "", 1)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel("Sie haben hier die Möglichkeit, Desktop Radio mit weiteren Sendern zu ergänzen.", 8, 8, 389, 17)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0x005ACE)
GUICtrlCreateLabel("Sendername:", 8, 40, 67, 17)
$xSendername = GUICtrlCreateInput($xiSendername, 96, 32, 265, 21)
GUICtrlCreateIcon($xProgrammOrdner & "\Images\Icons\Application\Radio Station Manager\Info.ico", -1, 376, 32, 16, 16)
GUICtrlSetTip(-1, "FGVFDGDFG"&@LF&"DXFDSVFGDSGD")GUICtrlCreateLabel("Senderadresse:", 8, 64, 78, 17)
[/autoit] [autoit][/autoit] [autoit]
$xSenderadresse = GUICtrlCreateInput($xiSenderadresse, 96, 64, 265, 21)
GUICtrlCreateIcon($xProgrammOrdner & "\Images\Icons\Application\Radio Station Manager\Info.ico", -1, 376, 64, 16, 16)GUICtrlCreateLabel("Genre:", 8, 96, 36, 17)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$xGenre = GUICtrlCreateCombo("", 96, 96, 265, 25)
GUICtrlSetData(-1, $xGenreListe, "Mix")
GUICtrlCreateIcon($xProgrammOrdner & "\Images\Icons\Application\Radio Station Manager\Info.ico", -1, 376, 96, 16, 16)GUICtrlCreateLabel("Sender bewerten:", 8, 128, 88, 17)
[/autoit] [autoit][/autoit] [autoit]Global $xPicArray[6] = [5, _
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 104, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 120, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 136, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 152, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 168, 128, 16, 16)]$xAbbrechen = GUICtrlCreateButton("Abbrechen", 320, 152, 75, 25, $WS_GROUP)
[/autoit] [autoit][/autoit] [autoit]
$xOk = GUICtrlCreateButton("Ok", 240, 152, 75, 25, $WS_GROUP)
$xSenderTesten = GUICtrlCreateLabel("Sender testen", 8, 160, -1, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)AdlibRegister("_SenderGUIHoverFunktion", 20)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Opt("GUIOnEventMode", 1)
Return 0Case $xAbbrechen
[/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode", 1)
Return 0Case $xOk
[/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode", 1)
Return 0
EndSwitch
WEnd
EndFuncFunc _SenderGUIHoverFunktion()
[/autoit] [autoit][/autoit] [autoit]
;Ermittelt Infos von der Maus.
Local $xCursor = GUIGetCursorInfo($SenderGUI_Handle)
;Beendet die Funktion, falls kein Wert zurückgegeben wurde.
If Not IsArray($xCursor) Then Return 0;Schleife...
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
For $xa = 1 To 5
Switch $xCursor[4]
Case $xPicArray[$xa]
For $xb = 1 To $xa
GUICtrlSetImage($xPicArray[$xb], $xProgrammOrdner & "\Images\Radio Station Manager\StarOn.gif")
Next
$AltePos[0] = $xb
Case Else
Switch $AltePos[0]
Case 2
For $xb = 5 To 1 Step -1
GUICtrlSetImage($xPicArray[$xb], $xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif")
Next
EndSwitch
EndSwitch
Next;~ GUICtrlSetImage($xPicArray[$i], $xProgrammOrdner & "\Images\Radio Station Manager\StarOn.gif")
[/autoit] [autoit][/autoit] [autoit][/autoit]
;~ GUICtrlSetImage($xPicArray[$i], $xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif")
EndFunc -
Ich finde es seltsam, das man nicht mal mit GUIGetCursorInfo überprüfen kann, ob auf dem Button geklickt wurde. Mit GUIRegisterMsg funktioniert das auch leider nicht. Genauso schade ist auch, dass man keine farbige Labels, Inputboxen usw da einfügen kann..
Weiß jemand trotzdem wie es geht (was unwahrscheinlich ist
)? -
Jetzt steht da, dass die GetNewstContent.exe fehlt

Aber Top Script. Werde ich wahrscheinlich öfter nutzen, da es sehr praktisch ist. Ganz toll wäre es natürlich, wenn man es in den Tray minimieren könnte und von dort aus immer eine Nachricht bekommt, wenn jemand was geschrieben hat.

-
Bei mir steht da die ganze Zeit, dass mein Passwort falsch ist. Ich hab es schon 4x versucht doch es funktioniert nicht...
Ob das daran liegt, dass ich in meinem Passwort Zeichen wie + und - habe? :wacko: -
Ja da isser bei mir auch

Genau da sollte es ja nicht hin [Blockierte Grafik: http://www.the-coderz.de/Board/wcf/images/smilies/assi.png]Edit: Hmm vielleicht ist es ja auch "nur" ein Bug? Mit GUIGetCursorInfo funktioniert das leider auch nicht...
-
-
Du kannst ja auch Bereiche 50x50 mit PixelGetCheckSum überbrüfen lassen und bei veränderung nur ein 50x50 Bild senden.
Also Du hast z.B eine GUI mit 20 50x50 Bildern. Diese kannst Du dann einzeln bei veränderung aktualisieren lassen. Das wäre die einfachste Methode glaub ich
. -
Hallo,
warum funktioniert das nicht:
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Local $Parts[3] = [100, 200, 300]
[/autoit] [autoit][/autoit] [autoit]$GUIh = GUICreate("GUI", 497, 256)
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent($GUI_EVENT_CLOSE ,"_Exit")$StatusBarh = _GUICtrlStatusBar_Create($GUIh, $Parts)
[/autoit] [autoit][/autoit] [autoit]$ID = GUICtrlCreateButton("Klick mich", 0, 0)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetOnEvent($ID, "_Funktion")
$Handle = GUICtrlGetHandle($ID)_GUICtrlStatusBar_EmbedControl($StatusBarh, 2, $Handle)
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Sleep(20)
WEndFunc _Funktion()
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "", "")
EndFuncFunc _Exit()
[/autoit]
Exit
EndFuncBei GUIGetMsg funktioniert das genauso wenig... :pinch:
Edit: Die Funktion _Funktion() wird nicht ausgeführt und es erscheinen auch keine Fehlermeldungen.
Edit2: Wenn man den Button auf Fokus setzt und dann Enter drückt wird die Funktion aufgerufen, aber nicht bei einem gewöhnlichen Mausklick. Hmm... -
Ja genau. Kann man denn mit ControlGetPos die Position und Größe eines Listview-Items bestimmen? Soweit ich weiß nein oder?
-
Hallo,
wie kann ich die Höhe eines Listview-Items herausfinden? Weiß das jemand? Ist das bei Win Xp, Vista und Win 7 unterschiedlich?
Danke schonmal.

-
Hallo,
versuch es mal so:
[autoit]Define()
[/autoit][autoit][/autoit][autoit]Func Define()
[/autoit][autoit][/autoit][autoit]
$setting = "Einstellung"
WriteSettings($setting)
EndFuncFunc WriteSettings($setting)
[/autoit]
$file = FileOpen(@ScriptDir & "\settings.txt", 1)
FileWrite($file, $setting)
FileClose($file)
EndFunc -
Hallo ISI360,
geniale Idee so etwas zu machen. Ich finde es optisch besonders gut gelungen und die Transparent-Effekte sind auch toll. Könnte man das nicht auch so machen, das sich die Icons bei Maushover etwas "bewegen" ? Fänd ich etwas "besser".
Trotzdem tolles Script

-
Hallo,
kann mir jemand sagen, der Win 7 benutzt, ob das hier funktioniert:
[autoit]$oWMP = ObjCreate("WMPlayer.OCX")
[/autoit][autoit][/autoit][autoit]
$oWMP.URL = "http://www.wdr.de/wdrlive/media/einslive-wm32.asx"
$oWMP.controls.play()While 1
[/autoit]
Sleep(50)
WEndSo weit ich weiß, sollte das schon funktionieren aber sicher ist sicher.

Danke schon mal.

-
Versuchs doch mit der Au3Check.exe. Die findest Du im AutoIt3-Ordner.
Hier ich habs gerade noch geschafft, einen Screenshot von den Parametern zu schaffen, bevor das Fenster verschwindet
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. -
Hallo,
Spoiler anzeigen
Code
Alles anzeigenD:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Partikel.au3(12,18) : WARNING: $player_x: possibly used before declaration. If Abs($player_x - ~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Partikel.au3(47,93) : WARNING: $light_tex: possibly used before declaration. SetMaterialTexture($particle_node_array[UBound($particle_node_array)-1][$i], 0, $light_tex) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Partikel.au3(88,34) : WARNING: $pi_div_180: possibly used before declaration. $x = Sin ($deg * $pi_div_180) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Partikel.au3(118,54) : ERROR: syntax error $particle_array[$i][8] += $particle_array[$i][8] += ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Partikel.au3(135,54) : ERROR: syntax error $particle_array[$i][8] += $particle_array[$i][8] += ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Partikel.au3(161,54) : ERROR: syntax error $particle_array[$i][8] += $particle_array[$i][8] += ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Jump n´run.au3(158,64) : ERROR: _SoundOpen() called with wrong number of args. Global $snd_break = _SoundOpen($snd_dir & "break.wav" , "break") ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Program Files\AutoIt3\Include\Sound.au3(56,24) : REF: definition of _SoundOpen(). Func _SoundOpen($sFile) ~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Jump n´run.au3(159,79) : ERROR: _SoundOpen() called with wrong number of args. Global $snd_checkpoint = _SoundOpen($snd_dir & "Checkpoint.wav" , "checkpoint") ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Program Files\AutoIt3\Include\Sound.au3(56,24) : REF: definition of _SoundOpen(). Func _SoundOpen($sFile) ~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Jump n´run.au3(160,61) : ERROR: _SoundOpen() called with wrong number of args. Global $snd_kill = _SoundOpen($snd_dir & "Kill.wav" , "kill") ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Program Files\AutoIt3\Include\Sound.au3(56,24) : REF: definition of _SoundOpen(). Func _SoundOpen($sFile) ~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Jump n´run.au3(161,61) : ERROR: _SoundOpen() called with wrong number of args. Global $snd_lose = _SoundOpen($snd_dir & "Lose.wav" , "lose") ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Program Files\AutoIt3\Include\Sound.au3(56,24) : REF: definition of _SoundOpen(). Func _SoundOpen($sFile) ~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Jump n´run.au3(162,85) : ERROR: _SoundOpen() called with wrong number of args. Global $snd_runterfallen = _SoundOpen($snd_dir & "Runterfallen.wav" , "runterfallen") ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Program Files\AutoIt3\Include\Sound.au3(56,24) : REF: definition of _SoundOpen(). Func _SoundOpen($sFile) ~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Jump n´run.au3(163,73) : ERROR: _SoundOpen() called with wrong number of args. Global $snd_schalter = _SoundOpen($snd_dir & "Schalter.wav" , "schalter") ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Program Files\AutoIt3\Include\Sound.au3(56,24) : REF: definition of _SoundOpen(). Func _SoundOpen($sFile) ~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Jump n´run.au3(164,73) : ERROR: _SoundOpen() called with wrong number of args. Global $snd_springen = _SoundOpen($snd_dir & "Springen.wav" , "springen") ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Program Files\AutoIt3\Include\Sound.au3(56,24) : REF: definition of _SoundOpen(). Func _SoundOpen($sFile) ~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Partikel.au3(109,34) : ERROR: _A2DDrawPixel(): undefined function. _A2DDrawPixel($x, $y, $color) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Partikel.au3(131,43) : ERROR: _A2DDrawLine(): undefined function. _A2DDrawLine($x, $y, $x2, $y2, $color) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ D:\Eigene Dateien\Eigene Downloads\Jump n' Run DL\Jump n' Run DL\Jump n´run.au3 - 12 error(s), 3 warning(s)Kannst Du bitte die Exe mit einfügen? Dann kann ich das Spiel nähmlich sofort testen
