Kan Någon Kompilera Den Här Koden?

[Caspian]

Skulle någon kunnig kunna "kompilera" den här koden (eller vad det kallas) så att det blir ett färdigt program? Jag surfade nämligen in på en annan sida, Och där hade en person gjort en bot till ett spel jag lirar ibland. Hann visade dock endast koden, Och han skrev att man kunde "kompilera" koden och då blev det ett program.

 

Kan ingenting om det, Skulle någon vänlig kunna hjälpa mig?

 

Koden:

Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Security.Cryptography


Public Class frmMain
   Declare Sub InternetSetCookie Lib "wininet" Alias "InternetSetCookieA" (ByVal lpszUrl As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String)
   Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
   Declare Function EndTask Lib "user32.dll" (ByVal hWnd As IntPtr) As Integer
   Declare Function DestroyWindow Lib "user32" Alias "DestroyWindow" (ByVal hwnd As IntPtr) As Integer
   Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As IntPtr,ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

   Dim myContainer As CookieContainer
   Dim stealCar As Boolean
   Dim saljBil As Boolean
   Dim sekunder As Integer
   Dim stulnaBilar As Integer
   Dim stulnaBilarSession As Integer
   Dim sessionTimmar As Integer
   Dim sessionMinuter As Integer
   Dim sessionSekunder As Integer

   Dim rana As Boolean
   Dim antalRanade As Int64
   Dim MaxSekunder As Integer ' Hur ofta vi får stjäla bilar 

   Private Sub btnLoggaIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoggaIn.Click
       WebBrowser1.Navigate("http://www.biltjuv.nu")
   End Sub

   Private Sub btnStarta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStarta.Click
       If btnStarta.Text = "Starta" Then
           btnStarta.Text = "Stoppa"
           MaxSekunder = 80
           stulnaBilar = 9999
           stulnaBilarSession = 0
           antalRanade = 0
           Randomize()

           sekunder = MaxSekunder
           tmrStjalBil.Enabled = True
       Else
           btnStarta.Text = "Starta"
           tmrStjalBil.Enabled = False
       End If
   End Sub


   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

       If WebBrowser1.Url.AbsoluteUri = "http://www.biltjuv.nu/login.aspx?ReturnUrl=%2fDefault.aspx" Then
           WebBrowser1.Document.Forms.Item(0).GetElementsByTagName("INPUT").Item("txtUsername").InnerText = txtAnvandarnamn.Text
           WebBrowser1.Document.Forms.Item(0).GetElementsByTagName("INPUT").Item("txtPassword").InnerText = txtLosenord.Text
           WebBrowser1.Document.Forms(0).GetElementsByTagName("INPUT").Item("btnLogin").InvokeMember("click")
           panelLogin.Enabled = False
           lblLoggedIn.Text = "Status: Inloggad"
           lblLoggedIn.BackColor = Color.Goldenrod
       End If

       If WebBrowser1.Url.AbsoluteUri = "http://www.biltjuv.nu/default.aspx?p=crime" And stealCar Then
           
           Dim tmpString As String = WebBrowser1.DocumentText
           Dim stulnaBilarText As String = tmpString.Substring(tmpString.IndexOf("ctl03_lblVehicles") + 19, tmpString.IndexOf(" /", tmpString.IndexOf("ctl03_lblVehicles")) - tmpString.IndexOf("ctl03_lblVehicles") - 19)

           If stulnaBilar = 9999 Then
               stulnaBilar = stulnaBilarText
               lblBilarIGaraget.Text = "Bilar i garaget: " + stulnaBilarText
           End If

           If CInt(stulnaBilarText) > stulnaBilar Then
               lblBilarIGaraget.Text = "Bilar i garaget: " + stulnaBilarText
               stulnaBilarSession = stulnaBilarSession + (CInt(stulnaBilarText) - stulnaBilar)
               stulnaBilar = CInt(stulnaBilarText)

               lblStulnaBilar.Text = "Stulna bilar: " + stulnaBilarSession.ToString()
           End If

           stealCar = False

           WebBrowser1.Document.Forms(0).GetElementsByTagName("select").Item("ctl05_ddlSteal").SetAttribute("Value", "3")

           WebBrowser1.Document.Forms(0).GetElementsByTagName("INPUT").Item("ctl05_btnSteal").InvokeMember("click")
       End If

       If WebBrowser1.Url.AbsoluteUri = "http://www.biltjuv.nu/default.aspx?p=crime" And rana = True Then
           rana = False
           WebBrowser1.Document.Forms(0).GetElementsByTagName("select").Item("ctl05_ddlRob").SetAttribute("Value", "3")
           WebBrowser1.Document.Forms(0).GetElementsByTagName("INPUT").Item("ctl05_btnRob").InvokeMember("click")
       End If

       If WebBrowser1.Url.AbsoluteUri = "http://www.biltjuv.nu/default.aspx?p=fence" And saljBil = True Then
           saljBil = False
           WebBrowser1.Document.Forms(0).GetElementsByTagName("INPUT").Item("ctl05_btnSell").InvokeMember("click")
       End If

   End Sub


   Private Sub tmrRemovePopup_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrRemovePopup.Tick
       Dim hwnd As IntPtr
       hwnd = FindWindow("#32770", "Windows Internet Explorer")
       If hwnd = -1 Or hwnd = 0 Then
           hwnd = FindWindow(vbNullString, "Sidan på http://biltjuv.nu säger:")
       End If

       If hwnd <> 0 And hwnd <> -1 Then
           SendMessage(hwnd, &H10S, 0, IntPtr.Zero) '&HF5& = BM_CLICK
       End If
       EndTask(hwnd)
   End Sub

   Private Sub tmrStjalBil_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrStjalBil.Tick
       sekunder = sekunder + 1
       sessionSekunder = sessionSekunder + 1

       If sessionSekunder = 60 Then
           sessionSekunder = 0
           sessionMinuter = sessionMinuter + 1
           If sessionMinuter >= 60 Then
               sessionMinuter = 0
               sessionTimmar = sessionTimmar + 1
           End If
       End If
       lblSession.Text = "Speltid: " + sessionTimmar.ToString() + " timmar " + sessionMinuter.ToString() + " minuter och " + sessionSekunder.ToString() + " sekunder"


       If sekunder >= MaxSekunder Then
           MaxSekunder = 85 + rand(4, 25)
           sekunder = 0
           WebBrowser1.Navigate("http://www.biltjuv.nu/default.aspx?p=crime")
           stealCar = True
       End If

       If (sekunder Mod 10) = 0 And stulnaBilar >= 5 And stulnaBilar <> 9999 And sekunder <= MaxSekunder - 20 Then
           System.Threading.Thread.Sleep(rand(2000, 7000))
           saljBilar()
       End If

       If sekunder = 65 Then
           System.Threading.Thread.Sleep(rand(300, 8700))
           ranaNagon()
       End If
       lblStjalTid.Text = "Stjäl bil om: " + (MaxSekunder - sekunder).ToString() + " sekunder"
       lblRanarPerson.Text = "Rånar person om: " + (65 - sekunder).ToString
   End Sub

   Private Sub saljBilar()
       saljBil = True
       WebBrowser1.Navigate("http://www.biltjuv.nu/default.aspx?p=fence")
       stulnaBilar = 0
       lblBilarIGaraget.Text = "Bilar i garaget: 0 (Nyligen sålt lasten)"
   End Sub

   Private Sub ranaNagon()
       rana = True
       WebBrowser1.Navigate("http://www.biltjuv.nu/default.aspx?p=crime")
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   End Sub

   Function rand(ByVal low As Integer, ByVal high As Integer)
       Return Int((high - low + 1) * Rnd() + low)
   End Function


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       MessageBox.Show(rand(20, 40))
   End Sub

   Private Sub btnPausa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPausa.Click
       If btnPausa.Text = "Pausa" Then
           btnPausa.Text = "Avbryt paus"
           tmrStjalBil.Enabled = False
           tmrRemovePopup.Enabled = False
       Else
           btnPausa.Text = "Pausa"
           tmrStjalBil.Enabled = True
           tmrRemovePopup.Enabled = True
       End If
   End Sub

   Private Sub chkBoxVisa_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkBoxVisa.CheckedChanged
       If chkBoxVisa.Checked = True Then
           WebBrowser1.Visible = True
           Me.Width = 1165
           Me.Height = 601
       Else
           WebBrowser1.Visible = False
           Me.Width = 307
           Me.Height = 416
       End If
   End Sub

   Private Sub btnRana_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRana.Click
       ranaNagon()
   End Sub
End Class  

[Caspian]

Någon som kan förklara hur jag själv kan kompilera den då? Kom igen, Jag valde det här forumet för jag trodde att ni var hjälpsamma.

[Vitdom]

Jag kollade igenom några programmeringsspråk tills jag märkte att det var Visual Basic.

 

Själv programmerar jag inte i Visual Basic så jag har ingen kompilator och orkar då inte göra det åt dig.

 

 

Men du kan själv kompilera koden med Microsoft Visual Basic 2008 Express Edition som du kan ladda ner här ifrån: http://www.microsoft.com/express/download/

Redigerat 1 Maj 2009 av Vitdom

[Caspian]

Tack för hjälpen

[Gäst Najgor]

Tack för hjälpen

Känner igen den koden riktigt mycket, är det inte RiddarRalf eller något liknande namn på flashback som gjort den?

[kerex132]

Jo det är det.