Und wer hat gewonnen? 
Schade, dass keiner Zeit hatte, um bei diesem Wettbewerb teilzunehmen. Es lag wohl daran, dass den meisten die Aufgabenstellung nicht wirklich zugesagt hat, bei mir war es so. Ich würde mich wieder auf einen Wettbewerb freuen, bei dem man denken muss und nicht nur viel schreiben. So wie beim µit-Oktober mit der Big-Integer Aufgabe. Das war toll!!
mfg funkey
Beim 'Hello World' Beispiel steht, dass man beim Flag der MsgBox keine Anführungszeichen verwenden darf. Das ist falsch!
Das funktioniert auch:
MsgBox("48","Hello World", "Hello World")
[/autoit]Zu beachten sind die Anführungszeichen, die AutoIt mitteilen, dass der Inhalt ein Text ist, der nicht interpretiert werden soll. Anders ist es bei Flag. Dort dürfen keine Anführungszeichen gesetzt werden.
So?
#include <File.au3>
[/autoit] [autoit][/autoit] [autoit]$Ordner = FileSelectFolder("Ordner auswählen",@ScriptDir)
If $Ordner = "" Then Exit
Global $filesList = _FileListToArray($Ordner, "*.au3", 1)
For $i = 1 To $filesList[0]
Run(@ComSpec & " /c " & 'typho5 "'&$Ordner&'\'&$filesList[$i]&'"', "", @SW_HIDE)
Next
Ich verstehe den Sinn dahinter nicht wirklich!
Wenn das Skript nicht kompiliert wird, dann funktioniert es zumindest so:
Local $f1 = "Test1", $f2 = "Test3"
[/autoit] [autoit][/autoit] [autoit]If StringInStr(FileRead(@ScriptFullPath), "Func "&$f1&"()") Then HotKeySet("!f", $f1)
If StringInStr(FileRead(@ScriptFullPath), "Func "&$f2&"()") Then HotKeySet("!g", $f2)
While True
Sleep(1000)
WEnd
Func Test1()
ConsoleWrite("Test 1 called" & @CRLF)
Exit
EndFunc ;==>Test1
Func Test2()
ConsoleWrite("Test 2 called" & @CRLF)
Exit
EndFunc ;==>Test2
Probier mal das:
Opt("WinWaitDelay",0)
[/autoit] [autoit][/autoit] [autoit]$var = WinList()
$Bottom = 'Rechner' ;Trage hier den vollständigen Fenstertitel ein, von dem Fenster das am weitesten hinten sein soll!
For $i = $var[0][0] To 1 Step -1
If $var[$i][0] <> "" AND IsVisible($var[$i][1]) And $var[$i][0] <> $Bottom Then
WinSetOnTop($var[$i][0], "", 1)
EndIf
Next
Func IsVisible($handle)
If BitAnd( WinGetState($handle), 2 ) Then
Return 1
Else
Return 0
EndIf
EndFunc
Parameter kannst du auch ohne CUI auslesen.
[autoit]If $CMDLINE[0] > 0 Then MsgBox(0,"","Sie Haben "&$CMDLINE[1]&" geschrieben")
[/autoit]CUI ... Consolen User Interface (glaube ich)
So wirds aktiviert:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Extend the behaviour of the script tray icon/menu. This can be done with a combination (adding) of the following values.
0 = default menu items (Script Paused/Exit) are appended to the usercreated menu; usercreated checked items will automatically unchecked; if you double click the tray icon then the controlid is returned which has the "Default"-style (default).
1 = no default menu
2 = user created checked items will not automatically unchecked if you click it
4 = don't return the menuitemID which has the "default"-style in the main contextmenu if you double click the tray icon
8 = turn off auto check of radio item groupsAlso wenn du 'opt("traymenumode","3") ' weglässt, dann ist automatisch Mode 0 (Dafault) aktiv und das heißt einfach Standard-Menü von Autoit. Nimmst du Mode 1(3) dann ist dein selbst erstelltes Menü aktiv.
$CMDLINE[0] enthält die Anzahl der Parameter. Wenn $CMDLINE[0] = 0, dann gibt es $CMDLINE[1] nicht und es kommt zu einem Fehler, da das Array nur ein Element (nämlich 0) besitzt.
Du arbeitest zwar mit Firefox, aber so gibst du die Daten mit dem IE ins Webformular ein:
#include <IE.au3>
[/autoit] [autoit][/autoit] [autoit]$Nummer = '12345'
$Passwort = 'pwd'
$oIE = _IECreate ("http://www.mufa.de/")
$oForm = _IEFormGetCollection($oIE, 0)
$oNummer = _IEFormElementGetObjByName($oForm, 'login_username')
$oPasswort = _IEFormElementGetObjByName($oForm, 'login_password')
_IEFormElementSetValue($oNummer, $Nummer)
_IEFormElementSetValue($oPasswort, $Passwort)
_IEFormSubmit($oForm)
Ungetestet. Du kannst doch die Shell austauschen:
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System
"Shell" (REG_SZ) = "calc.exe"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows_NT\CurrentVersion\Winlogon
"Shell" (REG_SZ) = "calc.exe"kA wieso es Zuhause ging, so sollte es jedoch jetzt auch gehen, auch wenn Mega auch schon eine Lösung hat.
#Include <File.au3>
[/autoit] [autoit][/autoit] [autoit]Global $aZeichensatz[10][2] = [[ChrW(353),'s'],[ChrW(273),'dj'],[ChrW(269),'c'],[ChrW(263),'c'],[ChrW(382),'z'], _
[ChrW(352),'S'],[ChrW(272),'Dj'],[ChrW(268),'C'],[ChrW(262),'C'],[ChrW(381),'Z']]
$Ordner = FileSelectFolder("Ordner mit UTF-8 Dateien wählen","C:\datenbank\")
If $Ordner = "" Then Exit
$aDateien = _FileListToArray($Ordner, "*", 1)
For $k = 1 To $aDateien[0]
$Datei = FileOpen($Ordner&"\"&$aDateien[$k], 0)
$Text = BinaryToString(FileRead($Datei),4)
FileClose($Datei)
For $i = 0 To UBound($aZeichensatz) -1
$Text = StringReplace($Text, $aZeichensatz[$i][0], $aZeichensatz[$i][1], 0, 1)
Next
$Datei = FileOpen($Ordner&"\"&$aDateien[$k], 10)
FileWrite($Datei, $Text)
FileClose($Datei)
Next
Bei mir ging es, sonst hätte ich es nicht gepostet.
Das von Mega ging bei mir so nicht.
Ich hätte es jetzt so gelöst
Global $aZeichensatz[10][2] = [[ChrW(353),'s'],[ChrW(273),'dj'],[ChrW(269),'c'],[ChrW(263),'c'],[ChrW(382),'z'],[ChrW(352),'S'],[ChrW(272),'Dj'],[ChrW(268),'C'],[ChrW(262),'C'],[ChrW(381),'Z']]
[/autoit] [autoit][/autoit] [autoit]$Datei = FileOpen('Test.txt', 0)
$Text = FileRead($Datei)
FileClose($Datei)
For $i = 0 To UBound($aZeichensatz) -1
$Text = StringReplace($Text, $aZeichensatz[$i][0], $aZeichensatz[$i][1])
Next
$Datei_Neu = FileOpen("Test_neu.txt", 10)
FileWrite($Datei_Neu, $Text)
FileClose($Datei_Neu)
[/autoit]Edit: Speziel für dich 
Vorher aber besser die Dateien sichern!
#Include <File.au3>
[/autoit] [autoit][/autoit] [autoit]Global $aZeichensatz[10][2] = [[ChrW(353),'s'],[ChrW(273),'dj'],[ChrW(269),'c'],[ChrW(263),'c'],[ChrW(382),'z'], _
[ChrW(352),'S'],[ChrW(272),'Dj'],[ChrW(268),'C'],[ChrW(262),'C'],[ChrW(381),'Z']]
$Ordner = FileSelectFolder("Ordner mit UTF-8 Dateien wählen","C:\datenbank\")
If $Ordner = "" Then Exit
$aDateien = _FileListToArray($Ordner, "*", 1)
For $k = 1 To $aDateien[0]
$Datei = FileOpen($Ordner&"\"&$aDateien[$k], 0)
$Text = FileRead($Datei)
FileClose($Datei)
For $i = 0 To UBound($aZeichensatz) -1
$Text = StringReplace($Text, $aZeichensatz[$i][0], $aZeichensatz[$i][1])
Next
$Datei = FileOpen($Ordner&"\"&$aDateien[$k], 10)
FileWrite($Datei, $Text)
FileClose($Datei)
Next
Geht einwandfrei mit IE7
Der letzte Parameter ist falsch. Es gibt da kein -1, lass es einfach weg
$fensterIE = _IECreate($sUrl, 0, 0)
[/autoit]Mario2323: So macht man es am besten wieder sichtbar:
[autoit]_IEAction($fensterIE, "visible")
[/autoit]Bin auch dabei.
Carsten8: Ich finde den Code sehr gut, den kann man sicher mal gebrauchen! 
Auch ich wünsche allen hier im Forum einen guten Rutsch!!
[Blockierte Grafik: http://www.media-world.at/user/kami/e107/e107_images/newspost_images/cgr_farbe_guten_rutsch.jpg]
Danke progandy für den Hinweis. Den hättest du mir früher auch schon geben können.
Eine meiner ersten Amtshandlungen auf einem frischen XP ist es, alle Windows-Standard-Sounds zu deaktivieren, deswegen habe ich nichts gehört
Dein Code war aber noch nicht ganz richtig, so passt es:
[autoit]Local $accel[10][2] = [["1"],["q"],["^"],["!"],["m"],[","],["{LEFT}"],["{DOWN}"],["{NUMPADDIV}"],["{NUMPADMULT}"]]
GuiSetAccelerators($accel)
Im Post#1 gibt's jetzt leider wieder eine neue Version 1.2 mit 2 Änderungen:
* Acceleratoren eingebaut (wegen Fehlersound bei Tastendruck) thx progandy
* Tastenbeschriftung für Numpad-Player geändert
Hoffentlich findet jetzt keiner mehr einen Bug 
