Главная »
2010 »
Май »
6 » 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
|
Просмотров: 600 |
Добавил: dragon
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи.
[
Регистрация |
Вход ]