Ja richtig, nur umsonst, wenn man auch einzelne Bits setzen kann.
Beiträge von funkey
-
-
Hallo thommy75!
Ich habe die Funktionen zum schreiben auf die SPS noch nicht übersetzt, da ich sie bis jetzt noch nicht gebraucht habe. Das werde ich aber sobald als möglich nachholen und hier posten.Es fehlen noch die Funktionen:
daveWriteBits
daveWriteBytes
davePut8
davePut16
davePut32
davePutFloat
davePutKG
davePut8At
davePut16At
davePut32At
davePutFloatAt
davePutKGAt
daveSetBit
daveClrBitEinzelne Bits mit daveWriteBytes zu schreiben ist gefährlich, da auch die restlichen Bits des Bytes überschrieben werden!
-
Such mal _Array2DMirror() von Bugfix.
-
Ich glaube du suchst 'Eval'. Das $-Zeichen brauchst du dann nicht.
-
Du musst noch die Form auswählen, z.B. mit _IEFormGetObjByName oder _IEFormGetCollection. Siehe Hilfebeispiel.
-
Die Funktion 'starten()' wird gar nicht aufgerufen.
-
Hier etwas, um CSV-Dateien zu editieren: CSV-Editor V0.8 (Stand 23.04.2010)
-
Du kannst den Thread als 'gelöst' setzen, indem du deinen ersten Beitrag editierst und den Prefix von 'offen' auf 'gelöst' umstellst. Damit wird das Forum übersichtlicher.
-
[autoit]
ControlHide("Program Manager", "", "SysListView321")
[/autoit]
Sleep(2000)
ControlShow("Program Manager", "", "SysListView321") -
Also ich bin ein starker Befürworter des bestehenden Systems!
Zitat von autoBertOb 10 Tage Moderation für Neue ausreicht wage ich allerdings zu bezweifeln.
Man könnte die 10-Tage-Frist wieder neu starten oder verlängern, sobald man mit einem Bot-Thread erwischt wird. -
[autoit]
#Include <File.au3>
[/autoit][autoit][/autoit][autoit]
#Include <Array.au3>Local $aFile
[/autoit][autoit][/autoit][autoit]
_FileReadToArray("C:\mailempfaenger.txt", $aFile)MsgBox(0, "Entwurf", $aFile[_ArraySearch($aFile, "Entwurf", 0, 0, 0, 1) + 1])
[/autoit]
MsgBox(0, "Vorschau", $aFile[_ArraySearch($aFile, "Vorschau", 0, 0, 0, 1) + 1]) -
-
Hab das jetzt nicht aus dem Memory, aber hier eine einfache Variante das Muster aus der Exe-Datei anzuzeigen
Spoiler anzeigen
[autoit]Local $hFile = FileOpen(@AutoItExe, 0)
[/autoit] [autoit][/autoit] [autoit]
Local $sFile = FileRead($hFile)
FileClose($hFile)
Local $sTest = StringLeft(StringTrimLeft($sFile, 614512), 2254)
$sTest = StringRegExpReplace($sTest, "[\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0a\x0b\x0c\x0d\x0e\x0f]", " ")
Local $aText = StringRegExp($sTest, ".{48}", 3)Local $EasterEgg
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To UBound($aText) -1
$EasterEgg &= $aText[$i] & @CRLF
NextGUICreate("Easteregg", 440, 660)
[/autoit] [autoit][/autoit] [autoit]
GUISetFont(Default, Default, 0, "Courier")
GUISetState()
GUICtrlCreateEdit($EasterEgg, 10, 10, 420, 640, 0x0800)Do
[/autoit] [autoit][/autoit] [autoit][/autoit]
Until GUIGetMsg() = -3 -
Am einfachsten sicher über einen Registry-Eintrag oder über eine ini-Datei.
Edit: zu langsam
-
-
Spoiler anzeigen
[autoit]#Include <Date.au3>
[/autoit] [autoit][/autoit] [autoit]Local $DaysUnchanged = _FileGetUnchangedDays(@WindowsDir)
[/autoit] [autoit][/autoit] [autoit]
ConsoleWrite($DaysUnchanged & @CRLF)If $DaysUnchanged > 30 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;.....
;DirMove(....)
EndIfFunc _FileGetUnchangedDays($sFile)
[/autoit]
;funkey
Local $aFileChanged = FileGetTime($sFile, 0)
If @error Then Return SetError(1, 0, "")
Return _DateDiff("D", StringFormat("%04s/%02s/%02s", $aFileChanged[0], $aFileChanged[1], $aFileChanged[2]), StringFormat("%04s/%02s/%02s", @YEAR, @MON, @MDAY))
EndFunc ;==>_FileGetUnchangedDays -
Auf dem Linux-Server eine Samba-Freigabe einrichten.
Unter Windows die Samba-Freigabe mit DriveMapAdd mappen
Unter Windows die Netzwerk-Freigabe mit DriveMapAdd mappen
Mit FileCopy von A nach B kopieren. -
So:
Spoiler anzeigen
[autoit]Global $Zeit = IniRead("test.ini", "Counter", "Zeit", "10")
[/autoit] [autoit][/autoit] [autoit]
;~ $11 = iniread("test.ini", "MSG", "11", "")HotKeySet("{Esc}", "_Exit")
[/autoit] [autoit][/autoit] [autoit]Local $h, $m, $s
[/autoit] [autoit][/autoit] [autoit]AdlibRegister("_Count", 1000)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(20000)
WEndFunc _Count()
[/autoit] [autoit][/autoit] [autoit]
$h = Floor($Zeit / 3600)
$m = Floor(Mod($Zeit, 3600) / 60)
$s = $Zeit - $h * 3600 - $m * 60ToolTip(StringFormat("%i Stunden, %i Minuten, %i Sekunden", $h, $m, $s))
[/autoit] [autoit][/autoit] [autoit]
If $Zeit = 0 Then
MsgBox(64, "Zeit vorbei", "Der Coountdown ist abgelaufen!")
_Exit()
EndIf
$Zeit -= 1
EndFunc ;==>_CountFunc _Exit()
[/autoit]
Exit
EndFunc ;==>_Exit -
Das Spiel gefällt mir sehr gut!!
Es ist aufwendig animiert und richtig schön geworden. -
Hab auch noch was
Spoiler anzeigen
[autoit]Global $Zeit = IniRead("test.ini", "Counter", "Zeit", "13700")
[/autoit] [autoit][/autoit] [autoit]
;~ $11 = iniread("test.ini", "MSG", "11", "")HotKeySet("{Esc}", "_Exit")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Local $h, $m, $s
[/autoit] [autoit][/autoit] [autoit]AdlibRegister("_Count", 1000)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Sleep(20000)
WEndFunc _Count()
[/autoit] [autoit][/autoit] [autoit]
$h = Floor($Zeit / 3600)
$m = Floor(Mod($Zeit, 3600) / 60)
$s = $Zeit - $h * 3600 - $m * 60ToolTip(StringFormat("%i Stunden, %i Minuten, %i Sekunden", $h, $m, $s))
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Zeit -= 1
EndFunc ;==>_CountFunc _Exit()
[/autoit]
Exit
EndFunc ;==>_Exit
