ich denke das ist in der Firmware der Drucker mit "Einzeltinten" so hinterlegt,
damit man den Drucker nicht als s/w Drucker miß braucht und keine Farben mehr kauft.
Außerdem ist so sichergestellt, dass bei einer Düsenreinigung auch Farbe da ist, um zu "spülen". 
D.h. Erst Farbe kaufen und dann s/w drucken.
PS: ich hab für solche Fälle einen Laserdrucker rumstehen.
Und -- ich weiß: Das hat nicht jeder und lohnt auch nicht immer ...
ich denke nicht, dass er Dich gemeint hat
Aber siehst Du, kaum was vernünftiges gemacht, schon passt das...
mal als erster Schupps
#include <GUIConstantsEx.au3>
#include <string.au3>
#include <file.au3>
Opt( "TrayIconHide", 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_Main()
Func _Main()
Local $VerschID, $EntschID, $msg
Opt( "TrayIconHide", 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$WinMain = GUICreate ( "Kizzys Encryption/Decryption Tool", 490, 420)
$EditText = GuiCtrlCreateEdit('Bitte geben Sie Ihren zu verschlüsselnden Text ein.',5,5,380,350)
$InputPass = GuiCtrlCreateInput('',5,360,100,20, 0x21)
$InputLevel = GuiCtrlCreateInput("5", 110, 360, 52,20)
$StartButton = GUICtrlCreateButton ( "Start", 167, 360, 220, 35)
GUICtrlCreateLabel ( "Level", 122, 382)
GUICtrlCreateLabel ( "Passwort", 32, 382)
$filemenu = GuiCtrlCreateMenu ("Datei")
$exititem = GuiCtrlCreateMenuitem ("Programm beenden",$filemenu,3)
$helpmenu = GuiCtrlCreateMenu ("?")
$hilfe = GuiCtrlCreateMenuitem ("Hilfe",$helpmenu)
$aboutitem = GuiCtrlCreateMenuitem ("über",$helpmenu)
$open=GUICtrlCreateMenuItem ( "Datei öffnen...", $filemenu,0)
$save=GUICtrlCreateMenuItem ("Datei sichern unter...", $filemenu,1)
GuiCtrlCreateGroup("Modus", 395, 5, 90, 65)
$VerschID = GuiCtrlCreateRadio("verschlüsseln", 400, 20, 80);ID 17
GuiCtrlSetState(17, $GUI_CHECKED)
$EntschID = GuiCtrlCreateRadio("entschlüsseln", 400, 45, 80);ID 18
GUICtrlCreateGroup ("",-99,-99,1,1) ;close group
GuiSetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Select
Case $MSG = $GUI_EVENT_CLOSE
Exit
Case $msg = $aboutitem
Msgbox(64,"über","Kizzys Encryption/Decryption Tool - RC4 Text-En-/Decrypter Version: 2.0" &@CRLF&@CRLF&@CRLF& "Copyright: ©2010-2020, Biermännsche PC-Manufakturen/Keziah Biermann" &@CRLF&@CRLF& "E-Mail: biermaennsche.pc.manufakturen@googlemail.com")
Case $msg = $Hilfe
MsgBox (0, "Hilfe", "Passwort: Das Passwort mit dem der Text Verschlüsselt wurde." & @CRLF & @CRLF & "Level: Das Level mit dem der Text verschlüsselt wurde. Das bei der Verschlüsselung verwandte Level muss auch zur Entschlüsselung verwendet werden. Wenn Sie mehr als 30.000 Zeichen entschlüsseln wollen, nutzen Sie bitte die ""Datei öffnen...""-Funktion im Datei-Menü.")
;Case GUICtrlRead($VerschID) = $GUI_CHECKED
Case $msg = $VerschID
MsgBox(0, '', 'Verschlüsseln ausgewählt')
Case $msg = $open
$OpenExplorer = FileOpenDialog ("Datei öffnen...", @MyDocumentsDir, "Einfaches Textdokument (*.txt)",1)
$EncryptString = FileRead ( $OpenExplorer )
GUICtrlSetData ( $EditText, ""&$EncryptString )
Case $msg = $exititem
ExitLoop
Case $msg = $StartButton
;~~
GuiCtrlSetState( $EditText,$GUI_DISABLE)
GUICtrlSetState($InputPass,$GUI_DISABLE )
GUICtrlSetState($InputLevel,$GUI_DISABLE )
GUICtrlSetState($StartButton,$GUI_DISABLE )
GUICtrlSetState($filemenu,$GUI_DISABLE )
GUICtrlSetState( $helpmenu,$GUI_DISABLE)
; Stops you from changing anything
;~~
$string = GuiCtrlRead($EditText)
; Saves the editbox for later
;~~
GUICtrlSetData($EditText,'Bitte warten Sie, während Ihr verschlüsselter Text mit Ihrem Passwort '&@CRLF&'und RC4 verschlüsselt wird.')
; Friendly message
;~~
GuiCtrlSetData($EditText,_StringEncrypt(1,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel)))
; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
GuiCtrlSetState( $EditText,$GUI_ENABLE)
GUICtrlSetState($InputPass,$GUI_ENABLE )
GUICtrlSetState($InputLevel,$GUI_ENABLE )
GUICtrlSetState($StartButton,$GUI_ENABLE )
GUICtrlSetState($filemenu,$GUI_ENABLE )
GUICtrlSetState( $helpmenu,$GUI_ENABLE)
; This turns the window back on
Case $msg = $save
$SaveExplorer = FileSaveDialog ("Datei sichern unter...", @MyDocumentsDir, "RC4-verschlüsselter Text (.cpt)", 16)
FileDelete ( $SaveExplorer )
_FileCreate ( $SaveExplorer&".cpt" )
$SaveString = GUICtrlRead ( $EditText )
$FileToSave=FileOpen ($SaveExplorer&".cpt",2)
FileWrite ( $FileToSave, ""&$SaveString )
FileClose ($FileToSave)
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Exit
;Case GUICtrlRead($EntschID) = $GUI_CHECKED
Case $msg = $EntschID
MsgBox(0, '', 'Entschlüsseln ausgewählt')
Case $msg = $open
$OpenExplorer = FileOpenDialog ("Datei öffnen...", @MyDocumentsDir, "RC4-verschlüsselter Text (*.cpt), (*.txt)", 1)
$DecryptString = FileRead ( $OpenExplorer )
GUICtrlSetData ( $EditText, ""&$DecryptString )
Case $msg = $exititem
ExitLoop
Case $msg = $StartButton
;~~
GuiCtrlSetState( $EditText,$GUI_DISABLE)
GUICtrlSetState($InputPass,$GUI_DISABLE )
GUICtrlSetState($InputLevel,$GUI_DISABLE )
GUICtrlSetState($StartButton,$GUI_DISABLE )
GUICtrlSetState($filemenu,$GUI_DISABLE )
GUICtrlSetState( $helpmenu,$GUI_DISABLE)
; Stops you from changing anything
;~~
$string = GuiCtrlRead($EditText)
; Saves the editbox for later
;~~
GUICtrlSetData($EditText,'Bitte warten Sie, während Ihr verschlüsselter Text mit Ihrem Passwort '&@CRLF&'und RC4 entschlüsselt wird.')
; Friendly message
;~~
GuiCtrlSetData($EditText,_StringEncrypt(0,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel)))
; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
GuiCtrlSetState( $EditText,$GUI_ENABLE)
GUICtrlSetState($InputPass,$GUI_ENABLE )
GUICtrlSetState($InputLevel,$GUI_ENABLE )
GUICtrlSetState($StartButton,$GUI_ENABLE )
GUICtrlSetState($filemenu,$GUI_ENABLE )
GUICtrlSetState( $helpmenu,$GUI_ENABLE)
; This turns the window back on
Case $msg = $save
$SaveExplorer = FileSaveDialog ("Datei sichern unter...", @MyDocumentsDir, "Einfaches Textdokument (.txt)", 16)
FileDelete ( $SaveExplorer )
_FileCreate ( $SaveExplorer&".txt" )
$SaveString = GUICtrlRead ( $EditText )
$FileToSave=FileOpen ($SaveExplorer&".txt",2)
FileWrite ( $FileToSave, ""&$SaveString )
FileClose ($FileToSave)
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Exit
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $GUI_EVENT_CLOSE
EndSelect
WEnd
EndFunc ;==>_Main/autoit]
Hallo Data,
erstmal Hallo.
nachdem Du Dein ach so tolles Script dermaßen beschnitten (mit Sternchen aufgefüllt) hast, das es nicht startbar ist,
wird sich wohl kaum jemand die Mühe machen deinen Scripttext komplett durchzulesen.
Daher hoffe nicht auf allzuviel Hilfe...
PS: Ein Script dieser "Größenordnung" ist es wohl noch nicht wert kopiert zu werden.
du solltest Dir mal in der Hilfe durchlesen, wie While ... WEnd funktioniert.
in gemeinem deutsch würde ich sagen While (wird ausgeführt, solange das was hier steht "1" zurückgibt)
Deine erste While-Schleife wird nie verlassen, weil was soll Sleep() außer 1 zurückgeben?
Kann sein, dass das in der Hilfe nicht so steht, aber grundsätzlich gibt jede Funktion bei Erfolg eine 1 zurück...
Als Beweis:
[autoit]MsgBox(0, '', Sleep(100))
[/autoit]vielleicht kannst Du Dir daraus was ableiten/basteln...
http://dotnet-snippets.de/dns/datei-mitt…chen-SID87.aspx
du erwartest jetzt nicht wirklich Unterstützung dafür, Geld zu drucken? 
Bitte den Thread schließen, Danke.
wir sind aus 2 Gründen einfach etwas empfindlich in Bezug auf jegliche Art von "Bot-Coding".
Zum Einen ist es ethisch aus unserer Sicht nicht richtig, sich durch Programmierkenntnisse einen Vorteil zu verschaffen.
Zum Anderen wirft es einfach ein schlechtes Licht (oder zumindest ein Licht das wir nicht möchten) auf dieses Forum.
Dabei wird von uns aus jeder Ansatz an Spiele-Unterstützung unterbunden. Genauso wie alle anderen Arten von "schlechtem Coding".
Wir freuen uns über jeden, der etwas lernen möchte. Können aber nicht verhindern, dass sich jemand Wissen aneignet,
dass er selber für aus unserer Sicht schlechte Dinge verwendet.
Solltest Du zu den "bad" Codern gehören, werden sich unsere Wege von allein wieder trennen.
Wenn du zu den "good" Codern gehörst wirst Du für unser Handeln Verständnis haben und bei uns bleiben.
In diesem Fall freue ich mich auf Zuwachs 
Hallo Wolf,
Ich bin gespannt was andere noch zu verbessern haben.
Eine Funktion für das automatische Scannen des ganzen Universums bzw. der Stats ist freilich leicht zu ergänzen IMHO aber nicht von den Regeln der Betreiber abgedeckt.
wenn ich mir Deinen Text so durchlese, weiß ich warum die Warnung kam...
Du kannst Doch nicht davon ausgehen eine vielleicht erlaubte (wir prüfen sicherlich nicht jede Spiele-Unterstützung nach Rechtmäßigkeit)
Hilfe in einem Spiel zu benutzen, um darüberhinaus um weitere (ab jetzt sogar von Dir als unerlaubte) Hilfen zu erweitern.
Das ist ein schlichter Mißbrauch dieses Forum's.
Punkt.
also ich würde erstmal eine Do-Schleife so beenden:
[autoit]Until $Player1[0] <> $Player1[1]
[/autoit]desweiteren ist eine solche Schleife immer aktiv, bis die Bedingung erfüllt ist.
Erfüllt heißt im Klartext "1" / True.
Do
$Player1[2] = $Cards[Random(0,31)]
Until not $Player1[2] == $Player1[0] AND $Player1[1]
Deine Bedingung würde übersetzt lauten: mach solange, bis nicht Inhalt $Player1[2] dem Inhalt von $Player1[0] entspricht und nicht $player1[1] 1 oder True ist. Und das case-sensitiv.
Macht das wirklich Sinn???
In Deinem Fall würde ich schreiben (Die Schleife soll solange durchlaufen bis $Player1[2] einen Wert ungleich den Werten von $Player[0] und $Player[1] angenommen hat.)
[autoit]Do
...
Until ($Player1[2] <> $Player[0]) And ($Player1[2] <> $Player[1])
oder so ...
das verstehe ich nicht...
[autoit]AND $Player1[1]
[/autoit]wenn der Rückgabewert nicht interessiert geht es doch noch kürzer...
[autoit]While Sleep(500)
ProcessClose("firefox.exe")
ProcessClose("spiel.exe")
WEnd
was macht es für einen Sinn eine nach Deinen Worten nicht funktionierende exe hier einzustellen?
Ich denke nicht, dass sich die jemand runterlädt.
Btw, wenn die bei Dir nicht läuft, dann läuft die bei mir wohl auch nicht.
Ist vielleicht ganz gut so, dass die Datei nicht erreichbar ist.
Ich gehe von einem Spaßvirus-Programm aus, das nur den Zweck hat ausgeführt zu werden ...
hier meine Sig ...
das ist eine lokale Parameter-Datenübergabe an das CDO-Object
Erklärung ist schwierig.
Das sieht zwar aus wie eine Internetadresse, wird aber nicht so behandelt.
was heist hier AutoIt'ler und nix Flash.
Ich find die Möglichkeit grundsätzlich gut.
Aber Dein Problem läßt sich vielleicht ganz einfach lösen:
[autoit]$gui = GUICreate("Flash-GUI", 100, 100, Default, Default, 0x80000000)
$obj = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$test = GUICtrlCreateObj($obj, 0, 0, 100, 100)
With $obj
.Movie = @ScriptDir & "\test.swf" ; Pfad zur SWF
.wmode = "transparent" ; Transparenz was nicht funktioniert
EndWith
GUISetState()
WinSetTrans($gui,"",50)
Do
Until GUIGetMsg() = -3 ; Escape beendet
dieser Thread sollte hilfreich sein...
http://www.autoit.de/index.php?page=Thread&postID=114285#post114285
häng doch mal bitte die Bilder mit an, sonst muss ich mir auch noch selber welche suchen ...
es gibt auch "leere" dll's.
Fliegt hier im Forum glaube ich auch irgendwo rum.
Wenn Du die nimmst, kannst Du für jedes Projekt die Sachen rein kopieren, die du brauchst.
Erstellen kannst Du dll's mit AutoIt nicht.
das klingt danach, als wolltest Du den Bootsektor im Laufenden Windows löschen.
Ich glaube, dass wird nicht funktionieren ...
