| 全能ASP/PHP/ASP.NET主机，支持月付 | 专业 MSSQL 数据库空间，支持月付 | 专业 MySQL 数据库空间，支持月付 | 学习型 ASP/PHP/ASP.NET 主机 30元/年 |
| 高端软件开发 = 年薪十万不是梦 | 赛孚耐:软件保护加密专家 | 身份认证令牌USB KEY |
2005-3-6 12:03
2005-3-25 12:01
Delphi中 procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2); end; VB中 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Const WM_SYSCOMMAND = &H112& Const SC_MONITORPOWER = &HF170&
Private Sub Command1_Click() SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2 End Sub
2005-3-25 13:01
2005-3-25 17:01
