Sign in to follow this  
Followers 0
Caer12

help

2 posts in this topic

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.

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

$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

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