Realm Notifier

Quick 'n' Dirty Realm Notifier that's powered by Realm Bay.

What you will need:
AutoIt
You'll need to create a text file named "EVENTS" and save it where the AU3 script is.

Code:


    $oldevent = ""
    While 1
    $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
    $oHTTP.Open("GET", "REALMBAY[dot]COM / data[dot]txt", False)
     
    $oHTTP.Send()
    $oReceived = $oHTTP.ResponseText
    $oStatusCode = $oHTTP.Status
     
    If $oStatusCode == 200 then
    $file = FileOpen("EVENTS.txt", 2)
    FileWrite($file, $oReceived)
    FileClose($file)
    $file2 = FileOpen("EVENTS.txt", 0)
    $TheFirstLine = FileReadLine ($file2, 1)
    $file3 = FileOpen("EVENTS.txt", 2)
    FileWrite($file3, $TheFirstLine)
    FileClose($file3)
    $checking = FileOpen("EVENTS.txt", 0)
    $TheLine = FileReadLine($checking, 1)
    if $TheLine = $oldevent Then
    sleep(50)
    Else
       $oldevent = $TheLine
       $crap = SplashTextOn("", $TheLine,       @desktopWidth, 50, 0, 0, 1, "", 5)
       WinSetTrans($crap, "", 170)
       FileClose($file2)
       EndIf
    EndIf
    sleep(100)
    WEnd

Posted the script on Pastebin because MPGH detects some functions of the script as links.
Feel free to edit the script.

EDIT : Just to be clear, this isn't one of those Event Notifiers that you turn on when you are in realms, this one is using information that is being updated each 10 seconds or so from RealmBay.

VuihBTx.png

Looks good, but I don't like the location of the dialog box. I would prefer it to be smaller and on the side somewhere. Also there should be a close option for the box, other than that, nice work

Originally Posted by Pepsi Cola

Looks good, but I don't like the location of the dialog box. I would prefer it to be smaller and on the side somewhere. Also there should be a close option for the box, other than that, nice work

Thanks, but as I said, feel free to edit the code, AutoIt is a really easy and handy Programming Language, so yeah.

Originally Posted by MLX

Thanks, but as I said, feel free to edit the code, AutoIt is a really easy and handy Programming Language, so yeah.

Already have >.< and It's working well, again, GJ.

dont know anything about autoit but...i ran it and nothing has happened so far..

Originally Posted by dg123

dont know anything about autoit but...i ran it and nothing has happened so far..

Make sure that you have AutoIt installed, and you've changed this

Code:

"REALMBAY[dot]COM / data[dot]txt"

to the actual website.

Originally Posted by MLX

Make sure you have AutoIt downloaded, and you've changed this

Code:

"REALMBAY[dot]COM / data[dot]txt"

to the actual website.

i changed it to the actual site...but the icon switches between normal and an x. when clicked it says script paused...nothing else happened and EVENTS.txt is still empty

Originally Posted by dg123

i changed it to the actual site...but the icon switches between normal and an x. when clicked it says script paused...nothing else happened and EVENTS.txt is still empty

No need to do anything really.
Just make sure they are both in the same folder and run the .au3 afer changing it to the actual site. nothing else.

Originally Posted by Pepsi Cola

No need to do anything really.
Just make sure they are both in the same folder and run the .au3 afer changing it to the actual site. nothing else.

did that...can you show me what its supposed to look like?

yep i got the same thing, nothing happens when i open the au3 file

Actualy he is wrong, you DO have to do something to make it work as the script is slightly wrong and I had to make some changes for it to work.

Here's how I set mine up

Code:

    $oldevent = ""
    While 1
    $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
    $oHTTP.Open("GET", "http://realmbay.com/data.php", False)

    $oHTTP.Send()
    $oReceived = $oHTTP.ResponseText
    $oStatusCode = $oHTTP.Status

    If $oStatusCode == 200 then
    $file = FileOpen("EVENTS.txt", 2)
    FileWrite($file, $oReceived)
    FileClose($file)
    $file2 = FileOpen("EVENTS.txt", 0)
    $TheFirstLine = FileReadLine ($file2, 17)
    $file3 = FileOpen("EVENTS.txt", 2)
    FileWrite($file3, $TheFirstLine)
    FileClose($file3)
    $checking = FileOpen("EVENTS.txt", 0)
    $TheLine = FileReadLine($checking, 1)
    if $TheLine = $oldevent Then
    sleep(300)
    Else
       $oldevent = $TheLine
       $crap = SplashTextOn("", $TheLine, 500, 100, 200, 50, 17, "" )
       WinSetTrans($crap, "", 170)
       FileClose($file2)
       EndIf
    EndIf
    sleep(100)
    WEnd

Originally Posted by dg123

did that...can you show me what its supposed to look like?

Code:

$oldevent = ""
While 1
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", "http://realmbay.com/data.txt", False)

$oHTTP.Send()
$oReceived = $oHTTP.ResponseText
$oStatusCode = $oHTTP.Status

If $oStatusCode == 200 then
$file = FileOpen("EVENTS.txt", 2)
FileWrite($file, $oReceived)
FileClose($file)
$file2 = FileOpen("EVENTS.txt", 0)
$TheFirstLine = FileReadLine ($file2, 1)
$file3 = FileOpen("EVENTS.txt", 2)
FileWrite($file3, $TheFirstLine)
FileClose($file3)
$checking = FileOpen("EVENTS.txt", 0)
$TheLine = FileReadLine($checking, 1) 
$DLG_NOTITLE = 1
$DLG_NOTONTOP = 2
$DLG_TEXTLEFT = 4
$DLG_TEXTRIGHT = 8
$DLG_MOVEABLE = 16
$DLG_TEXTVCENTER = 32
if $TheLine = $oldevent Then
sleep(50)
Else
   $oldevent = $TheLine
   $crap = SplashTextOn("Realm Notifier [Powered By RealmBay]",$TheLine,  @desktopwidth, 50, 0, 0, 16, 1,"", 10)
   WinSetTrans($crap, "", 175)
   FileClose($file2)
   EndIf
EndIf
sleep(100)
WEnd

I edited mine a little bit. It is supposed to look like this:

Originally Posted by Pepsi Cola

Code:

$oldevent = "" While 1 $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") $oHTTP.Open("GET", "http://realmbay.com/data.txt", False) $oHTTP.Send() $oReceived = $oHTTP.ResponseText $oStatusCode = $oHTTP.Status If $oStatusCode == 200 then $file = FileOpen("EVENTS.txt", 2) FileWrite($file, $oReceived) FileClose($file) $file2 = FileOpen("EVENTS.txt", 0) $TheFirstLine = FileReadLine ($file2, 1) $file3 = FileOpen("EVENTS.txt", 2) FileWrite($file3, $TheFirstLine) FileClose($file3) $checking = FileOpen("EVENTS.txt", 0) $TheLine = FileReadLine($checking, 1) $DLG_NOTITLE = 1 $DLG_NOTONTOP = 2 $DLG_TEXTLEFT = 4 $DLG_TEXTRIGHT = 8 $DLG_MOVEABLE = 16 $DLG_TEXTVCENTER = 32 if $TheLine = $oldevent Then sleep(50) Else $oldevent = $TheLine $crap = SplashTextOn("Realm Notifier [Powered By RealmBay]",$TheLine, @desktopwidth, 50, 0, 0, 16, 1,"", 10) WinSetTrans($crap, "", 175) FileClose($file2) EndIf EndIf sleep(100) WEnd

I edited mine a little bit. It is supposed to look like this:

yours gives me errors

Originally Posted by dg123

yours gives me errors

Code:

$oldevent = ""
While 1
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", "http://realmbay.com/data.txt", False)

$oHTTP.Send()
$oReceived = $oHTTP.ResponseText
$oStatusCode = $oHTTP.Status

If $oStatusCode == 200 then
$file = FileOpen("EVENTS.txt", 2)
FileWrite($file, $oReceived)
FileClose($file)
$file2 = FileOpen("EVENTS.txt", 0)
$TheFirstLine = FileReadLine ($file2, 1)
$file3 = FileOpen("EVENTS.txt", 2)
FileWrite($file3, $TheFirstLine)
FileClose($file3)
$checking = FileOpen("EVENTS.txt", 0)
$TheLine = FileReadLine($checking, 1)
$DLG_MOVEABLE = 16
$DLG_NOTITLE = 1
$DLG_NOTONTOP = 2
$DLG_TEXTLEFT = 4
$DLG_TEXTRIGHT = 8
$DLG_MOVEABLE = 16
$DLG_TEXTVCENTER = 32
if $TheLine = $oldevent Then
sleep(50)
Else
   $oldevent = $TheLine
   $crap = SplashTextOn("Realm Notifier [Powered By RealmBay]",$TheLine, @desktopwidth, 50, 0, 0, 16, 1,"", 10)
   WinSetTrans($crap, "", 175)
   FileClose($file2)
   EndIf
EndIf
sleep(100)
WEnd

Try this. Working fine for me.

guys, does nobody notice that the forum fukks up the code? repair the (at)DesktopWidth into one line. then it works fine

Realm Notifier

Post a Reply

Similar Threads

Tags for this Thread