Beiträge von Schnuffel

nachdem mal die Frage aufkam, wie man eine Reihe von PC's so mal eben schnell durchpingen kann,
kam ich auf die Idee dieses kleine Prog zu schreiben.

Vielleicht gibt es sowas ja schon (ziemlich sicher sogar...)
Egal, vielleicht kann es ja der Ein oder Andere brauchen.

Die IP-Adressen müssen im ScriptDir in der Datei ip-adressen.txt eingetragen werden. ich hab mal ein Beispiel mit angehängt ...

Edit:
nachdem Sprenger120 das Script um eine on/off Checkbox für alle Einträge erweitert hat,
habe ich diese nur noch angepasst, damit sie auch logisch an ist, wenn alle Einträge an sind und off ist, wenn alle Einträge off sind.
Danke an Sprenger120 für die Erweiterung
gerne mehr

ich schließe mich SeuBo an und sage: Zeile 41 + 46 ==> EndIf und der Tag ist Dein Freund

also ich bastle zur Zeit auch an einem Ping my IP's Prog rum.

Auch ich bin am Ping nicht vorbei gekommen.
Festzustellen wäre, dass der Ping an sich eine flotte Sache ist, wenn das Ziel erreichbar ist und auch antwortet.
Der Timeout läßt sich afaik nicht abkürzen, da intern so verankert. (1000ms)

In meinem Script habe ich das so gemacht, dass ich explizit nur die Adressen anpinge, die auch vorhanden sind.
Dazu erstelle ich mir ein Array mit den IP-Adressen, die ich pingen will um zu sehen, ob vorhanden und wie schnell...

Wenn eine IP-Adresse ausfällt leuchtet rot und wird für die nächste Ping Schleife rausgenommen, bis ich diese manuell wieder in das Array der anzupingenden integriere.
In meinem lokalen/VPN Netz habe ich lt. Timer Ping zeiten von ca. 16ms.
D.h. pro Sec/Durchlauf. ca. 60 Rechner pingen. Ich denke das sollte reichen um schnell zusehen wenn ein Rechner abkackt ...

na dann ich auch noch ...

#Include <Date.au3>
Local $string = "11.04.2010 20:05"
$a = StringSplit($string,". :")
$date_formatted = StringFormat("%s/%s/%s %s:%s:00",$a[3],$a[2],$a[1],$a[4],$a[5])
MsgBox(0, 'Differenz', "Die Differenz beträgt: " & _DateDiff("n", $date_formatted, _NowCalcDate()&" "&_NowTime()) & " Minuten")

schau Dir mal die Funktion _DateDiff an.

Damit solltest Du Dein Problem lösen können.
Musst halt Deinen String für die Funktion entsprechend formatieren...

ich würde das so machen:

MsgBox(0, '', "0xFF"&StringTrimLeft(Hex(3881263),2))

ändert das Icon eines beliebigen Ordners,
auch im Netzwerk (was Windows so eigentlich nicht vorsieht)
Wenn der Ordner nicht existiert, wird er erstellt.

Beispiel zum Erstellen eines "versteckten" Ordners ist dabei

Edit:
- Errorabfrage und Prüfung Betriebssystemversion eingebaut
- Example für einbinden einer .ico-Datei als Icon eingefügt
Edit2:
- FilePrüfung eingefügt, Errorhandling optimiert

Zitat

ich möchte mit folgendem code, 2,3 oder auch 4 stellige zahlen finden und auslesen...

also ich würde das so machen:

#include <Array.au3>
#include <file.au3>

Global $ergebnis, $t, $rest[1]
_FileReadToArray("stanz.txt",$ergebnis)
For $i = 1 To UBound($ergebnis)-1
$t = StringSplit($ergebnis[$i],@TAB)
_ArrayAdd($rest,$t[1])
Next
$rest[0] = UBound($rest)-1
_ArrayDisplay($rest)

@Lev,

da magst Du Recht haben, aber für die Problemstellung ist das eine gehbare Lösung.
Ich weiß ja nicht, warum Sie die FF.au3 einsetzen will....

ganz einfach:

Zitat

ganz oft ganz schnell hintereinander zb. w drückt

für "normales Arbeiten am PC braucht man das sicher nicht.
Und da dann nur noch unsinniges oder gar verbotenes übrig bleibt.....

warum so kompliziert?

If ProcessExists("firefox.exe") Then
ShellExecute("Firefox.exe","-new-tab http://www.test.de")
Else
ShellExecute("Firefox.exe","-new-window http://www.test.de")
EndIf

wenn Du "nur" versteckt meinst, dann so:

$sFolderToCreate = "C:\versteckt"
DirCreate($sFolderToCreate)
FileSetAttrib($sFolderToCreate,"+H")

Also:

1. für die, die Dein Prog bereits heruntergeladen haben ist es dafür wohl zu spät...

2. Du glaubst doch nicht wirklich, dass wir Dir hier ein Software-Update Tool proggen, dass Du dann per Copy & paste in Dein Script einbauen kannst ???

also das klappt einwandfrei.

Vielleicht sollte erwähnt werden, dass bei der Angabe:

#AutoIt3Wrapper_icon=AutoIt_Old1.ico

das Icon auch Im selben Verzeichnis liegen muss wie das Script

PS: Reaker hat extra vorher nachgefragt,
ob er die Seite angeben kann um keine Regeln zu verletzen.

Ich denke das sollte auch berücksichtigt werden

oder als Funktion:

#include <Date.au3>
MsgBox(4096, "", _DatefromDayofYear(47,2009))

Func _DatefromDayofYear($dayadd,$Year) ; benötigt Date.au3 !!!
Local $Y, $M, $D
_DayValueToDate(_DateToDayValue($Year, 1, 1) -1 + $dayadd, $Y, $M, $D)
Return($D & "." & $M & "." & $Y)
EndFunc

es wäre erstmal schön eine Funktion einzustellen, die in sich grundsätzlich funktionsfähig ist.
Da ich Deine Funktion nicht ausführen kann, erspare ich mir die Suche nach einer Lösung.

noch etwas erweitert...

#include <Date.au3>
Dim $Y, $M, $D, $Date

Dim $dateadd = 4; Tag des Jahres
Dim $dateyear = 2010; Jahr

_DayValueToDate(_DateToDayValue($dateyear, 1, 1) -1 + $dateadd, $Y, $M, $D)
MsgBox(4096, "", "Datum: " & $D & "." & $M & "." & $Y)

probier mal so:

#include <Date.au3>

Dim $Y, $M, $D, $Date, $dateadd = 4

$Date = _DayValueToDate(_DateToDayValue(@YEAR, 1, 1) -1 + $dateadd, $Y, $M, $D)

MsgBox(4096, "", "Datum: " & $D & "." & $M & "." & $Y)