home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / allcrack / frmhelp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-05  |  6.9 KB  |  171 lines
  1. VERSION 5.00
  2. Begin VB.Form Help 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "                      Help"
  5.    ClientHeight    =   2310
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4110
  9.    Icon            =   "frmHelp.frx":0000
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   2310
  13.    ScaleWidth      =   4110
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.ComboBox Combo1 
  16.       Height          =   315
  17.       ItemData        =   "frmHelp.frx":030A
  18.       Left            =   45
  19.       List            =   "frmHelp.frx":0323
  20.       TabIndex        =   0
  21.       Text            =   "Choose One"
  22.       Top             =   0
  23.       Width           =   4020
  24.    End
  25.    Begin VB.CommandButton Command1 
  26.       Caption         =   "Ok"
  27.       Height          =   285
  28.       Left            =   3465
  29.       TabIndex        =   1
  30.       Top             =   1935
  31.       Width           =   645
  32.    End
  33.    Begin VB.Label Label3 
  34.       Alignment       =   2  'Center
  35.       Caption         =   "Thanx to Smackage for the concept!"
  36.       Height          =   600
  37.       Left            =   2010
  38.       TabIndex        =   4
  39.       Top             =   1725
  40.       Width           =   1425
  41.    End
  42.    Begin VB.Label Label2 
  43.       Alignment       =   2  'Center
  44.       Caption         =   "V 2.2 By: Stephen Spurlock MaRZ001@juno.com"
  45.       Height          =   390
  46.       Left            =   0
  47.       TabIndex        =   3
  48.       Top             =   1740
  49.       Width           =   1965
  50.    End
  51.    Begin VB.Label Label1 
  52.       Alignment       =   2  'Center
  53.       BackColor       =   &H00C0C0C0&
  54.       Caption         =   $"frmHelp.frx":03F0
  55.       Height          =   1410
  56.       Left            =   30
  57.       TabIndex        =   2
  58.       Top             =   330
  59.       Width           =   4050
  60.    End
  61.    Begin VB.Menu MnuMain 
  62.       Caption         =   "Main"
  63.       Visible         =   0   'False
  64.       Begin VB.Menu opt 
  65.          Caption         =   "Options"
  66.       End
  67.       Begin VB.Menu restore 
  68.          Caption         =   "Minimize"
  69.       End
  70.       Begin VB.Menu start 
  71.          Caption         =   "Start"
  72.       End
  73.       Begin VB.Menu awot 
  74.          Caption         =   "Always On Top"
  75.       End
  76.       Begin VB.Menu exit 
  77.          Caption         =   "Exit"
  78.       End
  79.    End
  80. Attribute VB_Name = "Help"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_PredeclaredId = True
  84. Attribute VB_Exposed = False
  85. Private Sub awot_Click()
  86. If awot.Caption = "Always On Top" Then
  87. awot.Caption = "Never On Top"
  88. StayOnTop Main
  89. ElseIf awot.Caption = "Never On Top" Then
  90. awot.Caption = "Always On Top"
  91. NotOnTop Main
  92. End If
  93. End Sub
  94. Private Sub Combo1_Change()
  95. If Combo1.Text = "" Then
  96. Exit Sub
  97. ElseIf Combo1.Text = "What is this?" Then
  98. Label1.Caption = "This is a program to get paid by AllAdvantage/Gotoworld while you sleep, watch T.V. or just if you don't feel like using the computer."
  99. ElseIf Combo1.Text = "What does this do?" Then
  100. Label1.Caption = "This will move the mouse, make itself on top every 2 seconds so AllAdvantage/Gotoworld actually thinks your awake(haha). This will not do anything else then what I just told you. If you got this from a friend and have Visual Basic 5 or 6, goto Http://www.planetsourcecode.com and search for AllCrack. That is the Source Code, so you can proove it to your self that it does nothing!"
  101. ElseIf Combo1.Text = "What is Always On Top?" Then
  102. Label1.Caption = "Always On Top will make the IE5 Sim on top of all normal programs, like AOL or Netscape."
  103. ElseIf Combo1.Text = "What is that Blue All for?" Then
  104. Label1.Caption = "A friend requested it, so I added it. It will allow you to do most of the things that the crack will do from the SysTray."
  105. ElseIf Combo1.Text = "All I see is a Blue All, what happend?" Then
  106. Label1.Caption = "If that is all you see, then you have it minimized or it is behind another window. Click on the Blue All and it will show up."
  107. ElseIf Combo1.Text = "What is a SysTray?" Then
  108. Label1.Caption = "The SysTray (A.K.A. System Tray) is that little box where the time is and all the icons are."
  109. ElseIf Combo1.Text = "There is something I want on here, how can I add it?" Then
  110. Label1.Caption = "Well, you could add it your self with VB5 (Visual Basic 5.0) or email Me and I will add it for you, if possible."
  111. Exit Sub
  112. End If
  113. End Sub
  114. Private Sub Combo1_Click()
  115. If Combo1.Text = "" Then
  116. Exit Sub
  117. ElseIf Combo1.Text = "What is this?" Then
  118. Label1.Caption = "This is a program to get paid by AllAdvantage/Gotoworld while you sleep, watch T.V. or just if you don't feel like using the computer."
  119. ElseIf Combo1.Text = "What does this do?" Then
  120. Label1.Caption = "This will move the mouse, make itself on top every 2 seconds so AllAdvantage/Gotoworld actually thinks your awake(haha). This will not do anything else then what I just told you. If you got this from a friend and have Visual Basic 5 or 6, goto Http://www.planetsourcecode.com and search for AllCrack. That is the Source Code, so you can proove it to your self that it does nothing!"
  121. ElseIf Combo1.Text = "What is Always On Top?" Then
  122. Label1.Caption = "Always On Top will make the IE5 Sim on top of all normal programs, like AOL or Netscape."
  123. ElseIf Combo1.Text = "What is that Blue All for?" Then
  124. Label1.Caption = "A friend requested it, so I added it. It will allow you to do most of the things that the crack will do from the SysTray."
  125. ElseIf Combo1.Text = "All I see is a Blue All, what happend?" Then
  126. Label1.Caption = "If that is all you see, then you have it minimized or it is behind another window. Click on the Blue All and it will show up."
  127. ElseIf Combo1.Text = "What is a SysTray?" Then
  128. Label1.Caption = "The SysTray (A.K.A. System Tray) is that little box where the time is and all the icons are."
  129. ElseIf Combo1.Text = "There is something I want on here, how can I add it?" Then
  130. Label1.Caption = "Well, you could add it your self with VB5 (Visual Basic 5.0) or email Me and I will add it for you, if possible."
  131. Exit Sub
  132. End If
  133. End Sub
  134. Private Sub Command1_Click()
  135. Me.Hide
  136. End Sub
  137. Private Sub exit_Click()
  138. Shell_NotifyIcon NIM_DELETE, nid
  139. End Sub
  140. Private Sub opt_Click()
  141. Opts.Show
  142. End Sub
  143. Private Sub restore_Click()
  144. If restore.Caption = "Restore" Then
  145. restore.Caption = "Minimize"
  146. restore.Caption = "Restore"
  147. End If
  148. If Main.Visible = False Then
  149. Main.WindowState = vbNormal
  150. Main.Show
  151. ElseIf Main.Visible = True Then
  152. Main.WindowState = vbMinimized
  153. Main.Hide
  154. End If
  155. End Sub
  156. Private Sub start_Click()
  157. If Main.Label1.Caption = "Start" Then
  158. Main.Image1 = Main.Image3
  159. start.Caption = "Stop"
  160. Main.Label1.Caption = "Stop"
  161. Main.Timer1.Enabled = True
  162. Main.Image1 = Main.Image2
  163. ElseIf Main.Label1.Caption = "Stop" Then
  164. Main.Image1 = Main.Image3
  165. start.Caption = "Start"
  166. Main.Label1.Caption = "Start"
  167. Main.Timer1.Enabled = False
  168. Main.Image1 = Main.Image2
  169. End If
  170. End Sub
  171.