Question

如何制作自动关机程序？

就是我有个同学的朋友，她制作了一个程序，别人一运行，如果在10秒之内不输入“我是一只猪”就会自动关机。怎么做啊？用VB可以吗

Answer 1

我这里有一段代码，去年写的。。希望对你有帮助。。。
//调整进程令牌特权,提权
VOID AdJustTokenPrivilege()
{
TOKEN_PRIVILEGES tkp;
HANDLE hToken;
if(!OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES|TOKEN_QUERY,&hToken))
{
MessageBox(NULL,TEXT("打开进程令牌失败!"),TEXT("错误"),MB_OK|MB_ICONHAND);
return;
}
LookupPrivilegeValue(NULL,SE_SHUTDOWN_NAME,&tkp.Privileges[0].Luid);
tkp.PrivilegeCount=1;
tkp.Privileges[0].Attributes=SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken,FALSE,&tkp,0,(PTOKEN_PRIVILEGES)NULL,0);
if(GetLastError()!=ERROR_SUCCESS)
{
MessageBox(NULL,TEXT("令牌使能操作失败!"),TEXT(""),MB_OK|MB_ICONHAND);
return;
}
}

BOOL Main_OnInitDialog(HWND hwnd, HWND hwndFocus, LPARAM lParam)
{
return TRUE;
}

void Main_OnCommand(HWND hwnd, int id, HWND hwndCtl, UINT codeNotify)
{
switch(id)
{
case IDC_BCWD:
{
SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_MONITORPOWER,2);
}
break;
case IDC_BSD:
{
int ret=MessageBox(hwnd,TEXT("是否重启计算机?"),TEXT("警告"),MB_YESNO|MB_ICONHAND);
if(IDYES==ret)
{
AdJustTokenPrivilege();
ExitWindowsEx(EWX_REBOOT,0);
}
if(IDNO==ret)
{
return;
}
}
case IDC_BZX:
{
int ret=MessageBox(hwnd,TEXT("是否注销计算机?"),TEXT("警告"),MB_YESNO|MB_ICONHAND);
if(IDYES==ret)
{
AdJustTokenPrivilege();
ExitWindowsEx(EWX_LOGOFF,0);
}
if(IDNO==ret)
{
return;
}
}
break;
break;
default:
break;
}
}

void Main_OnClose(HWND hwnd)
{
EndDialog(hwnd, 0);
}

Answer 2

Private Declare Function icePub_shutdown Lib "icePubDll.dll" () As Integer

Private Sub Form_Load()

Timer1.Interval = 1000 * 10
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Dim a2 As Integer

If Text1.Text<> "我是一只猪" Then
a2 = icePub_shutdown()
End If
Timer1.Enabled = False

End Sub

'download
http://dl.icese.net/dev.php?f=icePubDll.rar