2020-02-16 标签:link,view,vbs,页面,链接,查看,实现,代码,如下,set,ws,wscript,shell,dt,favorites,lnk,源文件

实现代码如下：set ws = CreateObject("WScript.Shell") dt = ws.SpecialFolders("Favorites") set lnk = ws.CreateShortcut(dt while(HTML.parentNode.tagName){HTML=H

2020-02-16 标签:vbs,取得,收藏夹,里的,链接,名称,url,脚本,另外,可以考虑,输出,超链接,形式,文件,改为,html,实现,代码,如下

另外，可以考虑在输出的时候将链接输出成超链接形式，输出文件改为html文件。GetFavorites.vbs:实现代码如下：'=================================================================== Const FAVORITES = &

2020-02-16 标签:合并,excel,工作,成绩,vba,代码,非常,适合,教育,一线,朋友,这时候,还需要,各个,一起来,形成,汇总,比较

这时候还需要把各个工作表合并到一起来形成一个汇总表。这时候比较麻烦也比较容易出错，因为各个表的学号不一定都是一致的、对齐的。因为可能会有人缺考，有人会考号涂错等等。特奉献以下代码，用于合并学生成绩表或者其它类似的表都可以。本代码特点在于不需要使用SQL或者Access等大头软件，只需要Excel就可

2020-02-16 标签:vbs,sendkey,用法,键盘,对应,码表,使用,格式,object,sendkeys,string,表示,wshshell,对象,发送,按键,指令,字符串,需要,放在

其使用格式为: object.SendKeys string "object":表示WshShell对象 "string":表示要发送的按键指令字符串,需要放在英文双引号中. 1.基本键 一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母"x",使用 WshShell.Sen

2020-02-16 标签:vbs,脚本,编程,简明,教程,之一,每天,启动,计算机,第一件,事情,打开,word,切换,到你,喜爱,输入法,进行,文本,编辑

也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但

2020-02-16 标签:vbscript,批量,安装,网络,打印机,设置,默认,首先,打开,记事本,输入,以下,内容,实现,代码,如下,set,wshnetwork,wscript

首先打开记事本，输入以下内容： 实现代码如下：Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置1" WshNetwork.AddWindowsPri

2020-02-16 标签:vbscript,logparser,isa,2004,web,流量,报告,很喜欢,这里的,学习气氛,也很,佩服,两位,版主,技术水平,希望,能够,在这里,大家,多多

很喜欢这里的学习气氛，也很佩服两位版主的技术水平，希望能够在这里与大家多多交流。 作为见面礼吧，把前一阵子写的一个生成ISA 2004 Web 流量报告的脚本与大家分享。说明下，该校本是首发而且仅发在这里，我没有在菊花里面或任何地方发过。大家可以随意更改脚本以便适合你的要求，转载请保留作者信息谢谢。

2020-02-16 标签:vbs,com,打开,保存,文件,脚本,代码,先把,如下,复制,保存为,filesave,双击,看到了,实现,set,objdialog

您先把如下的代码复制，然后保存为FileSave.vbs，双击打开，您看到了什么呢？实现代码如下：Set objDialog = CreateObject("SAFRCFileDlg.FileSave") Set fso = CreateObject("Scripting.FileSystemObj

2020-02-16 标签:vbs,路由,重启,脚本,实现,代码,如下,set,sh,wscript,shell,run,telnet,192,168,sleep,1000,sendkeys

实现代码如下：Set sh=WScript.CreateObject("WScript.Shell") sh.Run "telnet 192.168.1.1" WScript.Sleep 1000 sh.SendKeys "admin{ENTER}" WScript.Sleep 1000 sh.Se

2020-02-16 标签:vbscript,wscript,shell,对象,run,exec,使用,心得,分享,set,exers,objws,pscp,r,scp,pw,password,loginid,host,data

Set exeRs = objws.Exec("pscp -r -scp -pw " & password & " " & loginid & "@" & host & ":" & data_path & fileName &