Tracker Checker

[turbox]

This is the script:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <inet.au3>

$i = 1
Opt("GUIOnEventMode", 1)
$sleep = 2444
$Form1 = GUICreate("AutoCheck", 136, 165, 193, 125)
$b = GUICtrlCreateLabel("Local2", 24, 64, 84, 36)
GUICtrlSetFont(-1, 22, 400, 0, "MS Sans Serif")
$a = GUICtrlCreateLabel("Local1", 24, 16, 84, 36)
GUICtrlSetFont(-1, 22, 400, 0, "MS Sans Serif")
$c = GUICtrlCreateLabel("Local3", 24, 112, 84, 36)
GUICtrlSetFont(-1, 22, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
GUISetOnEvent(-3, "exitgui")
while 1
$i += 1
$getsource1 = _INetGetSource("http://blue-whitegt.com/signup.php")
if StringInStr($getsource1, "Registration Disabled") Then
    $valid1 = 2
Else
    $valid1 = 1
    EndIf
$getsource2 = _INetGetSource("http://www.torrentleech.org/index.php")
if StringInStr($getsource2, "Signups are closed") Then
    $valid2 = 2
Else
    $valid2 = 1
EndIf
$getsource3 = _INetGetSource("http://www.bitmetv.org/login.php")
if StringInStr($getsource3, "Find an invite") Then
    $valid3 = 2
Else
    $valid3 = 1
EndIf
$alltog = $valid1 & $valid2 & $valid3
_setlab($alltog)
TraySetToolTip($i)
sleep($sleep)
WEnd
Func _setlab($only)
    For $i = 1 To 3 Step 1
        $num = StringMid($only, $i, 1)
        Switch $i
            Case 1
                $lab = $a
            Case 2
                $lab = $b
            Case 3
                $lab = $c
        EndSwitch
        If $num = 1 Then
            $col = 0x0054E3
        Else
            $col = 0xD8E4F8
        EndIf
        GUICtrlSetBkColor($lab, $col)
    Next
EndFunc;==>_settext
Func exitgui()
    exit
EndFunc

The labels will be on dark blue when the registrations open

Edited September 4, 2008 by vakis