So I was trying to get down the basics..

Discussion in 'Code Snippets and Tutorials' started by Fexxel, Mar 18, 2009.

  1. Fexxel

    Fexxel Level IV

    Joined:
    Jan 28, 2009
    Messages:
    959
    Likes Received:
    26
    I used the following code:
    Code (Text):
    1. Public Class Form1
    2.  
    3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4.         Lblstatus.Text = "Status:...Going to Neopets"
    5.         source = rawr.GetRequest("http://www.neopets.com/loginpage.phtml/", "http://www.neopets.com/")
    6.         Lblstatus.Text = "Status:...Going to Login Page"
    7.         System.Threading.Thread.Sleep(500)
    8.         source = rawr.PostRequest("http://www.neopets.com/hi.phtml?destination=%2Findex.phtml&username=" + Txtuser.Text + "&x=0&y=0", "http://www.neopets.com/loginpage.phtml")
    9.         Lblstatus.Text = "Status:...Inputting Password"
    10.         System.Threading.Thread.Sleep(500)
    11.         source = rawr.PostRequest("http://www.neopets.com/login.phtml?destination=%2Findex.phtml&username=" + txtuser.text + "&password=" + txtpass.text + "&x=0&y=0", "http://www.neopets.com/hi.phtml")
    12.  
    13.         If source.Contains("Welcome,") Then
    14.             Lblstatus.Text = "Status:...Logged in Successfully"
    15.             lstlog.items.add("Logged In As - " + txtuser.text)
    16.         ElseIf source.Contains("too many times") Then
    17.             MsgBox("Too Many Login Attempts")
    18.         ElseIf source.Contains("badpassword") Then
    19.             MsgBox("Wrong Password")
    20.         ElseIf source.Contains("frozen") Then
    21.             MsgBox("Account Frozen")
    22.         Else
    23.             MsgBox("Unknown Error!")
    24.         End If
    25.     End Sub
    26. End Class
    27. Imports System.Text.Regularexpressions
    28. Imports System.Net
    29. Imports System.IO
    30. Imports System.Text
    31. Imports System.IO.Compression
    32. Imports System.Runtime.Serialization.Formatters.Binary
    33. Public Class TCPWrapper
    34.     Inherits System.Windows.Forms.UserControl
    35. #Region " Windows Form Designer generated code "
    36.     Public Sub New()
    37.         MyBase.New()
    38.         'This call is required by the Windows Form Designer.
    39.         InitializeComponent()
    40.         'Add any initialization after the InitializeComponent() call
    41.     End Sub
    42.     'UserControl overrides dispose to clean up the component list.
    43.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    44.         If disposing Then
    45.             If Not (components Is Nothing) Then
    46.                 components.Dispose()
    47.             End If
    48.         End If
    49.         MyBase.Dispose(disposing)
    50.     End Sub
    51.     'Required by the Windows Form Designer
    52.     Private components As System.ComponentModel.IContainer
    53.     'NOTE: The following procedure is required by the Windows Form Designer
    54.     'It can be modified using the Windows Form Designer.
    55.     'Do not modify it using the code editor.
    56.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    57.         components = New System.ComponentModel.Container
    58.     End Sub
    59. #End Region
    60.     Private colCookies As New Collection
    61.     Dim strCookies As String
    62.     Public LastPage As String
    63.     Public bGzip As Boolean
    64.     Public Function Request(ByVal Method As String, ByVal URL As String, ByVal Referer As String) As String
    65.         Dim Host As String = Nothing
    66.         Dim strFile As String = Nothing
    67.         Dim strPost As String = Nothing
    68.         Dim pos As Integer = 0
    69.         If Referer Is Nothing Then
    70.             Referer = LastPage
    71.         End If
    72.         If URL.Contains("http://") Then
    73.             Host = URL.Substring(7)
    74.         Else
    75.             Host = URL
    76.         End If
    77.         If Host.Contains("/") Then
    78.             pos = Host.IndexOf("/", 0)
    79.             strFile = Host.Substring(pos)
    80.             Host = Host.Substring(0, pos)
    81.         Else
    82.             strFile = "/"
    83.         End If
    84.         If Method = "POST" Then
    85.             pos = strFile.IndexOf("?")
    86.             If Not (pos = -1) Then
    87.                 strPost = strFile.Substring(pos + 1)
    88.                 strFile = strFile.Substring(0, pos)
    89.             Else
    90.                 strPost = Nothing
    91.             End If
    92.         End If
    93.         LastPage = URL
    94.         Dim ReqHeaders As String = Nothing
    95.         If bGzip = True Then
    96.             If Method = "GET" OrElse Method = "PIC" Then
    97.                 ReqHeaders = "GET" + " " + strFile + " HTTP/1.1" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Host: " + Host + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.8.0.7) Gecko/20060909 Firefox/1.5.0.7" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept-Language: en-us,en;q=0.5" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept-Encoding: gzip, deflate" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Keep-Alive: 300" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Connection: keep-alive" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Referer: " + Referer + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Cookie: " + strCookies + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & ""
    98.             Else
    99.                 ReqHeaders = "POST " + strFile + " HTTP/1.1" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Host: " + Host + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.8.0.7) Gecko/20060909 Firefox/1.5.0.7" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept-Language: en-us,en;q=0.5" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept-Encoding: gzip, deflate" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Keep-Alive: 300" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Connection: keep-alive" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Referer: " + Referer + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Cookie: " + strCookies + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Content-Type: application/x-www-form-urlencoded" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Content-Length: " + strPost.Length.ToString + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Connection: close" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + strPost
    100.             End If
    101.             If Method = "PIC" Then
    102.                 ReqHeaders.Replace("Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5", "Accept: image/png,*/*;q=0.5")
    103.             End If
    104.         Else
    105.             If Method = "GET" OrElse Method = "PIC" Then
    106.                 ReqHeaders = "GET" + " " + strFile + " HTTP/1.1" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Host: " + Host + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.8.0.7) Gecko/20060909 Firefox/1.5.0.7" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept-Language: en-us,en;q=0.5" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" & "" + "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Keep-Alive: 300" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Connection: keep-alive" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Referer: " + Referer + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Cookie: " + strCookies + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & ""
    107.             Else
    108.                 ReqHeaders = "POST " + strFile + " HTTP/1.1" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Host: " + Host + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.8.0.7) Gecko/20060909 Firefox/1.5.0.7" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept-Language: en-us,en;q=0.5" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Keep-Alive: 300" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Connection: keep-alive" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Referer: " + Referer + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Cookie: " + strCookies + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Content-Type: application/x-www-form-urlencoded" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Content-Length: " + strPost.Length.ToString + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "Connection: close" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + "" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" + strPost
    109.             End If
    110.             If Method = "PIC" Then
    111.                 ReqHeaders.Replace("Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5", "Accept: image/png,*/*;q=0.5")
    112.             End If
    113.         End If
    114.  
    115.         Dim tcp As New System.Net.Sockets.TcpClient
    116.         Dim netstream As System.Net.Sockets.NetworkStream
    117.         Dim TN(1) As Long
    118.         If Referer = "" Then Referer = LastPage
    119.         If InStr(1, URL, "http://") <> 0 Then Host = Mid$(URL, 8)
    120.         If InStr(1, Host, "/") <> 0 Then Host = Mid$(Host, 1, InStr(1, Host, "/") - 1)
    121.         If InStr(1, Host, "?") <> 0 Then Host = Mid$(Host, 1, InStr(1, Host, "?") - 1)
    122.         If Mid$(Host, 1, 4) = "www." Then Host = Mid$(Host, 5)
    123.         LastPage = URL
    124.         Try
    125.             tcp.Connect(Host, 80)
    126.         Catch ex As Exception
    127.             Return ex.Message
    128.         End Try
    129.  
    130.         Dim sendbytes As Byte()
    131.         sendbytes = System.Text.Encoding.ASCII.GetBytes(ReqHeaders)
    132.         netstream = tcp.GetStream()
    133.         netstream.Write(sendbytes, 0, sendbytes.Length)
    134.         Dim sr As StreamReader = New StreamReader(netstream, Encoding.Default)
    135.         Dim strHTML As String = sr.ReadToEnd
    136.         Dim strParts As String() = Regex.Split(strHTML, Environment.NewLine + Environment.NewLine)
    137.         strCookies = ParseCookies(strParts(0))
    138.         If strParts(0).Contains("Content-Encoding") Then
    139.             strParts(1) = DecompressGzip(strParts(1))
    140.         End If
    141.         Dim uppBound As Integer = strParts.GetUpperBound(0)
    142.         Dim strReturn As String = ""
    143.         For i As Integer = 1 To uppBound
    144.             strReturn += strParts(i)
    145.         Next
    146.         If InStr(strReturn, "not logged in") Then
    147.             If frmMain.chkWarn.Checked = False Then
    148.                 frmMain.TimerAutobuy.Enabled = False
    149.                 frmMain.lblStatus.Text = "Logged out!"
    150.                 frmMain.GroupBox1.Enabled = True
    151.                 frmMain.cmdLogout.Enabled = False
    152.                 frmMain.cmdLogin.Enabled = True
    153.                 frmMain.cmdStop.Enabled = False
    154.                 frmMain.cmdStart.Enabled = True
    155.                 MsgBox("You have been logged out!", MsgBoxStyle.Critical, "Logged out!")
    156.                 ClearCookies()
    157.             Else
    158.                 frmMain.lblStatus.Text = "Logged out!"
    159.                 frmMain.TimerAutobuy.Enabled = False
    160.                 ClearCookies()
    161.                 Pause(5)
    162.                 frmMain.Login(frmMain.txtUsername.Text, frmMain.txtPassword.Text)
    163.                 Pause(5)
    164.                 frmMain.lblStatus.Text = "Looking for Items"
    165.                 frmMain.TimerAutobuy.Enabled = True
    166.                 frmMain.cmdStop.Enabled = True
    167.                 frmMain.cmdStart.Enabled = False
    168.             End If
    169.         End If
    170.         Return strReturn
    171.     End Function
    172.     Public Function DecompressGzip(ByVal compressed As String) As String
    173.         Dim memStream As MemoryStream = New MemoryStream(System.Text.Encoding.Default.GetBytes(compressed))
    174.         Dim decompressStream As GZipStream = New GZipStream(memStream, CompressionMode.Decompress)
    175.         Dim endBytes(4) As Byte
    176.         Dim position As Integer = CType(memStream.Length, Integer) - 4
    177.         memStream.Position = position
    178.         memStream.Read(endBytes, 0, 4)
    179.         memStream.Position = 0
    180.         Dim buffer(BitConverter.ToInt32(endBytes, 0) + 100) As Byte
    181.         Dim offset As Integer = 0
    182.         Dim total As Integer = 0
    183.         While True
    184.             Dim bytesRead As Integer = decompressStream.Read(buffer, offset, 100)
    185.             If bytesRead = 0 Then
    186.                 Exit While
    187.             End If
    188.             offset += bytesRead
    189.             total += bytesRead
    190.         End While
    191.         Return Encoding.ASCII.GetString(buffer)
    192.     End Function
    193.     Public Function ParseCookies(ByVal Headers As String) As String
    194.         ParseCookies = ""
    195.         Dim reg As Regex
    196.         Dim matches As MatchCollection
    197.         Dim match As Match
    198.         reg = New Regex("set-cookie:\s*([^=]+)=([^;]+);", RegexOptions.IgnoreCase)
    199.         If reg.IsMatch(Headers) Then
    200.             matches = reg.Matches(Headers)
    201.             For Each match In matches
    202.                 Try
    203.                     colCookies.Add(match.Groups(1).ToString & "=" & match.Groups(2).ToString, match.Groups(1).ToString)
    204.                 Catch ex As Exception
    205.                     colCookies.Remove(match.Groups(1).ToString)
    206.                     colCookies.Add(match.Groups(1).ToString & "=" & match.Groups(2).ToString, match.Groups(1).ToString)
    207.                 End Try
    208.             Next
    209.         End If
    210.         Dim i As Long
    211.         For i = 1 To colCookies.Count Step 1
    212.             ParseCookies = ParseCookies & colCookies.Item(i).ToString & ";"
    213.         Next
    214.     End Function
    215.     Public Function StripHeaders(ByVal strSource As String) As String
    216.         Dim strParts() As String = Regex.Split(strSource, Environment.NewLine + Environment.NewLine)
    217.         Return strParts(1)
    218.     End Function
    219.     Public Function NeoLogin(ByVal user As String, ByVal pass As String, ByRef loggedIn As Boolean) As String
    220.         ClearCookies()
    221.         Dim strHTML As String = Nothing
    222.         Request("GET", "http://neopets.com/loginpage.phtml", "http://google.com")
    223.         Pause(1)
    224.         Request("POST", "http://www.neopets.com/hi.phtml?destination=%2Fpetcentral.phtml&username=" + user, "http://neopets.com/loginpage.phtml")
    225.         Pause(1)
    226.         Request("POST", "http://www.neopets.com/login.phtml?username=" + user + "&password=" + pass + "&destination=%2Fpetcentral.phtml", "http://neopets.com/hi.phtml")
    227.         strHTML = Request("GET", "http://www.neopets.com/objects.phtml", "http://www.neopets.com/petcentral.phtml")
    228.         If strHTML.Contains("Welcome, ") Then
    229.             loggedIn = True
    230.             Return "Logged In"
    231.         Else
    232.             If strHTML.Contains("too many times") Then
    233.                 loggedIn = False
    234.                 Return "To Many Login Attempts"
    235.             Else
    236.                 If strHTML.Contains("not logged in") Then
    237.                     loggedIn = False
    238.                     Return "Wrong Password"
    239.                 Else
    240.                     If strHTML.Contains("frozen") Then
    241.                         loggedIn = False
    242.                         Return "Account Frozen"
    243.                     Else
    244.                         If strHTML.Contains("just a technical problem") Then
    245.                             loggedIn = False
    246.                             Return "Neopets is down for maintenance."
    247.                         Else
    248.                             loggedIn = False
    249.                             Return strHTML
    250.                         End If
    251.                     End If
    252.                 End If
    253.             End If
    254.         End If
    255.     End Function
    256.     Private Shared Sub Pause(ByVal seconds As Double)
    257.         Dim num As Double = seconds * 1000
    258.         Dim t1 As DateTime = DateTime.Now
    259.         Dim t2 As DateTime = DateTime.Now
    260.         Dim tmDiff As TimeSpan = t2 - t1
    261.         While Convert.ToDouble(tmDiff.TotalMilliseconds.ToString) < num
    262.             t2 = DateTime.Now
    263.             tmDiff = t2 - t1
    264.             Application.DoEvents()
    265.         End While
    266.     End Sub
    267.     Public Function GrabPic(ByVal strURL As String) As System.Drawing.Image
    268.         Dim memStream As New MemoryStream(System.Text.Encoding.Default.GetBytes(StripHeaders(Request("GET", strURL, LastPage))))
    269.         GrabPic = Image.FromStream(memStream)
    270.         Return GrabPic
    271.     End Function
    272.     Public Function DownloadImage(ByVal URL As String) As System.Drawing.Image
    273.         Dim imageFile As New WebClient
    274.         Dim bytes() As Byte = imageFile.DownloadData(URL)
    275.  
    276.         Dim imageStream As New MemoryStream(bytes)
    277.         Dim downloadedImage As System.Drawing.Image = Image.FromStream(imageStream)
    278.  
    279.         DownloadImage = downloadedImage
    280.     End Function
    281.     Public Sub ClearCookies()
    282.         colCookies.Clear()
    283.         strCookies = Nothing
    284.     End Sub
    285.  
    286.     Public Function GetCookie()
    287.         Return strCookies
    288.     End Function
    289. End Class
    290.  
    This is my first ever attempt to just set up a neopets login. What did I do wrong? And yes, I am using Mythical Wrapper.
    These are the errors I got:
    Code (Text):
    1. Error   20  'Imports' statements must precede any declarations. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    27  1   SponsorClicker
    2. Error   21  'Imports' statements must precede any declarations. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    28  1   SponsorClicker
    3. Error   22  'Imports' statements must precede any declarations. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    29  1   SponsorClicker
    4. Error   23  'Imports' statements must precede any declarations. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    30  1   SponsorClicker
    5. Error   24  'Imports' statements must precede any declarations. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    31  1   SponsorClicker
    6. Error   25  'Imports' statements must precede any declarations. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    32  1   SponsorClicker
    7. Error   26  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    147 16  SponsorClicker
    8. Error   27  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    148 17  SponsorClicker
    9. Error   28  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    149 17  SponsorClicker
    10. Error   29  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    150 17  SponsorClicker
    11. Error   30  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    151 17  SponsorClicker
    12. Error   31  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    152 17  SponsorClicker
    13. Error   32  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    153 17  SponsorClicker
    14. Error   33  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    154 17  SponsorClicker
    15. Error   34  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    158 17  SponsorClicker
    16. Error   35  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    159 17  SponsorClicker
    17. Error   36  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    162 17  SponsorClicker
    18. Error   37  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    162 31  SponsorClicker
    19. Error   38  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    162 57  SponsorClicker
    20. Error   39  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    164 17  SponsorClicker
    21. Error   40  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    165 17  SponsorClicker
    22. Error   41  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    166 17  SponsorClicker
    23. Error   42  Name 'frmMain' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    167 17  SponsorClicker
    24. Error   1   Name 'Lblstatus' is not declared.   C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    4   9   SponsorClicker
    25. Error   4   Name 'Lblstatus' is not declared.   C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    6   9   SponsorClicker
    26. Error   8   Name 'Lblstatus' is not declared.   C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    9   9   SponsorClicker
    27. Error   14  Name 'Lblstatus' is not declared.   C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    14  13  SponsorClicker
    28. Error   15  Name 'lstlog' is not declared.  C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    15  13  SponsorClicker
    29. Error   3   Name 'rawr' is not declared.    C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    5   18  SponsorClicker
    30. Error   6   Name 'rawr' is not declared.    C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    8   18  SponsorClicker
    31. Error   10  Name 'rawr' is not declared.    C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    11  18  SponsorClicker
    32. Error   2   Name 'source' is not declared.  C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    5   9   SponsorClicker
    33. Error   5   Name 'source' is not declared.  C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    8   9   SponsorClicker
    34. Error   9   Name 'source' is not declared.  C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    11  9   SponsorClicker
    35. Error   13  Name 'source' is not declared.  C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    13  12  SponsorClicker
    36. Error   17  Name 'source' is not declared.  C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    16  16  SponsorClicker
    37. Error   18  Name 'source' is not declared.  C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    18  16  SponsorClicker
    38. Error   19  Name 'source' is not declared.  C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    20  16  SponsorClicker
    39. Error   12  Name 'txtpass' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    11  141 SponsorClicker
    40. Error   11  Name 'txtuser' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    11  111 SponsorClicker
    41. Error   16  Name 'txtuser' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    15  50  SponsorClicker
    42. Error   7   Name 'Txtuser' is not declared. C:\Users\Carter\AppData\Local\Temporary Projects\SponsorClicker\Form1.vb    8   108 SponsorClicker
    43.