7,789
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
online 2003-10-30
- 打赏
- 举报
只要运行后光盘能弹出就行,我想在批处理文件中当文件处理到一定时间后自动弹出光盘
使用api函数cddoor来控制光驱门的开和关十分简单
cddoor函数是安装windows时自带的winmm.dll文件中包含的
private declare function cddoor lib "winmm.dll" alias "mcisendstringa"
(byval ipstrcommand as string,_控制命令参数
byval ipstrreturnstring as string ,byval ureturnlength as long,byval hwndcallback as long ) as long
语法
call cddoor("set cdaudio door closed",0,0,0) 用以关闭光驱门
call cddoor("set cdaudio door open",0,0,0) 用以打开光驱门
使用api函数cddoor来控制光驱门的开和关十分简单
cddoor函数是安装windows时自带的winmm.dll文件中包含的
private declare function cddoor lib "winmm.dll" alias "mcisendstringa"
(byval ipstrcommand as string,_控制命令参数
byval ipstrreturnstring as string ,byval ureturnlength as long,byval hwndcallback as long ) as long
语法
call cddoor("set cdaudio door closed",0,0,0) 用以关闭光驱门
call cddoor("set cdaudio door open",0,0,0) 用以打开光驱门
zjckwht 2003-10-30
- 打赏
- 举报
具体怎样?运行上面代码就行吗?
online 2003-10-30
- 打赏
- 举报
使用vb创建activex dll
sub open()
'打开操作，......
cddoor()......
end sub
在vbs中使用wscript对象
set myobject=wscript.createobject("project.class")
myobject.open
wscript.disconnectobject myobject
sub open()
'打开操作，......
cddoor()......
end sub
在vbs中使用wscript对象
set myobject=wscript.createobject("project.class")
myobject.open
wscript.disconnectobject myobject
online 2003-10-30
- 打赏
- 举报
vb中的比较容易cddoor
vbs的脚本看看是否支持api函数
vbs的脚本看看是否支持api函数
