Jump to content

Recommended Posts

Posted

Basically what I need help with, is to know if it's possible to read a number on the utility I've made, and read it every 10 minutes, and if it's the same between those 10 minutes, a message box pops up saying that the server is frozen.

This is the entire script, I need it to look at $label.

#include <GUIConstants.au3>
#include <INet.au3>
#include <String.au3>
#include <array.au3>

;GUI
GUICreate("Qonquer Server Status", 301, 109)
GUICtrlSetBkColor(-1, 000000)

Opt("GUICoordMode", 2)
AdlibEnable("SetPlayers", 5000)
;SERVER STATUS
$widthCell = 36
GUICtrlSetColor(-1, 0xff00)

;SEARCH FOR TEXT AND POSTS CASE
Dim $avCodes[1] = ["GIF89"]
$src1 = _INetGetSource('http://www.qonquer.com/status/status.php?link=127.0.0.1:9958')
$trm1 = StringTrimLeft($src1, 0)
$trm3 = StringTrimRight($trm1, 49)
For $i = 0 To UBound($avCodes) - 1
    $Input = $avCodes[$i]
    $Pos = _ArraySearch($trm3, $Input)
    Select
        Case $Pos = -1
            GUICtrlCreatePic("online.bmp", 12, 38, 36, 18)
        Case Else
            GUICtrlCreatePic("offline.bmp", -1, 0, 36, 18)
    EndSelect
Next

;PLAYERS ONLINE

$label = GUICtrlCreateLabel(Getplayers(), -1, 33, $widthCell)

GUISetState()

;BACKGROUND IMAGE
$background = GUICtrlCreatePic("qbackground.bmp", -47, -105, 304, 109)
GUICtrlSetState(-1, $GUI_ONTOP)

While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
Func Getplayers()
    $src = _INetGetSource('http://69.41.179.98:9980/online.js')
    $trm = StringTrimLeft($src, 17)
    $trm2 = StringTrimRight($trm, 4)
    Return $trm2
EndFunc  ;==>Getplayers

Func SetPlayers ()
    GUICtrlSetData($label, Getplayers())
EndFunc  ;==>SetPlayers

Any help or direction is greatly appreciated.

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
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...