Beiträge von bernd670

  • 0815 Pinger

    Zitat

    Z.B das hier
    Dim $Servers[4][2], $Icons[4]
    Soweit ich verstanden habe sind das mehrdimensionale Arrays bloß was speicherst du da [4][2].

    Ja $Servers ist ein mehrdimensionales (zweidimensionales) Array (4 Zeilen und 2 Spalten) darin speichere ich die Servernamen und IpAdressen:

    Code
    $Servers[0][0] = "Lxmain"
$Servers[0][1] = "192.168.1.1"
$Servers[1][0] = "Ntmain"
$Servers[1][1] = "192.168.2.1"
$Servers[2][0] = "Notesapp"
$Servers[2][1] = "192.168.2.2"
$Servers[3][0] = "Notesmail"
$Servers[3][1] = "192.168.2.3"

    $Icons ist ein eindimensionales Array und speichert die ControlID's von GUICtrlCreateIcon:

    Code
    $Icons[$i] = GUICtrlCreateIcon("shell32.dll", 210, 115, 45 + (35 * $i),32,32)

    Damit ich später auch das entsprechende Icon zuweisen kann:

    Code
    GUICtrlSetImage($Icons[$i], "shell32.dll",9) ; Online


    Mit Ubound kann man die Dimensionen von Arrays abfragen, ohne weitere Angaben wird immer die grösse der 1. Dimension (Wert in der 1. eckigen Klammer) zurückgegeben, Ubound($Servers) gibt also 4 zurück. Mit Ubound($Server,2) wird die 2. Dimension zurückgegeben, in diesem Fall 2 (wert in der 2. eckigen Klammer). Mit Ubound($Server,0) wird die anzahl der Dimensionen (anzahl der eckigen Klammern) zurückgegeben. In desem Fall also 2.

    Zitat


    Das hier ist auch out of space
    GUICreate("Ping some Ass Baby", 250, 180 + (35 * (UBound($Servers) -1 )))

    Ist nicht als eine einfache rechenaufgabe, in diesem Fall 180 + (35 * (4 - 1)) = 270.
    Hat den Vorteil wenn du noch eine Server hinzufügst wird Fenster automatisch vergrössert, z.B:

    Zeile 11 ändern in

    Code
    Dim $Servers[5][2], $Icons[5]


    und nach Zeile 24 einfügen

    Code
    $Servers[4][0] = "Name neuer Server"
$Servers[4][1] = "192.168.3.1"

    Dann werden 5 Server angezeigt und das Fenster ist automatisch 305 Pixel hoch.

    Der Rest müsste sich jetzt von selbst erklären, oder ?

    Zitat


    Oder das 'ist ja kriminell

    Code
    ;Erstell die Server-Labels  
For $i = 0 To UBound($Servers) - 1
GUICtrlCreateLabel($Servers[$i][0], 11, 55 + (35 * $i), 70)
      $Icons[$i] = GUICtrlCreateIcon("shell32.dll", 210, 115, 45 + (35 *
 $i),32,32)  Next

    Hier angekommen hab ich mich gefragt ob ich es mal mit viel Jacky probiere zu verstehen.

    Code
    For $i = 0 To UBound($Servers) - 1
	If Ping($Servers[$i][1],250) Then
              GUICtrlSetImage($Icons[$i], "shell32.dll",9) ; Online
              FileWrite($file, $Servers[$i][0] & " ist Online" & @CRLF)
Else  GUICtrlSetImage ($Icons[$i], "shell32.dll",10) ;Offline              FileWrite($file, $Servers[$i][0] & " ist Offline" & @CRLF)
EndIf
Next

    Also ich versteh nicht die Gedankenschritte. Wie kommst du auf ubound
    auf die For Schleife, in welcher reihenfolge muß ich das ablaufen lassen gibt es ein leben ohne Programmierung :)

    Deshalb hab ich auch alles versucht zu dokumentieren.

    Und überhaupt wie bringst du den Code unter den Button im Forum
    Spoiler Zeigen?

    Für den Spoiler musst du die Tags [ SPOILER ] und [ /SPOILER ] (ohne Leerzeichen) eingeben!

  • 0815 Pinger

    Gern geschehen! :gehtrunterwieoel:

    Zitat

    Original von Real_Bourbon
    Das Programm soll das Ergebnis an eine Log dranhängen und die Datei soll dann Datum.Uhrzeit.ping.log heißen. Damit ich nach Datum Uhrzeit durchsuchen und archivieren kann.

    Die Uhrzeit würde ich nicht in den Dateinamen einfügen. Das kann sehr unübersichtlich werden je nachdem wie oft man das Programm ausführt!

    Aber wenns sein muss geht es so (vor der Zeile mit FileOpen in Pingdem einfügen):

    Code
    $datei = @YEAR & @MON & @MDAY & "." & @HOUR & @MIN & ".Ping.log"

    Was verstehst du den nicht, vllt kann ich es dir ja verständlich erläutern!

  • 0815 Pinger

    Zitat

    Original von Real_Bourbon

    ....

    Mein Ziel
    Die Datei soll immer mit dem aktuellem Datum gespeichert werden.
    Kann mir (Möchtegernprogrammierer) jemand verraten wie ich zuerst das Datum dann das ping.log hinbekomme und mir vielleicht noch schreiben ob der Code so okay ist oder viel zu umständlich usw ist.

    ....

    Wie willst du es den jetzt genau?

    1. Soll die Datei Ping.log heissen und in der Datei das Datum und das Pingergebnis stehen oder soll die Datei <DATUM> Ping.log heissen und nur das Pingergebnis drin stehen?

    2. Soll die Datei immer neu erstellt werden (alter Inhalt wird gelöscht) oder soll das Pingergebnis immer an die alte Datei angehängt werden?

    Meine Lösung:

    Spoiler anzeigen

    Die Funktion _FileCreate() wird in diesem Fall nicht benötigt da die Funktion FileOpen() automatisch die Datei erstellt wenn sie nicht existiert!

    Tipp: Immer nur eine Eventmethode benutzen entweder mit GUIGetMsg() oder mit ...SetOnEvent()

  • 0815 Pinger

    Hallo,

    ich fange mal mit dem einfachsten an

    Zitat

    Woher weis man was für icons es alles in shell32 gibt z.b shell32

    z.B. mit einem IconViewer!

    Für den Rest melde ich mich heute abend noch mal, ich habe im moment kene Zeit! ;)

    @edit1: Neuere Version gefunden ;)

  • mehrere fragen

    Hallo,

    meintest du sowas

    Wenn jetzt in der INI steht:

    Code
    [settings]
text="°[[zufall],[zufall],[zufall]]°"

    wird jedes [zufall] durch ein zufälligen Wert zwischen 0 und 255 ersetzt.

    @edit1: war noch ein kleiner Fehler drin!
    @edit3: Code nicht gelöscht, aber was nix mit Thema zu tun hat entfernt!

  • Hilfe bei FTP upload

    Hallo,

    Zitat

    Original von peethebee
    Hier mal ein Skriptbeispiel, das bei Binärdateien zu funktionieren scheint, Textdateien aber nicht mag, da muss man wohl irgendwo den Übertragungsmodus umstellen.
    Außerdem sind ein paar eigene Funktionen drin, die du rausnehmen musst.

    Bei der Funktion _FTPPutFile kann als 4. Parameter ($l_Flags) der Transfermodus angegeben werden:

    Code
    - 0 (Standard) = FTP_TRANSFER_TYPE_UNKNOWN
 - 1            = FTP_TRANSFER_TYPE_ASCII
 - 2            = FTP_TRANSFER_TYPE_BINARY


    Bei 0 wird automatisch in den Binärmodus geschalten! In dem Modus kann man aber normalerweise auch Textdateien übertragen, denen macht das nichts aus wenn man sie im Binärmodus überträgt.

  • ColorReader Bug

    Probier mal das!

    Spoiler anzeigen

    Jetzt gehts auch in der Ecke unten rechts!

  • ColorReader Bug

    Der Fehler ist das Or in Zeile 37, da muss ein And hin:

    Code
    If $MousePos[0] < (@DesktopWidth - 95) And $MousePos[1] < (@DesktopHeight - 80) Then
			WinMove("Preview","",$MousePos[0]+15,$MousePos[1])
			$LastPos[0] = $MousePos[0]
			$LastPos[1] = $MousePos[1]
		EndIf

  • Eigene Toolbar in Dateicommander integrieren

    Das ist mir schon auch klar! Diese Berechnung findet aber sowohl bei Select als auch bei der Switch-Anweisung erst bei den Case-Anweisungen statt! Wie sonst soll entschieden werden in welche Case-Anweisung verzweigt werden soll!

    Der Ausdruck von dem in der Switch-Hilfe die Rede ist wird aber auch bei der Select-Anweisung nur einmal und zwar vor Select berechnet!

  • SetColor

    Ich habe mir mal die Funktion _BMPOpen angeschaut. Die Breite und Höhe kannst du nach dem öffnen so auslesen

    Code
    $breite = UBound($bmphandle,1)
$hoehe = UBound($bmphandle,2)

    Es kann ja sein das dein Encoder nicht funktioniert. Aber selbst wenn ich eine Bitmap öffne und gleich wieder schreibe kommt bei mir keine brauchbare Bitmap mehr raus:

    Code
    #include <BMP.au3>


$bmppath = FileOpenDialog("Search the BitMap you want to En-/DeCode", @ScriptDir, "Images (*.bmp)", 1 + 2 )
$bmphandle = _BMPOpen($bmppath)


_BMPWrite($BMPHandle,@scriptdir &"\encoded.bmp")
MsgBox(0,"Done","Work done ;)")
Exit

    Da muss also in der BMP.au3 schon ein Fehler sein.

  • Eigene Toolbar in Dateicommander integrieren

    1. Werden Bedingungen nicht berechnet sondern geprüft
    und 2. ist wohl egal ob ich schreibe:

    Spoiler anzeigen

    oder ob ich schreibe:

    Spoiler anzeigen

    in beiden Fällen ist das Ergebnis von GUIGetMsg() schon bekannt und es wird nur noch geprüft ob in welchem Fall die Bedingung erfüllt ist.

  • DOS Komanndos absetzen?

    Das mit den Anfühurngszeichen ist so, erst mal sind das einfache und das doppelte Anführungszeichen gleichwertig! Nur wenn du z.B. einer Variable den Satz >>Ein Wort in "diesem" Satz hat Anführungszeichen um sich!<< zuweisen willst dann musst den entweder in einfache Anführungszeichen schreiben

    Code
    'Ein Wort in "diesem" Satz hat Anführungszeichen um sich!'


    oder mit chr(34) arbeiten

    Code
    "Ein Wort in " & chr(34) & "diesem" & chr(34) &" Satz hat Anführungszeichen um sich!"

    Das gleiche gilt auch umgekehrt! der chr-Code für (') ist chr(39) ;)

  • DOS Komanndos absetzen?

    Hallo und :willkommen:,

    damit du auch Dateien und Verzeichnisse kopieren kannst die Leerzeichen enthalten müssen diese in Anfühurngszeichen gesetzt werden!

    z.B. so:

    Code
    $Source = "C:\Dokumente und Einstellungen\All Users\Desktop\*.*"
$Dest = "D:\Temp\Desktop\"


RunWait(@ComSpec & ' /c XCOPY "' & $Source & '" "' & $Dest & '" /E /Y')

    oder so:

    Code
    $Source = "C:\Dokumente und Einstellungen\All Users\Desktop\*.*"
$Dest = "D:\Temp\Desktop\"


RunWait(@ComSpec & " /c XCOPY " & chr(34) & $Source & chr(34) & " " & chr(34) & $Dest & chr(34) & " /E /Y")

    Der Parameter /T kopiert keine Dateien sondern legt nur die Verzeichnisstrucktur an. Wenn du mehrere Datein kopieren willst muss der Zielpfad mit einen Backslash enden, ansonsten kommt noch eine Abfrage ob es sich beim Ziel um einen Ordner oder eine Datei handelt. ;)