文章标签 ‘实验’

【实验】VBS支持Type定义

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

2010年5月5日18:32 | 1 条评论
分类: 技术相关
标签: , ,

【实验】VBS调用系统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”是返回类型 这些可以参考下面的说明。

2010年5月3日15:02 | 没有评论
分类: 技术相关
标签: , ,

【实验】VBS播放控制WMP播放音乐

有点意思。看代码吧！ ‘播放音乐 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 [...]

2010年5月3日14:49 | 没有评论
分类: 技术相关
标签: , ,

【实验】Word批量重命名VBA代码

朋友有个问题找我帮忙，说是要把一大堆的Word文件按Word的标题（也可以说是Word文件内容的第一行了）重命名。呵呵，文件太多了，人力做太费时了，我就帮帮忙了。 看代码吧，是VBA的。

2009年12月31日18:14 | 2 条评论
分类: 技术相关
标签: , , ,

【实验】Excel 删除重复行VBA代码

一个朋友找我看看能不能用程序把Excel里的重复行删除下，呵呵，看VBA代码吧。 Option Explicit Sub delSameRows() ‘删除某一列中相同的行 ‘此例为 先手动按B列排序，然后用此代码找到B列中相同的值再删除整行 Dim i As Long, j As Long Dim startRows As Long, endRows As Long ‘起止行数 startRows = 2 endRows = 38006 For i = startRows To endRows For j = i + 1 To endRows If Range("B" & j).Value = Range("B" & i).Value Then ‘Set Rng = [...]

2009年12月30日10:06 | 没有评论
分类: 技术相关
标签: , ,