Ich würde mir da die PCL (Printer Command Language) angucken.
Da gibt es ja genug AutoIT Beispiele und Scripte die dir sicherlich weiterhelfen können
Beiträge von bobekos
-
-
Ganz schnell nur als Info wofür ist das Programm?
-
http://survival-mediawiki.de/dewiki/index.php/Hauptseite
Findet man alles was das Thema angeht.
-
nein das wird eine art Rollenspiel :
"Du bist auf einer einsamen Insel. Um zu überleben muss du ein Feuer entfachen. Dir stehen folgende Hilfsmittel zur Verfügung ...und so weiter und so fort :D"
Aber nach DMAX und Bear Grylls kann nichts mehr schief gehen
-
versuch es mal mit
[autoit]
[/autoit]
ShellExecute("msconfig.exe","","C:\Windows\System32")Guck aber natürlich auch ob msconfig auch in System32 liegt sollte das nicht der Fall sein müsste die EXE hier liegen:
C:\Windows\PCHealth\HelpCtr\BinariesGetestet unter Windows XP
ps.Der Run befehl funktioniert bei mir auch nicht
-
-
find das ganze schon ziemlich geil Gut gemacht
Ps: Bei mir hackt das aber trotzdem bisschen obwohl es konstant über 70 fps bleibt.
Ps2: In deinem Code den du hochgeladen hat ist das #include für gdiplus.au3 falsch geschrieben nur als Hinweis -
so was vil. auf die schnelle
[autoit]
[/autoit]
$Main = GUICreate("",300,300,-1,-1)
$Label = GUICtrlCreateLabel("Aaaaaa",1,1,300,300)
While 1
GUISetState(@SW_SHOW,$Main)
For $a = 9 to 30 Step 1
Sleep(500)
GUICtrlSetFont($Label ,$a, 400, 0, "Arial")
Next
WEnd -
also ich hab da mal auch was mit ner Verschlüsselung gebastelt wenn dir das hilft (ich meine in der INI stehen ja jetzt die Passwörter).
[autoit]
Einmal die User Generate au3 wo man User anlegen kann
[/autoit]
#include <Crypt.au3>
$benutzer = InputBox("Benutzer Generator","Bitte den gewünschten Benutzernamen eingeben:")
If @error Then
Exit
EndIf
$pw = InputBox("PW Generator","Bitte das Passwort eingeben:")
If @error Then
Exit
EndIf
$pwmd5 =_Crypt_HashData($pw,$CALG_MD5)
$benutzermd5 = _Crypt_HashData($benutzer,$CALG_MD5)
FileWrite(@ScriptDir&"\data",$benutzermd5&"="&$pwmd5)
If @error Then
MsgBox(16,"Fehler","Benutzer konnte nicht erstellt werden, bitte Vorgang wiederholen")
Exit
EndIf
MsgBox(0,"Info","Benutzer wurde erfolgreich erstellt.")
Exit
[autoit]
und einmal das eigentlich Programm wo man mit dem Passwort zugreifen muss natürlich kann man auch beide Scripte in ein Script packen.
[/autoit]
;Anmelde Maske
#include <Crypt.au3>
$data = FileReadLine(@ScriptDir&"\data",1)
;~ ;MsgBox(0,"",$pwbe[1]&" "&$pwbe[2]);~
If @error Then
MsgBox(16,"Fehler","Bitte zuerst die User Generate.exe ausführen")
Exit
EndIf
$pwbe = StringSplit($data,"=")
$benutzer = InputBox("Benutzer","Benutzernamen eingeben:")
$benutzermd5=_Crypt_HashData($benutzer,$CALG_MD5)
If $benutzermd5 = $pwbe[1] Then
$pw = InputBox("Passwort","Bitte das Passwort eingeben:","","*")
$pwmd5=_Crypt_HashData($pw,$CALG_MD5)
If $pwmd5 = $pwbe[2] Then
MsgBox(0,"Geschafft","Das Programm kann gestartet werden")
;FileDelete(@ScriptDir&"\data")
Else
MsgBox(16,"Fehler","Falsches Passwort eingegeben")
EndIf
Else
MsgBox(16,"Fehler","Benutzernamen nicht bekannt")
Exit
EndIf -
ohne den entsprechenden Code kann dir hier keiner helfen
-
Also wenn es jemand besser wissen sollte dann nur zu aber meiner Meinung nach kann man das Fenster nicht anders darstellen.
-
versuch mal hier mit:
[autoit]
[/autoit]
#include <Date.au3>
#include <File.au3>
#include <Array.au3>
$Server=("C:\Temp")
$Tage=1
$Filter="*.pdf"
_FileDeleteAfterXDays($Server,$Tage,True,True,True,True)
;===============================================================================
; Function Name: _FileDeleteAfterXDays($sPath, $iDays[, $bForceDel][, $bRek][, $bDirDel][, $bLog])
; Description:: löscht Dateien in einem ausgewähltem Verzeichnis (rekursiv)
; nach einer angegebenen Anzahl von Tagen
; Parameter(s): $sPath = Verzeichnis, aus dem die Dateien gelöscht werden sollen.
; $iDays = Dateien, die älter als $iDays (in Tagen) sind, löschen.
; $bForceDel = wenn "True" werden auch Dateien/Verzeichnisse gelöscht,
; die gegen löschen geschützt sind ("R"-Attribut)
; $bRek = wenn "True" wird das Verzeichnis rekursiv (inkl. Unter-
; verzeichnisse) durchsucht.
; $bDirDel = wenn "True" wird das Unterverzeichnis gelöscht, wenn
; es (aufgrund der Löschaktion) leer ist.
; $bLog = wenn "True" wird das Ergebnis der Löschaktion in die
; Console geschrieben.
; Requirement(s): AutoIt-Version min. v3.3.2.0
; #include <Date.au3>
; Return Value(s): bei Erfolg Rückgabe = 1
; bei Fehler Rückgabe = 0
; und @error:
; 1 = $iDays ist keine oder eine negative Zahl
; 2 = Das übergebene Verzeichnis existiert nicht oder ist leer.
; Author(s): Oscar (http://www.autoit.de)
; Micha_he (http://www.autoit.de)
;
;===============================================================================
Func _FileDeleteAfterXDays($sPath, $iDays, $bForceDel = False, $bRek = True, $bDirDel = True, $bLog = True)
Local $hSearchm, $hEmpty, $sFile, $sDate, $iRet
If (Not IsNumber($iDays)) Or ($iDays < 0) Then Return SetError(1, 0, 0)
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$hSearch = FileFindFirstFile($sPath & $Filter)
If @error Then Return SetError(2, 0, 0)
While 1
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If @extended Then
If $bRek Then
_FileDeleteAfterXDays($sPath & $sFile, $iDays, $bForceDel, $bRek, $bDirDel, $bLog)
If $bDirDel Then
$hEmpty = FileFindFirstFile($sPath & $sFile & "\" &$Filter)
If @error Then
If $bForceDel Then FileSetAttrib($sPath & $sFile, '-R')
$iRet = DirRemove($sPath & $sFile)
If $bLog Then ConsoleWrite('Delete Folder "' & $sPath & $sFile & '" = ' & StringMid('No Yes', $iRet * 3 + 1, 3) & @CR)
EndIf
FileClose($hEmpty)
EndIf
EndIf
Else
$sDate = StringRegExpReplace(FileGetTime($sPath & $sFile, 0, 1), '(\d{4})(\d{2})(\d{2})(.*)', '$1/$2/$3')
If _DateDiff('D', $sDate, _NowCalc()) > $iDays Then
If $bForceDel Then FileSetAttrib($sPath & $sFile, '-R')
$iRet = FileDelete($sPath & $sFile)
If $bLog Then ConsoleWrite('Delete File "' & $sPath & $sFile & '" = ' & StringMid('No Yes', $iRet * 3 + 1, 3) & @CR)
EndIf
EndIf
WEnd
FileClose($hSearch)
Return 1
EndFunc -
bei mir funktioniert dieser Auschnitt auch ohne Probleme
-
Versuch es mal mit:
[autoit]
[/autoit]
ShellExecute ( "filename" [, "parameters" [, "workingdir" [, "verb" [, showflag]]]] ) -
Es hängt doch alles von der Wahrscheinlichkeit ab. Es kann ja gut sein das ich beim ersten Versuch die richtige Zahl treffe. Wenn ich das Intervall benutze minimiere ich die Anzhal der Möglichkeiten somit steigt meine Wahrscheinlichkeit die Zahl zu treffen. Deswegen ist es wohl die beste Möglichekeit.
-
Anzahl der Versuche 16 Pang !!!!
-
Ich hab jetzt das Problem nicht so ganz verstanden Also mein Array hat doch 2 Spalten oder sehe ich da was falsch?
Ich hab das Problem jetzt mit:
[autoit]
[/autoit]
IniWrite($iniMAIN,"TEST",$x,$y)
gelöst. Sonst würde mir natürlich Iniwritesection auch jedesmal eben eine neue Section machen (denke ich mal).
Vielen Dank für eure Hilfe! -
"IniWriteSection($iniMAIN,"TEST",$aFELD)" <- nimm doch statt der Variable einfach dein Array?
[autoit]$aFELD[$x][$y]
[/autoit]Deine Methode funktioniert leider auch nicht. Die Hilfe Datei sagt:
[autoit]
Das Array muss 2D sein. ->ist es
Dabei wird die zweite Dimension als das Element gespeichert.
Also musste
[/autoit]
$aFELD
reichen.Man ich hab einfach keine Idee was das sein könnte. -
Moin,
ich hab ein kleines Problem und zwar.Erstmal mein Quellcode (Ist nur ein Ausschnitt):
Code
Alles anzeigen$msg = GUIGetMsg() For $x = 0 to 23 Step 1 For $y = 21 to 23 Step 1 If $msg = $aFELD[$x][$y] Then GUICtrlSetImage($aFELD[$x][$y],$gIMAGE) IniWriteSection($iniMAIN,"TEST",$aFELD) If @error Then Exit EndIf Else ContinueLoop EndIf Next Exit
So nun gibt mir aber Iniwritesection ein Fehler aus die var $iniMAIN gibt es natürlich.Woran kann das denn liegen.
Schon mal vielen Dank. -
Also bei mir funktioniert dein Script wenn ich F11 gedrückt halte ( natürlich muss die Msgbbox noch aktiv sein) beendet es das Script