Jump to content

help


 Share

Recommended Posts

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.

Link to comment
Share on other sites

$number = 8
$time = TimerInit()
$now = 1000
While 1
    If Int(TimerDiff($time)) = Int($now) Then
          if $number = 8 then
           $now = $now + 1000
            Msgbox(0,"msg","server frozen")
          EndIf
    EndIf
WEnd

edit this to your script

Edited by kip
Link to comment
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
 Share

  • Recently Browsing   0 members

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