Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

Proxy Checker


  • Please log in to reply
2 replies to this topic
ripper121
  • Members
  • 114 posts
  • Last active: Jan 16 2014 11:06 AM
  • Joined: 01 Nov 2012
Hier ein Programm was Server anpingt und sie in eine Datei (Offline/Online.txt) abspeichert.
Compiliert geht auch Drag&Drop von TXT dateien auf die EXE

Posted Image



OfflineProxy:=
OnlineProxy:=
FileDir=%1%
IfNotExist, %1%
{
FileSelectFile, FileDir
}
Gui,Add,Text,vMyText w300
Gui,Add,Text,vMyText1 w200
Gui,Add,Text,vMyText2 w200
Gui,Show
Loop, read,%FileDir%
Lines := A_Index
Loop, read,%FileDir%
{
StringSplit, OutputArray, A_LoopReadLine, ":"
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . "." . "\root\cimv2")
colPings := objWMIService.ExecQuery("Select * From Win32_PingStatus where Address = " . "'" . OutputArray1 . "'")._NewEnum
While colPings[objStatus]
{
If (objStatus.StatusCode="" or objStatus.StatusCode<>0)
{
FileAppend , %A_LoopReadLine%`n, %A_ScriptDir%\Offline.txt
Status:="OFFLINE"
OfflineProxy++
}
Else
{
FileAppend , %A_LoopReadLine%`n, %A_ScriptDir%\Online.txt
Status:="ONLINE"
OnlineProxy++
}
}
GuiControl, ,MyText , Proxy %A_LoopReadLine% = %Status% (%A_Index%:%Lines%)
GuiControl, ,MyText1 , OfflineProxy:%OfflineProxy%
GuiControl, ,MyText2 , OnlineProxy:%OnlineProxy%
}
GuiClose:
Exitapp

Ripper121 aka Ripp3r]D3[
Deutsches (original) Forum: Seit: 11.11.2007 Beiträge: 1912
ripper.gif
Top-10 German


Bruttosozialprodukt
  • Members
  • 457 posts
  • Last active: Oct 18 2015 08:47 AM
  • Joined: 20 Oct 2012
Das werde ich demnächst mal ausprobieren. Danke :)

ripper121
  • Members
  • 114 posts
  • Last active: Jan 16 2014 11:06 AM
  • Joined: 01 Nov 2012
Hoffe ist auch genau weis leider nicht wie die Funktion entscheidet ob on oder offline

Ripper121 aka Ripp3r]D3[
Deutsches (original) Forum: Seit: 11.11.2007 Beiträge: 1912
ripper.gif
Top-10 German