[Visual Basic 6] Альтернативная Оболочка для Windows

Альтернативная Оболочка для Windows на VB6, писал для того чтобы играть в ПБ и комп не лагал, и была красивая возможность запуска explorer`а =) Язык хочу выучить и поэтому пищу всякую ерунду, так что сильно не кричите

Скрин1: http://s19.radikal.ru/i192/1106/d9/96280beee999.jpg

Код VB6:

Code:

Option Explicit 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 
Private Const SW_SHOWNORMAL = 1 
Private Const SW_SHOWMAXIMIZED = 2
Private Const SW_SHOWMINIMIZED = 3

Private Sub Command1_Click()
Shell ("shutdown -s") 
End Sub 

Private Sub Command2_Click()
Shell ("shutdown -r")
End Sub

Private Sub Command3_Click()
Dim RetVal
RetVal = Shell("\WINDOWS\system32\cmd.exe", 1) 
End Sub 

Private Sub Command4_Click()
Dim RetVal
RetVal = Shell("\WINDOWS\explorer.exe", 1)
End Sub

Private Sub Dir1_Change()
File1 = Dir1
Label3 = Dir1
End Sub

Private Sub Drive1_Change()
Dir1 = Drive1
Label3 = Dir1
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
Label2.Caption = Date
End Sub

Private Sub Command5_Click()
ShellExecute 0, vbNullString, Text1.Text, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub  

Содержимое script.cmd:

Code:

REM Скрипт отключения процесса explorer.exe для JkShell
@echo off
title Explorer Killer for JkShell
taskkill /F /IM explorer.exe
exit

Оболочку склеил с батником джойнером и прикрутил иконку)

Скрин:

1: http://s52.radikal.ru/i138/1106/bd/ce384f0f2e1c.jpg
2: http://s45.radikal.ru/i110/1106/b5/23506fcb5f1e.jpg


Скачать можно с моего юкоза

---------------------------------
SLESH: или скрины уменьши или пусть будут в виде ссылок

 

привилегии то хоть прикрути, а то семерку остановить не сможешь)

 

тестил у друга на семерке, вроде и так пашет

 

Такс. не флудить!!
2 Loan97 - адекватнее реагируй на троллинг и флуд (или вообще игнорируй его) иначе получишь бан