[Release] Automatic Fileplanet refresh script

S

Slurp

Veteran XV
My clicking finger was getting tired, so I wrote a script. Enjoy.


Here is a script which will refresh Fileplanet within IE, and check for the word "Tribes" every 60 seconds. A message box will pop up when the key word is found.

To use: Copy the below code into a text file, give it a .vbs extension, and double click it.


Code: 
' Automatic Fileplanet refresh script. By Slurp.
' Copy this text into a file with a .vbs extension.  Double click it.  Proceed to stare at screen.
' Disclaimer: If this doesn't work, please don't hurt me.

Option Explicit

Dim IE, BodyText
Dim SearchText, TVBetaExists, RefreshRate, RefreshCount

SearchText = "TRIBES"	'Text to search for. Not case sensitive
RefreshRate = 60000	'Time between refresh
RefreshCount = 1	'Counter to keep track of amount of refreshes.

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True
IE.Navigate "www.fileplanet.com"


While Not TVBetaExists
	While IE.ReadyState <> 4 
		wscript.sleep 200
	Wend
	IE.Document.Title = "Slurp's Fileplanet Checker script - Attempt Number: " & RefreshCount

	BodyText = IE.Document.body.innerhtml

	If Instr( Ucase(BodyText), UCASE(SearchText)) <> 0 Then
		TVBetaExists = vbTrue
		msgbox "The Beta is here!"
	End If
	
	If Not TVBetaExists Then
		RefreshCount = RefreshCount + 1
		WScript.Sleep Refreshrate
		IE.Refresh2 3		'Option 3 = Refresh Completely
	End If
	
Wend




edit: Oh crap. I had a bug in the original. The "IE.Refresh2" method is supposed to use the "3" parameter, not "2". I don't know what the hell "2" is supposed to do. Above code modified.
 
Last edited:
However, you could use avant browser (which is very nice) and get away from your non-tabbed-browsings ways (yes I know avant is only basically a 'skin' and not a stand-alone browser).

Anyways, you can set that up with a click to refresh at about 8 different intervals...however you can't get it to auto search for tribes, so you are one-upped there.

very nice, btw.
 
Back
Top