DarkByte
08-05-2012, 05:42 AM
Allows instant spin without wait or pulling leaver. You shoudl change the reffering url below.
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", "[Only registered and activated users can see links]" & thepacket, "[Only registered and activated users can see links]")
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 [Only registered and activated users can see links]
'[Only registered and activated users can see links] 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 = "
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", "[Only registered and activated users can see links]" & thepacket, "[Only registered and activated users can see links]")
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 [Only registered and activated users can see links]
'[Only registered and activated users can see links] 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 = "