Log hilfe

NonStop

ich versuche gerade das wenn das log existiert er das script weiterführt damit er daraus liest und wenn nicht dass er dann das hier macht:

Spoiler anzeigen

[autoit]

#include <file.au3>

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

$logtest=@ScriptDir & '\send.log'
$logPath = @ScriptDir & '\send.log'
$sLogMsg1=("Hier den Text für F1 eingeben")
$sLogMsg2=("Hier den Text für F2 eingeben")
$sLogMsg3=("Hier den Text für F3 eingeben")
$sLogMsg4=("Hier den Text für F4 eingeben")
$sLogMsg5=("Hier den Text für F5 eingeben")
if $logtest= False Then _FileWriteLog($logPath,$sLogMsg1)
if $logtest= False then _FileWriteLog($logPath,$sLogMsg2)
if $logtest= False then _FileWriteLog($logPath,$sLogMsg3)
if $logtest= False then _FileWriteLog($logPath,$sLogMsg4)
if $logtest= False then _FileWriteLog($logPath,$sLogMsg5)

[/autoit]

**bernd670**

Hallo,
kannst Du deine Frage so formulieren das man versteht was Du willst!

NonStop

script soll schauen log da?
wenn nein dann das machen was im spoiler steht
wenn ja script weiterführen^^

und wie krieg ich beim logschreiben die zeiten weg
bzw kann das log öffnen ohne das in der ausgabe 2007-08-01 22:54:18 erscheint^^

Mfg Non

**BugFix**

Zitat

Original von NonStop
und wie krieg ich beim logschreiben die zeiten weg
bzw kann das log öffnen ohne das in der ausgabe 2007-08-01 22:54:18 erscheint^^

Mfg Non

Das ist ja der Sinn eines Logs, dass die Zeiten protokolliert werden.

Wenn du das nicht möchtest, kannst du dir eine eigene Logfunktion schreiben, ohne Angabe der Zeit.
Stichwort: FileWriteLine

NonStop

ok^^
eig woltle ich es so haben das das script einen text speichert und beim nächsten öffnen der text wieder im gui steht und man ihn verändern kann^^
naja bei der filewriteline funktion häge ich gerade

[autoit]

if $msg[0] = $Savebut then FileWrite($logPath, $F1Send) ;soll line 1
if $msg[0] = $Savebut then FileWrite($logPath, $F2Send) ;soll line 2
if $msg[0] = $Savebut then FileWrite($logPath, $F3Send) ;soll line 3
if $msg[0] = $Savebut then FileWrite($logPath, $F4Send) ;soll line 4
if $msg[0] = $Savebut then FileWrite($logPath, $F5Send) ;soll line 5

[/autoit]

wie kann ich das in die linien bekommen

**GtaSpider**

Hallo

[autoit]

if $msg[0] = $Savebut then FileWriteLine($logPath, $F1Send) ;soll line 1
if $msg[0] = $Savebut then FileWriteLine($logPath, $F2Send) ;soll line 2
if $msg[0] = $Savebut then FileWriteLine($logPath, $F3Send) ;soll line 3
if $msg[0] = $Savebut then FileWriteLine($logPath, $F4Send) ;soll line 4
if $msg[0] = $Savebut then FileWriteLine($logPath, $F5Send) ;soll line 5

[/autoit]

FileWriteLine hängt immer eine Zeile am Text an. (Sozusagen das gleiche wie FileWrite($logPath,@CRLF&"Text"))

Mfg spider

NonStop

[autoit]

if $msg[0] = $Savebut then FileWrite($logPath, $F1Send& @CRLF)
if $msg[0] = $Savebut then FileWrite($logPath, $F2Send& @CRLF)
if $msg[0] = $Savebut then FileWrite($logPath, $F3Send& @CRLF)
if $msg[0] = $Savebut then FileWrite($logPath, $F4Send& @CRLF)
if $msg[0] = $Savebut then FileWrite($logPath, $F5Send& @CRLF)

[/autoit]

so klappts^^

leide rklappt der teil nochnicht dann wärs perfekt^^

[autoit]

$logtest=@ScriptDir & '\send.log'
$sLogMsg1=("Hier den Text für F1 eingeben")
$sLogMsg2=("Hier den Text für F2 eingeben")
$sLogMsg3=("Hier den Text für F3 eingeben")
$sLogMsg4=("Hier den Text für F4 eingeben")
$sLogMsg5=("Hier den Text für F5 eingeben")

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

if $logtest= False Then FileWriteLine($logPath,$sLogMsg1&@CRLF)
if $logtest= False then FileWriteline($logPath,$sLogMsg2&@CRLF)
if $logtest= False then FileWriteLine($logPath,$sLogMsg3&@CRLF)
if $logtest= False then FileWriteLine($logPath,$sLogMsg4&@CRLF)
if $logtest= False then FileWriteLine($logPath,$sLogMsg5&@CRLF)

[/autoit]

der teil soll bewirken falls keine txt datei da ist er diese erstellt und text eingibt^^

teh_hahn

Formulier doch mal klar, was Du möchtest! Und poste mal anständig Code, damit kann man ja überhaupt nichts anfangen!

Schau Dir mal folgendes an:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

Opt("MustDeclareVars", 1)

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

Local Const $S_LOGFILE = @ScriptDir & '\send.log'
Local $a_logmsg[5] = ["Hier den Text für F1 eingeben", "Hier den Text für F2 eingeben", _
"Hier den Text für F3 eingeben", "Hier den Text für F4 eingeben", "Hier den Text für F5 eingeben"]
Local $a_msg = -1
Local $h_maingui = -1
Local $h_savebt = -1
Local $h_file = -1

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

$h_maingui = GUICreate("Log Test", 320, 240)
$h_savebt = GUICtrlCreateButton("&Save", 10, 10)

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

GUISetState(@SW_SHOW, $h_maingui)

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

If FileExists($S_LOGFILE) == 1 Then
;~ Hier der Teil, falls die Logdatei existiert!
Else
;~ Hier der Teil, falls die Logdatei nicht existiert!
While 1
$a_msg = GUIGetMsg(1)
Select
Case $a_msg[0] == $GUI_EVENT_CLOSE
ExitLoop 1
Case $a_msg[0] == $h_savebt
$h_file = FileOpen($S_LOGFILE, 1)
If $h_file <> -1 Then
For $i = 0 To UBound($a_logmsg) - 1 Step 1
FileWriteLine($h_file, $a_logmsg[$i])
Next
EndIf
FileClose($h_file)
MsgBox(64, "Please note", "The Logfile " & $S_LOGFILE & " has changed!")
EndSelect
WEnd
EndIf
Exit (0)

[/autoit]

NonStop

was sind den anständige codes
gibt es einen trick das die so werden^^

teh_hahn

omfg. Das ist jetzt nicht ernst gemeint, oder? Ich meine Deinen Source-Code! Mit so schnipseln kann man wenig anfangen. oder zumindest ein anschauliches Beispiel!
Und damit es wenigstens ordentlich ausschaut, benutzt Du am Besten vor dem posten immer TidyAutoIt (In SciTE: CTRL + T).

NonStop

ok wusste ich nciht werde ich mir merken

NonStop

Alles Perfekt nur das schließen nciht funzt ich finde den fehler heute nichtmehr^^
geh jetzt schlafen vl findet einer von euch den

Mfg Non

Spoiler anzeigen

[autoit]

#include <file.au3>

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

$logtest = @ScriptDir & '\send.log'

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

$sLogMsg1 = ("Hier den Text für F1 eingeben")
$sLogMsg2 = ("Hier den Text für F2 eingeben")
$sLogMsg3 = ("Hier den Text für F3 eingeben")
$sLogMsg4 = ("Hier den Text für F4 eingeben")
$sLogMsg5 = ("Hier den Text für F5 eingeben")

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

$LogF1 = FileReadLine(@ScriptDir & '\send.log', 1)
$LogF2 = FileReadLine(@ScriptDir & '\send.log', 2)
$LogF3 = FileReadLine(@ScriptDir & '\send.log', 3)
$LogF4 = FileReadLine(@ScriptDir & '\send.log', 4)
$LogF5 = FileReadLine(@ScriptDir & '\send.log', 5)
If FileExists($logtest) == 1 Then

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

;start
HotKeySet("{f1}", "Senden1")
HotKeySet("{f2}", "Senden2")
HotKeySet("{f3}", "Senden3")
HotKeySet("{f4}", "Senden4")
HotKeySet("{f5}", "Senden5")

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

#include <GUIConstants.au3>

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

$Form1 = GUICreate("SRO Spammer by NonStop | ©NonStop", 634, 320, 193, 115)
$Label1 = GUICtrlCreateLabel("Dies ist die erste Version des SROspammers von NonStop Für fragen oder Updates über cn-g.de oder botted.de(z.Z offline) an NonStop wenden ©NonStop.", 56, 16, 507, 41)
$F1 = GUICtrlCreateInput($LogF1, 56, 113, 505, 21)
;GUICtrlCreateCheckbox("AutoSpam",25,114,17,17)
$F2 = GUICtrlCreateInput($LogF2, 56, 143, 505, 21)
$F3 = GUICtrlCreateInput($LogF3, 56, 170, 505, 21)
$F4 = GUICtrlCreateInput($LogF4, 56, 201, 505, 21)
$F5 = GUICtrlCreateInput($LogF5, 56, 232, 505, 21)
$Label4 = GUICtrlCreateLabel("F3", 40, 172, 13, 17)
$Label5 = GUICtrlCreateLabel("F4", 40, 205, 13, 17)
$Label6 = GUICtrlCreateLabel("F5", 40, 236, 13, 17)
$Label7 = GUICtrlCreateLabel("F1", 40, 114, 13, 17)
$Label8 = GUICtrlCreateLabel("F2", 40, 141, 13, 17)
$Savebut = GUICtrlCreateButton("Save", 568, 118, 57, 130, 0)

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

GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg(1)
$F1Send = GUICtrlRead($F1)
$F2Send = GUICtrlRead($F2)
$F3Send = GUICtrlRead($F3)
$F4Send = GUICtrlRead($F4)
$F5Send = GUICtrlRead($F5)
If $Msg[0] = $GUI_EVENT_CLOSE Then Exit
If $Msg[0] = $Savebut Then $logPath = FileOpen(@ScriptDir & '\send.log', 2)
If $Msg[0] = $Savebut Then MsgBox(0, "", "es funzt -.-")
If $Msg[0] = $Savebut Then FileWrite($logPath, $F1Send & @CRLF)
If $Msg[0] = $Savebut Then FileWrite($logPath, $F2Send & @CRLF)
If $Msg[0] = $Savebut Then FileWrite($logPath, $F3Send & @CRLF)
If $Msg[0] = $Savebut Then FileWrite($logPath, $F4Send & @CRLF)
If $Msg[0] = $Savebut Then FileWrite($logPath, $F5Send & @CRLF)

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

WEnd
Else
FileWrite($logtest, $sLogMsg1 & @CRLF)
FileWrite($logtest, $sLogMsg2 & @CRLF)
FileWrite($logtest, $sLogMsg3 & @CRLF)
FileWrite($logtest, $sLogMsg4 & @CRLF)
FileWrite($logtest, $sLogMsg5 & @CRLF)

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

$LogF1 = FileReadLine(@ScriptDir & '\send.log', 1)
$LogF2 = FileReadLine(@ScriptDir & '\send.log', 2)
$LogF3 = FileReadLine(@ScriptDir & '\send.log', 3)
$LogF4 = FileReadLine(@ScriptDir & '\send.log', 4)
$LogF5 = FileReadLine(@ScriptDir & '\send.log', 5)

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

HotKeySet("{f1}", "Senden1")
HotKeySet("{f2}", "Senden2")
HotKeySet("{f3}", "Senden3")
HotKeySet("{f4}", "Senden4")
HotKeySet("{f5}", "Senden5")

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

#include <GUIConstants.au3>

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

$Form1 = GUICreate("SRO Spammer by NonStop | ©NonStop", 634, 320, 193, 115)
$Label1 = GUICtrlCreateLabel("Dies ist die erste Version des SROspammers von NonStop Für fragen oder Updates über cn-g.de oder botted.de(z.Z offline) an NonStop wenden ©NonStop.", 56, 16, 507, 41)
$F1 = GUICtrlCreateInput($LogF1, 56, 113, 505, 21)
;GUICtrlCreateCheckbox("AutoSpam",25,114,17,17)
$F2 = GUICtrlCreateInput($LogF2, 56, 143, 505, 21)
$F3 = GUICtrlCreateInput($LogF3, 56, 170, 505, 21)
$F4 = GUICtrlCreateInput($LogF4, 56, 201, 505, 21)
$F5 = GUICtrlCreateInput($LogF5, 56, 232, 505, 21)
$Label4 = GUICtrlCreateLabel("F3", 40, 172, 13, 17)
$Label5 = GUICtrlCreateLabel("F4", 40, 205, 13, 17)
$Label6 = GUICtrlCreateLabel("F5", 40, 236, 13, 17)
$Label7 = GUICtrlCreateLabel("F1", 40, 114, 13, 17)
$Label8 = GUICtrlCreateLabel("F2", 40, 141, 13, 17)
$Savebut = GUICtrlCreateButton("Save", 568, 118, 57, 130, 0)

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

GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg(1)
$F1Send = GUICtrlRead($F1)
$F2Send = GUICtrlRead($F2)
$F3Send = GUICtrlRead($F3)
$F4Send = GUICtrlRead($F4)
$F5Send = GUICtrlRead($F5)
If $Msg[0] = $GUI_EVENT_CLOSE Then Exit
If $Msg[0] = $Savebut Then $logPath = FileOpen(@ScriptDir & '\send.log', 2)
If $Msg[0] = $Savebut Then MsgBox(0, "", "es funzt -.-")
If $Msg[0] = $Savebut Then FileWrite($logPath, $F1Send & @CRLF)
If $Msg[0] = $Savebut Then FileWrite($logPath, $F2Send & @CRLF)
If $Msg[0] = $Savebut Then FileWrite($logPath, $F3Send & @CRLF)
If $Msg[0] = $Savebut Then FileWrite($logPath, $F4Send & @CRLF)
If $Msg[0] = $Savebut Then FileWrite($logPath, $F5Send & @CRLF)

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

WEnd
EndIf

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

Func Senden1()
Send($F1Send)
Sleep(100)
Send("{ENTER}")
EndFunc ;==>Senden1

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

Func Senden2()
Send($F2Send)
Sleep(100)
Send("{ENTER}")
EndFunc ;==>Senden2

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

Func Senden3()
Send($F3Send)
Sleep(100)
Send("{ENTER}")
EndFunc ;==>Senden3

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

Func Senden4()
Send($F4Send)
Sleep(100)
Send("{ENTER}")
EndFunc ;==>Senden4

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

Func Senden5()
Send($F5Send)
Sleep(100)
Send("{ENTER}")
EndFunc ;==>Senden5

[/autoit]

Ps: gn8

leviathan

[autoit]

If $Msg[0] = $GUI_EVENT_CLOSE AND $Msg[1] = $Form1 Then Exit
If $Msg[0] = $Savebut AND $Msg[1] = $Form1 Then $logPath = FileOpen(@ScriptDir & '\send.log', 2)
If $Msg[0] = $Savebut AND $Msg[1] = $Form1 Then MsgBox(0, "", "es funzt -.-")
If $Msg[0] = $Savebut AND $Msg[1] = $Form1 Then FileWrite($logPath, $F1Send & @CRLF)
If $Msg[0] = $Savebut AND $Msg[1] = $Form1 Then FileWrite($logPath, $F2Send & @CRLF)
If $Msg[0] = $Savebut AND $Msg[1] = $Form1 Then FileWrite($logPath, $F3Send & @CRLF)
If $Msg[0] = $Savebut AND $Msg[1] = $Form1 Then FileWrite($logPath, $F4Send & @CRLF)
If $Msg[0] = $Savebut AND $Msg[1] = $Form1 Then FileWrite($logPath, $F5Send & @CRLF)

[/autoit]

probier mal so wenn du GUIGetMsg(1) hast
komischer Code jedenfalls den du da hast

NonStop

danke aber was ist daran so komisch

**bernd670**

Hallo,

komisch wohl deshalb weil die vielen IF's den Code unübersichtlich machen,
ich z.B. würden das in etwa so:

[autoit]

If $Msg[0] = $GUI_EVENT_CLOSE AND $Msg[1] = $Form1 Then Exit

If $Msg[0] = $Savebut AND $Msg[1] = $Form1 Then
$logPath = FileOpen(@ScriptDir & '\send.log', 2)
MsgBox(0, "", "es funzt -.-")
FileWrite($logPath, $F1Send & @CRLF)
FileWrite($logPath, $F2Send & @CRLF)
FileWrite($logPath, $F3Send & @CRLF)
FileWrite($logPath, $F4Send & @CRLF)
FileWrite($logPath, $F5Send & @CRLF)
EndIf

[/autoit]

oder so:

[autoit]

Switch $Msg[1]

Case $Form1
Switch $Msg[0]

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

Case $GUI_EVENT_CLOSE
Exit

Case $Savebut
$logPath = FileOpen(@ScriptDir & '\send.log', 2)
MsgBox(0, "", "es funzt -.-")
FileWrite($logPath, $F1Send & @CRLF)
FileWrite($logPath, $F2Send & @CRLF)
FileWrite($logPath, $F3Send & @CRLF)
FileWrite($logPath, $F4Send & @CRLF)
FileWrite($logPath, $F5Send & @CRLF)

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

EndSwitch ;==> $Msg[0]
EndSwitch ;==> $Msg[1]

[/autoit]

lösen!