Funkcja Ping + Porty

[jackraymund]

mam taki program do sprawdzania pingu

http://www.mpcforum.pl/topic/164274-program-do-sprawdzania-pingu/

i np. jak wpisze 79.133.192.229:27015 to mi nie wyszukuje da się dodać jakoś porty?

[RobeM]

nie ping ma już określony port

nawet jakby działało zawsze będziesz miał identyczny jakikolwiek nie spingujesz port , najwyzej brak odpowiedzi jak port wyłączony

 

ale przez telenet sprawdzisz

[jackraymund]

telnet? tzn?

[RobeM]

chyba : telenet ping <ip> <port> ( w7 nie ma telenetu to nie sprawdze czy działa )

 

zostaje jeszcze tcp/ip obsługa w autoit ale to tylko w UDF zrobisz, poszukaj tematów na forum autoita

[jackraymund]

w udf?

telnet nie dziala:/

[RobeM]

User Defined Functions - UDF , jak sama nazwa wskazuje funkcje napisane przez użytkowników AutoIt , rozwinięcie funkcji o dodatkowe funkcje nie standartowe

 

jak chcesz tylko sprawdzić stan serwera czy off czy on, wystarczy sprawdzić czy dany port jest otwarty czy zamknięty a do tego wystarczy przerobić jakiś skrypt na skaner portów

 

przykładowy , ustaw w zakresie tylko 135 port raczej zawsze masz otwarty w windows , jak przerobisz dane z okna Open Ports mogą posłuzyc jako wskaźnik statusu serwera

 

#include <guiconstants.au3>

$PortScanner = GUICreate("Infinitex0's Port Scanner", 300, 175)
GUICtrlCreateGroup("Port Scan", 5, 5, 275, 160)
$IPLabel = GUICtrlCreateLabel("IP", 20, 17)
$PortIPAddress = GUICtrlCreateInput("127.0.0.1", 20, 33, 125)
GUICtrlCreateLabel("Start on Port", 20, 55)
$PortStartNumber = GUICtrlCreateInput("1", 20, 68, 125)
GUICtrlCreateLabel("End on Port", 20, 91)
$PortEndNumber = GUICtrlCreateInput("30", 20, 108, 125)
$StartScan = GUICtrlCreateButton("Start", 20, 135, 125)
GUICtrlSetFont($StartScan,15)
$OnPort = GUICtrlCreateLabel("Scanning Port:None", 150, 142)
GUICtrlCreateGroup("Open Ports", 160, 17,105, 125)
$OpenPortList=GUICtrlCreateList("", 168, 30, 90, 109)
GUICtrlCreateGroup ("",-99,-99,1,1)
GUISetState(@SW_SHOW)

While 1
   $msg = GUIGetMsg()
   Select
       Case $msg = $GUI_EVENT_ClOSE
           ExitLoop
       Case $msg = $StartScan
           _StartScan()
   EndSelect
WEnd

Func _StartScan()
   $PortIP=GUICtrlRead($PortIPAddress)
   $PortEndNumberB=guictrlread($PortEndNumber)
   $PortStartNumberB=guictrlread($PortStartNumber)
   TCPStartup()
$timerstart = TimerInit()
For $LetsGo = $PortStartNumberB To $PortEndNumberB
$socket = TCPConnect($PortIP,$PortStartNumberB)
ControlSetText("", "", $OnPort, "Scanning Port:" & $PortStartNumberB & "")
If $socket = -1 Then
   $PortStartNumberB = $PortStartNumberB + 1
Else
   GUICtrlSetData($OpenPortList,$PortStartNumberB)
   $PortStartNumberB = $PortStartNumberB + 1
EndIf
Next
   TCPShutdown()
   $timerend = TimerDiff($timerstart)
   TrayTip("Port Scanner", "Done Process took " & Round($timerend,-1)/1000 & " seconds", 7, 1)
EndFunc

 

 

albo mały i prosty ale sprawdzający czy port jest otwarty , przykład dla onetu , sprawdzanie zakresu 79-81 , na 80 powinien wykryć bo musi, hehe

Opt("TCPTimeout",1)
$SocketIP = "213.180.146.27" ; IP onet.pl
$socketportstart = 79
$socketportend = 81

TCPStartup()

For $port = $socketportstart To $socketportend
   $socket = TCPConnect($SocketIP,$port)
   Switch $socket
       Case -1
           Switch @error
               Case 1
                   ConsoleWrite($port & " - Unable to connect - Wrong Address." & @CRLF) ; wstaw np GUICtrlCreateLabel z napisem  OFF na czerwono, albo kod błędu
               Case 2
                   ConsoleWrite($port & " - Unable to connect - Wrong Port." & @CRLF) ; wstaw np GUICtrlCreateLabel z napisem  OFF na czerwono, albo kod błędu
               Case Else
                   ConsoleWrite($port & " - Unable to connect." & @CRLF) ; wstaw np GUICtrlCreateLabel z napisem  OFF na czerwono, albo kod błędu
           EndSwitch
       Case Else
           TCPCloseSocket($socket)      
           ConsoleWrite($port & " - Success!" & @CRLF)   ; aktywne w razie czynnego portu
    MsgBox(0, "Serwer działa !" , " " & $SocketIP, 10) ; wstaw np GUICtrlCreateLabel z napisem  ON na zielono 
   EndSwitch
Next

TCPShutdown()

 

wystarczy ze dodasz do kodu pingera , wpiszesz w zakresy ten sam port serwera , ip serwera

 

chyba działa tylko dla portów tcp/ip , dla udp musisz poszukać