AntiPashka - 6 Мая 2010 - Дневник - Скачать бесплатно игры,фильмы,программы...
Приветствую Вас, Гость! Регистрация RSS

Шняга

Пятница, 09.12.2016
Главная » 2010 » Май » 6 » AntiPashka
17:39
AntiPashka
Public Class AntiPashka

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "имя или ник" And TextBox2.Text = "пароль" Then
MsgBox("Сообщ об удачной логинизации")
Close()
Else
MsgBox("Сообщение о неудачной логинизации" & vbCr & "имя или номер телефона кроче фантазии ваши")
MsgBox("Сейчас комп выключится")
Dim objWMIService
Dim colOperatingSystems
Dim ObjOperatingSystem
Dim strComputer
strComputer = "."
objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, (Shutdown)}!\\" & strComputer & "\root\cimv2")
colOperatingSystems = objWMIService.ExecQuery( _
"Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
ObjOperatingSystem.ShutDown()
Next
End If
End Sub
End Class

Просмотров: 235 | Добавил: dragon | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]