Sign in to follow this  
Followers 0
vi6ora

Status Check

4 posts in this topic

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.

Share this post


Link to post
Share on other sites



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 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

#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

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0