home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / simila1a / netbusde.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-25  |  2.3 KB  |  50 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "DXB700's Netbus detector"
  5.    ClientHeight    =   675
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   3390
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   675
  11.    ScaleWidth      =   3390
  12.    StartUpPosition =   1  'CenterOwner
  13.    Begin MSWinsockLib.Winsock Winsock1 
  14.       Left            =   3720
  15.       Top             =   1320
  16.       _ExtentX        =   741
  17.       _ExtentY        =   741
  18.       _Version        =   393216
  19.    End
  20.    Begin VB.Label Label1 
  21.       Caption         =   "Label1"
  22.       Height          =   255
  23.       Left            =   120
  24.       TabIndex        =   0
  25.       Top             =   240
  26.       Width           =   3015
  27.    End
  28. Attribute VB_Name = "Form1"
  29. Attribute VB_GlobalNameSpace = False
  30. Attribute VB_Creatable = False
  31. Attribute VB_PredeclaredId = True
  32. Attribute VB_Exposed = False
  33. 'This code is written by DXB700
  34. 'For more information Please Contact Me on ICQ # : 7293201 Or Email : strange_life@hotmail.com
  35. 'at least put my name on the credits section if you used this code .
  36. 'If you found any error , Contact me pls
  37. Private Sub Form_Load()
  38. Label1.Caption = "Checking for netbus server . Please wait"
  39. Winsock1.Connect Winsock1.LocalIP, 12345 'Connects to your computer using port 12345
  40. End Sub
  41. Private Sub Winsock1_Connect()
  42. MsgBox "Error : either netbus server is installed on your computer or netbuster is activated or any similar program to netbuster", vbCritical 'If we could connect to your computer using port 12345 , then that means a program is listening to port 12345 Or netbus server is installed on your comp
  43. Unload Me 'Close program
  44. End Sub
  45. Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  46. MsgBox "No netbus server found on your comp!", vbInformation
  47. Unload Me 'If we couldn't connect to your computer using port 12345 then that means no netbus server is installed on your comp and we can listen to port 12345
  48. Form2.Show 'Show form2 and listen for any attack(s)
  49. End Sub
  50.