(->
1、使用fso
由于fso不是wsh的一部分所以我们需要建立他的模型
例如setfswscript.createobject(“scripting.filesystemobject”)
这样就建立了fso的模型
strURLInputBox("请输入要读的网址", "朗读网页", "")
If strURL"" Then
Wscript.quit
End If
Set ieWScript.CreateObject("InternetExplorer.Application")
ie.visibleTrue
ie.navigate strURL
Do
Wscript.Sleep 200
Loop Until ie.ReadyState4
strContentie.document.body.innerText
Set objVoiceCreateObject("SAPI.SpVoice")
Set objVoice.VoiceobjVoice.GetVoices("NameMicrosoft Simplified Chinese").Item(0)
objVoice.Rate5 速度:-10,10 0
objVoice.Volume100 声音:0,100 100
objVoice.Speak strContent
如果应用程序中涉及到这么大的一个数组操作选择固定长度方式数组绝对是确定无疑的了无论是分配数值还是释放操作都可以风驰电掣般完成
Function fOutput(strName)
strLenLen(strName)
Select Case True
Case strLen <8
fOutputchr(9) chr(9) chr(9) chr(9) chr(9)
Case Else
超过40的只取前32位
For K1 To strLen - 32
fOutputfOutput fOutput
DimMaxIdAsInteger
所有选项按钮共享Click事件过程
PrivateSuboptButton_Click(IndexAsInteger)
picDisplay.BackColorQBColor(Index 1)
EndSub
通过“添加”命令按钮的Click事件过程添加新的选项按钮
可读写
Hidden2隐藏文件本范例是以一个stdPicture物件来存图形之後於PictureBox中以特殊效果来显示
我水平比较低不会用动态数组有没有更简单的方法呢答案是有那就是字典
运行时间为1.593是数组的2倍但是还是比而且用起来比数组方便易抢购
----4)得到一个空闲的设备号vdevno
if http.status>299 then die("Error: "不是吧又出错
if not http.status206 then die("Server Not Support Partial Content.") 服务器不支持断点续传
aso.type1 数据流类型设为字节
aso.open
aso.loadfromfile filename 打开文件
aso.positionstart设置文件指针初始位置
aso.write http.responsebody 写入数据
aso.savetofile filename,2 覆盖保存
aso.close
rangehttp.getresponseheader("Content-Range") 获得http头中的"Content-Range"
if range"" then die("Can not get range.")没有它就不知道下载完了没有
tempmid(range,instr(range,"-")1) Content-Range是类似123-456/789的样子
currentclng(left(temp,instr(temp,"/")-1))123是开始位置456是结束位置
totalclng(mid(temp,instr(temp,"/")1)) 789是文件总字节数
if total-current1 then exit do 结束位置比总大小少1就表示传输完成了
startstart20480 否则再下载20k
loop while true
wscript.echo chr(13)下载完了显示总字节数
function die(msg) 函数名来自Perl内置函数die
wscript.echo msg 交代遗言^_^
wscript.quit 去见马克思了
end function
function showplan() 显示下载进度
if i mod 30 then c"/" 简单的动态效果
if i mod 31 then c"-"
if i mod 32 then c""
wscript.stdout.write chr(13)13号ASCII码是回到行首8号是退格
end function
。