Beiträge von stayawayknight

stayawayknight

Das war nur ein Witz mit dem Screenshot, also nicht überbewerten

stayawayknight

Genau sowas hab ich gerade gesucht, danke!

PS: Juhu ich bin im Screenshot verewigt

stayawayknight

Nein, hab ich so gemeint:

=> leeres txt-document geöffnet => Shutdown "Angriff" => Editor fragt ob du vor dem Beenden speichern möchtest.=> Du drückst auf Abbrechen => Juhu gewonnen.

Also ohne Autoit
Gibt da auch andere Shutdowns die dann ein Herunterfahren erzwingen... aber ich hoffe das ist da nicht der Fall sonst hilft da soweit ich weiß gar nix

stayawayknight

öhh.. ok.. aber so wichtig ist das mir im Moment dann auch nicht

stayawayknight

Sehe da Batch als bessere Alternative... eig. reicht es schon ein Editor Fenster offen zu halten, denn ein normaler Shutdownbefehl, der das Herunterfahren NICHT erzwingt, scheitert an der Message ob gespeichert werden soll oder nicht...
Wie man das abfängt it Autoit ich nicht, weiß nur wie mans anwendet

Du könntest Shutdown -a oder -s oder was auch immer das Abbrechen für Shotdown war in einer Endlosschleife laufen lassen

stayawayknight

oh ok... hab nur Paint & Gimp für solche Dinge

stayawayknight

gleiches Problem bei meinem Brother Drucker-der streikt solange, falls ein e TInte leer ist, bis er eine neue hat

stayawayknight

hab auf meinem PC die reinste Unordnung, versuch jetzt meinen Laptop ordentlich zu halten...
aber is immer noch nicht soi aufgeräumt wie eure (zum Teil)

stayawayknight

Ja danke werd das morgen hochladen...
Ich glaube das mit dem Syntax Highlighting lass ich lieber weg, dazu hab ich noch viel zu wenig Erfahrung...

mit welchem Programm hast du das Logo erstellt?
Würde mich interessieren...

stayawayknight

Jo, deins sieht in der Tat echt besser aus hab meins nur in 10 Minuten mit Gimp gemacht um den restlichen Platz zu füllen
Werde deins bei Gelegenheit einbauen, sieht echt viel besser aus! Danke dafür!

stayawayknight

xD für den Player wär eine "automatische Updatefunktion" hilfreich!

stayawayknight

jop das hab ich gerade auch rausgefunden
hab da mal was ich werds versuchen..
Dürft natürlich alle an dem Script machen was ihr wollt!

Edit: Verdammt, ich bekomms net hin

stayawayknight

Zitat von name22

Syntax Highlighting wäre vielleicht noch ganz nützlich .

Jaaa... das wäre doch noch ne gute Idee
Nur wie soll ich das anstllen... ber StringRegExp oder wie? mhm da muss ich mal suchen!

stayawayknight

naja sie leiten aber immernoch das Spiel und in zweifelhaften Situationen sollte dann der Video-Beweis zu Rate gezogen werden

stayawayknight

da schließ ich mich Ubuntu an...
außerdem sollte im Fußball der Videobeweis meiner Meinung nach eingeführt werden, wenn wir schon beim Schiedsrichter sind.

stayawayknight

habs in meinem Script davor drin

Inputs kannst du mit $dasstehtiminput = GUICTRLRead($input) auslesen

stayawayknight

zur besseren Übersicht hab ichs mal kurz umgewandelt:

#Edit: Achso ok er hats berichtigt

Du musst für jeden Befehl eine Zeile verwenden!

So:

Spoiler anzeigen

[autoit]

GuiCreate("WriteClient",654,422,714,213)
$button1=GuiCtrlCreateButton("Write",59,273,67,88)
$button2=GuiCtrlCreateButton("Send",146,273,68,20)
$date=GuiCtrlCreateInput("xx.xx.xxxx",117,90,64,20)
$uhr=GuiCtrlCreateInput("xx.xx Uhr",116,121,75,20)
$name=GuiCtrlCreateInput("Name",142,38,80,20)
$enemy=GuiCtrlCreateInput("Enemy",421,84,71,20)
$xnx=GuiCtrlCreateInput("XnX",420,119,80,20)
$srv=GuiCtrlCreateInput("Server",419,153,92,20)
$label1=GuiCtrlCreateLabel("Absender:",71,40,52,15)
$label2=GuiCtrlCreateLabel("Datum:",53,90,50,15)
$label3=GuiCtrlCreateLabel("Uhrzeit:",55,126,52,15)
$label4=GuiCtrlCreateLabel("Gegner",357,80,7,15)
$label5=GuiCtrlCreateLabel("X versus X?",339,121,68,15)
$label6=GuiCtrlCreateLabel("Servername",333,154,80,15)
GuiSetState(@SW_Show)
While 1
$msg=GuiGetMsg()
If $msg=-3 Then
Exit
ElseIf $msg=$button1 Then
button1()
ElseIf $msg=$button2 Then
button2()
EndIf
Wend

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func button1()
ShellExecute('notepad.exe','cw.txt')
sleep (300)
Send ("###########################")
Send ("{enter}")
Send ("Neuer War verfügbar")
Send ("{enter}")
Send ($date)
Send ("{enter}")
Send ($uhr)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func button2()
EndFunc

[/autoit]

stayawayknight

Zitat von oetzn

Statt bei kopieren STRG+C zu verwenden, würde ich Clipput() benutzen. Ist schöner und bei einfügen vl Clipget() und ControlSetText, oder GuiCtrlSetData, da es ja dein eigenes Control ist
und falls du trotzdem mit Send arbeiten möchtest, nimm lieber ControlSend

jap da hast du recht, nur ich hab keine Ahnung wie ich einen markierten Teil abfragen soll... Control Send werd ich auf alle Fälle mal einbauen

Hotkeys: Für das wichtigste hats die ja... für was könnte man noch welche brauchen? Bau ich dann ein.

#Edit: So das wär erledigt siehe Post Nr. 1

stayawayknight

da gibts hier im Forum ein gutes Tutorial... hoffentlich find ichs..
da isses:

[Tutorial] Login + Registrierung über eine MySql-DB [+ Hilfedateien]

stayawayknight

Hallo Alle,
ich habe einen HTML-Editor gebastelt, der es einem ermöglicht sein Script auch gleich als Site darstellen zu lassen. Außerdem gibt es noch weitere Hilfen,
Farbcode Tabellen und auch eine To-Do Liste die leicht aufgerufen werden können. Vielleicht kann das ja jemand gebrauchen.
Werde da auch weitermachen und den immer erweitern und verbessern. Kritik und Verbesserungsvorschläge sind erwünscht

Da ich selber oft etwas mit HTML mache, hab ich das mal gebastelt. Bietet alle möglichen Funktionen wie Drucken, etc.

Viel Spaß damit, vielleicht kann es ja jemand brauchen!
Braucht dringend den angehängten Ordner!

Code:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <GuiToolbar.au3>
#include <StaticConstants.au3>
#include <ToolbarConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GuiEdit.au3>
#include <IE.au3>
#include <INet.au3>
#include <GuiRichEdit.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

HotKeySet("^{a}", "allesmark")
HotKeySet("^{p}", "print")
HotKeySet("^!{c}", "check")
HotKeySet("{F1}", "hilfe")
HotKeySet("^{s}", "speichern")
HotKeySet("^{z}", "undo")

[/autoit] [autoit][/autoit] [autoit]

$ie = _IECreateEmbedded()
$savefile = 0
Dim $eingabetodo[100]
$counteingabetotdo = 0

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$form = GUICreate("Cody-der HTML-Editor", 1346, 691, 0, 10)
GUISetBkColor(0x0066CC)
$Logo = GUICtrlCreatePic(@ScriptDir & "\data\logo.jpg", 16, 15, 300, 150)
$Datei = GUICtrlCreateMenu("Datei")
$Oeffnen = GUICtrlCreateMenuItem("Öffnen", $Datei)
$Speichern = GUICtrlCreateMenuItem("Speichern", $Datei)
$SpeichernUnter = GUICtrlCreateMenuItem("Speichern Unter", $Datei)
$DruckenCode = GUICtrlCreateMenuItem("Code-Drucken", $Datei)
$DruckenSeite = GUICtrlCreateMenuItem("Seite-Drucken", $Datei)
$Beenden = GUICtrlCreateMenuItem("Beenden", $Datei)
$Bearbeiten = GUICtrlCreateMenu("Bearbeiten")
$Rueckgaengig = GUICtrlCreateMenuItem("Rückgängig", $Bearbeiten)
$Kopieren = GUICtrlCreateMenuItem("Kopieren", $Bearbeiten)
$Einfuegen = GUICtrlCreateMenuItem("Einfügen", $Bearbeiten)
$Ausschneiden = GUICtrlCreateMenuItem("Ausschneiden", $Bearbeiten)
$AllesMarkieren = GUICtrlCreateMenuItem("Alles markieren", $Bearbeiten)
$Tools = GUICtrlCreateMenu("Tools")
$HtmlFarben = GUICtrlCreateMenuItem("Html-Farben", $Tools)
$HtmlHilfe = GUICtrlCreateMenuItem("Html-Hilfe", $Tools)
$Quelltext = GUICtrlCreateMenuItem("Quelltextausleser", $Tools)
$ToDoList = GUICtrlCreateMenu("To-Do Liste")
$ToDoListeAufruf = GUICtrlCreateMenuItem("To-Do Liste aufrufen", $ToDoList)
$ToDoListeEingabe = GUICtrlCreateMenuItem("To-Do Liste/Punkte hinzufügen", $ToDoList)
$ToDoListeLoeschen = GUICtrlCreateMenuItem("To-Do Liste löschen", $ToDoList)
$Hilfe = GUICtrlCreateMenu("Hilfe")
$Hilfe1 = GUICtrlCreateMenuItem("Hilfe...", $Hilfe)
$explorer = GUICtrlCreateObj($ie, 16, 168, 625, 472)
$check = GUICtrlCreateButton("Zeige Code als Seite", 335, 60, 129, 33)
$Exitbutton = GUICtrlCreateButton("Exit", 485, 60, 129, 33)
$statusbar = _GUICtrlStatusBar_Create($form)
$Label1 = GUICtrlCreateLabel("HTML-FENSTER", 380, 130, 336, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("CODE-FENSTER", 913, 7, 190, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
_GUICtrlStatusBar_SetText($statusbar, "Cody-der HTML-Editor")
$main = GUICtrlCreateEdit("", 680, 40, 625, 600)
GUICtrlSetFont(-1, 10, 200, Default)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
_IENavigate($ie, @ScriptDir & "\data\tools\start.htm")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
exitf()

[/autoit] [autoit][/autoit] [autoit]

Case $check
check()

[/autoit] [autoit][/autoit] [autoit]

Case $Exitbutton
exitf()

[/autoit] [autoit][/autoit] [autoit]

Case $Oeffnen
$openfile = FileOpenDialog("Wähle die Datei die geöffnet werden soll", @ProgramFilesDir, "Websites (*.html; *.htm)")
$openfileread = FileRead($openfile)
GUICtrlSetData($main, "")
GUICtrlSetData($main, $openfileread)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $Speichern
speichern()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $SpeichernUnter
$savefile = FileSaveDialog("Bitte wähle das Speicherziel aus!", @ProgramFilesDir, "Website (*.html; *htm)")
FileWrite($savefile & ".html", GUICtrlRead($main))

[/autoit] [autoit][/autoit] [autoit]

Case $DruckenCode
print()

[/autoit] [autoit][/autoit] [autoit]

Case $DruckenSeite
printpage()

[/autoit] [autoit][/autoit] [autoit]

Case $Beenden
exitf()

[/autoit] [autoit][/autoit] [autoit]

Case $Rueckgaengig
undo()

[/autoit] [autoit][/autoit] [autoit]

Case $Kopieren
ControlSend("Cody-der HTML-Editor", "", $main, "^{c}")

[/autoit] [autoit][/autoit] [autoit]

Case $Einfuegen
ControlSend("Cody-der HTML-Editor", "", $main, "^{v}")

[/autoit] [autoit][/autoit] [autoit]

Case $Ausschneiden
ControlSend("Cody-der HTML-Editor", "", $main, "^{x}")

[/autoit] [autoit][/autoit] [autoit]

Case $AllesMarkieren
allesmark()

[/autoit] [autoit][/autoit] [autoit]

Case $Hilfe1
_IENavigate($ie, @ScriptDir & "\data\tools\start.htm")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $Quelltext
quelltext()

[/autoit] [autoit][/autoit] [autoit]

Case $HtmlFarben
_IENavigate($ie, @ScriptDir & "\data\tools\farben.html")

[/autoit] [autoit][/autoit] [autoit]

Case $HtmlHilfe
_IENavigate($ie, @ScriptDir & "\data\tools\hilfen.html")

[/autoit] [autoit][/autoit] [autoit]

Case $ToDoListeAufruf
todolisteaufruf()

[/autoit] [autoit][/autoit] [autoit]

Case $ToDoListeEingabe
todolisteeingabe()

[/autoit] [autoit][/autoit] [autoit]

Case $ToDoListeLoeschen
todolisteloeschen()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func hilfe()
_IENavigate($ie, @ScriptDir & "\data\tools\start.htm")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>hilfe

[/autoit] [autoit][/autoit] [autoit]

Func exitf()
_GUICtrlStatusBar_SetText($statusbar, "Beenden?")
$exitsavedialog = MsgBox(3, "Exit", "Willst du vor dem Beenden nicht lieber Speichern? Die ToDo-Liste, falls benutzt, wurde automatisch gespeichert!")
If $exitsavedialog = 2 Then
ElseIf $exitsavedialog = 7 Then
Exit
ElseIf $exitsavedialog = 6 Then
If Not $savefile = 0 Then
FileDelete($savefile)
FileWrite($savefile & ".html", GUICtrlRead($main))
MsgBox(0, "Erfolgreich", "Erfolgreich gespeichert! Auf Wiedersehen!")
Exit
Else
$savefile = FileSaveDialog("Bitte wähle das Speicherziel aus!", @ProgramFilesDir, "Website (*.html; *htm)")
FileWrite($savefile & ".html", GUICtrlRead($main))
Exit

[/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit] [autoit][/autoit] [autoit]

_GUICtrlStatusBar_SetText($statusbar, "Cody-der HTML-Editor")
EndFunc ;==>exitf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func print()
If WinActive("Cody-der HTML-Editor") Then
_GUICtrlStatusBar_SetText($statusbar, "Code drucken")
FileDelete(@DocumentsCommonDir & "\htmleditorprint.txt")
FileWrite(@DocumentsCommonDir & "\htmleditorprint.txt", GUICtrlRead($main))
Sleep(1000)
_FilePrint(@DocumentsCommonDir & "\htmleditorprint.txt", @SW_SHOW)
Sleep(2000)
MsgBox(0, "Drucken", "Code wird gedruckt!")
EndIf
_GUICtrlStatusBar_SetText($statusbar, "Cody-der HTML-Editor")
EndFunc ;==>print

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func printpage()

[/autoit] [autoit][/autoit] [autoit]

_GUICtrlStatusBar_SetText($statusbar, "Seite drucken")
FileDelete(@DocumentsCommonDir & "\htmleditorquicksave.html")
FileWrite(@DocumentsCommonDir & "\htmleditorquicksave.html", GUICtrlRead($main))
_IENavigate($ie, @DocumentsCommonDir & "\htmleditorquicksave.html")
_IEAction($ie, "Print")
Sleep(2000)
MsgBox(0, "Drucken", "Seite wird gedruckt!")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_GUICtrlStatusBar_SetText($statusbar,
"Cody-der HTML-Editor")
EndFunc ;==>printpage

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func allesmark()
_GUICtrlEdit_SetSel($main, 0, -1)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>allesmark

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func check()
FileDelete(@DocumentsCommonDir & "\htmleditorquicksave.html")
FileWrite(@DocumentsCommonDir & "\htmleditorquicksave.html", GUICtrlRead($main))
_IENavigate($ie, @DocumentsCommonDir & "\htmleditorquicksave.html")
ControlClick("", "", $main)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>check

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func quelltext()
$urlquelltext = InputBox("URl", "Gib die URL-Adresse der Website ein, deren Quelltext du auslesen möchtest! Der Quelltext überschreibt den aktuellen Code im linken Fenster!")
$urlquelltext = "http://" & StringReplace($urlquelltext, "http://", "")
ConsoleWrite("QuellText: " & $urlquelltext & @CRLF)
$quelltextsource = _INetGetSource($urlquelltext)
GUICtrlSetData($main, $quelltextsource)
EndFunc ;==>quelltext

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func todolisteeingabe()
MsgBox(0, "Punkte hinzufügen", "Gib bitte in den folgenden Boxen die Punkte ein, die du der Liste hinzufügen möchtest! Hast du alle Punkte eingegeben, drücke auf Cancel!")
If Not FileReadLine(@ScriptDir & "\data\tools\todo.html", 1) = "To-Do Liste " Then
FileWrite(@ScriptDir & "\data\tools\todo.html", "To-Do Liste ")
EndIf

[/autoit] [autoit][/autoit] [autoit]

While 1

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$eingabetodo[$counteingabetotdo] = InputBox("Eingabe", "Gib einen Todo-Punkt ein!")
If Not @error = 1 Then
FileWrite(@ScriptDir & "\data\tools\todo.html", $eingabetodo[$counteingabetotdo] & "")
_IENavigate($ie, @ScriptDir & "\data\tools\todo.html")
$counteingabetotdo = $counteingabetotdo + 1
Else
ExitLoop
EndIf
WEnd
EndFunc ;==>todolisteeingabe

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func todolisteaufruf()
If FileExists(@ScriptDir & "\data\tools\todo.html") Then
_IENavigate($ie, @ScriptDir & "\data\tools\todo.html")
Else
MsgBox(14, "Nicht vorhanden", "Du hast noch keine To-Do Liste angelegt!")
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>todolisteaufruf

[/autoit] [autoit][/autoit] [autoit]

Func todolisteloeschen()
$choicetodelete = MsgBox(4, "Bestätigen", "Möchtest du die To-Do Liste wirklich löschen?")
If $choicetodelete = 6 Then

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\data\tools\todo.html") Then
FileDelete(@ScriptDir & "\data\tools\todo.html")
MsgBox(0, "Erfolgreich gelöscht", "Die To-Do Liste wurde erfolgreich gelöscht!")
_IENavigate($ie, "about:blank")
Else
MsgBox(14, "Nicht vorhanden", "Du hast noch keine To-Do Liste angelegt!")
EndIf
Else

[/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>todolisteloeschen

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func speichern()
If Not $savefile = 0 Then
FileDelete($savefile)
FileWrite($savefile & ".html", GUICtrlRead($main))
Else
$savefile = FileSaveDialog("Bitte wähle das Speicherziel aus!", @ProgramFilesDir, "Website (*.html; *htm)")
FileWrite($savefile & ".html", GUICtrlRead($main))
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>speichern

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func undo()
_GUICtrlEdit_Undo($main)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>undo

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

#Edit 1: Weitere Hotkeys hinzugefügt, Send durch ConrtolSend ersetzt!

#Edit 2: Wieder neue Version! Neues Bild eingefügt (erstellt von "Reaker"), dank "AutoBert" den "Quelltextausleser" verbessert, bzw. korrigiert und noch mehr Hotkeys!

#Edit3: Wieder neue Version hochgeladen, diesmal Printfuntkion berichtigt (dank "Ahnungslos")

Beiträge von stayawayknight

[Beispiel] Internetbrowser mit Ladebalken

[Beispiel] Internetbrowser mit Ladebalken

Command Befehle abfangen?

HTML - Editor mit "Show-Funktion"

Command Befehle abfangen?

HTML - Editor mit "Show-Funktion"

Ärger mit dem Drucker :(

Wie sieht euer Desktop aus?

HTML - Editor mit "Show-Funktion"

HTML - Editor mit "Show-Funktion"

SEP, SoundEffektPlayer

HTML - Editor mit "Show-Funktion"

HTML - Editor mit "Show-Funktion"

ChampionsLeage Finale-Wer gewinnt?

ChampionsLeage Finale-Wer gewinnt?

Wert aus InputBox wird nicht übernommen..

Wert aus InputBox wird nicht übernommen..

HTML - Editor mit "Show-Funktion"

MySQL

HTML - Editor mit "Show-Funktion"