2020-02-16 标签:vbs,百度,助手,运行,直接,选择,我要,回答,歌曲,搜索,新闻,网页,知道

运行它直接选择： 1.我要回答;2.歌曲搜索;3,新闻搜索;4.网页搜索;5.贴吧搜索;6.知道搜索;7.图片搜索;8.视频搜索;9;百科搜索; 然后输入需要搜索的内容即可直接自动打开转到指定网址自动进行搜索．实现代码如下：xz=InputBox("1.我要回答;2.歌曲搜索;3,新闻搜索;" 5.

2020-02-16 标签:vbs,生成,不重,随机数,代码,10,实现,如下,dim,z,i,getrnd,wscript,echo,next,function,n

实现代码如下：dim Z(10),i for i=0 to 10 Z(I)=GetRnd(i-1) WScript.Echo (Z(i)) NEXT Function GetRnd(n) Dim i,X Randomize X=CInt(10*Rnd() ) For i=0 To n If X=Z(

2020-02-16 标签:vbscript,常用,函数,总结,下面,是我,中常,用的,及其,用法,说明,use,method,retrieve,current,value,a,test

下面是我总结的VBScript中常用的函数及其用法。 　　1，GetROProperty 　　说明：You use the GetROProperty method to retrieve the current value of a test object property from a run-

2020-02-16 标签:vbs,合并,多个,excel,文件,脚本,实现,代码,如下,const,4143,c,test,读取,源文件,目录

实现代码如下： Const xlWorkbookNormal = -4143 Const xlSaveChanges = 1 objStartFolder = "c:\test" '要读取的源文件目录 desExcel= "c:\result1.xls" '最后生成的汇总excel Set Exce

2020-02-16 标签:vbs,批量,读取,文件夹,所有的,文本,excel,脚本,实现,代码,如下,code,done,kangkang,option,explicit,optional,better,use

实现代码如下： 'This code is done by KangKang@ Option explicit ‘This is optional, but better to use. Dim FolderPath,Folder Dim fso,File,Files Dim fileNums Di

2020-02-16 标签:vbs,操作,excel,常见,方法,dim,oexcel,owb,osheet,set,application,workbooks,open,e,其他,新装,电话,xls

dim oExcel,oWb,oSheet Set oExcel= CreateObject("Excel.Application") Set oWb = oExcel.Workbooks.Open("E:\其他\新装电话表.xls") Set oSheet = oWb.Sheets("Sheet1

2020-02-16 标签:vbscript,调用,webservice,实现,代码,如下,获取,初始化,soap,对象,public,function,surl,dim,osoap,set,mssoap

实现代码如下：'获取已初始化Soap对象 Public Function GetSoapClient(sURL) Dim oSoap Set oSoap = CreateObject("MSSOAP.SoapClient") oSoap.mssoapinit sURL Set GetSoapClie

2020-02-16 标签:vbs,搜索,代理地,实现,代码,小偷,程序,如下,输入,url,目标,网页,地址,返回,gethttppage,html,function

实现代码如下：'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 function getHTTPPage(url) dim Http set Http=CreateObject("MSXML2.XMLHTTP") Http.open "GET",url,false

2020-02-16 标签:vbs,脚本,运行,提示,windows,无法访问,指定,设备,路径,文件,昨天,下载,并且,安装,updater,application,block,需要,执行,deploy

昨天下载并且安装了Updater Application Block后，需要执行一个Deploy.vbs的文件，鄙人才疏学浅，这个小问题竟然也花费了我不少心机。 现在把结论共享一下。 首先，我的vbs文件关联已经被“豪杰”夺取了。我双击Deploy.vbs就会打开豪杰，比较郁闷。但是我用了打开方式，

2020-02-16 标签:vbs,调用,中文,语音,让你,电脑,听你,命令,实现,代码,机器,本身,装了,office,不需要,以下,软件,由于,装的

如果你机器本身装了office的话，可能不需要装以下软件，我机器由于装的是openoffice，所以我提前装了 speechsdk51.exe CNSpeechPackage.msi 这两个软件。如果让电脑朗读，参考下面的代码实现代码如下：ReadAllTextFile=CreateObject("