Meinst Du so:
[autoit]
#include <ButtonConstants.au3>
GUICreate('Test')
$Button1 = GUICtrlCreateRadio('Extra', 10, 10, 60, 25, $BS_PUSHLIKE)
$Button2 = GUICtrlCreateRadio('Chat', 80, 10, 60, 25, $BS_PUSHLIKE)
$Button3 = GUICtrlCreateRadio('Log', 150, 10, 60, 25, $BS_PUSHLIKE)
GUISetState()
Do
Until GUIGetMsg() = -3
Zwei GUIs übereinander würde ich sagen. Die untere teiltransparent.
Und wo ist Dein Script?
Welche FTP.au3 benutzt Du?
Und damit dieser Thread nicht ganz umsonst war, lernst Du nun noch, dass man bei längeren Scripten zusätzlich zum AutoIt-Tag noch den Spoiler benutzt. 
Das sieht dann so aus (ohne die Leerzeichen):
[spoiler ][autoit ][/autoit ][/spoiler ]
und zwischen die AutoIt-Tags fügst Du dann Dein Script ein.
Du hast hier ja zwei Objekte zum "üben".
Mist! Das funktioniert unter Win7 nicht mehr.
So (Fakultät) habe ich auch immer zum testen die Prozessorkerne belastet.
Aber der Rechner unter Win7 gibt bei zu großen Zahlen entweder "Überlauf" oder "Ungültige Eingabe" aus.
Also ich kenne das nur als scrollbares Inputfeld. Man kann also in das Feld hineinklicken und dann nach rechts/links scrollen. Außerdem natürlich "Alles markieren", "kopieren" usw.
Das ist wie bei AutoIt ein GUICtrlCreateInput.
Und der ist doch auch völlig korrekt. Bei "%windir%" handelt es sich um eine Systemvariable, die in diesem Fall auf das Windowsverzeichnis verweist. Je nach Windowsversion kann der Pfad variieren. Meistens ist es "c:\windows\" (so auch unter Win7).
Das Windowsverzeichnis befindet sich aber auch im Standard-Suchpfad, sodass dieser Befehl (ohne Pfadangabe) völlig ausreicht:
ShellExecute('calc.exe')
[/autoit]
Das funktioniert auf allen Windowsversionen.
Du hast vergessen Dein jetziges Script zu posten. 
Wir wollen nicht. 
Bots sind gegen die Forenregeln!
Du wolltest doch in einem anderen Forum nach Hilfe suchen. Keine gefunden? 
Du musst diese Zeile ändern:
[autoit]Switch Random(1,4,1)
[/autoit]
Random muss bei Null beginnen, sonst wird "Case 0" nie ausgeführt.
Switch Random(0,4,1)
[/autoit]Das ist ja super geworden. 
Echt toll gemacht und sieht gut aus.
Das schon, aber es erklärt nicht, warum das beim umdrehen so extrem andere Werte ergibt.
Wird da erst noch der Speicher von der vorherigen Funktion aufgeräumt?
Das ist jetzt mehr eine rhetorische Frage. Können wahrscheinlich sowieso nur die AutoIt-Programmierer beantworten. 
Hmmm...irgendwas stimmt mit der Messmethode nicht:
wenn man das so anordnet:
#include <array.au3>
$string = '"Z:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d "Z:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"A:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d"Y:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"B:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d"F\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"C:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d "G:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"D:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d "T:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"E:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d"G:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"'
; Zeit ab hier
$iTimer = TimerInit()
$a1 = StringSplit($string, @CRLF, 3)
Local $aPath[UBound($a1)]
For $i = 0 To UBound($a1) -1
$aPath[$i] = stringmid($a1[$i],2,stringinstr($a1[$i],".zip")-2)& ".zip";StringStripWS(Stringtrimleft($aTmp[0],1), 1) & ".zip"
Next
ConsoleWrite('Variante 1 = ' & TimerDiff($iTimer) & @CR)
_ArrayDisplay($aPath)
; Zeit ab hier
$iTimer = TimerInit()
Local $aOut = StringRegExp($string, '"(.+?)".+', 3)
ConsoleWrite('Variante 2 = ' & TimerDiff($iTimer) & @CR)
_ArrayDisplay($aOut)
erhalte ich diese Ergebnisse:
Variante 1 = 0.164329138375606
Variante 2 = 0.238035590147018
so weit, so gut. Du hast das gut optimiert, Andy.
Aber, wenn man das Ganze umdreht:
#include <array.au3>
$string = '"Z:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d "Z:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"A:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d"Y:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"B:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d"F\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"C:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d "G:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"D:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d "T:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"E:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d"G:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"'
; Zeit ab hier
$iTimer = TimerInit()
Local $aOut = StringRegExp($string, '"(.+?)".+', 3)
ConsoleWrite('Variante 2 = ' & TimerDiff($iTimer) & @CR)
_ArrayDisplay($aOut)
; Zeit ab hier
$iTimer = TimerInit()
$a1 = StringSplit($string, @CRLF, 3)
Local $aPath[UBound($a1)]
For $i = 0 To UBound($a1) -1
$aPath[$i] = stringmid($a1[$i],2,stringinstr($a1[$i],".zip")-2)& ".zip";StringStripWS(Stringtrimleft($aTmp[0],1), 1) & ".zip"
Next
ConsoleWrite('Variante 1 = ' & TimerDiff($iTimer) & @CR)
_ArrayDisplay($aPath)
dann kommt das raus:
Variante 2 = 0.0853867091559524
Variante 1 = 0.383837423705767
Wie kann das sein?
Du musst das Eingabefeld mit GUICtrlRead auslesen:
#include <array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Enigma = GUICreate("Enigma", 442, 413, 344, 193)
$head = GUICtrlCreateLabel("Enigma", 161, 16, 119, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$title_eingabe = GUICtrlCreateLabel("Text:", 32, 70)
$gui_eingabe = GUICtrlCreateInput("", 32, 88, 385, 89)
GUICtrlSetData(-1, "")
$title_ausgabe = GUICtrlCreateLabel("Hex:", 32, 206)
$ausgabe = GUICtrlCreateEdit("", 32, 224, 385, 89)
GUICtrlSetData(-1, "")
$code = GUICtrlCreateButton("codieren", 36, 336, 121, 25, $WS_GROUP)
$copyright = GUICtrlCreateLabel("Scripted by UWC | Schrubber @ 2009", 8, 392, 184, 17)
$zwischenablage = GUICtrlCreateButton("Zwischenablage", 165, 336, 121, 25, $WS_GROUP)
$quit = GUICtrlCreateButton("Quit", 295, 336, 121, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $code
$eingabe = GUICtrlRead($gui_eingabe) ; Ein Gui-Element wird mit GUICtrlRead ausgelesen
Dim $arstring[StringLen($eingabe)]
For $i = 0 To UBound($arstring) - 1
$arstring[$i] = StringMid($eingabe, $i + 1, 1)
Next
_ArrayDisplay($arstring)
Case $quit
Exit
EndSwitch
WEnd
Genau das wollte ich auch gerade schreiben.
Bei mir ist SRE auch schneller:
#include <array.au3>
$string = '"Z:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d "Z:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"A:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d"Y:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"B:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d"F\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"C:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d "G:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"D:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip" -d "T:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"' & @CRLF & _
'"E:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\BRAN52d039r1.zip"-d"G:\BRAN\BRAN\Docfile\BRAN29-58\BRAN52\"'
; Zeit ab hier
$iTimer = TimerInit()
$a1 = StringSplit($string, @CR, 2)
Local $aPath[UBound($a1)]
For $i = 0 To UBound($a1) -1
$aTmp = StringSplit($a1[$i], '.', 2)
$aPath[$i] = StringStripWS(StringReplace($aTmp[0], '"', ''), 1) & ".zip"
Next
ConsoleWrite('Variante 1 = ' & TimerDiff($iTimer) & @CR)
_ArrayDisplay($aPath)
; Zeit ab hier
$iTimer = TimerInit()
Local $aOut = StringRegExp($string, '"(.+?)".+', 3)
ConsoleWrite('Variante 2 = ' & TimerDiff($iTimer) & @CR)
_ArrayDisplay($aOut)
Bitte Forenregeln lesen!
[Thread closed]
Ich hatte es nur als Script ausprobiert, aber jetzt auch mal compiliert und es geht auch so. Gibt keine Probleme.
Vielleicht solltest Du mal AutoIt neu installieren. 
Wäre das nicht eine Aufgabe für ein µIT?
Zufälliges Labyrinth erstellen und das Script muss dann möglichst schnell hinausfinden.
außerdem hast du 2 befehle hinter der if anweisung stehen (exit und msgbox)
Das ist durchaus erlaubt, da Exit optional einen Errorcode zurückgeben kann.
[autoit]Exit MsgBox(64, "Kein Recht!", "Sie müssen Administrator sein um dieses Programm fortzusetzen!")
[/autoit]
wäre also von der Syntax her korrekt, allerdings nicht direkt hinter Then (wie Du bereits geschrieben hast), sondern in der nächsten Zeile.
Wie soll BlockInput(0) auch ausgeführt werden, wenn das Script vorher auf das beenden der MsgBox wartet?
Diese kann aber nicht beendet werden, weil die Tastatur und Maus gesperrt sind = Teufelskreis.
Das müsste also wohl eher so aussehen:
Blockinput(1);Sperren Tastatur und Maus
;~ Angang der Installation
MsgBox(0, "CAD-Installation", "Installation PlotFlow", 3)
ShellExecuteWait("C:\install\PlotFlow.exe")
MsgBox(0, "CAD-Installation", "Installation Sikla", 3)
ShellExecuteWait("C:\install\Sikla.exe")
;~ Ende der Installation
Blockinput(0);Entsperren Tastatur und Maus
MsgBox(0,"Status der CAD-Installation","Folgende Programme wurden erfolgreich installiert:"&@CRLF&"-------------------------------------------------------------"&@CRLF&"PlotFlow"&@CRLF&"Sikla")
