[autoit]
Func OnAutoItExit()
FileDelete(....)
EndFunc
Diese Funktion wird automatisch aufgerufen, wenn das Script geschlossen wird.
Func OnAutoItExit()
FileDelete(....)
EndFunc
Diese Funktion wird automatisch aufgerufen, wenn das Script geschlossen wird.
überschreiben würd ich mit _FileWriteToLine($file, $line, $text, 1) machen.
Natürlich $file $line und $text noch anpassen, habe es nur als Beispiel benutzt. 1 Steht für "überschreiben", ohne die würde es nur eine Zeile dazwischen fügen. #include <File.au3> noch, fals du noch nicht hast.
#include <File.au3>
$file = "blubb.txt"
$wort = "Scope (\_tz)"
$openfile = FileOpen($file, 0)
For $i = 1 To _FileCountLines($file)
$readline = FileReadLine($openfile, $i)
If StringInStr($readline, $wort) Then
MsgBox(0, "", "Die Zeile, in der " & $wort & " steht, lautet: " & $i)
Exit
EndIf
Next
MsgBox(0, "", $wort & " ist leider nicht in der Datei vorhanden.")
#include <FTP.au3>
[/autoit] [autoit][/autoit] [autoit]$datei = FileOpenDialog("", "", "Alle Dateien (*.*)")
If $datei = "" Then Exit ; wenn fileopendialog einfach geschlossen wurde oder abbrechen gedrückt wurde
$dateiname = StringSplit($datei, "\") ;mit \ splitten, damit ich aus dem pfad den dateinamen herausbekomme
$endung = $dateiname[0]
;~ MsgBox(0, "", $dateiname[0]) ;Dateiname anschauen
$server = "serv.de"
$username = "xxx"
$pass = "xxx"
$servfolder = "" ;wohin es aufm serv gelegt werden soll
$dll = DllOpen('wininet.dll')
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass, 21)
$Ftpp = _FtpPutFile($Conn, $datei, $servfolder & $dateiname[$endung])
$Ftpc = _FTPClose($Open)
DllClose($dll)
Habs dir jetzt mit FileOpenDialog geschrieben, weil eine Inputbox dazu irgendwie nicht geeignet ist, finde ich zumindest^^.
Die Angehängte FTP.au3 in C:\Programme\AutoIt3\Include packen, oder wo auch immer du AutoIt hin installiert hast.
Stop ist glaube ich im OnEventMode garnicht so leicht realisierbar
Damit kannst du eine Schleife verlassen.
Wenn du überprüfen willst, ob eine taste gedrückt wurde dann brauchst du eine schleife.
[autoit]#include <misc.au3>
[/autoit][autoit][/autoit][autoit]while 1
If _IsPressed("01") Then _pressed()
sleep(100)
WEnd
Func _pressed()
MsgBox (0,"TEST","angekommen")
EndFunc
// sorry
Naja, ist ja nun auch egal ob mit Diagonale oder ohne. Ich würde es so wie Oscar in seinem Beitrag weiter oben beschrieben hat, realisieren.
So vielleicht:
Kann halt keine Sonderzeichen, aber naja xD.
$file = @DesktopDir & "\test.txt"
$fileopen = FileOpen($file, 2)
$line = 0
_write()
[/autoit] [autoit][/autoit] [autoit]func _write()
For $i = 1 To 24
If $line = 12 then Exit
$random = Random(1, 3, 1)
If $random = 1 Then
$zahlen = Random(0, 9, 1)
FileWrite($fileopen, $zahlen)
ElseIf $random = 2 Then
$buchstb1 = Chr(Random(Asc("a"), Asc("z"), 1))
FileWrite($fileopen, $buchstb1)
ElseIf $random = 3 Then
$buchstb2 = Chr(Random(Asc("A"), Asc("Z"), 1))
FileWrite($fileopen, $buchstb2)
EndIf
If $i = 24 then
FileWrite($fileopen, @CRLF)
$line += 1
_write()
EndIf
Next
EndFunc
Mit deiner GUI verstehe ich nid ganz, was du vor hast ^^.
Edit: Vielleicht für deine GUI so:
#include <GUIConstants.au3>
$line = 0
$string = ""
$Test = GUICreate("Test", 578, 388, 193, 125)
$Group1 = GUICtrlCreateGroup("24 x 12", 16, 48, 545, 321)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$List = GUICtrlCreateList("", 28, 65, 520, 300)
$Input1 = GUICtrlCreateInput("Name", 56, 16, 145, 21)
$Name = GUICtrlCreateLabel("Name", 16, 16, 38, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Passwort = GUICtrlCreateLabel("Passwort", 216, 16, 66, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Input2 = GUICtrlCreateInput("Passwort", 288, 16, 129, 21)
$OK = GUICtrlCreateButton("OK", 432, 16, 129, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $OK
_write()
EndSwitch
WEnd
Func _write()
For $i = 1 To 24
If $line = 12 Then
GUICtrlSetData($List, $string)
Return
EndIf
$random = Random(1, 3, 1)
If $random = 1 Then
$zahlen = Random(0, 9, 1)
$string &= $zahlen
ElseIf $random = 2 Then
$buchstb1 = Chr(Random(Asc("a"), Asc("z"), 1))
$string &= $buchstb1
ElseIf $random = 3 Then
$buchstb2 = Chr(Random(Asc("A"), Asc("Z"), 1))
$string &= $buchstb2
EndIf
If $i = 24 Then
$string &= "|"
$line += 1
_write()
EndIf
Next
EndFunc ;==>_write
Kommt drauf an was du vor hast, kannst auch eine for next schleife benutzen.
Hi, versuchs mal so:
[autoit]$file = FileOpen("HP.xml", 1)
[/autoit][autoit][/autoit][autoit]; Check if file opened for writing OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
$test= "wert1"
[/autoit][autoit][/autoit][autoit]FileWrite($file, '<?xml version="1.0"?>' & @CRLF & "Hallo " & $test)
[/autoit][autoit][/autoit][autoit]FileClose($file)
[/autoit]Zu 1: Wenn " schon im Inhalt vorkommt, dann benutz als Abgrenzung nicht " sondern ', da sonst der Editor nicht genau weiss, wo der String endet.
Zu 2: Text und Variable müssen mit einem & "zusammengefügt" werden. Also "test" & $test.
@CRLF steht für Zeilenumbruch.
Ich hab das als Brettspiel, habe mal ebend reingeschaut und so stehts da drin ;). Ich habs auch immer so gespielt, müsste eig auch so gängig sein.
Genau, so sind glaube ich auch die Regeln. An den Ecken, also "diagonal" dürfen sie sich berühren.
Fast so gut wie http://augenkrebs.de.vu/
Lustig, aber den sleep noch etwas runterschrauben
Versuchs mal so:
[autoit]GUICtrlCreatePic(........)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetBkColor($treeview, $GUI_BKCOLOR_TRANSPARENT)
Ein Fenster kann man mit WinSetTrans Transparent machen, fals du das meinst ;).
Kann man halt nur das Fenster transparent setzen und nicht nur den Treeview.
Naja, also ich finde die Taktik eigentlich etwas doof Schiffe nebeneinander zu plazieren verdirbt meines erachtens einfach den Spielspaß. Aber ich hör mal auf zu kritisieren *g*, weil ich ja nichtmal ein eigenes Spiel code ^^.
Da stimme ich pee vollkommen zu.
Ich hab dir jetzt noch ein Beispiel geschrieben, aber du solltest wirklich mal selbst etwas rumprobieren. Ein geschlossenes Bot-Coding Forum gibts auch noch, fals es wiedereinmal in die Richtung geht...
#include <GuiConstants.au3>
Opt("GUIOnEventMode", 1)
GUICreate("TEST", 500, 500)
GUICtrlCreateLabel("Taste:", 10, 13)
$combo = GUICtrlCreateCombo("F1", 50, 10, 200, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|F12")
$button = GUICtrlCreateButton("uebernehmen", 10, 200)
GUISetState(@SW_SHOW)
GUICtrlSetOnEvent($button, "_button")
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(100)
WEnd
Func _button()
$comboread = GUICtrlRead($combo)
MsgBox(0, "", "Die Taste " & $comboread & " wurde als Hotkey bestimmt. Drücken sie OK und anschließend " & $comboread)
$comboread = "{" & $comboread & "}"
HotKeySet($comboread, "_hotkey")
EndFunc ;==>_button
Func _hotkey()
MsgBox(0, "", "Funktioniert :)")
EndFunc ;==>_hotkey