im IE8 werden die runden Ecken nicht angezeigt.
Vielleicht sollte man da einfach ganz drauf verzichten für den einheitlichen Look
und mit dem Hintergrund-weiß bin ich noch unglücklich
im IE8 werden die runden Ecken nicht angezeigt.
Vielleicht sollte man da einfach ganz drauf verzichten für den einheitlichen Look
und mit dem Hintergrund-weiß bin ich noch unglücklich
ich schieb auch noch mal einen Versuch nach...
[Blockierte Grafik: http://s2.directupload.net/images/091219/42oco5f3.png]
[Blockierte Grafik: http://s12.directupload.net/images/091219/j254mpvo.png]
Edit: das erste Bild sollte transparent sein. Warum das nicht so angezeigt wird, keine Ahnung.
Hab natürlich die Vorlage bei Bedarf bitte melden ...
hier mein Versuch:
Techmix
ich denke Ü40-Member würde es eher treffen
und ja, da springen schon noch ein paar rum...
siehe hier:
Edit: sorry, ich glaub der funktioniert nicht ...
Hallo Ubuntu,
auch von mir ein herzliches Willkommen.
Mein Tip:
Ubuntu, ausgesprochen ùbúntú, bezeichnet eine afrikanische Lebensphilosophie
Edit: Rechtschreibfehler ...
1. Beispiel für Progress steht in der Hilfe unter ProgressOn
2. Wenn Du schon weisst, dass Deine Schleife 20mal durchläuft, dann nimm doch For...Next und nicht While.
warum habe ich das Gefühl, dasss das hier ein Paradebeispiel wird für:
WIE BAUE ICH EINEN BOT UND VERRATE ES NICHT
zum Beispiel so:
Opt("MouseClickDelay", 0)
Opt("MouseClickDownDelay", 0)
$i=550
For $i = 1 To 5
MouseMove(631, $i, 0)
MouseDown("left")
MouseUp("left")
$i-=10
Next
oder aber du erstellst Dir eine pdf-Datei, da kannst Du pixelgenau drucken ...
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]GUICreate("PDF-Creator",500,520)
GUICtrlCreateGroup("Seitenformat",10,30,170,70)
GUICtrlCreateGroup("Rand (mm)",190,30,105,70)
GUICtrlCreateGroup("Schriftformat",315,30,175,70)
GUICtrlCreateRadio("Querformat",20,70)
GUICtrlCreateLabel("Autor:",10,475,100,20)
GUICtrlCreateLabel("Titel:",120,475,100,20)
GUICtrlCreateLabel("links:",200,50,30,20)
GUICtrlCreateLabel("oben:",200,75,30,20)
$Start = GUICtrlCreateButton("erzeuge PDF",370,480,120,30)
GUICtrlSetFont(-1,11,600)
$Autor = GUICtrlCreateInput("",10,490,100,20)
$Titel = GUICtrlCreateInput("",120,490,100,20)
$Text = GUICtrlCreateEdit("Bitte geben sie hier Ihren Text ein.",10,120,480,345)
$Schrift = GUICtrlCreateCombo("8",325,48,45,20)
GUICtrlSetData(-1,"9|10|11|12|14|16|18|20|22|24|26|28|36|48|72","12")
$Schriftart = GUICtrlCreateCombo("Times-Roman",380,48,100,20)
GUICtrlSetData(-1,"Helvetica|Courier","Times-Roman")
$Size = GUICtrlCreateCombo("A4",110,60,50,20)
GUICtrlSetData(-1,"A3","A4")
$Format = GUICtrlCreateRadio("Hochformat",20,50)
GUICtrlSetState(-1,$GUI_CHECKED)
$Rand_y = GUICtrlCreateInput("24",240,48,45,20)
GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1,999,0)
$Rand_x = GUICtrlCreateInput("25",240,72,45,20)
GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1,999,0)
$Fett = GUICtrlCreateCheckbox("Fett",325,73,35,20)
$Kursiv = GUICtrlCreateCheckbox("Kursiv",370,73,60,20)
GUISetState ()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then Exit
If $msg = $Start Then ExitLoop
WEnd
$Pfad = FileSaveDialog("Speichern",@DesktopDir,"PDF (*.pdf)",16)
If StringRight($Pfad,4) = ".pdf" Then
Else
$Pfad = $Pfad & ".pdf"
EndIf
$Fett = GUICtrlRead($Fett)
$Kursiv = GUICtrlRead($Kursiv)
$Schriftart = GUICtrlRead($Schriftart)
$Rand_x = GUICtrlRead($Rand_x)
$Rand_y = GUICtrlRead($Rand_y)
$Format = GUICtrlRead($Format)
$Autor = GUICtrlRead($Autor)
$Titel = GUICtrlRead($Titel)
$Size = GUICtrlRead($Size)
$Text = GUICtrlRead($Text)
$Schrift = GUICtrlRead($Schrift)
FileDelete($Pfad)
$File = FileOpen($Pfad, 1)
$Zeilen = 1
If $Size = "A4" Then
$Size_x = 210
$Size_y = 297
ElseIf $Size = "A3" Then
$Size_x = 297
$Size_y = 420
EndIf
If $Fett = $GUI_CHECKED Or $Kursiv = $GUI_CHECKED Then
If $Schriftart = "Times-Roman" Then
If $Fett = $GUI_CHECKED Then
$Schriftart = "Times-Bold"
ElseIf $Kursiv = $GUI_CHECKED Then
$Schriftart = "Times-Italic"
EndIf
If $Fett = $GUI_CHECKED And $Kursiv = $GUI_CHECKED Then $Schriftart = "Times-BoldItalic"
ElseIf $Schriftart = "Helvetica" Then
If $Fett = $GUI_CHECKED Then
$Schriftart = "Helvetica-Bold"
ElseIf $Kursiv = $GUI_CHECKED Then
$Schriftart = "Helvetica-Oblique"
EndIf
If $Fett = $GUI_CHECKED And $Kursiv = $GUI_CHECKED Then $Schriftart = "Helvetica-BoldOblique"
Else
If $Fett = $GUI_CHECKED Then
$Schriftart = "Courier-Bold"
ElseIf $Kursiv = $GUI_CHECKED Then
$Schriftart = "Courier-Oblique"
EndIf
If $Fett = $GUI_CHECKED And $Kursiv = $GUI_CHECKED Then $Schriftart = "Courier-BoldOblique"
EndIf
EndIf
If $Format = $GUI_UNCHECKED Then
$Size = $Size_x
$Size_x = $Size_y
$Size_y = $Size
EndIf
If $Schrift = 8 Then
$Abstand = 9
ElseIf $Schrift = 9 Then
$Abstand = 11
ElseIf $Schrift = 10 Then
$Abstand = 12
ElseIf $Schrift = 11 Then
$Abstand = 13
ElseIf $Schrift = 12 Then
$Abstand = 15
ElseIf $Schrift = 14 Then
$Abstand = 17
ElseIf $Schrift = 16 Then
$Abstand = 19
ElseIf $Schrift = 18 Then
$Abstand = 21
ElseIf $Schrift = 20 Then
$Abstand = 24
ElseIf $Schrift = 22 Then
$Abstand = 26
ElseIf $Schrift = 24 Then
$Abstand = 28
ElseIf $Schrift = 26 Then
$Abstand = 30
ElseIf $Schrift = 28 Then
$Abstand = 32
ElseIf $Schrift = 36 Then
$Abstand = 41
ElseIf $Schrift = 48 Then
$Abstand = 55
Else
$Abstand = 83
EndIf
If Not StringInStr($Text,@CRLF) = 0 Then
$Text = StringSplit($Text,@CRLF)
$Zeilen = $Text[0] / 2 + 1
EndIf
; Umrechnung
$Wert = 2.834175
$Size_y = Round($Size_y * $Wert)
$Size_x = Round($Size_x * $Wert)
$Rand_x = Round($Rand_x * $Wert)
$Rand_y = Round($Rand_y * $Wert)
FileWriteLine($File,"%PDF-1.2")
FileWriteLine($File,"%âãÏÓ")
FileWriteLine($File,"1 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Author ("&$Autor&")")
FileWriteLine($File,"/CreationDate (D:"&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC&")")
FileWriteLine($File,"/Creator (Ahnungslos)")
FileWriteLine($File,"/Producer (Ahnungslos)")
FileWriteLine($File,"/Title ("&$Titel&")")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"4 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Type /Font")
FileWriteLine($File,"/Subtype /Type1")
FileWriteLine($File,"/Name /F1")
FileWriteLine($File,"/Encoding 5 0 R")
FileWriteLine($File,"/BaseFont /"&$Schriftart)
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"5 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Type /Encoding")
FileWriteLine($File,"/BaseEncoding /WinAnsiEncoding")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"6 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File," /Font << /F1 4 0 R >>")
FileWriteLine($File," /ProcSet [ /PDF /Text ]")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"7 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Type /Page")
FileWriteLine($File,"/Parent 3 0 R")
FileWriteLine($File,"/Resources 6 0 R")
FileWriteLine($File,"/Contents 8 0 R")
FileWriteLine($File,"/Rotate 0")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"8 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Length 9 0 R")
FileWriteLine($File,">>")
FileWriteLine($File,"stream")
FileWriteLine($File,"BT")
If $Zeilen = 1 Then
FileWriteLine($File,"/F1 "&$Schrift&" Tf")
FileWriteLine($File,"1 0 0 1 "&$Rand_y&" "&$Size_y - $Rand_x - $Abstand&" Tm")
FileWriteLine($File,"(Dies ist mein erster Text, und ich weiß gar nicht, was ich machen soll...) Tj")
Else
For $Counter = 1 To $Zeilen
FileWriteLine($File,"/F1 "&$Schrift&" Tf")
FileWriteLine($File,"1 0 0 1 "&$Rand_y&" "&$Size_y - $Rand_x - $Abstand * $Counter&" Tm")
FileWriteLine($File,"("&$Text[$Counter * 2 - 1]&") Tj")
Next
EndIf
FileWriteLine($File,"ET")
FileWriteLine($File,"endstream")
FileWriteLine($File,"endobj")
FileWriteLine($File,"9 0 obj")
FileWriteLine($File,"78")
FileWriteLine($File,"endobj")
FileWriteLine($File,"2 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Type /Catalog")
FileWriteLine($File,"/Pages 3 0 R")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"3 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Type /Pages")
FileWriteLine($File,"/Count 1")
FileWriteLine($File,"/MediaBox [ 0 0 "&$Size_x&" "&$Size_y&" ]")
FileWriteLine($File,"/Kids [ 7 0 R ]")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"0 10")
FileWriteLine($File,"0000000000 65535 f ")
FileWriteLine($File,"0000000013 00000 n ")
FileWriteLine($File,"0000000591 00000 n ")
FileWriteLine($File,"0000000634 00000 n ")
FileWriteLine($File,"0000000156 00000 n ")
FileWriteLine($File,"0000000245 00000 n ")
FileWriteLine($File,"0000000307 00000 n ")
FileWriteLine($File,"0000000372 00000 n ")
FileWriteLine($File,"0000000453 00000 n ")
FileWriteLine($File,"0000000576 00000 n ")
FileWriteLine($File,"trailer")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Size 10")
FileWriteLine($File,"/Root 2 0 R")
FileWriteLine($File,"/Info 1 0 R")
FileWriteLine($File,">>")
FileWriteLine($File,"startxref")
FileWriteLine($File,"712")
FileWriteLine($File,"%%EOF")
FileClose($File)
[/autoit]du kannst auch die Ausgabe im Dos-Fenster auslesen und auswerten, um die nächste Eingabe zu tätigen.
schau Dir dazu mal den Befehl StderrRead in der Hilfe an.
Ansonsten mal ein Beispiel wie das mit der Variable grundsätzlich geht...
Opt("WinTitleMatchMode",2); damit das Script Teile des Fenstertitels erkennt
[/autoit] [autoit][/autoit] [autoit]Do
$fach = InputBox("Lagerplatzeingabe", "Bitte geben Sie den Lagerplatz des Schlüssels ein:", "", " M4", 180, 130)
If @error = 1 Then Exit
Until StringIsInt($fach) And StringLen($fach) = 4; "And StringLen($fach) = 4" kann weggelassen werden, wenn auch 1-, 2- oder 3-stellige Zahlen erlaubt sind
Run("cmd")
WinWait("cmd.exe"); wartet bis das Fenster mit dem Teilinhalt cmd.exe erscheint
Send ("cd\{ENTER}cls{ENTER}")
Send ("telnet 192.168.0.175 9001{ENTER}")
Sleep (5000)
Send ("lock server01{ENTER}")
sleep(3000)
Send("gopos server01 "&$fach&"{ENTER}")
Sleep(20000)
Send("store server01 unload "&$fach&"{ENTER}")
Sleep(10000)
Send("gopos user{ENTER}")
Sleep(10000)
send("store server01 load user{ENTER}")
Sleep(10000)
Send("scan server01 out{ENTER}")
Sleep(10000)
Send("gate server01 reject{ENTER}")
Sleep(10000)
Send("gate server01 close{ENTER}")
Sleep(10000)
Send("unlock server01{ENTER}")
Exit
jetzt würde ich sagen poste mal Dein ganzes Script...
Sonst wird das nix
alles Gute zum Geburtstag Euch beiden ...
hab mal ein Beispiel gemacht.
Musst möglicherweise den Pfad zu AutoIt anpassen ...
;Parameter für das Compilen mit Aut2Exe:
;Aut2Exe.exe /in <infile.au3> [/out <outfile.exe>] [/icon <iconfile.ico>] [/comp 0-4] [/nopack] [/pack] [/ansi] [/unicode] [/x64] [/console] [/gui]
FileInstall("C:\Programme\AutoIt3\Aut2Exe\Aut2Exe.exe",@TempDir&"\Aut2Exe.exe",1)
FileInstall("C:\Programme\AutoIt3\Aut2Exe\AutoItSC.bin",@TempDir&"\AutoItSC.bin",1)
FileInstall("C:\Programme\AutoIt3\Aut2Exe\upx.exe",@TempDir&"\upx.exe",1)
$source_script = "Hello_World.au3"
$dest_script = "Hello_World.exe"
$deine_Eingabe = InputBox("Geben Sie einen Text ein","")
$test = "MsgBox(262144,'Hello World','Dies ist ein Hello World Beispiel'&@CRLF&@CRLF&"&'"'&$deine_Eingabe&'"'&")"&@CRLF&"Exit"
FileWrite($source_script,$test)
ShellExecute(@TempDir&'\Aut2Exe.exe', '/in Hello_World.au3',@ScriptDir)
Exit
warum eigentlich so kompliziert?
schreib doch einfach Dein Server.au3 Script,
die Variablen Teile ersetzt Du dann jeweils durch eine Variable,
die Du durch Dein eigenes Script erfasst/ermittelst, abfragst, wie auch immer.
markiere das gesamte Script und kopiere es in eine Variable.
Diese Variable (mit dem Inhalt des Scriptes schreibst Du in eine Datei, sobald Du deine Abfragen für die variablen Teile zusammen hast...
Fertig ...
dann packste die Aut2exe.exe halt in Dein Script mit rein und compilierst damit ...
Edit: ersetzt: Aut2exe.exe !!!
find ich ja nett...
ZitatBlos ich bekomm es nicht hin
Dein gesamter Ansatz lautet
[autoit]Func _build()
[/autoit]
Mal so grob als Anhalt zum experimentieren...
Du öffnest/erstellst eine Datei (FileOpen() ...)
Deine Angaben schreibst Du in diese Datei (FileWrite() ...) als Befehle, so wie Du sie auch in SciTe schreiben würdest
Deine Datei schickst Du von mir aus auch noch an den Compiler
und schon hast Du eine .exe, die das macht, was Du willst.
Ach ja, vergiss nicht an den Anfang Deiner Datei die nötigen 'includes zu setzen.
Ist ja wie ein Script von Dir.
wenn Du Deine Frage im ersten Thread in einen deutlichen deutschen Satz umformulierst,
kommen vielleicht auch brauchbare Antworten.
Sollte auf Deinen Thread keiner Antworten, kann es an mehreren Ursachen liegen:
1. Du hast einen Thread aufgemacht, den keiner versteht.
2. Du hast einen Thread aufgemacht, von dem keiner Ahnung hat...
3. Du hast einen Thread aufgemacht, den keiner interessiert.
4. Dein Thread ist inzwischen so lang (unter anderem durch lauter "push", "push" ...), das keiner mehr Lust hat sich das komplette Thema durchzulesen.
In all diesen Fällen hilft Dir ein "push" auch nicht weiter.
Ich empfehle Dir den Thread zu schliessen und einen neuen aufzumachen,
diesen benennst Du mit einer aussagekräftigen Überschrift und einer inhaltlich korrekten Frage
und du wirst sehen...
so ist es doch auch...
Du integrierst 7-zip in Dein Script mit FileInstall.
Bei Ausführung Deines Scriptes wird 7-zip in einen temporären (von Dir bestimmten) Ordner entpackt und Du kannst es dort aufrufen und nutzen.
Nach Beendigung Deines Scriptes kannst Du 7-zip aus dem temporären Ordner wieder löschen und alles ist gut.