vi6ora Posted July 28, 2009 Share Posted July 28, 2009 Hi. I am new here and i was wondering if there is any way to check if an server is online for example ( 142.214.65.41:80 )if it is msgbox pops up saying its online if it is offline msg box with offline. Or if there is no way of doing this is there any way to read the info for the server from a web page? Thank you in advance. Link to comment Share on other sites More sharing options...
water Posted July 28, 2009 Share Posted July 28, 2009 It depends. If you want to check the SERVER then you could use ping to check wether the server is alive or not. If you want to check the SERVICE running on the server (as your example with port 80 makes me believe) then it depends on the service you want to check. You can't check a web service the same way you check a ftp or database service. So, what do you want to do? My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
99ojo Posted July 28, 2009 Share Posted July 28, 2009 It depends. If you want to check the SERVER then you could use ping to check wether the server is alive or not. If you want to check the SERVICE running on the server (as your example with port 80 makes me believe) then it depends on the service you want to check. You can't check a web service the same way you check a ftp or database service. So, what do you want to do? Hi, ;#### check Webservice $server = "142.214.65.41" $port = "80" TCPStartUp() $socket = TCPConnect( $server, $port ) If $socket = -1 Then MsgBox (0,"","Error connecting " & $server & " on Port " & $port) Else TCPCloseSocket ($socket) MsgBox (0,"","Connected " & $server & " on Port " & $port) EndIf ;#### check server is alive $var = Ping ($server) If $var Then; also possible: If @error = 0 Then ... Msgbox(0,"Status","Online, roundtrip was:" & $var) Else Msgbox(0,"Status","An error occured with number: " & @error) EndIf ;-)) Stefan Link to comment Share on other sites More sharing options...
vi6ora Posted July 28, 2009 Author Share Posted July 28, 2009 Nvm Guys i found a solution Can you tell me why this script is not working on other computers, i mean when they click the buttons nothing happens expandcollapse popup#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=..\vitalityaion.ico #AutoIt3Wrapper_Res_Comment=Vitality Aion Launcher #AutoIt3Wrapper_Res_Description=Vitality Aion Launcher #AutoIt3Wrapper_Res_Fileversion=1.30.0.1 #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p #AutoIt3Wrapper_Res_LegalCopyright=BlindEffect And Vitality Clan Gaming #AutoIt3Wrapper_Res_Language=1033 #AutoIt3Wrapper_Run_Obfuscator=y #Obfuscator_Parameters=/cs 1, /cn 1, cf 1, /cv 1 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <IE.au3> Local $CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL Opt("TrayMenuMode", 1) Opt("TrayOnEventMode", 1) TrayTip( "Welcome!", "Welcome to Vitality Aion Launcher!, please don't forget to Vote" , 1) Global Const $Ini = @ScriptDir & "\Settings.ini" Global Const $dir = IniReadSection($ini, "Directory") Local $SavePath $Tray_Exit = TrayCreateItem("Exit") TrayItemSetOnEvent($Tray_Exit, "_Exit") $Form = GUICreate("Choose Your Language", 440, 96, 293, 204) GUISetBkColor(0x747474) $Language = GUICtrlCreateCombo("", 288, 32, 145, 25) GUICtrlSetData(-1, "English|Spanish") $Continue = GUICtrlCreateButton("Continue", 168, 64, 83, 25, 0) $Label1 = GUICtrlCreateLabel("Choose Your Language//Seleccione lenguaje", 0, 32, 263, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FFFF) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FFFF) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Continue $check = GuiCtrlRead($Continue) Select Case $check = "Continue" GUIDelete($Form) English() Case $check = "Continuar" GUIDelete($Form) Spanish() EndSelect Case $nMsg = $Language $lg = GUICtrlRead ($Language) Select Case $lg = "English" GUICtrlSetData($Continue,"Continue") GUICtrlSetData($Label1,"Choose Your Language") WinSetTitle($Form,"","Choose Your Language") Case $lg = "Spanish" GUICtrlSetData($Continue,"Continuar") GUICtrlSetData($Label1,"Seleccione lenguaje") WinSetTitle($Form,"","Elija su idioma") Case $lg = "" MsgBox(1, "Error", "Please choose your language") EndSelect EndSelect WEnd Func English() $Form = GUICreate("Vitality Aion Launcher by Crowen", 798, 702, 329, 12) FileInstall("C:\Documents and Settings\Administrator\My Documents\Reciver Files\Launcher Background.JPG", @TempDir & "\Launcher Background.JPG") FileInstall("C:\Documents and Settings\Administrator\Desktop\selectdir - eng.jpg", @TempDir & "\selectdir - eng.jpg") TrayTip( "Welcome!", "Welcome to Vitality Aion Launcher! Please don't forget to Vote" , 1) If FileExists ($ini) Then $SavePath = GUICtrlCreateInput(IniRead($Ini, "Vitality Aion Directory", "Directory", ""), 8, 616, 201, 21) Else $SavePath = GUICtrlCreateInput("", 8, 616, 201, 21) EndIf $filemenu = GUICtrlCreateMenu("&File") $fileitem = GUICtrlCreateMenuItem("Credits", $filemenu) $fileitem2 = GuiCtrlCreateMenuItem("Exit", $filemenu) $Pic1 = GUICtrlCreatePic(@TempDir & "\Launcher Background.JPG", 0, 0, 796, 700, 0) GUICtrlCreateInput("", 8, 616, 201, 21) $Browser = GUICtrlCreateButton("...", 240, 616, 43, 17, 0) GUICtrlSetBkColor(-1, 0x808080) GUICtrlSetCursor (-1, 0) $Vote = GUICtrlCreateButton("Vote", 432, 600, 91, 25, 0) GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FFFF) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $WebPage = GUICtrlCreateButton("Web Page", 520, 600, 75, 25, 0) GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FFFF) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Forum = GUICtrlCreateButton("Forum", 520, 624, 75, 25, 0) GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FFFF) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Launch = GUICtrlCreateButton("Launch Vitality Aion", 248, 648, 155, 25, 0) GUICtrlSetFont(-1, 10, 800, 0, "Verdana") GUICtrlSetColor(-1, 0x00FFFF) GUICtrlSetBkColor(-1, 0xBEBEBE) GUICtrlSetCursor (-1, 0) $Pic2 = GUICtrlCreatePic(@TempDir & "\selectdir - eng.jpg", 8, 592, 292, 20, 0) $StatusCheck = GUICtrlCreateButton("Status Check", 432, 624, 91, 25, 0) GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FFFF) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW) ;;;--------------------------------------------------;;----------------------------------------------;;;---------------------------;;-------------;;-----------------------------------;;;;----------------------;;;-- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;-----------------;;;;;;;;;;;---------------------;---;;---------------------------------------;;;;;;;------------------------------------------;;;------ While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $StatusCheck Status() Case $fileitem About() Case $fileitem2 Exit Case $Vote VoteEng() Case $WebPage WebPage() Case $Forum Forum() Case $Launch Launch() Case $Browser $get = FileSelectFolder('Please select a directory', @DesktopDir, 5, GUICtrlRead($SavePath), $Form) If Not @error Then GUICtrlSetData($SavePath, $get) IniWrite($Ini, "Vitality Aion Directory", "Directory", GUICtrlRead($SavePath)) EndIf EndSwitch WEnd EndFunc Func Launch() Run(GUICtrlRead($SavePath)&"\bin32\Aion.bin -ip:66.231.190.130 -ng") TrayTip( "Vitality Aion Launched Successfully", "Vitality Aion have been launched Successfully. But did you voted? " , 1) EndFunc Func WebPage() $oIE = _IECreate ("www.vitalityclan.info") EndFunc Func Forum() $oIE = _IECreate("www.vitalityclan.info/vitalityforum") EndFunc Func VoteEng() $VoteForm = GUICreate("Vitality Aion Launcher - Voting Addon by Crowen", 422, 584, 193, 122) TrayTip( "Vote", "Please don't forget to use this server once every 12 hours." , 1) FileInstall("C:\Documents and Settings\Administrator\My Documents\Reciver Files\votingaddon.bmp", @TempDir & "\votingaddon.bmp") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\Top Of Games.gif", @TempDir & "\Top Of Games.gif") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\XtremeTop100.jpg", @TempDir & "\XtremeTop100.jpg") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\Aion Top List.bmp", @TempDir & "\Aion Top List.bmp") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\Aion Top 200.gif", @TempDir & "\Aion Top 200.gif") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\Aion Top.bmp", @TempDir & "\Aion Top.bmp") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\MMO Top 250.bmp", @TempDir & "\MMO Top 250.bmp") $Pic1 = GUICtrlCreatePic(@TempDir & "\votingaddon.bmp", 0, 0, 420, 580, 0) $Pic2 = GUICtrlCreatePic(@TempDir & "\Top Of Games.gif", 152, 256, 100, 44, 0) $Pic3 = GUICtrlCreatePic(@TempDir & "\XtremeTop100.jpg", 24, 256, 100, 44, 0) $Pic4 = GUICtrlCreatePic(@TempDir & "\Aion Top List.bmp", 24, 392, 100, 44, 0) $Pic5 = GUICtrlCreatePic(@TempDir & "\Aion Top 200.gif", 152, 392, 100, 44, 0) $Pic6 = GUICtrlCreatePic(@TempDir & "\Aion Top.bmp", 280, 392, 100, 44, 0) $Pic7 = GUICtrlCreatePic(@TempDir & "\MMO Top 250.bmp", 280, 256, 100, 44, 0) $Button1 = GUICtrlCreateButton("Vote", 40, 328, 75, 25, 0) GUICtrlSetBkColor(-1, 0xB4B4B4) GUICtrlSetCursor (-1, 0) $Button2 = GUICtrlCreateButton("Vote", 168, 464, 75, 25, 0) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Button3 = GUICtrlCreateButton("Vote", 296, 328, 75, 25, 0) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Button4 = GUICtrlCreateButton("Vote", 40, 464, 75, 25, 0) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Button5 = GUICtrlCreateButton("Vote", 168, 328, 75, 25, 0) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Button6 = GUICtrlCreateButton("Vote", 296, 464, 75, 25, 0) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($VoteForm) Case $Button1 Xtreme() Case $Button2 AionTop200() Case $Button3 MMOTop() Case $Button4 AionTopList() Case $Button5 TopOfGames() Case $Button6 AionTop() EndSwitch WEnd EndFunc Func AionTop200() $oIE = _IECreate ("http://www.gamesites200.com/aion/in.php?id=9") EndFunc Func Xtreme() $oIE = _IECreate ("http://www.xtremetop100.com/in.php?site=1132288527") EndFunc Func AionTopList() $oIE = _IECreate ("http://vitalityclan.info/vlinks.html") EndFunc Func MMOTop() $oIE = _IECreate ("http://vitalityclan.info/vlinks.html") EndFunc Func TopOfGames() $oIE = _IECreate ("http://topofgames.com/index.php?do=votes&id=12257") EndFunc Func AionTop() $oIE = _IECreate ("http://vitalityclan.info/vlinks.html") EndFunc Func _Exit() Exit EndFunc Func Spanish() $FormSpain = GUICreate("Vitality Aion Launcher por Crowen", 846, 703, 190, 120) $Pic1 = GUICtrlCreatePic(@TempDir & "\Launcher Background.JPG", 0, 0, 844, 700, 0) TrayTip( "Bienvenido!", "Bienvenido a Vitalidad Aion Launcher!, Por favor no se olvide de Votar" , 1) FileInstall("C:\Documents and Settings\Administrator\Desktop\selectdir - spanish.jpg", @TempDir & "\selectdir - spanish.jpg") If FileExists ($ini) Then $SavePath = GUICtrlCreateInput(IniRead($Ini, "Vitality Aion Directory", "Directory", ""), 8, 624, 201, 21) Else $SavePath = GUICtrlCreateInput("", 8, 624, 201, 21) EndIf $filemenu = GUICtrlCreateMenu("&Archivo") $fileitem = GUICtrlCreateMenuItem("Creditos", $filemenu) $fileitem2 = GuiCtrlCreateMenuItem("Salir", $filemenu) $Browser = GUICtrlCreateButton("...", 232, 624, 43, 17, 0) GUICtrlSetBkColor(-1, 0x808080) GUICtrlSetCursor (-1, 0) $Vota = GUICtrlCreateButton("Vota", 440, 600, 99, 25, 0) GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FFFF) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $WebPageSpain = GUICtrlCreateButton("Pagina oficial", 536, 600, 91, 25, 0) GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FFFF) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Foro = GUICtrlCreateButton("Foro", 536, 624, 91, 25, 0) GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FFFF) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Launch = GUICtrlCreateButton("Jugar Vitality Aion", 272, 656, 155, 25, 0) GUICtrlSetFont(-1, 10, 800, 0, "Verdana") GUICtrlSetColor(-1, 0x00FFFF) GUICtrlSetBkColor(-1, 0xBEBEBE) GUICtrlSetCursor (-1, 0) $Pic2 = GUICtrlCreatePic(@TempDir & "\selectdir - spanish.jpg", 8, 600, 292, 20, 0) $Status = GUICtrlCreateButton("Comprobar estado", 440, 624, 99, 25, 0) GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FFFF) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW) ;;;;--------------------- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;-------------------------------------------------------------------------------------------------------------------------------------------------------- ;;;;;;;;;;;;;;;;;;;;;;;;;;;-------------------------------------------------------------------- ;---------------------------------------------------------------------------------------------------- While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Status Status() Case $fileitem About() Case $fileitem2 Exit Case $Launch Launch() Case $Vota VoteSpanish() Case $WebPageSpain WebPage() Case $Foro Forum() EndSwitch WEnd EndFunc Func VoteSpanish() $VoteSpainForm = GUICreate("Addon de votar Vitality Aion por Crowen", 430, 582, 202, 115) TrayTip( "Vota", "Por favor no se olvide de utilizar este servicio una vez cada 12 horas." , 1) FileInstall("C:\Documents and Settings\Administrator\My Documents\Reciver Files\votarspanish.bmp", @TempDir & "\votarspanish.bmp") $Pic1 = GUICtrlCreatePic(@TempDir & "\votarspanish.bmp", 0, -8, 428, 588, 0) $Button5 = GUICtrlCreateButton("Vota", 168, 328, 75, 25, 0) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Button3 = GUICtrlCreateButton("Vota", 296, 328, 75, 25, 0) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Button1 = GUICtrlCreateButton("Vota", 40, 328, 75, 25, 0) GUICtrlSetBkColor(-1, 0xB4B4B4) GUICtrlSetCursor (-1, 0) FileInstall("C:\Documents and Settings\Administrator\My Documents\Reciver Files\votingaddon.bmp", @TempDir & "\votingaddon.bmp") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\Top Of Games.gif", @TempDir & "\Top Of Games.gif") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\XtremeTop100.jpg", @TempDir & "\XtremeTop100.jpg") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\Aion Top List.bmp", @TempDir & "\Aion Top List.bmp") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\Aion Top 200.gif", @TempDir & "\Aion Top 200.gif") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\Aion Top.bmp", @TempDir & "\Aion Top.bmp") FileInstall("C:\Documents and Settings\Administrator\Desktop\Vit Aion Vote Addon\Vote Pics\MMO Top 250.bmp", @TempDir & "\MMO Top 250.bmp") $Pic6 = GUICtrlCreatePic(@TempDir & "\Aion Top.bmp", 280, 392, 100, 44, 0) $Pic5 = GUICtrlCreatePic(@TempDir & "\Aion Top 200.gif", 152, 392, 100, 44, 0) $Pic4 = GUICtrlCreatePic(@TempDir & "\Aion Top List.bmp", 24, 392, 100, 44, 0) $Pic7 = GUICtrlCreatePic(@TempDir & "\MMO Top 250.bmp", 280, 256, 100, 44, 0) $Pic2 = GUICtrlCreatePic(@TempDir & "\Top Of Games.gif", 152, 256, 100, 44, 0) $Pic3 = GUICtrlCreatePic(@TempDir & "\XtremeTop100.jpg", 24, 256, 100, 44, 0) $Button4 = GUICtrlCreateButton("Vota", 40, 464, 75, 25, 0) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Button2 = GUICtrlCreateButton("Vota", 168, 464, 75, 25, 0) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) $Button6 = GUICtrlCreateButton("Vota", 296, 464, 75, 25, 0) GUICtrlSetBkColor(-1, 0x878787) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($VoteSpainForm) Case $Button1 Xtreme() Case $Button2 AionTop200() Case $Button3 MMOTop() Case $Button4 AionTopList() Case $Button5 TopOfGames() Case $Button6 AionTop() EndSwitch WEnd EndFunc Func About() $About = GUICreate("About", 477, 329, 303, 219) GUISetBkColor(0xD4D0C8) $Pic1 = GUICtrlCreatePic(@TempDir & "\Launcher Background.JPG", 16, 24, 233, 193, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $GroupBox1 = GUICtrlCreateGroup("", 8, 8, 457, 265) $Label1 = GUICtrlCreateLabel("Product Name: Vitality Aion Launcher", 264, 24, 180, 17, $WS_GROUP) GUICtrlSetColor(-1, 0x0000FF) $Label2 = GUICtrlCreateLabel("Version: 1.30A", 264, 48, 73, 17, $WS_GROUP) GUICtrlSetColor(-1, 0x0000FF) $Label3 = GUICtrlCreateLabel("Copyright: Vitality Clan Gaming[VCB}", 16, 224, 175, 17, $WS_GROUP) GUICtrlSetColor(-1, 0x0000FF) $Label5 = GUICtrlCreateLabel("Author: Crowen", 264, 80, 77, 17) GUICtrlSetColor(-1, 0x0000FF) $Label6 = GUICtrlCreateLabel("Design by: joshgamer", 264, 104, 105, 17) GUICtrlSetColor(-1, 0x0000FF) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("&OK", 192, 296, 75, 25) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($About) Case $Button1 GUIDelete($About) EndSwitch WEnd EndFunc Func Status() FileInstall("C:\Documents and Settings\Administrator\My Documents\Моите получени файлове\statusoff.bmp", @TempDir & "\statusoff.bmp") FileInstall("C:\Documents and Settings\Administrator\My Documents\Моите получени файлове\statuson.bmp", @TempDir & "\statuson.bmp") TCPShutdown() TCPStartup() Dim $Server1 = "66.231.190.130" Dim $PORT1 = "7777" Dim $S1P1ACK = "" Dim $IPADRESS1 = TCPNameToIP($Server1) Dim $ConnectedSocket1 = 0 $ConnectedSocket1 = TCPConnect($IPADRESS1, $PORT1) If @error Then $S1P1ACK = "Offline" $StatusFom = GUICreate("Status Checker", 366, 126, 192, 141) GUICtrlCreatePic(@TempDir & "\statusoff.bmp", 0, 0, 364, 124) GUISetState(@SW_SHOW) Else $S1P1ACK = "Online" $StatusFom = GUICreate("Status Checker", 366, 126, 192, 141) GUICtrlCreatePic(@TempDir & "\statuson.bmp", 0, 0, 364, 124) GUISetState(@SW_SHOW) EndIf TCPShutdown() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GuiDelete($StatusFom) EndSwitch WEnd EndFunc Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now