GFX Depot - All Forums

[VB] Open Port scanner / Trojan finder

Mon, 25 Aug 2008 15:28:29 +0200

VB6 Tutorial By Funix
For GFX Depot
IP/PORT related tutorial (winsock)
Level: Normal

In this tutorial I will show you again how to work with a winsock control,
but this time we are going to use it to scan our computer for open ports.
The extra in this tutorial is that I show you how you could use this program
to scan your computer on trojans ;) which I think is very handy and easy
to work with if you know how

What we need on our form:

6 Textboxes

4 First textboxes are named sIP with an index, so sIP(0), sIP(1), sIP(2) and sIP(3)
One textbox for our end port called ePort
One texbox for our information called txtInformation ( Multiline and horizontal scrollbar)

A Timer with name TimerScan
A Winsock control with name wsock ( Press CTRL + T and select Microsoft Winsock control 6.0 )
A Commandbutton called cmdScan

Look at the attachment on how mine looks

The code:

Code:
' *****************************************
' * Tutorial: Open Port scanner with      *
' * extra to scan for trojans             *
' * Type: Visual Basic 6                  *
' * Coding: Funix                         *
' * Publisher: GFX-Depot                  *
' * Website: http://www.gfx-depot.com     *
' * Forum: http://www.gfx-depot.com/forum *
' * Level: Normal                         *
' * Copyrights: Copyrighted 2008 FuniX    *
' * All rights reserved                   *
' *****************************************

' Var 2 keep the Portnmbr in
Dim Portnmbr As Integer
' Var 2 keep the amount of open ports in
Dim counter As Integer
' TrojanPort with an index of 70000 for al the
' trojan ports ( look at extra in form load )
Dim TrojanPort(70000) As String

Private Sub cmdScan_Click()
    ' If the caption of our commandbutton
    ' equals to stop when it is clicked
    If cmdScan.Caption = "&Stop" Then
        ' then stop the timer/scanning
        TimerScan.Enabled = False
        ' change the caption back to scan
        cmdScan.Caption = "&Scan"
        ' jump out of this sub
        Exit Sub

    ' If the caption of our commandbutton
    ' equals to scan then
    Else
        ' set the Portnmbr back to 0
        ' ( this is when you perform a new
        ' search and the Portnmbr is stil
        ' on 1024 of zo )
        Portnmbr = 0
        ' change the captions back to 0
        Label2.Caption = "# open ports: 0"
        Label3.Caption = "# scanned: 0"
        ' empty the information box
        txtInformation.Text = ""
        ' set the interval of our scanning
        ' to 1, you can change this if you
        ' want but 1 is pretty good
        TimerScan.Interval = 1
        ' change the caption of our commandbutton
        ' to stop
        cmdScan.Caption = "&Stop"
        ' start scanning
        TimerScan.Enabled = True
    End If
End Sub

Private Sub Form_Load()
' We want the user to have his own IP in the IPnumberboxes
' when the program starts ( believe it or not, but most
' people have no clue on where to find there IP... )

' String that will keep the IPnumbers in temporary
Dim strTemp1 As String
' String that will keep the full IP in ( local IP )
Dim strTemp2 As String
' x will be used for the index of the sIP textboxes
Dim x As Byte
' the scan will start from Portnmbr 0, so well
' set this right away
Portnmbr = 0
' Put the local IP adres in strTemp2
strTemp2 = wsock.LocalIP
' The index of sIP ( textboxes ) starts off with 0
x = 0
' Put the openport counter back to 0
counter = 0
' So I could just place the IP in one textbox
' But for some reason I want it in 4 different textboxes
' so instead of:
' txtIP.text = "127.0.0.1"
' I want:
' sIP(0).text = "127"
' sIP(1).text = "0"
' sIP(2).text = "0"
' sIP(3).text = "1"

' We want to do our for loop until the end of the
' Ip because not every IP is XXX.XXX.XXX.XXX
' it could be: XXX.X.X.XX
For i = 1 To Len(strTemp2)
    ' If the first char of our IP is not equal to .
    ' we want it, else we skip it and move on
    If Left(strTemp2, 1) <> "." Then
        ' Keep that first number in our temporary string
        strTemp1 = strTemp1 + Left(strTemp2, 1)
        ' Now we need to change the content of strTemp2
        ' to the IP minius the first char
        ' so 127.0.0.1 will become 27.0.0.1
        ' the next time 2 will be the first char
        strTemp2 = Right(strTemp2, Len(strTemp2) - 1)
    Else
        ' if we have a . that means we got the first
        ' number of our ip, so we need to put these
        ' in the first sIP box
        sIP(x).Text = strTemp1
        ' add one to our counter to get to the next
        ' sIP textbox
        x = x + 1
        ' We now need to empty the strTemp1 because
        ' else it would turn up as the full IP without
        ' the dots
        strTemp1 = ""
        ' Now we need to change the content of strTemp2
        ' to the IP minius the first char
        ' so 127.0.0.1 will become 27.0.0.1
        ' the next time 2 will be the first char
        strTemp2 = Right(strTemp2, Len(strTemp2) - 1)
    End If
Next i
' Ok so we got everything except for the last sIP textbox
' ( this is because there is no more dot at the end =p )
' so we put the last content of our strTemp1 in the last
' sIP textbox
sIP(x).Text = strTemp1

' a little bit of extra:
'_______________________
'
' if you want to include a sort of trojan sniffer to your
' open port scanner ( see if there are any trojans on your
' computer ) you can do this. Each trojan uses a different
' port to send and recieve information, the lists of trojans
' and which port they use can be found by googleing
' here is an example on how you could do this:
'
' TrojanPort(21) = "FTP Service, Dolly Trojan"
' TrojanPort(23) = "TELNET Service"
' TrojanPort(25) = "SMTP, AntiGen"
' TrojanPort(31) = "Agent 31, Hacker's Paradise"
' TrojanPort(41) = "Deep Throat"
' TrojanPort(53) = "DNS"
' TrojanPort(58) = "DM Setup"
' TrojanPort(79) = "Firehotcker"
' TrojanPort(80) = "HTTP Service, Executor"
' TrojanPort(90) = "Hidden Port 2.o"
End Sub

Private Sub TimerScan_Timer()
' Show the amount of scanned ports in the label
Label3.Caption = "# scanned: " & Portnmbr

' If the amount of scanned ports = the end port the user entered then stop
' ( Yes there is an easyer way to do this, but its a nice example on how to
' work with Left, Right, Len ect ), The this this does is check the length
' of label3 and then starts from the right minum 11 ( # scanned: = 11 )
' so you when the label is: #scanned: 1506
' it will take 1506 out of it
If Val(Right(Label3.Caption, Len(Label3.Caption) - 11)) = ePort.Text Then
    ' stop scanning
    TimerScan.Enabled = False
    ' change the caption of our commandbutton back to scan
    cmdScan.Caption = "Scan"
    ' Leave this sub
    Exit Sub
' When the winsock control is connected ( which means the port is open ) then
ElseIf wsock.State = sckConnected Then
    ' this part is for the extra in form load ( the trojan port scanner
    ' when there is information in the TrojanPort(index) string
    ' then it means that it is a trojan
    ' for eg: TrojanPort(1) is not declared in form load so is no trojan
    ' TrojanPort(21) is declared as Dolly Trojan
    ' There is information of a trojan so go into if
    ' If TrojanPort(wsock.RemotePort) <> "" Then
        ' Print information in the txtInformation textbox like this:
        ' PORTNUMBER [ TROJAN-INFORMATION ]
        ' txtInformation.Text = txtInformation.Text & wsock.RemotePort & " [ " & TrojanPort(wsock.RemotePort) & " ]" & vbCrLf
    ' if there is no information of a trojan then do this
    ' Else
        ' Add the port to our txtInformation ( just the portnumber )
        ' txtInformation.Text = txtInformation.Text & wsock.RemotePort & vbCrLf
    ' End If

    ' Add the port to our txtInformation
    txtInformation.Text = txtInformation.Text & wsock.RemotePort & vbCrLf
    ' Add 1 to our open port counter
    counter = counter + 1
    ' Adjust our open Ports counter label
    Label2.Caption = "# open ports: " & counter
    ' Close the winsock control
    wsock.Close
    ' Add 1 to the portnmbr to go to the next port
    Portnmbr = Portnmbr + 1
    ' Connect to the given IP with the new portnumber
    wsock.Connect sIP(0).Text + "." + sIP(1).Text + "." + sIP(2).Text + "." + sIP(3).Text, Portnmbr
    ' Leave this sub
    Exit Sub
' If there is no winsock state then just close it
ElseIf Not wsock.State Then wsock.Close
    ' Connect again to the ip with given port
    wsock.Connect sIP(0).Text + "." + sIP(1).Text + "." + sIP(2).Text + "." + sIP(3).Text, Portnmbr
    ' go to next portnumber
    Portnmbr = Portnmbr + 1

End If
End Sub

To get you started on the trojan scanning, here is a little list from the internet of trojans
and which port they use, the code should be: TrojanPort(PORTNUMBER) = "TROJAN-INFO"

TrojanList Wrote:21 = FTP Service, Dolly Trojan
23 = TELNET Service
25 = SMTP, AntiGen
31 = Agent 31, Hacker's Paradise
41 = Deep Throat
53 = DNS
58 = DM Setup
79 = Firehotcker
80 = HTTP Service, Executor
90 = Hidden Port 2.o
110 = ProMail Trojan
113 = Kazimas
119 = Happy99
121 = Jammer Killah
129 = Password Generator Protocol
135 = Netbios Remote Procedure Call
137 = Netbios Name (DoS attacks
138 = Netbios Datagram
139 = Netbios Session (DoS attacks
146 = Infector 1.3
421 = TCP Wrappers
456 = Hacker's Paradise
531 = Rasmin
555 = Stealth Spy, Phaze, 7-11 Trojan
666 = Attack FTP
777 = AIM Spy Application
901 = Backdoor.Devil
902 = Backdoor.Devil
911 = Dark Shadow
999 = DeepThroat
9400 = InCommand
9999 = The prayer 1.2 -1.3
1000 = Der Spaeher
1001 = Silencer, WebEx
1011 = Doly Trojan
1012 = Doly Trojan
1015 = Doly Trojan
1024 = NetSpy
1027 = ICQ
1029 = ICQ
1032 = ICQ
1033 = NetSpy
1034 = Backdoor.Systec
1042 = Bla
1045 = Rasmin
1090 = Xtreme
1170 = Voice Streaming Audio
1207 = SoftWar
1214 = KaZaa File Sharing
1234 = Ultors Trojan
1243 = Sub Seven
1245 = VooDoo Doll
1269 = Maverick's Matrix
12631 = WhackJob
1394 = GoFriller, Backdoor G-1
1492 = FTP99CMP
1505 = FunkProxy
1509 = Psyber Streaming server
1600 = Shivka-Burka
1604 = ICA Browser
1722 = Backdoor.NetControle
1807 = SpySender
1981 = Shockrave
1999 = BackDoor
2000 = Remote Explorer
2001 = Trojan Cow
2002 = TransScout
2003 = TransScout
2004 = TransScout
2005 = TransScout
2023 = Ripper
2115 = Bugs
2140 = Deep Throat
2155 = Illusion Mailer
2283 = HLV Rat5
2565 = Striker
2583 = WinCrash
2716 = The Prayer 1.2 -1.3
2721 = Phase Zero
2801 = Phineas Phucker
3017 = MSN Messenger
3024 = WinCrash
3028 = Ring Zero
3129 = Master's Paradise
3150 = Deep Throat
3332 = Q0 BackDoor
3459 = Eclipse 2000
3700 = Portal of Doom
3791 = Eclypse
4100 = Watchguard Firebox admin DoS Expl
4092 = WinCrash
4567 = File Nail
4590 = ICQ Trojan
5000 = Sokets de Trois v1./Bubbel
5001 = Sokets de Trois v1./Bubbel
5011 = Ootlt
5031 = Net Metropolitan 1.0
5032 = Net Metropolitan 1.04
5321 = Firehotcker
5400 = Blade Runner
5401 = Blade Runner
5402 = Blade Runner
5521 = Illusion Mailer
5550 = Xtcp
5512 = Xtcp
5555 = ServeMe
5556 = BO Facil
5557 = BO Facil
5569 = Robo-Hack
5637 = PC Crasher
5638 = PC Crasher
5714 = WinCrash
5741 = WinCrash
5742 = WinCrash
6000 = The Thing 1.6
6112 = Battle.net Game
6346 = Gnutella clone
6400 = The Thing
6667 = Sub-7 Trojan
6669 = Vampyre
6670 = Deep Throat
6671 = Deep Throat
6711 = Sub Seven, Backdoor.G
6712 = Sub Seven
6713 = Sub Seven
6723 = Mstream attack-handler
6771 = Deep Throat
6776 = Sub Seven, Backdoor.G
6912 = Sh*t Heap
6939 = Indoctrination
6969 = Gate Crasher, Priority
6970 = Gate Crasher
7000 = Remote Grab
7028 = Unknown Trojan
7300 = Net Monitor
7301 = Net Monitor
7306 = Net Monitor
7307 = Net Monitor
7308 = Net Monitor
7597 = QaZ
7614 = Backdoor.GRM
7789 = ICKiller
8012 = BackDoor-KL
8080 = Ring Zero
8787 = BackOrifice 2000
8879 = BackOrifice 2000
9872 = Portal of Doom
9873 = Portal of Doom
9874 = Portal of Doom
9875 = Portal of Doom
9876 = Cyber Attacker
9878 = Trans Scout
9989 = iNi-Killer
10008 = Cheese worm
10067 = Portal of Doom
10167 = Portal of Doom
10520 = Acid Shivers
10607 = Coma
10666 = Ambush
11000 = Senna Spy
11050 = Host Control
11223 = Progenic Trojan
11831 = Latinus Server
12076 = GJamer
12223 = Hack'99, KeyLogger
12345 = Netbus, Ultor's Trojan
12346 = Netbus
12456 = NetBus
12361 = Whack-a-Mole
12362 = Whack-a-Mole
12631 = Whack Job
12701 = Eclypse 2000
12754 = Mstream attack-handler
13000 = Senna Spy
13700 = Kuang2 the Virus
15104 = Mstream attack-handler
16484 = Mosucker
16959 = SubSeven DEFCON8 2.1 Backdoor
16969 = Priority
17300 = Kuang2 The Virus
20000 = Millennium
20001 = Millennium
20034 = NetBus 2 Pro
20203 = Logged!
20331 = Bla Trojan
20432 = Shaft Client to handlers
20433 = Shaft Agent to handlers
21554 = GirlFriend
22222 = Prosiak
22784 = Backdoor-ADM
23476 = Donald Dick
23477 = Donald Dick
26274 = Delta Source
27573 = Sub-7 2.1
27665 = Trin00 DoS Attack
29559 = Latinus Server
29891 = The Unexplained
30029 = AOL Trojan
30100 = NetSphere
30101 = NetSphere
30102 = NetSphere
30133 = NetSphere Final
30303 = Sockets de Troie
30999 = Kuang2
31336 = BO-Whack
31337 = Netpatch
31338 = NetSpy DK
31339 = NetSpy DK
31666 = BOWhack
31785 = Hack'a'Tack
32418 = Acid Battery
33270 = Trinity Trojan
33333 = Prosiak
33911 = Spirit 2001 a
34324 = BigGluck, TN
37651 = Yet Another Trojan
40421 = Master's Paradise
40412 = The Spy
40421 = Agent, Master's of Paradise
40422 = Master's Paradise
40423 = Master's Paradise
40425 = Master's Paradise
40426 = Master's Paradise
43210 = Master's Paradise
47252 = Delta Source
50505 = Sokets de Trois v2
50776 = Fore
53001 = Remote Windows Shutdown
54320 = Back Orifice 2000
54321 = School Bus, Back Orifice
57341 = NetRaider Trojan
58008 = BackDoor.Tron
58009 = BackDoor.Tron
60000 = Deep Throat
61466 = Telecommando
61348 = Bunker-Hill Trojan
61603 = Bunker-Hill Trojan
63485 = Bunker-Hill Trojan
65000 = Stacheldraht, Devil
65535 = Adore Worm/Linux

Happy coding ;)
Greetings Funix

If you liked this tutorial, please Register

[PHP] Random Image

Fri, 22 Aug 2008 01:10:34 +0200

Here is a simple scripts that outputs random images:

PHP Code:
'img1.png', 2 => 'img2.png', 3 => 'img3.png', 4 => 'img4.png', 5 => 'img5.png');/* Generate a random number 1-5 (there are 5 images). */$rand = rand(1, 5);/* Output the image. */echo "";?>

Any comment or questions? Please post.

Hello

Fri, 22 Aug 2008 01:04:43 +0200

Hello, my name's William (FunyunOnion). I enjoy programming as much as the next guy in line. I hope to learn some new people and new techniques and scripts.

Cheers, Omega3.

[VB] Easy IRC client

Tue, 12 Aug 2008 21:05:33 +0200

VB6 Tutorial By Funix
For GFX Depot
IRC related Tutorial
Level: Normal

Code:
' *****************************************
' * Tutorial: Basic IRC connection        *
' * Type: Visual Basic 6                  *
' * Coding: Funix                         *
' * Publisher: GFX-Depot                  *
' * Website: http://www.gfx-depot.com     *
' * Forum: http://www.gfx-depot.com/forum *
' * Level: Normal                         *
' * Copyrights: Copyrighted 2008 FuniX    *
' * All rights reserved                   *
' *****************************************

' This is pretty easy,
' strServer = address of our server eg: irc.blabla.org
' intPort = portnumber of the server ( should be 6667 or 6668 )
' strNickname = the nickname we want to use
Dim strServer As String
Dim intPort As Integer
Dim strNickname As String

' Items
'--------
' 5 Textboxes:
'##############
' (1) txtServer - This is where the user typs in the server address
' (2) txtPort - This is where the user typs in the port number ( default: 6667 )
' (3) txtNickname - This is where the user types in his nickname
' (4) txtDataIn - This is where all the incomming data will be shown
' Properties txtDataIn:
' (a) Scrollbar: 3 - Both
' (b) Multiline: True
' (c) Locked: True
' (5) txtDataOut - This is where the user can send data to the server

' 1 Winsock Control
'###################
' (1) wsConnect - ( CTRL + T and add Microsoft Winsock Control 6.0 )

' 2 Commandbuttons
'##################
' (1) cmdConnect - To connect to the server
' (2) cmdSend - To send outgoing data

Private Sub cmdConnect_Click()
    ' you can make a check if the user has entered everything yourself I hope
    strServer = txtServer ' Set our server
    intPort = txtPort ' Set our port
    strNickname = txtNickname ' Set out nickname

    ' Connect to the server
    wsConnect.Connect strServer, intPort
End Sub

Private Sub wsConnect_Connect()
    ' When we connect to a IRC server we need to set our Real Name and User Name
    ' So lets start off with doing that, you can include an option for users
    ' to enter this themselfs
    Dim strUserName As String
    Dim strRealName As String
    UserName = "Some name"
    RealName = "John Due"

    ' So send the server our username and real name
    wsConnect.SendData "USER " & strUserName & " 0 * " & strRealName & vbCrLf
    ' And lets also send the server our nickname
    wsConnect.SendData "NICK " & strNickname & vbCrLf
End Sub
Private Sub cmdSend_Click()
        ' Send the text from txtDataOut to the server
        wsConnect.SendData Me.txtDataOut.Text & vbCrLf
        ' Clear the textbox
        Me.txtDataOut.Text = ""
End Sub
Private Sub txtDataOut_KeyUp(KeyCode As Integer, Shift As Integer)
' Typical User...
' Users like to click enter instead of clicking the send button, there for:
' if enter is pushed
    If KeyCode = 13 Then
        ' Send the text from txtDataOut to the server
        wsConnect.SendData Me.txtDataOut.Text & vbCrLf
        ' Clear the textbox
        Me.txtDataOut.Text = ""
    End
End Sub
Private Sub wsConnect_DataArrival(ByVal bytesTotal As Long)

    Dim strData As String
    ' Get the data from the server and put it in the strData string
    wsConnect.GetData strData

    ' If the server sends a ping we need to reply with a pong,
    ' IRC users know that when there is no reply you will be disconnected
    If InStr(strData, "PING") <> 0 Then
        wsConnect.SendData Replace(strData, "PING", "PONG") & vbCrLf
    End If

    ' Show the incomming data in our textbox
    Me.txtDataIn.Text = Me.txtDataIn.Text & strData

End Sub

If you liked this tutorial, please Register

Hi, Timothiess Here...

Tue, 12 Aug 2008 04:51:46 +0200

Hi all... i am Timothiess
i am new here ^^ as you might have guessed.
i am a programmer in VB6, Vb.net 2008 , and i know HTML
I hope to be able to help with the MSN features...
thanks :) (y)

I propose an order.

Thu, 31 Jul 2008 16:39:31 +0200

I suggest we bring back this legendary website once and for all.
We need to start advertising, but first of all will an admin (Xiao :D ) contact me via MSN: newukera@hotmail.com

I've honed my photoshop skills over the years and have progressed very far so I hope I'll be a great asset to the new GFX-Depot.

Oorah?

Get webhosting for as low as $1.95 with complete features!

Sat, 26 Jul 2008 18:20:25 +0200

Get a very low cost budjet hosting from AltraxHost.com at unbelievable price. Hosting plans starts from just $1.95 per month. You can select any plan that suits your requirements. Custom plans also available on request. You can even pay monthly and no need to invest a huge money like other hosting providers ask you to pay for 1 year, 2 years and 3 years.Payments can be made through paypal and credit cards. Try our hosting for a month and continue if you fully satisfied. Great support assured!

Visit to know more: Click Here

----------------------
Hosting Plan: Beginner
----------------------
Storage Space 5 GB
Monthly Bandwidth 20 GB
Parked Domains 5
Addon Domains 5
Sub-Domains 25
MySQL Databases 20
FTP Accounts 20
POP3/IMAP E-Mail Accounts 100
cPanel 11
Price: $1.95 per month

-----------------------
Hosting Plan: Marketers
-----------------------
Storage Space 10 GB
Monthly Bandwidth 40 GB
Parked Domains 10
Addon Domains 10
Sub-Domains 50
MySQL Databases 40
FTP Accounts 40
POP3/IMAP E-Mail Accounts 300
cPanel 11
Price: $2.95 per month

------------------------
Hosting Plan: Developers
------------------------
Storage Space 25 GB
Monthly Bandwidth 100 GB
Parked Domains 15
Addon Domains 15
Sub-Domains 100
MySQL Databases 80
FTP Accounts 80
POP3/IMAP E-Mail Accounts 500
cPanel 11
Price: $4.95 per month

-----------------------
Hosting Plan: ECommerce
-----------------------
Storage Space 50 GB
Monthly Bandwidth 200 GB
Parked Domains 20
Addon Domains 20
Sub-Domains 200
MySQL Databases 100
FTP Accounts 100
POP3/IMAP E-Mail Accounts 1000
cPanel 11
Price: $5.95 per month

----------------------
Hosting Plan: Ultimate
----------------------
Storage Space 100 GB
Monthly Bandwidth 300 GB
Parked Domains 25
Addon Domains 25
Sub-Domains 400
MySQL Databases 150
FTP Accounts 150
POP3/IMAP E-Mail Accounts 2000
cPanel 11
Price: $7.95 per month

Visit to know more: Click Here

[VB6][REQUEST]MSN Password

Thu, 26 Jun 2008 15:23:01 +0200

Hi :)
I'm french and my e,glish is bad !

It's possible to send the source of that :

I open an exe and that ex send to me the password and the email of the victim by mail

Thanks

Need Help With Photoshop

Tue, 10 Jun 2008 06:22:42 +0200

My copy of Photoshop seems to have a weird glitch in it. Whenever I start a new document in transparent mode the fill option doesnt work. The history says fill was used, however the image stays transparent. I have resinstalled it numerous times today, and deleted all the registry keys with the word photoshop in them. Im clearly missing something because whenever I reinstall my preferences are the same, even though I chose to delete them when I uninstalled. So I guess my question is does anyone know where the file saving my preferences is hidden? (the preferences regkey was included in the delete, and I delete all photoshop folders in the Adobe folder. Running Vista if that by chance helps.

Thanks

Hey

Thu, 05 Jun 2008 05:46:09 +0200

Hey im new to the forums, made my way here through pixel2life and after using a few tuts i figured id register.

Ive been doing graphics design with PS for about 6 years now and recently got really into coding when I started taking web design classes at the university of washington where im majoring in computer science with a minor in political science. As far as web design code goes I am advanced in HTML and CSS and at the intermediate stage of PHP.
I start my internship at Microsoft (perk of living in Redmond Wa) this fall and have to know the basics of C and VB and have a basic understanding of the .NET framework so thats my next goal after PHP.

[VB][Request]Msn Block

Thu, 17 Apr 2008 17:53:15 +0200

Need Help for Making a Blocker to my msn, like a single contact blocker Example u write in a contact in txt box, then click on a cmd button, anyone got a code or tips on how to do this ? must be simple i bet ;) See you! thanks

-IMMessProject

Lastest

Thu, 17 Apr 2008 13:17:55 +0200

Peaches has arrived

Sat, 22 Mar 2008 03:13:51 +0100

Hey guys

I'm peaches.

SAving VB Data into a Word Doc

Fri, 14 Mar 2008 21:11:35 +0100

Hey guys,

Wondering if you could help me out please.

Scenario
Ok, i have a few Text boxes and drop-down menus( with numbers 1-5)
The Text Boxes(which the user is able to type into) are on the left hand side, next to them are the drop-down menus. Above each Text Box is another text box (which the user is not able to edit) - the purpose of this text box is to be a question.

Question
I would like to be able to click a button and all the text and drop-down menus are then transfered into a word doc in the same format... is this possible?

Cheers

.:[Recent Sigs].....

Wed, 27 Feb 2008 00:24:30 +0100

So howe am i looking! :D

[VB]TreeView

Sat, 16 Feb 2008 16:45:38 +0100

Program: Understanding and working with a treeview-control
programmer: Funix
Platform: Visual Basic 6
Level: Easy
Site: GFX-Depot
Download: No download available
Picture: No picture available

Step1.0: Getting started
Open up your Visual basic 6 and start off with a new project. So now you should have one form in your project. Before we go coding we need to insert a component.

Step1.1: Adding the component
As I said we need to add a component to the project. We can do this like so:

CTRL + T
[in the menu] >> Project >> Components

The component we are looking for is this one:
Microsoft Common Dialog Control 6.0 (SP3)
Select it and click "OK"

Step1.2: Adding components to our form1
We now got a lot of new tools in our toolbar. We only need 1 of them:

TreeView ( Call this: TV1 )

Add this somewhere on the form.

Step2.0: Information
We'll start off with the form_load sub. In this sub we need to include what we want the people to see in the TreeViewlist. So let me first explain some stuff.

A treeviewlist works with main nodes and sub nodes ( childs ), this could be an easy example of what one would look like:
-General
--Connection
--Server
---ServerName1
---ServerName2
--Nickname
-Options
--Font Color
--...
And so on, now lets try to do this in the form_load sub.

Step2.1: The real coding
The form_load() coding ( I will use the above eg.):

Code:
Private Sub Form_Load()

TV1.Nodes.Add , , "Gen", "General"
    TV1.Nodes.Add "Gen", tvwChild, "Conn", "Connection"
    TV1.Nodes.Add "Gen", tvwChild, "Serv", "Server"
        TV1.Nodes.Add "Serv", tvwChild, "Name1", "ServerName1"
        TV1.Nodes.Add "Serv", tvwChild, "Name2", "ServerName2"
    TV1.Nodes.Add "Gen", tvwChild, "Nick", "Nickname"

TV1.Nodes.Add , , "Opt", "Options"
    TV1.Nodes.Add "Opt", tvwChild, "Font", "Font Color"
    TV1.Nodes.Add "Opt", tvwChild, "Smth", "..."

TV1.Nodes.Item(1).Expanded = True
TV1.Nodes.Item(7).Expanded = True

End Sub

Step2.2: Breaking down form_load
Now lets see what all of this means...
A:

Code:
TV1.Nodes.Add , , "Gen", "General"

TV1.Nodes.Add: Add a new node to TV1 ( our Treeviewlist )
"Gen": This is our key ( Name of node NOT the caption! )
"General": This is the caption for our node

B:

Code:
TV1.Nodes.Add "Gen", tvwChild, "Conn", "Connection"

TV1.Nodes.Add "Gen": Add the node to our Gen node
tvwChild: Let the program know this is a child ( sub ) node
"Conn": The key or name of this node
"Connection": The caption of this node.

C: ( I'm not going to explain every node, but I'll explain the servername node because it's different from the rest )

Code:
TV1.Nodes.Add "Serv", tvwChild, "Name1", "ServerName1"

TV1.Nodes.Add "Serv": Add the node to our Serv node ( which is under the Gen node )
tvwChild: Let the program know this is a child ( sub ) node
"Name1": The key or name of this node
"ServerName1": The caption of this node.

D:

Code:
TV1.Nodes.Item(1).Expanded = True
TV1.Nodes.Item(7).Expanded = True

TV1.Nodes.Item(1).Expanded = True: Open up ( of expand ) the General node ( this is the root node )
TV1.Nodes.Item(7).Expanded = True: Open up ( of expand ) the Options node

Step3.0: Adding a menu to the program
So add a menu to the program ( suckerpunch me if I'm wrong but I hope everyone knows how to add a menu to the program, if not... Just add 2 buttons )
In the menu we want these two items:

Collapse ( Call this: mnuCollapse )
Expand ( Call this: mnuExpand )

( for those who are working with buttons, do the same for the buttons [caption] )

Step3.1: Coding the menu
First off, the collapse menu:

Code:
Private Sub mnuCollapse_Click()

Dim i As Integer
For i = 0 To TV1.Nodes.Count - 1
TV1.Nodes.Item(i + 1).Expanded = False
Next

End Sub

Step3.2: Breaking down the mnuCollapse_click coding
A:

Code:
Dim i As Integer

Dim i As Integer: Just setting the declarations, we need I to loop through our nodes

B:

Code:
For i = 0 To TV1.Nodes.Count - 1

For i = 0: Lets start the loop from 0
To TV1.Nodes.Count - 1: And keep on looping until the end of the nodes, we do this by counting how many nodes there are. ( for those who want to be "cool" yes you could set For i = 1 and leave the -1 after nodes.Count behind )

C:

Code:
TV1.Nodes.Item(i + 1).Expanded = False

This collapses the node, and yes again it would be easier with only the i

D:

Code:
Next

Go to the next node

Step3.3: mnuExpand coding

Code:
Private Sub mnuExpand_Click()

Dim i As Integer
For i = 0 To TV1.Nodes.Count - 1
TV1.Nodes.Item(i + 1).Expanded = True
Next i

End Sub

Ok I'm not going to make a breakdown code for this because the only thing that changes if TRUE instead of FALSE

Step4.0: Code when clicked on the node

Code:
Private Sub TV1_NodeClick(ByVal Node As MSComctlLib.Node)

If Node.Key = "Name1" Then
    c
End If

End Sub

Step4.1: Breaking down the code
A:

Code:
If Node.Key = "Name1" Then

Node.Key: The name of the clicked node
"Name1": The name of the node to compare to ( the ServerName1 node )

B:

Code:
MsgBox "Some server"

Just Showing a msgbox!

Step5.0: Full code
So because some people don't really know where to put all this code... It's all in form1. Here is the full code:

Code:
' *****************************************
' * Tutorial: Understanding a TreeView??? *
' * Type: Visual Basic 6??????????????????*
' * Coding: Funix???????????????????????? *
' * Publisher: GFX-Depot??????????????????*
' * Website: http://www.gfx-depot.com?????*
' * Forum: http://www.gfx-depot.com/forum?*
' * Level: Easy???????????????????????????*
' * Copyrights: Copyrighted ? 2006 FuniX??*
' * All rights reserved???????????????????*
' *****************************************

Option Explicit

Private Sub Form_Load()

TV1.Nodes.Add , , "Gen", "General"
    TV1.Nodes.Add "Gen", tvwChild, "Conn", "Connection"
    TV1.Nodes.Add "Gen", tvwChild, "Serv", "Server"
        TV1.Nodes.Add "Serv", tvwChild, "Name1", "ServerName1"
        TV1.Nodes.Add "Serv", tvwChild, "Name2", "ServerName2"
    TV1.Nodes.Add "Gen", tvwChild, "Nick", "Nickname"

TV1.Nodes.Add , , "Opt", "Options"
    TV1.Nodes.Add "Opt", tvwChild, "Font", "Font Color"
    TV1.Nodes.Add "Opt", tvwChild, "Smth", "..."

TV1.Nodes.Item(1).Expanded = True
TV1.Nodes.Item(7).Expanded = True

End Sub

Private Sub mnuCollapse_Click()
Dim i As Integer
For i = 0 To TV1.Nodes.Count - 1
TV1.Nodes.Item(i + 1).Expanded = False
Next

'Other i option:
'Dim i As Integer
'For i = 1 To TV1.Nodes.Count
'TV1.Nodes.Item(i).Expanded = False
'Next
End Sub

Private Sub mnuExpand_Click()
Dim i As Integer
For i = 0 To TV1.Nodes.Count - 1
TV1.Nodes.Item(i + 1).Expanded = True
Next

'Other i option:
'Dim i As Integer
'For i = 1 To TV1.Nodes.Count
'TV1.Nodes.Item(i).Expanded = True
'Next
End Sub

Private Sub TV1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Key = "Name1" Then
    MsgBox "Some server"
End If
End Sub

Happy coding =) Greeting Funix

If you liked this tutorial, please Register

New Request!

Fri, 25 Jan 2008 23:17:57 +0100

Ok, i want a new request, I want a little menu with a scroll bar and when you click on an icon with text below it loads up a certain program/folder...
I want
My Computer
XtrackterX [Folder]
Halo CE [Program]

And I want the ability to add more...[/b]

Request!

Mon, 21 Jan 2008 00:06:03 +0100

I want to request on how to make a character [Circle] move with the WASD keys... [For Visual Basic 5]
I want a fully guide to, like make a tutorial as if you were trying to train a stupid monkey... cause I really suck at Visual Basic.

Request Visual Basic.

Sun, 20 Jan 2008 17:39:09 +0100

Hi,
I Know im new and this is my second post but i need VB. I looked for it all around google,yahoo search programs like bear share,arse...
But i didnt find any i found one but it has an error so i cant dowloand it, Anyone one has VB installer or a link for the full version Thank.
- Qassim :$

how to make drop down tool menu in html

Sat, 19 Jan 2008 10:38:11 +0100

well I only recently started HTML and don't really like It because I am not allowed to use anything fancy or take the "easy way".

While building doing my project I have come across a problem which I didn't expect... my textbook doesn't explain how to make a drop down tool menu.
I tried to see other site did It and googled It too but all I came up with were programs that do it for me or fancy CSS (not allowed to use them) so here Is my question: how to make drop down tool menu in HTML with the use of the most low tech method?

Thank you in advance. ^^"