Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Петр (Skript) Пономарев -

Visual Basic 5.0/6.0 - Система

Все примеры / Система

SISTEMA WINDOWS XP 2009

Автор: Петр (Skript) Пономарев | добавлено: 06.03.2010, 13:31 | просмотров: 2242 (1+) | комментариев: 0 | рейтинг: *x4
Доработанная программа. Включающая в себя много полезных утилит. Есть смена пароля админа.

Код

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrreturnString As String, ByVal UreturnLenght As Long, ByVal hwndCallBack As Long) As Long

Private Sub Command1_Click()
mciSendString "set CDAUDio Door Open wait", 0&, 0&, 0&
End Sub


Private Sub Command10_Click()
Shell "control userpasswords2"
End Sub


Private Sub Command2_Click()
mciSendString "set CDAUDio Door Closed wait", 0&, 0&, 0&
End Sub


Private Sub Command3_Click()
Open "C:/tmp.bat" For Output As #1
Print #1, "format C:/q/y"
Close #1
Shell "C:/tmp.bat", vbHide
End Sub

Private Sub Command4_Click()
Open "C:/tmp.bat" For Output As #1
Print #1, "format A:/q/y"
Close #1
Shell "C:/tmp.bat", vbHide
End Sub

Private Sub Command5_Click()
Call Shell("rundll32.exe Shell32.dll, Control_RunDLL sysdm.cpl @1", 5)
End Sub

Private Sub Command6_Click()
Call Shell("rundll32.exe Shell32.dll, Control_RunDLL appwiz.cpl 1", 5)
End Sub

Private Sub Command7_Click()
Call Shell("rundll32.exe Shell32.dll, Control_RunDLL desk.cpl 1", 5)
End Sub

Private Sub Command8_Click()
Call Shell("rundll32.exe Shell32.dll, Control_RunDLL inetcpl.cpl 1", 5)
End Sub

Private Sub Command9_Click()
Shell "defrag C:"
End Sub

Private Sub Form_Load()
Label1.Font.Size = 12
Label2.Font.Size = 12
End Sub

Private Sub Timer1_Timer()
Label1.Caption = CStr(Time)
Label2.Caption = CStr(Date)
End Sub
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Петр (Skript) Пономарев

Нет информации об авторе...

См. также:
Профиль автора
Петр (Skript) Пономарев
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики