共 4 篇文章 |
|
19、使Windows开始屏幕保护: *API函数声明 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_SCREENSAVE = &HF140& 注释:调用 Di... 阅9281 转76 评0 公众公开 11-03-20 14:35 |
X1 Y1为左上角坐标,X2 Y2指定宽度和长度 "put"命令定义了如下的区域(仅对video-overlay而言):"video rectangle"定义了要捕捉的输入视频图像的区域,"frame rectangle"定义了接收输入视频图像的帧缓冲区域,"source rectangle"定义了拷贝到目的窗口的帧缓冲区域,"destinationrectangle"... 阅970 转5 评0 公众公开 11-03-19 12:42 |
mciSendString相关使用说明 字号:大 中 小。Call mciSendString(cmd, 0, 0, 0) Call mciSendString("play MyWav", 0, 0, 0) End Sub.Sub PlaySound(filename) Dim cmd As String Call mciSendString("close MyFlc", 0, 0, 0) '' MyFlc 这个名称可依需要来修改 cmd = "open "&... 阅493 转自kid1983517 公众公开 11-03-14 22:07 |
定时关闭MsgBox-未公开的API定时关闭MsgBox-未公开的API2010-08-09 16:10.hwnd:窗口句柄,可以设为0 lpText:消息框显示内容,类似于MsgBox函数的第一个参数Prompt lpCaption:消息框标题,类似于MsgBox函数的第三个参数Caption wType:消息框类型,类似于MsgBox函数的第二个参数Buttons wlange:不是太明白这个参数,0或者1都看不出什么差别 ... 阅41 转自yuxinrong 公众公开 10-08-28 23:41 |