小窗夜话

无聊啊，下了一整天的雨了。看代码吧！ 代码测试功能为获取当前光标位置。 P.S.有关VBS调用API请参考http://blog.xcyh.org/life/vbs-call-api

VBS真的很强大。 准备：下载附件，执行dynwrap.bat注册。 说明： 如Beep的API声明为 Public Declare Function Beep Lib “kernel32″ Alias “Beep” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long 则使用方法如下 ‘创建对象 Set Wrap = CreateObject("DynamicWrapper") ‘注册API Wrap.Register "KERNEL32.DLL", "Beep", "i=ll", "f=s", "r=l" ‘调用API Wrap.Beep(500, 100) 其中注册API中， “i=ll”是API的参数类型, “f=s”是调用方式, “r=l”是返回类型 这些可以参考下面的说明。

有点意思。看代码吧！ ‘播放音乐 Sub Play(url) Set oWMP = CreateObject("WMPlayer.OCX") oWMP.URL = url Do while oWMP.playState = 9 Or oWMP.playState = 3 WScript.Sleep(1000) Loop End Sub   Play("汤潮-那滋味.mp3") 还可以控制光驱 ‘弹出所有光驱 Sub EjectAllCDROM() Set oWMP = CreateObject("WMPlayer.OCX") Set colCDROMs = oWMP.cdromCollection If colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count – 1 colCDROMs.Item(i).Eject Next End If [...]