kokolop4o (12-05-2012),masterdeath (08-17-2012),RaMb0_1 (12-02-2015),Rolis205 (05-06-2008),secraiskile (11-10-2014),xXxArchansZxXx (08-09-2012)
Yes thats right! auto Battler!
kokolop4o (12-05-2012),masterdeath (08-17-2012),RaMb0_1 (12-02-2015),Rolis205 (05-06-2008),secraiskile (11-10-2014),xXxArchansZxXx (08-09-2012)
Once again, no problem with it being written in Visual Basic 6.0, but, you're basically falsely advertising these programs. This one goes to;
https://www.g3300.webbyen.dk/moduler/...2692&checknr=1
At least 30 times.
Then it goes to your 'gangstawars' account named 'Geraldos';
https://www.gangstawar.com/gwar2/?p=special&id=31274
Not only will you probably be banned from here, but I will also be removing your account from 'Gangsta War'.
lmao "ok" but the website owner is a friend. and i don't even want to know what "gansta war" is. lmao
Then stop posting programs you've never written, you don't know how to decompile and read obviously, and that use insecure methods that gain points for someone on a game you've never heard of.
what does battleon have to do with "gangsta wars"Originally Posted by sockopen
LOL! Okay, seeing as that you have no clue what the program you just posted does, and you obviously didn't write it, the rest of this post will be to whoever actually did write these.Originally Posted by zero_cool
You're using Inet in Visual Basic 6, which uses Internet Explorer cookies, is slightly slower than winsock, and seeing as that you have no clue what you're doing, you don't even properly obtain the page. You're also using Inet.OpenURL which doesn't even allow you to POST any data or set a proper Referer, and the rest of your headers are way off.
Here's a much more proper way of using Inet, using the Execute function.
You obviously need a textbox named 'txthtml1' to hold the contents of the returned string. Of course that wouldn't make much sense without actually writing anything to txthtml1 now would it? You'd need this StateChanged sub.Code:Do While Inet1.StillExecuting: DoEvents: Loop txthtml1.Text = Empty Inet1.Execute "https://www.google.com/index.html", "GET", , "Referer: https://www.mpgh.net/forum/" & vbCrLf & "Content-Type: application/x-www-form-urlencoded" & vbCrLf & "Accept-Language: en-us" & vbCrLf & "User-Agent: Mozilla/4.0 (compatiable; MSIE 6.0; Windows NT 5.1; yie6; www.ASPSimply.com; .NET CLR 1.0.3705)" Do Until txthtml1.Text <> Empty: DoEvents: Loop
Or of course on the timeout you could have it retry the execution depending on it's importance. I still advise you using winsock or curl.Code:Private Sub Inet1_StateChanged(ByVal State As Integer) Dim HTML1 If State = 12 Then HTML1 = Inet1.GetChunk(1024) txthtml1.Text = HTML1 Do Until HTML1 = Empty HTML1 = Inet1.GetChunk(1024) txthtml1.Text = txthtml1.Text & HTML1 Loop ElseIf State = icTimeout Then Inet1.Cancel End If End Sub
What is Gangsta War?
Some gay ass web game.
THE EYE OF AN ADMINISTRATOR IS UPON YOU. ANY WRONG YOU DO IM GONNA SEE, WHEN YOU'RE ON MPGH, LOOK BEHIND YOU, 'CAUSE THATS WHERE IM GONNA BE
"First they ignore you. Then they laugh at you. Then they fight you. Then you lose.” - Dave84311
HAVING VIRTUAL DETOX
DUH' Its fucking old.. what do you fucking expect?
Current
[IMG]https://i293.photobucke*****m/albums/mm63/Kaylafay99/CristanoRonaldo.png[/IMG]
Respect list
iverson954360
DAVE983192849182
Jetamay
x.navi.x
Hyperion
Gourav2122
Hispai
TheEnigma
Paroxysm
ace76543
I'm Alen on Steam. RIP Skype Friday nights.
I'm Navi's lover 💖
Dave84311: God I've always wanted to eat crayons, with their vibrant colors. Only if they had taste.
Mr. Lonely: @Alen I like making you wet, it makes me hard.
hi,got a prob. NEED battleon hacks(cash,artmoney...and much more..) sry for posting here,,