Caspian

Tack för hjälpen

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.

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

Hejsan! Jag spelar tribalwars och har ett hyfsat stort konto på värld 6. Jag började mycket sent men har ändå lyckats få en bra start. Jag känner dock att jag ej har den tid som behövs för att ensam sköta kontot. Jag har kunskapen/erfarenheten då jag haft flera miljoner på flera .net världar. Men jag har ej tiden.. Är Du intresserad av att få spela tillsammans med mig? Det kommer då att vara Ditt konto lika mycket som mitt. Du kommer få spela hur mycket vi vill. Vi kommer även skapa scheman för att planera vår strategi på ett bra sätt. Är du intresserad, Skriv ett PM snarast! Jag väntar på Dig.

Det behövs inte längre. Jag hittade hur man gör :)

Nej nej, På biltjuv ser man gott och tydligt att det är riktigt text det är gjort av. På sidan jag länkade till är det bilder PÅ text banners.

Hejsan! Jag spelar online spelet Biltjuv och i det spelet är det väldigt vanligt att folk skapar "text banners". Jag undrar om någon här kan förklara hur dessa gör? Jag har sökt på google men hittar inget där, Så jag får helt enkelt skriva en egen tråd om detta så kommer säkert någon med samma fråga som mig och som söker på google i framtiden hitta till denna tråd. :) Text banner är på biltjuv när man på sin profil har som en "bild" fast den är gjort av text. Jag ska visa en sida som "säljer" sådana bilder till folk på biltjuv. Ni kanske får en bättre överblick då. http://medlem.spray.se/maryloo63/ Frågan är, Använder man något program när man gör detta eller hur går det till? Hoppas på hjälp.

Menar du att starta om Steam?

Hejsan! Jag är helt ny inom CS och är inte särskilt teknisk. Men jag har hört att många av er här är det. Nåväl; Jag köpte Counter Strike: Source för en stund sedan och har installerat det spelet på min Windows Vista. När jag hade installerat klart det startades Steam och jag laddade ner det som behövdes i "My Games" som jag hört man ska göra. Nu verkar allt vara klart och det står "100% ready", Men när jag klickar på Counter Strike ikonen på skrivbordet laddar det som vanligt, Men sedan står det "Hl2.exe har stött på ett problem och måste avslutas. Jag kan alltså inte starta spelet. Snälla kan ni hjälpa mig?

Adda min adress [email protected] (ÄR INTE FÖDD 96 ALLA FRÅGAR!) så kan vi snacka mer. Är inte precis en noob jag heller, kan HTML utantill =)

Hej! Jag söker ett konto på biltjuv . Jag är villig att ge ett konto på travian, tribalwars eller battleknight mot ett på biltjuv. Kontot ska vara i minst level 50 men gärna högre. (när jag säger level 50 säger jag ett av de exremaste dåligaste kraven) . Om konto är tillräckligt bra kan jag ge alla mina spel konton mot det. De är alla av hög kvalitét. Alltså, inte bara själva poängen/levlarna utan även själva personen. Alla konton har många vänner och i 2 av kontona är jag ledare. Om du är snäll och är lite intresserad, snälla. Skriv ett PM.

Så allihopa! Adressen till forumet är www.bytkonto.se.nu (se.nu, jag vet klassiker men måste ju se så forumet funkar först ^^) . Ni som vill bli moderatorer regga er på forumet.

Ja jag har inte sagt att det komer hålla så länge ^^ Det går ut på att om du försöker högerklicka kommer det direkt upp en ruta "allt innehåll är mitt" eller vad man vill ha för text. Jag ska fixa en länk till sidan jag hittade det på.

Jag vet vad du menar, du vill inte att folk ska kunna högerklicka på din site. Det går att fixa men vem som helst kan ändå visa "källan" . Jag har den koden på en av mina sidor tror denna funkar: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <script language="javascript" type="text/javascript"> <!-- var message="Allt innehåll är copyrightskyddat."; function click(e) { if (document.all) { if (event.button == 2) { alert(message); return false; } } if (document.layers) { if (e.which == 3) { alert(message); return false; } } } if (document.layers) { document.captureEvents(Event.MOUSEDOWN); } document.onmousedown=click; // --> </script> <STYLE TYPE="TEXT/CSS"> <!-- BODY { margin-right: 15%; margin-left: 15% } A:Hover { color: red } A {text-decoration: none } --> </STYLE> <TITLE>Copyright</TITLE> </HEAD>

Börja med att regga dig på forumet, (adressen komer sedan)

LÅter kul =) skriv ett PM till mig med din msn så kan vi snacka mer då. Har väldigt mycket planer.

Tack båda två, Jag tror dock jag ska fixa ett forum själv, allatså hitta en bra tjänst men det var mer medarbetare jag söker. Men mycket snäll tanke av dig Moonlamp =)

Jag var nyss inte på ett spel jag ska sluta spela, och då slog en idé mig! Jag ska bygga ett forum, där man kan byta konto på 1 spel till ett annat. Ett exempel: Jag ska sluta med runescape och skriver en annaons i forumet, en annan spelare som har en bra gubbe på tibia har länge sökt efter ett konto på runescape och vi gör ett byte. Det skulle vara perfekt, man får skriva beskrivning osv. Ska börja jobba på detta.

Jag hade tänkt bygga en ny sida eller ett nytt forum. Men jag är inte den bästa proggrameraren om man säger så. Dock seriös och det skulle varit väldigt roligt om det fanns någon person/personer som är kunniga inom HTML och liknande som kan hjälpa mig och tilsammans med mig driva en hemsida / forum. Hade varit jätte roligt.

Jag gillar snabbheten, enkelheten och designen =) Det jag inte förstår är hur du kan ha nytta av en sida om projektledning ? =O

Vadå superniNA.se? du har inte angivet rätt adress... :P

Vad snackar du om? mina inlägg ?

Nej absolut inte =) Bra sida ändå tycker jag =) bra början.

Bara några förslag ^^ Men trivs ni med forumet är det väl bra..

Om du tror du kan dölja vart du hoostat sidan så tror du fel. Original adressen till din startsida är http://one.xthost.info/jalle96/ralfennnnn/blandning.html .