StealthBot.net: Help with a stats script... - StealthBot.net

Jump to content

Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Help with a stats script...

#1 User is offline   C0RR0SIVE Icon

  • OLD Senior Member.
  • PipPipPip
  • Group: Beta Testers
  • Posts: 208
  • Joined: August-17 09

Posted January 16, 2012 - 12:22 AM

Ok, I know this doesn't exactly follow standards, but the script works good IMO, except one thing... I can issue the stat command on my self, lets say an hour later, my stats on the page has changed, the bot still shows an old record, it actually seems to never try doing a query after the initial attempt per account name. Is there any way to fix this small issue?

Script("Name") = "ITTStats"
Script("Author") = "Quazz"
Script("Major") = 1
Script("Minor") = 0
Script("Revision") = 0

Sub Event_Load()
	AddChat vbGreen, "ITT Stats Up and Running..."
End Sub

Sub Event_MessageSent(MessageID, Message, Tag)
	dim web
	dim question
	if Left(message, 10)=".ittstats " then
		Set webObj = CreateObject("Microsoft.XMLHTTP")
		webObj.Open "GET", "http://localhost/sbittstats.php?p="&Mid(message, 11)&"&c="&category, False
		webObj.Send
		web = webObj.responseText
		AddQ web
	elseif Left(message, 9)=".ittstats" then
		Set webObj = CreateObject("Microsoft.XMLHTTP")
		webObj.Open "GET", "http://localhost/sbittstats.php?p=quazz", False
		webObj.Send
		web = webObj.responseText
		AddQ web
	elseif Left(message, 8)=".rankby " then
		Set webObj = CreateObject("Microsoft.XMLHTTP")
		webObj.Open "GET", "http://localhost/sbittrank.php?p="&Mid(message, 9) , False
		webObj.Send
		web = webObj.responseText
		AddQ web	
	end if
End Sub

Sub Event_Usertalk(Username, Flags, Message, Ping)
	dim web
	dim question
	if Left(message, 10)=".ittstats " then
		Set webObj = CreateObject("Microsoft.XMLHTTP")
		webObj.Open "GET", "http://localhost/sbittstats.php?p="&Mid(message, 11)&"&c="&category, False
		webObj.Send
		web = webObj.responseText
		AddQ web
	elseif Left(message, 9)=".ittstats" then
		Set webObj = CreateObject("Microsoft.XMLHTTP")
		webObj.Open "GET", "http://localhost/sbittstats.php?p="&username, False
		webObj.Send
		web = webObj.responseText
		AddQ web
	elseif Left(message, 8)=".rankby " then
		Set webObj = CreateObject("Microsoft.XMLHTTP")
		webObj.Open "GET", "http://localhost/sbittrank.php?p="&Mid(message, 9) , False
		webObj.Send
		web = webObj.responseText
		AddQ web	
	end if
End Sub

Sub Event_WhisperFromUser(Username, Flags, Message, Ping)
	dim web
	dim question
	if Left(message, 10)=".ittstats " then
		Set webObj = CreateObject("Microsoft.XMLHTTP")
		webObj.Open "GET", "http://localhost/sbittstats.php?p="&Mid(message, 11)&"&c="&category, False
		webObj.Send
		web = webObj.responseText
		AddQ "/w "+username+" "+web	
	elseif Left(message, 9)=".ittstats" then
		Set webObj = CreateObject("Microsoft.XMLHTTP")
		webObj.Open "GET", "http://localhost/sbittstats.php?p="&username, False
		webObj.Send
		web = webObj.responseText
		AddQ "/w "+username+" "+web	
	elseif Left(message, 8)=".rankby " then
		Set webObj = CreateObject("Microsoft.XMLHTTP")
		webObj.Open "GET", "http://localhost/sbittrank.php?p="&Mid(message, 9) , False
		webObj.Send
		web = webObj.responseText
		AddQ "/w "+username+" "+web	
	end if
End Sub


#2 User is offline   Novynn Icon

  • Silver Member
  • PipPipPipPipPip
  • Group: Members
  • Posts: 873
  • Joined: October-07 09

Posted January 16, 2012 - 05:31 AM

View PostC0RR0SIVE, on January 16, 2012 - 12:22 PM, said:

*Snip*

Web results are cached (its based around IE IIRC), so you have to use a random salt so you get a different URL every time.
Try this.
Spoiler

This post has been edited by Novynn: January 16, 2012 - 08:04 AM


#3 User is offline   C0RR0SIVE Icon

  • OLD Senior Member.
  • PipPipPip
  • Group: Beta Testers
  • Posts: 208
  • Joined: August-17 09

Posted January 16, 2012 - 05:23 PM

Nice, that seems to work out nicely, thank ya very much. :D

Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

1 User(s) are reading this topic
0 members, 1 guests, 0 anonymous users