wenn es dann doch etwas aufwendiger sein darf, dann empfehle ich die ModernMenuRaw.au3.
Damit kannst Du animierte Bilder neben die Menüpunkte setzen, die Farben der Menüpunkte ändern, Hintergrund, ....
ich häng es mal an...
Beiträge von Schnuffel
-
-
es gibt eine Lösung von prog@ndy:http://www.autoit.de/index.php?page=Thread&postID=47150#post47150
-
was bitte ist:
Zitatein Kabinett für die Grundschule
-
Hallo Uhu,
es gibt eine UDF für SQL.
Darin solltest Du fündig werden...
http://www.autoitscript.com/forum/index.php?showtopic=51952&view=findpost&p=392843 -
Hallo yxyx,
erstmal wäre es angebracht,
dass wir erfahren welcher Provider, welcher Router, ...
Es gibt eklatante Unterschiede zwischen Kabel-Modem und ADSL-Modem. -
der ist schon längst im Archiv von Google,
die Scanzeit beträgt so ca. 10 Minuiten, in denen der Spider die Seite nach Änderungen untersucht -
Also es ist schon des öfteren in diesem Forum darüber diskutiert worden.
Jedes Script das jemand hier in's Forum stellt, das keine Lizenz-/Copyrightangabe beinhaltet, ist ohne Interesse an Rechten veröffentlicht.Sicher ist es nicht schön, wenn sich jemand mit der Arbeit anderer rühmen will.
Aber solange es sich auf diesem Niveau bewegt, sehe ich da höchsten eine angekratzte Ehre.
Wenn Ihr nicht möchtet, dass sich jemand an Euren Werken bedient, dann schreibt das in den Quellcode.
Das ist zwar keine Sicherung gegen Mißbrauch, erhöht aber durchaus die Möglichkeit, den komerziellen Vertrieb zu unterbinden.
Da reicht dann meist schon die Androhung einer Unterlassung...Ansonsten einfach nur zur Problemlösung "lauffähige" Teilbereiche Eures Scriptes einstellen, das das Problem verdeutlicht.
@shayn, die feine Art ist es sicher nicht, und mit "klauen" kommst Du auch nicht weit.
Irgendwann wird jemand wissen wollen, was du wirklich drauf hast und dann stehst Du mit heruntergelassenen Hosen da.
PS: die Nennung Deiner Adresse ist eine Pflicht Deiner Webseite und ist in dem Zusammenhang weder verwerflich, noch unrechtens.
Ich würde das einfach als Lehre betrachten... -
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
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <string.au3>
#include <file.au3>Opt( "TrayIconHide", 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]
Func _Main()
Local $VerschID, $EntschID, $msgOpt( "TrayIconHide", 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$WinMain = GUICreate ( "Kizzys Encryption/Decryption Tool", 490, 420)
[/autoit] [autoit][/autoit] [autoit]
$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)
[/autoit] [autoit][/autoit] [autoit]
$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 groupGuiSetState()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()Select
[/autoit] [autoit][/autoit] [autoit]
Case $MSG = $GUI_EVENT_CLOSE
ExitCase $msg = $aboutitem
[/autoit] [autoit][/autoit] [autoit]
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
[/autoit] [autoit][/autoit] [autoit]
$OpenExplorer = FileOpenDialog ("Datei öffnen...", @MyDocumentsDir, "Einfaches Textdokument (*.txt)",1)
$EncryptString = FileRead ( $OpenExplorer )
GUICtrlSetData ( $EditText, ""&$EncryptString )
Case $msg = $exititem
ExitLoopCase $msg = $StartButton
[/autoit] [autoit][/autoit] [autoit]
;~~
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
ExitLoopExit
[/autoit] [autoit][/autoit] [autoit]
;Case GUICtrlRead($EntschID) = $GUI_CHECKED
Case $msg = $EntschID
MsgBox(0, '', 'Entschlüsseln ausgewählt')Case $msg = $open
[/autoit] [autoit][/autoit] [autoit]
$OpenExplorer = FileOpenDialog ("Datei öffnen...", @MyDocumentsDir, "RC4-verschlüsselter Text (*.cpt), (*.txt)", 1)
$DecryptString = FileRead ( $OpenExplorer )
GUICtrlSetData ( $EditText, ""&$DecryptString )
Case $msg = $exititem
ExitLoopCase $msg = $StartButton
[/autoit] [autoit][/autoit] [autoit]
;~~
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
ExitLoopExit
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Case $msg = $GUI_EVENT_CLOSE
[/autoit]
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,
ZitatIch 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.
[autoit]
Erfüllt heißt im Klartext "1" / True.Do
[/autoit]
$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
[/autoit]
...
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)
[/autoit]
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 ...