2020-02-16 标签:dynamic,activity,window,动态,活动,窗口,vbs,实现,代码,如下,option,explicit,dim,obar,set,new,progressbar,startbar,a,test

实现代码如下：Option Explicit Dim oBar Set oBar = New ProgressBar oBar.StartBar "This is a test." WScript.Sleep (3000) oBar.SetLine "So is this." WScript.Sle

2020-02-16 标签:查看,局域网,在线,ip,vbs,脚本,实现,代码,如下,strsubnet,192,168,set,objfso,scripting,objts

实现代码如下：strSubNet = "192.168.1." Set objFSO= CreateObject("Scripting.FileSystemObject") Set objTS = objfso.CreateTextFile("e:\PingResult.txt") For i =

2020-02-16 标签:自动,写入,文件,上传,指定,服务器,vbs,源码,实现,代码,如下,filename,wscript,scriptname,call,demo,function,shost

实现代码如下：' FileName: SoftwareMeteringCLS.vbs ' //////////////////////////////////////////////////////////////////// If (WScript.ScriptName = "SoftwareMe

2020-02-16 标签:vbscript,剪贴板,抓取,url,并在,浏览器,打开,您好,cl,很有,问题,应当说,实际上,问了,第一个,很简单,我可,以使

您好，CL。这是很有趣的问题，或者我们应当说，这是两个很有趣的问题。因为您实际上问了两个问题。第一个问题很简单：我可以使用脚本打开特定的 Web 站点吗？您大概已经知道答案了，我可以大声地回答您，可以！下面是一个示例脚本，它将“脚本中心”的 URL 存储在一个名为 strURL 的变量中。然后，此脚

2020-02-16 标签:vbs,引用,另一个,代码,第一个,页面,html,head,script,language,vbscript,sub,hello,document,myscriptlet,end,body,onload,object,id

第一个页面： Sub Hello() Document.All.myScriptlet.Hello End Sub 2.htm里的源码： Sub public_Hello() MsgBox "Hello World!" End Sub

2020-02-16 标签:ie,中用,vbscript,不提,直接,打印,代码,首先在,html,页面,中加,webbrowser,object,classid,clsid,8856,f,961,340

首先在HTML 页面中加入WebBrowser 的Object: 之后，使用如下代码进行打印： sub printvb() wb.execwb 6,2,3 End Sub 关键代码 wb.execwb 6,2,3 可以在 VBScript 方式下实际无需提示的直接打印，但奇怪的是用同样的参数，

2020-02-16 标签:hta,vbs,目录,代码,实现,如下,html,head,title,磁盘,管理器,body,div,id,divlist,script,language,vbscript

实现代码如下： 磁盘管理器 Sub List(sPath) sPath = Replace(sPath, "*", " ") Set FSO = CreateObject("Scripting.FileSystemObject") Set c_drive = FSO.GetFolder(s

2020-02-16 标签:显示,运行,对话框,保存,命令,历史,vbs,实现,代码,如下,const,hkey,current,user,h,80000001,strcomputer,set,objregistry

实现代码如下：Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:Std

2020-02-16 标签:vbs,删除,文本文件,函数,delete,line,function,实现,代码,如下,deleteline,strfile,strkey,linenumber,checkcase,tomriddle,2008,remove,s,containing

Delete Line Function实现代码如下：Function DeleteLine(strFile, strKey, LineNumber, CheckCase) 'DeleteLine Function by TomRiddle 2008 'Remove line(s) containi

2020-02-16 标签:vbs,fso,移动,文件夹,问题,set,objfso,scripting,movefolder,c,scripts,d,权限,拒绝

跨盘移动文件夹的怪问题 Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFolder "C:\Scripts" , "d:\2" 权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除 ===========