Allows instant spin without wait or pulling leaver. You shoudl change the reffering url below.
Code:
Dim thepacket As String = Chr(0) & Chr(3) & Chr(0) & Chr(0) & Chr(0) & Chr(1) & Chr(0) & Chr(22) & "WheelService.spinWheel" & Chr(0) & Chr(2) & Chr(47) & Chr(49) & Chr(0) & Chr(0) & Chr(0) & Chr(9) & Chr(10) & Chr(0) & Chr(0) & Chr(0) & Chr(1) & Chr(2) & Chr(0) & Chr(1) & "5"
Dim html As String = thewrapper.Request("AMF", "http://www.neopets.com/amfphp/gateway.php?" & thepacket, "http://images.neopets.com/wheels/wheel_of_mediocrity_v2_c4ed41eb31.swf?r=1058850156")
Wrapper..
[CODE]
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.IO
Imports System.IO.Compression
Imports System.Net.Sockets
Public Class httpwrapper
'Httpwrapper Credits to glurak and whoever converted this to vb.net
'This is not my work except for some slight chagnges and tweaks where i see fit
Implements ICloneable
Private TCP_Client As TcpClient
Private colCookies As Dictionary(Of String, String) = New Dictionary(Of String, String)
Public strCookies As String = String.Empty
Public LastPage As String = String.Empty
Private pUseProxy As Boolean = False
Private pProxyAddress As String = String.Empty
Private pProxyPort As Integer = 80
Public Const constHeaderUserAgent As String = "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-GB; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8"
Public headerAccept As String = "text/html,application/xhtml+xml,application/xml,0.9,*/*;q=0.8"
Public headerUserAgent As String = "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-GB; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8"
Public headerAcceptLanguage As String = "en-us,en;q=0.5"
Public headerAcceptCharset As String = "ISO-8859-1,utf-8;q=0.7,*;q=0.7"
Public alternativePostdataSeparator As String = "