Альтернативная Оболочка для Windows на VB6, писал для того чтобы играть в ПБ и комп не лагал, и была красивая возможность запуска explorer`а =) Язык хочу выучить и поэтому пищу всякую ерунду, так что сильно не кричите
Код VB6:
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:
REM Скрипт отключения процесса explorer.exe для JkShell
@echo off
title Explorer Killer for JkShell
taskkill /F /IM explorer.exe
exit
Оболочку склеил с батником джойнером и прикрутил иконку)
Скрин: