So, ich habs jetzt so gelöst, dass ich noch im laufe des Scripts in den einzelnen Funktionen immer wieder mal abfrage ob $gProgstatus = False ist und wenn ja dann einfach return 0 zum "ausbrechen" aus der funktion... wenn $gProgstatus dann wieder auf true gesetzt wird, fängt das programm halt ganz normal von vorne in der main-schleife an.
danke an die, die es versucht habe 
Das ganze lässt sich mit StringRegEx wunderbar lösen.
[autoit]
#include "Array.au3"
Local $sString, $sAppVersion, $sEditName
[/autoit][autoit][/autoit][autoit]$sString='<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE FeatureLicense SYSTEM "feature.dtd"><FeatureLicense appName="GoPal Navigator" appVersion="5.0" editionName="PE" master="yes" vendor="MEDION" vendor-URL="http://www.medion.com/gopal-reg" version="1.0"/>'
[/autoit][autoit][/autoit][autoit]$sAppVersion = StringRegExp($sString, 'appVersion=\"(\d*\.\d*)\"',3)
If IsArray($sAppVersion)Then
$sAppVersion = $sAppVersion[0]
EndIf
$sEditName = StringRegExp($sString, 'editionName=\"(\w*)\"',3)
If IsArray($sEditName)Then
$sEditName = $sEditName[0]
EndIf
Hi,
ich möchte gerne mein Script mit über das Traymenü pausieren können.
Jetzt habe ich mich zunächst mal an ein Testscript probiert, jedoch klappt das ganz irgendwie nicht.
Hier mal der Test-Code
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include "Array.au3"
HotKeySet("{F5}", "_Start")
HotKeySet("{F6}", "_Pause")
HotKeySet("{F7}", "_Exit")
AutoItSetOption("TrayAutoPause", 0)
opt("GUIOnEventMode", 1)
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",3)
Global $gProgstatus = True
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];+++++Tray-Menu+++++
$StartItem = TrayCreateItem("Start (F5)")
TrayItemSetOnEvent(-1,"_TrayStart")
$StopItem = TrayCreateItem("Stop (F6)")
TrayItemSetOnEvent(-1,"_TrayStop")
TrayCreateItem("")
$ExitItem = TrayCreateItem("Exit (F7)")
TrayItemSetOnEvent(-1,"_TrayExit")
TraySetState()
Func _TrayStart()
_Start()
EndFunc
Func _TrayStop()
_Pause()
EndFunc
Func _TrayExit()
Exit
EndFunc
;-----Tray-Menu-----
;~~~~~~~~MAIN~~~~~~
While 1
MsgBox(0,"","main-schleife")
If $gProgstatus = True Then
MsgBox(0,"","innere if schleife")
_test()
EndIf
MsgBox(0,"","if schleife beendet")
ToolTip('',0,0)
WEnd
;~/~/~/~/~/~/~/~/~/~/~
Func _test()
MsgBox(0,"","test")
;vortlaufendes Programm
;
;
EndFunc
Func _Start()
ConsoleWrite("StartFunc: _Start" & @CRLF)
$gProgstatus = True
ConsoleWrite("Script is now running" & @CRLF)
ToolTip('скрипт запущен',0,0)
Sleep(1000)
ToolTip("")
ConsoleWrite("EndFunc: _Start" & @CRLF)
EndFunc
Func _Pause()
ConsoleWrite("StartFunc: _Pause" & @CRLF)
$gProgstatus = False
ConsoleWrite("Script paused" & @CRLF)
Do ; Mit der Do While schleife reagiert die GUi (Das Trayicon nicht mehr)
sleep(100)
ToolTip('skript pausiert',0,0)
Until $gProgstatus = True
ToolTip("")
MsgBox(0,"","pause")
ConsoleWrite("EndFunc: _Pause" & @CRLF)
EndFunc
Func _Exit()
Exit
EndFunc
Mache ich das ganze mit DO Until in der Pause - Funktion , dann reagiert die GUI nicht mehr.
Löse ich das ganze ohne diese Schleife, so muss das Script ja noch "seine Runde zu Ende drehen".
Dies ist aber bei längeren Scripten nicht gewünscht.
Hat da jemand eine Lösung für mich?
Ich verzweifel da den ganzen Tag schon dran -.-
mfg Karroffel
Ahh im error steht folgendes:
"E:\Progs\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "E:\Progs\AutoIt-3_new\test_001.au3" /autoit3dir "E:\Progs\Neuer Ordner\AutoIt3" /UserParams
+>15:59:31 Starting AutoIt3Wrapper v.2.0.0.3 Environment(Language:0407 Keyboard:00000407 OS:WIN_VISTA/ CPU:X64 OS:X64)
>Running AU3Check (1.54.19.0) from:E:\Progs\AutoIt3
+>15:59:31 AU3Check ended.rc:0
>Running:(3.3.6.0):E:\Progs\AutoIt3\autoit3_x64.exe "E:\Progs\AutoIt-3_new\test_001.au3"
__FFStartProcess ==> General Error: Error reading registry entry for FireFox.
HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox\*CurrentVersion*\Main\PathToExe
Error from RegRead: 1
_FFConnect: OS: WIN_7 WIN32_NT 7600
_FFConnect: AutoIt: 3.3.6.0
_FFConnect: FF.au3: 0.6.0.1b-3
_FFConnect: IP: 127.0.0.1
_FFConnect: Port: 4242
_FFConnect: Delay: 2ms
_FFConnect: Socket: 564
_FFConnect: Browser: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.2) Gecko/20100316 Firefox/3.6.2
__FFSendJavaScripts: Sending functions to FireFox .
__FFWaitForRepl ==> MozRepl Exception: !!! [Exception... "Component is not available" nsresult: "0x80040111 (NS_ERROR_NOT_AVAILABLE)"
......... done
_FFLoadWait: . loaded in 10ms
+>15:59:33 AutoIT3.exe ended.rc:0
+>15:59:34 AutoIt3Wrapper Finished
>Exit code: 0 Time: 3.233
Wenn ich das richtig verstehe, dann muss ich in der FF.au3
Zeile 4151 " Local $sHKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox"
mit folgender Zeile ändern :
"HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Mozilla\Mozilla Firefox"
Sehe ich das richtig ? 
p.s.: MozRepl war aktiviert etc.
EDIT:
Habe es jetzt in der FF.au3 geändert und jetzt funzt es! Danke an alle.
Hallo, ich habe mich nun nach einer längeren Pause, entschlossen mich wieder mehr mit AutoIt zu befassen.
Nun wollte ich zunächst mit der Bibliothek <FF.au3> auseinander setzten, nur funktioniert das include bei mir aus irgend einem Grund nicht.
Ich habe die <FF.au3> in den Ordner "E:\Progs\AutoIt3\Include" kopiert. Nach "E:\Progs\AutoIt3\" habe ich mein AutoIt installiert.
MozRepl habe ich auch installiert und gestartet.
Habe zu Testzwecken auch die <FF.au3> in den Ordner kopiert wo das Script gespeicher ist.
Wenn ich nun aber folgendes Script starte, passiert leider gar nichts:
[autoit]#include <FF.au3>
_FFStart("http://www.google.de")
ich habe auch schon probiert _FFStart mit _FFConnect zu ersätzen, aber das bringt leider auch nichts.
Wenn ich jedoch das ganze mit IE.au3 mache, dann funzt das ganze -.-
Hat jemand ne Idee was ich falsch mache, oder wie es ans laufen bekomme ?
EDIT:
In der FF.au3 folgendes
;Local $sHKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox"
mit folgenden ersetzt
;Local $sHKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Mozilla\Mozilla Firefox"
mfg
Swola4
ah vielen dank
habe noch im body scroll="no" hinzugefügt, jetzt ist es perfekt
weiß jemand ob sich dieser rand auch aufheben lässt ?
Hi, ich habe wieder mal ne Frage...
Ich bin gerade dabei mir ein aboutfenster zu machen und habe die methode gewählt ein kleines iefenster in meine gui mit einzubinden, wo der lauftext einer *.html laufen soll.
Es klapp auch schon zur hälfte. Was mir jetzt nicht gefällt ist dieser weiße rand um den lauftext rum. weiß jemand wie ich diesen schönheitsfehler beheben kann ?
Hier mal der source code der *.au3
#include <GUIConstants.au3>
#include <ie.au3>
$oIE = _IECreateEmbedded()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$about_form = GUICreate("About", 259, 282, 284, 136)
GUISetCursor (3)
GUISetBkColor(0xD8E4F8)
$ani1 = GUICtrlCreateObj ($oIE,16, 80, 217,100)
GUICtrlCreateObj($oIE, 16, 80, 217, 100)
GUISetState()
_IENavigate($oIE,@ScriptDir & "\lauftext.html")
$sql_label = GUICtrlCreateLabel("About-window", 32, 8, 190, 38)
GUICtrlSetFont(-1, 26, 800, 0, "Electrox ")
GUICtrlSetColor(-1, 0x808080)
GUICtrlSetCursor (-1, 3)
$strich_black_t = GUICtrlCreateLabel("_____________________________________", 6, 45, 226, 1)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 3)
$strich_black_b = GUICtrlCreateLabel("_____________________________________", 6, 239, 226, 1)
GUICtrlSetFont(-1, 1, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 3)
$copyright_label = GUICtrlCreateLabel("© by karroffel, 2008", 40, 248, 166, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Polo Brush MF")
GUICtrlSetCursor (-1, 3)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Hier der, der html datei
<html>
<head>
<title>lauftext</title>
</head>
<body>
<MARQUEE height="100" width="217" direction="up" scrolldelay="200" behavior="scroll" bgcolor="#d8e4f8">
<font color="#" size="1" face="Arial, Helvetica, sans-serif ">
<center>
<b>About-window</b><br><br>
done by<br><br>
<b>karroffel</b><br><br>
<br>
123<br>
<br>
456<br>
789<br>
<br>
abcdefghijklmnopqrstuvwxyz<br>
<br>
(c) by karroffel, 2008<br>
<br>
</center>
</font>
</MARQUEE>
</body>
</html>und hier noch ein bild, damit ihr seht welchen weißen rahmen ich meine
[Blockierte Grafik: http://img146.imageshack.us/my.php?image=abboutwindowij6.jpg]
oder mache mal snake...das dürfte doch eig. etwas leichter sein
Mach ein eig. Tetris
vlle damit es intressanter wird ein multiplayer tetris
hast ein extragroßes tetris fenster (widescreen) und in der mitte ist ne säule aus den tetris-steinen (je level abhängig vlle anders ? ) von oben kommen immer gleich 2 steine. einer links von der säule, der andere rechts.
linke seite steuert spieler eins
rechte seite steuert spieler zwei
wenn eine reihe kompellt ist (durchgehen von links bis nach ganz rechts[sodass beide Spieler aufpassen müssen]) verschwindet diese reihe.
So müssen beide Spieler zusammen spielen (evt. kann man sich ja ein vs. mode ausdenken)
Spieler eins teilen sich die Tastatur zum steuern
(vlle auch jeder eine eig. und man zockt über lan [hamatchi])
kannst natürlich auch noch andere sachen einfügen bzw. welche änder oder löschen...
naja wäre auf jden fall ein cooles prog. (game) was man machen könnte.
was hälst du von der idee ? 
kannst deine .exe ja mit dem iexpress nochmal packen... und in ein fsx-archiv daraus machen...glaube da kommt man nicht mehr so schnell an dein quellcode
Edit: iexpress wird mit windows vorinstalliert. Start->Ausführen->iexpress->OK
happy b-day auch von mir
ok, danke ich werde mich nacher nochmal dransetzen
Von mir auch ein happy b-day
und hier ein kleines lied (auch wenn du es wahrscheinlich nicht verstehst ^^, es ist ein russisches Geburtstagslied
klick me
@ greenhorn
ok, änder ich gleich mal
Raupi
da hast du wohl recht, wobei dann ja der "back" button irgendwie überflüssig wird...
danke euch beiden
habe die variante gewählt:
vom main fenster ins help:
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $exit_button_main
Exit
;Case $start_button_main
; _main()
Case $help_button_main
_win_res_act()
GUIDelete ($test_form)
_help()
;Case $about_button_main
; _about()
EndSwitch
WEnd
und vom help ins main:
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $back_button_help
_win_res_act()
GUIDelete ($help_form)
_main_gui()
ExitLoop
Case $GUI_EVENT_CLOSE
Exit
;Case $de_button_help
; _help_ger()
;Case $eng_button_help
; _help_eng()
;Case $rus_button_help
; _help_rus()
EndSwitch
WEnd
Return
[/autoit]Hi, erstmal ...
Also ich habe folgendes Problem:
Ich habe in mein "main" fenster ein button eingebaut namens "Help", jetzt will ich, dass wenn man auf den button klick, das main fenster ausgeblendet wird und auf dessen stelle ein help fenster eingeblendet (wenn noch nicht erstellt, dann zunächst erstellt) wird. Das klappt zunächst...wenn ich im help fenster auf den button "back" klicke soll er mir das help fenster ausblenden und an dessen stelle das main fenster wieder einblenden. das funzt auch noch soweit, klicke ich nun aber wieder auf den button help...passiert nichts mehr
kann wer bitte helfen ?
hier mein source code:
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Dim $j_h, $help_form, $test_form
Dim $win_posi[4]
_main_gui()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];------------------
Func _main_gui() ;das main window
_win_res_act()
$test_form = GUICreate("Test", 259, 282, $win_posi[0], $win_posi[1])
;$sql_form = GUICreate("Test", 259, 282, 188, 121) ;main window
GUISetIcon("C:\...\GUI\icon\icon.ico")
GUISetCursor (3)
GUISetBkColor(0xD8E4F8)
$test_label_main = GUICtrlCreateLabel("Test", 32, 8, 190, 38) ;Help_label
GUICtrlSetFont(-1, 26, 800, 0, "Electrox ")
GUICtrlSetColor(-1, 0x808080)
GUICtrlSetCursor (-1, 3)
$strich_black_t_main = GUICtrlCreateLabel("_____________________________________", 6, 45, 226, 1) ;Strich_oben
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 3)
$strich_black_b_main = GUICtrlCreateLabel("_____________________________________", 6, 239, 226, 1) ;Strich unten
GUICtrlSetFont(-1, 1, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 3)
$copyright_label_main = GUICtrlCreateLabel("© by Karroffel, 2008", 40, 248, 166, 27) ;(c) by Karroffel, 2008
GUICtrlSetFont(-1, 16, 400, 0, "Polo Brush MF")
GUICtrlSetCursor (-1, 3)
$start_button_main = GUICtrlCreateButton("Start", 56, 168, 141, 29, 0) ;Button Start
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetCursor (-1, 3)
$about_button_main = GUICtrlCreateButton("About", 92, 208, 65, 25, 0) ;Button About
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetCursor (-1, 3)
$help_button_main = GUICtrlCreateButton("Help", 16, 208, 65, 25, 0) ;Button Help
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetCursor (-1, 3)
$exit_button_main = GUICtrlCreateButton("Exit", 168, 208, 65, 25, 0) ;Button Exit
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetCursor (-1, 3)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $exit_button_main
Exit
;Case $start_button_main
; _main()
Case $help_button_main
_help_win_da()
;Case $about_button_main
; _about()
EndSwitch
WEnd
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func _main() ;hier kommt das eig. prog rein
;
EndFunc
;------------------
;------HELP-START------
Func _help_win_da() ;prueft ob schon ein help window erzeugt wurde, wenn ja dann switch, wenn nicht dann erstellen...
If $j_h = 1 Then
_switch_help()
Else
_help()
EndIf
EndFunc
Func _help() ;erstellt help window
_win_res_act()
GUISetState(@SW_HIDE)
$help_form = GUICreate("Help", 259, 282, $win_posi[0], $win_posi[1])
;$help_form = GUICreate("Help", 259, 282, 455, 120) ;help window
GUISetCursor (3)
GUISetBkColor(0xD8E4F8)
$j_h = 1
$test_label_help = GUICtrlCreateLabel("Help", 32, 8, 190, 38) ;HELP -Header
GUICtrlSetFont(-1, 26, 800, 0, "Electrox ")
GUICtrlSetColor(-1, 0x808080)
GUICtrlSetCursor (-1, 3)
$strich_black_t_help = GUICtrlCreateLabel("_____________________________________", 6, 45, 226, 1) ;Strich_oben
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 3)
$strich_black_b_help = GUICtrlCreateLabel("_____________________________________", 6, 239, 226, 1) ;Strich_unten
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 3)
$sprache_help = GUICtrlCreateLabel("Please select your language", 17, 72, 202, 20) ;Bitte Sprache auswaehlen
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetCursor (-1, 3)
$de_button_help = GUICtrlCreateButton("de", 72, 96, 81, 33, 0) ;Button deutsch
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetCursor (-1, 3)
$eng_button_help = GUICtrlCreateButton("eng", 73, 142, 81, 33, 0) ;Button englisch
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetCursor (-1, 3)
$rus_button_help = GUICtrlCreateButton("rus", 73, 190, 81, 33, 0) ;Button russisch
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetCursor (-1, 3)
$copyright_label_help = GUICtrlCreateLabel("© by karroffel, 2008", 40, 248, 166, 27) ;(c) by karroffel, 2008
GUICtrlSetFont(-1, 16, 400, 0, "Polo Brush MF")
GUICtrlSetCursor (-1, 3)
$back_button_help = GUICtrlCreateButton("back", 96, 48, 33, 17, 0) ;Button back -> main window
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetCursor (-1, 3)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $back_button_help
_back_main()
Case $GUI_EVENT_CLOSE
Exit
;Case $de_button_help
; _help_ger()
;Case $eng_button_help
; _help_eng()
;Case $rus_button_help
; _help_rus()
EndSwitch
WEnd
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func _switch_help() ;blendet main aus und help ein
_win_res_act()
GUISetState(@SW_HIDE)
GUISwitch($help_form)
GUISetCoord($win_posi[0], $win_posi[1])
GUISetState(@SW_SHOW)
EndFunc
Func _back_main() ;blendet help aus und main ein
_win_res_act()
GUISetState(@SW_HIDE)
GUISwitch($test_form)
GUISetCoord($win_posi[0], $win_posi[1])
GUISetState(@SW_SHOW)
EndFunc
;---Sprachfunktionen Start---
Func _help_ger() ;fuert die Hilfe in deutsch aus
;
EndFunc
Func _help_eng() ;fuert die Hilfe in englisch aus
;
EndFunc
Func _help_rus() ;fuert die Hilfe in russisch aus
;
EndFunc
;---Sprachfunktionen Ende---
;------HELP-END--------
Func _win_res_act() ;plaziert das neue Fenster an stelle des Alten
;-------------------
$win_posi[0]=0
$win_posi[1]=0
$win_posi[2]=0
$win_posi[3]=0
;-------------------
$win_posi = WinGetPos("[active]") ;Active window stats (x,y,width,height): $size[0], $size[1], $size[2], $size[3]
EndFunc
HI,
Ich würde gerne einen en-/decoder mit dem Lempel-Ziv-Welch-Algorithmus schreiben. Leider habe ich keine Ahnung wie ich das ganze in Autoit umsetzetn kann.
Meine Frage: Ist es überhaupt möglich das ganze in Autoit zu schreiben ?
Wenn ja wäre ich sehr dankbar, wenn mir jemand einen kleinen Ansatz bieten könnte, sodass ich das ganze dann selber schreiben kann.
weiß denn keiner was ich da falsch gemacht habe ?
danke Dankeschön ich teste es gleich mal