home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1522.psc / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-10-27  |  9.0 KB  |  305 lines

  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "CoOl tHiNgS"
  4.    ClientHeight    =   7545
  5.    ClientLeft      =   2115
  6.    ClientTop       =   525
  7.    ClientWidth     =   4050
  8.    Height          =   7950
  9.    Icon            =   "Form1.frx":0000
  10.    Left            =   2055
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   7545
  13.    ScaleWidth      =   4050
  14.    Top             =   180
  15.    Width           =   4170
  16.    Begin VB.CommandButton Command21 
  17.       Caption         =   "&Show Desktop Icons"
  18.       Height          =   375
  19.       Left            =   -120
  20.       TabIndex        =   22
  21.       Top             =   7200
  22.       Width           =   3615
  23.    End
  24.    Begin VB.CommandButton Command4 
  25.       Caption         =   "&Hide Desktop Icons"
  26.       Height          =   375
  27.       Left            =   -120
  28.       TabIndex        =   21
  29.       Top             =   6840
  30.       Width           =   3615
  31.    End
  32.    Begin VB.CommandButton Command20 
  33.       Caption         =   "&Enable Ctrl+Alt+Del"
  34.       Height          =   375
  35.       Left            =   -120
  36.       TabIndex        =   20
  37.       Top             =   6480
  38.       Width           =   3615
  39.    End
  40.    Begin VB.CommandButton Command19 
  41.       Caption         =   "&Disable Ctrl+Alt+Del"
  42.       Height          =   375
  43.       Left            =   -240
  44.       TabIndex        =   19
  45.       Top             =   6120
  46.       Width           =   3735
  47.    End
  48.    Begin VB.CommandButton Command18 
  49.       Caption         =   "&Shutdown"
  50.       Height          =   375
  51.       Left            =   -120
  52.       TabIndex        =   18
  53.       Top             =   5760
  54.       Width           =   3615
  55.    End
  56.    Begin VB.CommandButton Command5 
  57.       Caption         =   "&Restart"
  58.       Height          =   375
  59.       Left            =   -120
  60.       TabIndex        =   17
  61.       Top             =   5400
  62.       Width           =   3615
  63.    End
  64.    Begin VB.CommandButton Command3 
  65.       Caption         =   "&About"
  66.       Height          =   3735
  67.       Left            =   3480
  68.       TabIndex        =   16
  69.       Top             =   0
  70.       Width           =   615
  71.    End
  72.    Begin VB.CommandButton Command23 
  73.       Caption         =   "&Hide Taskbar Icons"
  74.       Height          =   375
  75.       Left            =   -120
  76.       TabIndex        =   15
  77.       Top             =   4680
  78.       Width           =   3615
  79.    End
  80.    Begin VB.CommandButton Command22 
  81.       Caption         =   "&Show Taskbar Icons"
  82.       Height          =   375
  83.       Left            =   -120
  84.       TabIndex        =   14
  85.       Top             =   5040
  86.       Width           =   3615
  87.    End
  88.    Begin VB.CommandButton Command17 
  89.       Caption         =   "&Show Clock"
  90.       Height          =   375
  91.       Left            =   -120
  92.       TabIndex        =   13
  93.       Top             =   4320
  94.       Width           =   3615
  95.    End
  96.    Begin VB.CommandButton Command16 
  97.       Caption         =   "&Hide Clock"
  98.       Height          =   375
  99.       Left            =   -240
  100.       TabIndex        =   12
  101.       Top             =   3960
  102.       Width           =   3735
  103.    End
  104.    Begin VB.CommandButton Command15 
  105.       Caption         =   "&Show Startbutton"
  106.       Height          =   375
  107.       Left            =   -120
  108.       TabIndex        =   11
  109.       Top             =   3600
  110.       Width           =   3615
  111.    End
  112.    Begin VB.CommandButton Command14 
  113.       Caption         =   "&Hide Startbutton"
  114.       Height          =   375
  115.       Left            =   -120
  116.       TabIndex        =   10
  117.       Top             =   3240
  118.       Width           =   3615
  119.    End
  120.    Begin VB.CommandButton Command8 
  121.       Caption         =   "&Mouse Pointer &R"
  122.       Height          =   375
  123.       Left            =   -120
  124.       TabIndex        =   9
  125.       Top             =   2880
  126.       Width           =   3615
  127.    End
  128.    Begin VB.CommandButton Command2 
  129.       Caption         =   "&Mouse Pointer &W"
  130.       Height          =   375
  131.       Left            =   -120
  132.       TabIndex        =   8
  133.       Top             =   2520
  134.       Width           =   3615
  135.    End
  136.    Begin VB.CommandButton Command7 
  137.       Caption         =   "&Show Systray"
  138.       Height          =   375
  139.       Left            =   -120
  140.       TabIndex        =   7
  141.       Top             =   720
  142.       Width           =   3615
  143.    End
  144.    Begin VB.CommandButton Command6 
  145.       Caption         =   "&Hide Systray"
  146.       Height          =   375
  147.       Left            =   -120
  148.       TabIndex        =   6
  149.       Top             =   360
  150.       Width           =   3615
  151.    End
  152.    Begin VB.CommandButton Command13 
  153.       Caption         =   "&Show Mouse"
  154.       Height          =   375
  155.       Left            =   0
  156.       TabIndex        =   5
  157.       Top             =   2160
  158.       Width           =   3495
  159.    End
  160.    Begin VB.CommandButton Command12 
  161.       Caption         =   "&Hide Mouse"
  162.       Height          =   375
  163.       Left            =   -120
  164.       TabIndex        =   4
  165.       Top             =   1800
  166.       Width           =   3615
  167.    End
  168.    Begin VB.CommandButton Command10 
  169.       Caption         =   "&CD CLOSE"
  170.       Height          =   375
  171.       Left            =   -120
  172.       TabIndex        =   3
  173.       Top             =   1440
  174.       Width           =   3615
  175.    End
  176.    Begin VB.CommandButton Command9 
  177.       Caption         =   "&CD OPEN"
  178.       Height          =   375
  179.       Left            =   -120
  180.       TabIndex        =   2
  181.       Top             =   1080
  182.       Width           =   3615
  183.    End
  184.    Begin VB.CommandButton Command11 
  185.       Caption         =   "&Exit"
  186.       Height          =   3975
  187.       Left            =   3480
  188.       TabIndex        =   1
  189.       Top             =   3720
  190.       Width           =   615
  191.    End
  192.    Begin VB.CommandButton Command1 
  193.       Caption         =   "&Loop CD "
  194.       Height          =   375
  195.       Left            =   -120
  196.       TabIndex        =   0
  197.       Top             =   0
  198.       Width           =   3615
  199.    End
  200. Attribute VB_Name = "Form1"
  201. Attribute VB_Creatable = False
  202. Attribute VB_Exposed = False
  203. Private Sub Command1_Click()
  204.     Call CDRom_Open
  205.     Call CDRom_Close
  206.  Loop
  207. End Sub
  208. Private Sub Command10_Click()
  209.     Call CDRom_Close
  210. End Sub
  211. Private Sub Command11_Click()
  212. Unload Me
  213. End Sub
  214. Private Sub Command12_Click()
  215.     Hid$ = ShowCursor(False)
  216. End Sub
  217. Private Sub Command13_Click()
  218.     Hid$ = ShowCursor(True)
  219. End Sub
  220. Private Sub Command14_Click()
  221. Dim Handle As Long, FindClass As Long
  222. FindClass& = FindWindow("Shell_TrayWnd", "")
  223. Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)
  224. ShowWindow Handle&, 0
  225. End Sub
  226. Private Sub Command15_Click()
  227. Dim Handle As Long, FindClass As Long
  228. FindClass& = FindWindow("Shell_TrayWnd", "")
  229. Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)
  230. ShowWindow Handle&, 1
  231. End Sub
  232. Private Sub Command16_Click()
  233. Dim FindClass As Long, FindParent As Long, Handle As Long
  234. FindClass& = FindWindow("Shell_TrayWnd", vbNullString)
  235. FindParent& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
  236. Handle& = FindWindowEx(FindParent&, 0, "TrayClockWClass", vbNullString)
  237. ShowWindow Handle&, 0
  238. End Sub
  239. Private Sub Command17_Click()
  240. Dim FindClass As Long, FindParent As Long, Handle As Long
  241. FindClass& = FindWindow("Shell_TrayWnd", vbNullString)
  242. FindParent& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
  243. Handle& = FindWindowEx(FindParent&, 0, "TrayClockWClass", vbNullString)
  244. ShowWindow Handle&, 1
  245. End Sub
  246. Private Sub Command18_Click()
  247. Call Computer_Shutdown
  248. End Sub
  249. Private Sub Command19_Click()
  250. Call DisableCtrlAltDel
  251. End Sub
  252. Private Sub Command2_Click()
  253. Screen.MousePointer = vbHourglass
  254. PreventFromClosing
  255. DisableCtrlAltDel
  256. End Sub
  257. Private Sub Command20_Click()
  258. Call EnableCtrlAltDel
  259. End Sub
  260. Private Sub Command21_Click()
  261.     DisplayDeskTopIcons True
  262.    End Sub
  263. Private Sub Command22_Click()
  264. Dim FindClass As Long, Handle As Long
  265. FindClass& = FindWindow("Shell_TrayWnd", "")
  266. Handle& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
  267. ShowWindow Handle&, 1
  268. End Sub
  269. Private Sub Command23_Click()
  270. Dim FindClass As Long, Handle As Long
  271. FindClass& = FindWindow("Shell_TrayWnd", "")
  272. Handle& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
  273. ShowWindow Handle&, 0
  274. End Sub
  275. Private Sub Command3_Click()
  276. Form2.Show
  277. Unload Me
  278. End Sub
  279. Private Sub Command4_Click()
  280.     DisplayDeskTopIcons False
  281. End Sub
  282. Private Sub Command5_Click()
  283.  Call Computer_Restart
  284. End Sub
  285. Private Sub Command6_Click()
  286. Dim Handle As Long
  287. Handle& = FindWindow("Shell_TrayWnd", vbNullString)
  288. ShowWindow Handle&, 0
  289. End Sub
  290. Private Sub Command7_Click()
  291.    Dim Handle As Long
  292. Handle& = FindWindow("Shell_TrayWnd", vbNullString)
  293. ShowWindow Handle&, 1
  294. End Sub
  295. Private Sub Command8_Click()
  296. Screen.MousePointer = vbArrow
  297. UnPreventFromClosing
  298. EnableCtrlAltDel
  299. End Sub
  300. Private Sub Command9_Click()
  301.     Call CDRom_Open
  302. End Sub
  303. Private Sub MaskEdBox1_ValidationError(InvalidText As String, StartPosition As Integer)
  304. End Sub
  305.