Beiträge von Cartan12

  • Server Log per Ping erstellen

    Zur Not gehts so:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    #NoTrayIcon

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

    serveroff_log ()

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

    Func serveroff_log ()
    While 1
    $ping1 = ping ("IP_XY", 200)
    If $ping1 = 0 And $mode1 = 0 Then
    _FileWriteLog (@ScriptDir & "\testlog.log", "Server1 offline")
    $mode1 = 1
    ElseIf $ping1 = 1 And $mode1 = 1 Then
    _FileWriteLog (@ScriptDir & "\testlog.log", "Server online")
    $mode1 = 0
    EndIf
    $ping2 = ping ("IP_XY", 200)
    If $ping2 = 0 And $mode2 = 0 Then
    _FileWriteLog (@ScriptDir & "\testlog.log", "Server1 offline")
    $mode2 = 1
    ElseIf $ping2 = 1 And $mode2 = 1 Then
    _FileWriteLog (@ScriptDir & "\testlog.log", "Server online")
    $mode2 = 0
    EndIf
    $ping3 = ping ("IP_XY", 200)
    If $ping3 = 0 And $mode3 = 0 Then
    _FileWriteLog (@ScriptDir & "\testlog.log", "Server1 offline")
    $mode3 = 1
    ElseIf $ping3 = 1 And $mode3 = 1 Then
    _FileWriteLog (@ScriptDir & "\testlog.log", "Server online")
    $mode3 = 0
    EndIf
    $ping4 = ping ("IP_XY", 200)
    If $ping4 = 0 And $mode4 = 0 Then
    _FileWriteLog (@ScriptDir & "\testlog.log", "Server1 offline")
    $mode4 = 1
    ElseIf $ping4 = 1 And $mode4 = 1 Then
    _FileWriteLog (@ScriptDir & "\testlog.log", "Server online")
    $mode4 = 0
    EndIf
    sleep (500)
    WEnd
    EndFunc

    [/autoit]

  • Kommunikation zwischen 2 Scripten

    Super Tut

    Zitat von eukalyptus

    Eigentlich werden bei beiden Beispielen nur Strings übertragen.
    Um nun tatsächlich Variablen zu senden, könnte man mit DllStructCreate ein Struct erstellen und den Pointer mit oben genannten Methoden verschicken...
    Bei Bedarf kann ich auch hierfür ein Beispielscript schreiben!

    Bei mir ist Bedarf vorhanden :rolleyes:

  • steam g15 bot

    lol, einfach

    [autoit]

    While 1
    While Not Winexists("Day of Defeat Source")
    sleep(10)
    Wend
    Run("C:\ssh\putty.exe","",@SW_HIDE)
    While Processexists("Name.exe") ;Name der Exe-Datei von Dod einfügen
    Sleep(10)
    Wend
    Processclose("putty.exe")
    Wend

    [/autoit]

  • steam g15 bot

    [autoit]

    If WinActive("Day of Defeat Source") Then
    sleep(100)
    RunWait("C:\ssh\putty.exe","",@SW_HIDE)

    [/autoit]

    Startet meines WIssens nach das Programm dauernd, solange DoD aktiv ist...
    edit: Daher kommt wohl auch die hohe CPU auslastung

  • steam g15 bot

    So, jetzt aber (du darfst kein EndLoop in der ersten If-Abrage haben, sonst wird das Script direkt beendet...)

    [autoit]

    While not winactive("Day of Defeat Source")
    sleep(100)
    wend
    While 1
    If WinActive("Day of Defeat Source") Then
    sleep(100)
    RunWait("C:\ssh\putty.exe","",@SW_HIDE)
    Else
    WinClose("PuTTY Configuration")
    EndIf
    Sleep(10)
    WEnd

    [/autoit]

  • steam g15 bot

    [autoit]


    While not winactive("Day of Defeat Source")
    sleep(100)
    wend
    While 1
    If WinActive("Day of Defeat Source") Then
    sleep(100)
    RunWait("C:\ssh\putty.exe","",@SW_HIDE)
    ExitLoop
    EndIf
    sleep(10)
    If Not WinActive("Day of Defeat Source") Then
    WinClose("PuTTY Configuration")
    EndIf
    WEnd

    [/autoit]

    Muss auch in die While-Schleife rein :rolleyes:
    edit: Upps... Fehler behoben :rolleyes:

  • steam g15 bot

    [autoit]

    WinActivate

    [/autoit]

    holt ein Fenster in den Fordergrund, kann also kaum scheitern (außer das Fenster existiert nicht).
    Du musst

    [autoit]

    WinActive

    [/autoit]

    benutzen

  • steam g15 bot

    Machs besser so:

    [autoit]

    While not winactive("Day of Defeat Source")
    sleep(100)
    wend
    While 1
    If WinActive("Day of Defeat Source") Then
    sleep(100)
    RunWait("C:\ssh\putty.exe","",@SW_HIDE)
    Else
    ProcessClose("putty.exe")
    ExitLoop
    EndIf
    sleep(10)
    WEnd
    MsgBox(0,"Dod","Dod = Aus ^^")
    Exit

    [/autoit]


    Nochmal überarbeitet...
    Du könntest auch ProcessExists benutzen

  • steam g15 bot

    Also, ich würd erstmal das Wort "bot" streichen...
    So, Das Problem ist (wahrscheinlich), dass du ein Sleep vergessen hast
    jetzt sollte es besser gehen

    edit: Ne doch nicht...
    Was soll das mit While 2?
    While prüft, ob eine Bedingung Wahr ist, in dem Fall ist 1, bzw. 2 immer richtig, sprich Endlosschleife

  • E-Mail Anbieter

    Für mich ist T-online das einzig wahre...
    Unterstützt POP3, wenn man t-online Kunde ist bekommt man so ne Art "Prmium"-Konto...
    Sonst hab ich noch Googlemail, auch wenn es mich stört, dass man nicht mehr "meinNutzername@gmail.de", sondern nur noch "meinNutzername@googlemail.com" benutzen kann...
    Ne eigene hab ich auch noch (benutz ich am liebsten ^^)

  • FileCopy Problem

    Die einzigen plausiblen Sachen die mir dazu einfallen sind
    1: Der Array verweist manchmal auf eine nicht existierende Datei
    2: Irgenwelche schreibrechte machen dir Probleme (Welches Betriebsystem benutzt du?)
    3: Versuchs mal mit

    [autoit]

    FileCopy(@ScriptDir & "\Pflanzen DB\pics\" & $aData[$i], @ScriptDir & "\Pflanzen DB\Sicherung\pics\", 1)
    ;oder
    FileCopy(@ScriptDir & "\Pflanzen DB\pics\" & $aData[$i], @ScriptDir & "\Pflanzen DB\Sicherung\pics\")

    [/autoit]

    Schreib uns mal bitte die Fehlermeldung (eventuell auch ein Screenshot)...

  • Gutes Antiviren Programm?

    Also ich hatte auch sehr lange Kaspersky(auch die Computer Bild Version) und konnte mich eigentlich nicht beklagen.
    Nun hab ich Norton. Damit bin ich eigentlich auch zufrieden, hab mir (bis jetzt) keine schlimmen Viren eingefangen (zumindest zeigt Norton dies nicht an^^)
    Mit Avira hatte ich bis jetzt jedoch am meisten Probleme. (Wie schon gesagt) bekam ich ständig Fehlalarme und das mit ne'm "freien" Ordner find ich einbisschen umständlich. An Freeware find ich ZoneAlarm sehr gut. Für Spieler ist auch der "Spiel-Modus" interessant, mit dem man bei laufedem Programm Problemlos im Mehrspieler spielen kann.