Die Frage ist, wie lange soll das Skript im Hintergrund werkeln und im Sekundentakt das Clipboard abfragen? Danach stellst du die Schleifendurchläufe ein.
Sleep(1000) je Durchlauf = 1s, 1 Std. hat 3600s - kannst also selber ausrechnen welche Dauer du wünschst.
Bei gefundenem Begriff wird die Schleife aber beendet.
Beiträge von BugFix
-
-
Hier mal ein Änderungsvorschlag:
[autoit]
Schleifenende bei gefundenem Begriff.For $i = 2000 to 1 Step -1
[/autoit]
$Clipboard = ClipGet()
Sleep(1000)
If StringInStr($Clipboard,"Testwort") Then ExitLoop
Next
$MsgBox1 = MsgBox(4, "Speichern", "Wort erkannt! Zur Liste hinzufügen?") -
Ist der Zeitablauf so gewollt?
2x 0,5 s Sleep, das ganze 2000x sind rund 40 min.Außerdem wird dein Select nicht ausgewertet, jedenfalls nicht bevor die Schleife abgelaufen ist - also nach 40 min.
-
Hmm, wo die Spinne recht hat, hat sie recht
-
Dann so:
Spoiler anzeigen
[autoit]While 1
[/autoit]
$Event=GUIGetMsg()
Select
Case $Event=$GUI_EVENT_PRIMARYDOWN
Sleep(500) ; Verzögerung um Doppelklick zu erkennen
$Event=GUIGetMsg()
If $Event=$GUI_EVENT_PRIMARYDOWN Then
;Code bei Doppelklick
Else
;Code bei Einfachklick
EndIf
EndSelect
WEnd -
Zitat
Jedoch kommt die Fehlermeldung
"ERROR: _start1() called by a previous line with 0 arg(s). Min = 1. First previous line calling this Func is 263."Why?
Oder kann ich die Variable auch direkt verwenden ohne zu übergeben
Du rufst die Funktion einmal ohne Argument auf, hast sie selbst aber so definiert, dass ein Argument übergeben werden muß.Wenn Variablen allgemein deklariert sind ( Global, Dim ) können die Funktionen diese verwenden ohne, dass sie übergeben werden müssen. Sie sind dann aufgrund der Deklaration bekannt.
-
[autoit]
If MsgBox (4, "Test-cmd", "ja cmd?") = 6 Then Run("cmd.exe")
[/autoit]Du mußt ja auswerten ob JA (6) oder NEIN (7) als Rückgabe von der MsgBox kommt.
Und wozu die spitzen Klammern
-
Aufrufen kannst du das Eigenschaftsfenster so:
[autoit]Run("control.exe desk.cpl,,2")
[/autoit] -
Zitat
Original von m4j0r
die formel hab ich doch oben stehen! oder?
Global $test = ' 855 $'
$test = StringReplace($test, 'Clipget()', '') oder wie? und wie mach ich das dann mit der funktion?Du hast "StringRegExp" und nicht "StringReplace".
Für dein Bsp.:
[autoit]$kon = StringReplace(ClipGet(), '$', '')
[/autoit]
MsgBox(4096,"Kontostandt","Dein Kontostand:" & $kon) -
WOW, wer wird denn gleich mit Kanonen auf Spatzen schießen ?
[autoit]
Ich liebe zwar auch alles was mit RegExp zu tun hat,aber man muß es nicht zwingend verwenden.
Viel einfacher und hierfür ausreichend:Global $test = ' 855 $'
[/autoit]
$test = StringReplace($test, '$', '')Einfach "$" durch Leerstring ersetzen.
-
Und noch eine Kreation
Diesmal aber eine "stinknormale" Analoguhr. Mich reizte halt die Umsetzung mit Autoit Graphik-Funktion.
Es flackert ab und an etwas. Das kann man umgehen, wenn man es mit WinApi löst. Aber dazu hab ich grad keine LustSpoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
Dim $grafik, $width = 190, $height = 190, $desc = 1, $gui, $chg = False
Dim $s_angle = 90+@SEC*-6, $m_angle = 90+1+@MIN*-6, $h_angle = 90+1+@HOUR*-30
Dim $sec = @SEC, $min = @MIN, $hour = @HOUR
Dim $DarkOrange = 0xFF8C00, $Orange = 0xFFA500, $HotPink = 0xFF69B4, $LightCoral = 0xF08080, $RoyalBlue = 0x4169E1
Dim $Navy = 0x000080, $Crimson = 0xDC143C, $Green = 0x008000, $LightSteelBlue = 0xB0C4DE$m_angle -= Floor($sec/10)
[/autoit] [autoit][/autoit] [autoit]
$h_angle -= Floor($min/2)
$gui=GUICreate("Time "&@HOUR&':'&@MIN&':'&@SEC, 200,200,-1,-1,BitOR($WS_SYSMENU,$WS_CAPTION))
GUISetBkColor($RoyalBlue)
$grafik=GuiCtrlCreateGraphic(5, 5, $width, $height)
SetGraphik() ; 12 Uhr = 90° // Uhrzeigersinn (-n°)
GuiSetState()Do
[/autoit] [autoit][/autoit] [autoit]
Sleep(100)
$msg = GUIGetMsg()
If @HOUR <> $hour Then
$hour = @HOUR
$h_angle = 90-1+@HOUR*-30
$chg = True
EndIf
If @MIN <> $min Then
$min = @MIN
$m_angle = 90-1+@MIN*-6
If Mod($min,2) = 0 Then $h_angle -= 1
$chg = True
EndIf
If @SEC <> $sec Then
$sec = @SEC
$s_angle = 90+@SEC*-6
If Mod($sec,10) = 0 Then $m_angle -= 1
$chg = True
EndIf
If $chg Then
SetGraphik()
EndIf
Until $msg=$GUI_EVENT_CLOSEFunc SetGraphik()
[/autoit]
Local $title = WinGetTitle("Time")
WinSetTitle($title, '', "Time "&@HOUR&':'&@MIN&':'&@SEC)
GuiSetState(@SW_LOCK, $gui)
GUICtrlDelete($grafik)
$grafik=GuiCtrlCreateGraphic(5, 5, $width, $height)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$LightSteelBlue,$LightSteelBlue)
GUICtrlSetGraphic($grafik,$GUI_GR_ELLIPSE, 0, 0, 190, 190)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$Crimson,$Crimson)
GUICtrlSetGraphic($grafik,$GUI_GR_PIE, 95, 95, 90, $s_angle, 1)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$Navy,$Navy)
GUICtrlSetGraphic($grafik,$GUI_GR_PIE, 95, 95, 80, $m_angle, 2)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$Green,$Green)
GUICtrlSetGraphic($grafik,$GUI_GR_PIE, 95, 95, 70, $h_angle, 2)
GUICtrlSetGraphic($grafik,$GUI_GR_REFRESH)
GuiSetState(@SW_UNLOCK, $gui)
$chg = False
EndFunc -
Zitat
nicht ganz jetzt wird jede zweite sekunde ein neues fenster erstellt^^
snoozer
Du hattest recht - habe es jetzt nochmal etwas überarbeitet. Und nun gaaaanz sicher nur noch ein Fenster. -
Ich kenne zwar die Truppe nicht, aber letztlich läuft es wieder auf telefonische Verkaufsaktivität hinaus.
Da mit der (endlich) anstehenden Änderung des Werbegesetzes die jetzt bereits verbotene telefonische Werbung dann auch strafrechtlich verfolgt wird, haben solche Tätigkeiten also eh keine Zukunft. -
Doch es geht, aber das weiß dein PC noch nicht
Da mußt du noch Anpassungen in der Registry vornehmen.
Schau mal hier:
http://autorun.moonvalley.com/enable.htm -
Kann die guten Erfahrungen mit TrueImage nur bestätigen.
Ob kontinuierliche Sicherung im laufenden Betrieb, arbeiten bereits während die Wiederherstellung noch im Gange ist, mal schnell die HD klonen - alles geht super einfach, schnell und sicher.
Auch meine Empfehlung. -
Wenn $i sich in einer Schleife befindet und dort geändert wird, erfolgt der Aufruf natürlich immer mit dem momentanen Wert von $i.
[autoit]
Bsp.:For $i = 0 To Ubound($array)-1
[/autoit]
_Reg1($i)
;...
Next -
Zitat
yeah unter vista entsteht beim letzten zeitmesser pro sekunde ein neues fenster YEAAAAAHH^^
oops, ich wußte doch ich hab was vergessen
Werd ich gleich noch fixenEdit: Ist gefixt, jetzt wird immer das vorhergehende Fenster gelöscht
-
Na, noch ein 'obskurer' Zeitmesser gefällig ?
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
Dim $grafik, $width = 190, $height = 190, $desc = 1
Dim $diameter, $pos, $sec = @SEC, $color
Dim $DarkOrange = 0xFF8C00, $Orange = 0xFFA500, $HotPink = 0xFF69B4, $LightCoral = 0xF08080$gui=GUICreate("Time "&@HOUR&':'&@MIN&':'&@SEC, 200,200,-1,-1,BitOR($WS_SYSMENU,$WS_CAPTION))
[/autoit] [autoit][/autoit] [autoit]
$grafik=GuiCtrlCreateGraphic(5, 5, $width, $height)
GUISetState()
Do
$msg = GUIGetMsg()
If @SEC <> $sec Then
Switch $desc
Case 1
$sec = @SEC
If $sec = 59 Then $desc = 0
$diameter = @SEC*3
$pos = ($width-$diameter)/2
If (Mod(@SEC,2) = 0) Or (@SEC = 0) Then
$color = $DarkOrange
Else
$color = $Orange
EndIf
Case 0
$sec = @SEC
If $sec = 59 Then $desc = 1
$diameter = (60 - @SEC)*3
$pos = ($width-$diameter)/2
If (Mod(@SEC,2) = 0) Or (@SEC = 0) Then
$color = $HotPink
Else
$color = $LightCoral
EndIf
EndSwitch
SetGraphik()
EndIf
Sleep(100)
Until $msg=$GUI_EVENT_CLOSEFunc SetGraphik()
[/autoit]
Local $title = WinGetTitle("Time")
WinSetTitle($title, '', "Time "&@HOUR&':'&@MIN&':'&@SEC)
GuiSetState(@SW_LOCK, $gui)
GUICtrlDelete($grafik)
$grafik=GuiCtrlCreateGraphic(5, 5, $width, $height)
GUICtrlSetGraphic(-1,$GUI_GR_COLOR, $color,$color)
GUICtrlSetGraphic(-1,$GUI_GR_ELLIPSE, $pos, $pos, $diameter, $diameter)
GUICtrlSetGraphic($grafik,$GUI_GR_REFRESH)
GuiSetState(@SW_UNLOCK, $gui)
EndFunc -
ne ne huggy, wenns läuft, braucht er ja nicht umschalten
Hier mal mit Farbänderung im Sekundentakt:
Edit: Dann werde ich den Tipp von GTASpider gleich mal mit einfügen - thx
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode", 1)DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 1)
[/autoit] [autoit][/autoit] [autoit]
Dim $hour = @HOUR, $min = @MIN, $sec = @SEC
$SteelBlue = 0x4682B4
$White = 0xFFFFFFDim $arCol[60]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$arCol[0] = 0xFFEBCD
$arCol[1] = 0xFFDEAD
$arCol[2] = 0xD2B48C
$arCol[3] = 0xDEB887
$arCol[4] = 0xCD853F
$arCol[5] = 0xA0522D
$arCol[6] = 0x8B4513
$arCol[7] = 0xFFA07A
$arCol[8] = 0xE9967A
$arCol[9] = 0xF08080
$arCol[10] = 0xBC8F8F
$arCol[11] = 0xCD5C5C
$arCol[12] = 0xA52A2A
$arCol[13] = 0xDC143C
$arCol[14] = 0xFF69B4
$arCol[15] = 0xFF1493
$arCol[16] = 0xC71585
$arCol[17] = 0xFF00FF
$arCol[18] = 0x8B008B
$arCol[19] = 0x800080
$arCol[20] = 0x9400D3
$arCol[21] = 0x9932CC
$arCol[22] = 0x8A2BE2
$arCol[23] = 0x0000FF
$arCol[24] = 0x0000CD
$arCol[25] = 0x000080
$arCol[26] = 0x4169E1
$arCol[27] = 0x1E90FF
$arCol[28] = 0x00BFFF
$arCol[29] = 0x00CED1
$arCol[30] = 0x00FFFF
$arCol[31] = 0x008B8B
$arCol[32] = 0x008080
$arCol[33] = 0x48D1CC
$arCol[34] = 0x20B2AA
$arCol[35] = 0x40E0D0
$arCol[36] = 0x00FF7F
$arCol[37] = 0x32CD32
$arCol[38] = 0x00FF00
$arCol[39] = 0x008000
$arCol[40] = 0x7FFF00
$arCol[41] = 0xADFF2F
$arCol[42] = 0x9ACD32
$arCol[43] = 0xFFFF00
$arCol[44] = 0x808000
$arCol[45] = 0xFFD700
$arCol[46] = 0xDAA520
$arCol[47] = 0xB8860B
$arCol[48] = 0xFFA500
$arCol[49] = 0xFF8C00
$arCol[50] = 0xF4A460
$arCol[51] = 0xD2691E
$arCol[52] = 0xFF4500
$arCol[53] = 0xFF7F50
$arCol[54] = 0xFF6347
$arCol[55] = 0xFA8072
$arCol[56] = 0xFF0000
$arCol[57] = 0xB22222
$arCol[58] = 0x8B0000
$arCol[59] = 0x800000$Time = GUICreate("Time", 100, 285, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION))
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUISetBkColor($SteelBlue)
$prHour = GUICtrlCreateProgress(15, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prMin = GUICtrlCreateProgress(40, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prSec = GUICtrlCreateProgress(65, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$lHour = GUICtrlCreateLabel("lHour", 15, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 36, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lMin = GUICtrlCreateLabel("lMin", 40, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 61, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lSec = GUICtrlCreateLabel("lSec", 65, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUISetState(@SW_SHOW)
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_HourColor()
_MinColor()
_SecColor()
While 1
Sleep(100)
If @SEC <> $sec Then
$sec = @SEC
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_SecColor()
EndIf
If @MIN <> $min Then
$min = @MIN
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
_MinColor()
EndIf
If @HOUR <> $hour Then
$hour = @HOUR
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
_HourColor()
EndIf
WEndFunc Close()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc _SecColor()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor($prSec, $arCol[@SEC])
EndFuncFunc _MinColor()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor($prMin, $arCol[@MIN])
EndFuncFunc _HourColor()
[/autoit]
Select
Case @HOUR = 0
GUICtrlSetColor($prHour, $arCol[0])
Case (@HOUR > 0) And (@HOUR < 13)
GUICtrlSetColor($prHour, $arCol[@HOUR*5-1])
Case Else
GUICtrlSetColor($prHour, $arCol[(@HOUR-12)*5-1])
EndSelect
EndFunc -
Ich glaube, das liegt am XP-Style. Finds zwar grad nicht in der Hilfe, aber wenn ich mich richtige erinnere gibt es Einschränkungen bei Farbdarstellung im XP-Style. Schaltet testweise mal auf Windows klassisch - dann sollte es gehen.