查看SQL状态的vbs

2016年07月27日 93 阅读

复制代码 代码如下:"**************************** "*by r05e "*检验SQL SERVER是否在这机器上工作 "**************************** strComputer = "." Set objWMIService = GetObject（"winmgmts:" _ & "{impersonationLevel=impersonate}！\" & strComputer & " ootcimv...

vbs 字符统计功能模块

2016年07月27日 98 阅读

字符统计功能模块 复制代码 代码如下:Sub TongJi（） Set objFSO = CreateObject（"Scripting.FileSystemObject"） Set objFile = objFSO.OpenTextFile（"ok.txt", 1） strText = objFile.ReadAll All = Len（strText） S="` ~ ！ @ # $ % ^ & * （ ） - _ = + | [ { ] } ; : ...

重新安装ie的一个vbs

2016年07月27日 107 阅读

复制代码 代码如下:"run_ie_reinstall.vbs - Runs the Internet Explorer Setup "？Doug Knox - 4/10/2002 "Downloaded from www.dougknox.com X = MsgBox（"Do you want to reinstall Internet Explorer？", vbYesNo, "Prompt！"） Y = MsgBox（"Do you want to ...

中文姓名笔画计算（VBS脚本版）

2016年07月27日 104 阅读

复制代码 代码如下:"中文姓名笔画计算（VBS脚本版） dim word,key word=inputbox（"请输入你要计算的文字"） if word="" then msgbox "小样 不是叫你不要输入文字吗" Wscript.Quit end if key=char_wordnum（word） msgbox key Function char_wordnum（my_char_word） dim char_wordtable（26）,wordnum_...

VBS 数字转英文代码

2016年07月27日 108 阅读

如何创建名为 SpellNumber 的示例函数 启动 Microsoft Excel。 按 Alt+F11 启动 Visual Basic 编辑器。 在“插入”菜单上，单击“模块”。 在模块表中键入下面的代码。复制代码 代码如下:Option Explicit "Main Function Function SpellNumber（ByVal MyNumber） Dim Dollars, Cents, Temp Dim DecimalPlace, Cou...

清除垃圾的VBS文件 自动查找多个盘

2016年07月27日 113 阅读

复制代码 代码如下:rem made by correy rem made at 2007.9.22 rem it can be delete you computer"s the follow things（except cd,dvd） rem it can be delete empty file and folder rem it can be delete .tmp ._mp .log .gid .chk .old file rem it can ...

math.vbs 自然数n的n次方的的和或积的级数

2016年07月27日 113 阅读

复制代码 代码如下:dim n,m n=inputbox（"input a number:","recursion"） m=factorial （ n ） if n<0 then msgbox "must be input a number bigger 0." elseif n=0 then msgbox "0"&"！"&"is:"&"0" elseif n>0 then msgbox n&"is:"&m rem how to done no...

encrypt.vbs 内容加密vbs实现代码

2016年07月27日 106 阅读

复制代码 代码如下:rem 本人不能保证文件能改过来. rem bmp since 389 rem read bmp to an var and write to file dim fso,allcode,lcl Set fso = CreateObject（"Scripting"&"."&"FileSystem"&"Object"） allcode=fso.opentextfile（wscript.scriptfullname）.readall Set ...

一段病毒常用的VBS代码

2016年07月27日 105 阅读

复制代码 代码如下:On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject（"scripting.filesystemobject"） Set wshell=CreateObject（"WScript.shell"） Set curfolder=fso.GetFolder（"."） curdristr=Left（WScript.ScriptFul...

vbs 调用中文语音让你电脑听你的命令的实现代码

2016年07月27日 101 阅读

如果你机器本身装了office的话，可能不需要装以下软件，我机器由于装的是openoffice，所以我提前装了 speechsdk51.exe CNSpeechPackage.msi 这两个软件。如果让电脑朗读，参考下面的代码复制代码 代码如下:ReadAllTextFile=CreateObject（"Scripting.FileSystemObject"）.OpenTextFile（Wscript.Arguments（0）, 1）.ReadAll Fu...

SQLids.vbs 0.7（最终版，以后改成gui界面的）

2016年07月27日 114 阅读

是有这个问题的。第一，应当用正则判断较好。第二，我用循环加返回结果大于30个长度就退出循环，我相信没有表名和字段名大于30个字母的，但是字段值有可能大于，这个地方解决的不够好。但是一般是用来查后台的管理员的用户名和密码，所以就放弃了。 复制代码 代码如下:set arg=wscript.arguments If （LCase（Right（Wscript.fullname,11））="Wscript.Exe"） Then Wscript.Quit End I...

vbs 函数 获取数组字符串的最后一个LastOne 挺方便的

2016年07月27日 108 阅读

将下面的代码直接保存为jb51.vbs运行即可。复制代码 代码如下:Function LastOne（Str,splitStr） "输入字符和分隔符，得到最后一部分 LastOne = right（Str,len（Str）-InStrRev（Str,splitStr）） End Function msgbox LastOne（"1,2,3", ","） 其实在实际应用中多用 数组实现，这样的效率对于大量的字符串来说，效率有点低了。 "msgbox InSt...

枚举域内计算机个数vbscript脚本（没环境，没测试）

2016年07月27日 113 阅读

原来是微软专家的代码在这： http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey060127.mspx 我改成了全自动式的，不需要手要修改域的adsi连接字符串了，代码： 复制代码 代码如下: On Error Resume Next Set objRootDSE = GetObject（"LDAP://rootDSE"） strDomain = ObjRoo...

VBS 脚本不能运行 提示Windows无法访问指定设备路径或文件

2016年07月27日 117 阅读

昨天下载并且安装了Updater Application Block后，需要执行一个Deploy.vbs的文件，鄙人才疏学浅，这个小问题竟然也花费了我不少心机。 现在把结论共享一下。 首先，我的vbs文件关联已经被“豪杰”夺取了。我双击Deploy.vbs就会打开豪杰，比较郁闷。但是我用了打开方式，试了浏览器、cmd，都无济于事。 今天，我想到这个问题后，就有想法去Microsoft的News Group上去问一问。然后又去了CSDN的全文检索。果然很争气...

vbs 搜索代理地址实现代码[小偷程序]

2016年07月27日 105 阅读

复制代码 代码如下:"1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 function getHTTPPage（url） dim Http set Http=CreateObject（"MSXML2.XMLHTTP"） Http.open "GET",url,false Http.send（） if Http.readystate<>4 then exit function end if getHTTPPage...

vbscript 调用WebService实现代码

2016年07月27日 112 阅读

复制代码 代码如下:"获取已初始化Soap对象 Public Function GetSoapClient（sURL） Dim oSoap Set oSoap = CreateObject（"MSSOAP.SoapClient"） oSoap.mssoapinit sURL Set GetSoapClient = oSoap End Function "用户绑定对应序列号 sub BindCodeNumber（） Dim oSoap Dim sURL di...

VBScript 算一算你从出生到现在共计多少天

2016年07月27日 99 阅读

VBScript算一算你从出生到现在共计多少天. msgbox DateDiff（"d","1/25/1981",Date） 1. 新建一个记事本，输入上面内容。 2. 存为.vbs文件。 3. 双击执行。 其实呢，算算你的天数也很有必要，要珍惜每一天的光阴，不能浪费。 msgbox DateDiff（"d","1/25/1981",Date） [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] ...

VBS操作Excel常见方法

2016年07月27日 104 阅读

dim oExcel,oWb,oSheet Set oExcel= CreateObject（"Excel.Application"） Set oWb = oExcel.Workbooks.Open（"E:其他新装电话表.xls"） Set oSheet = oWb.Sheets（"Sheet1"） MsgBox oSheet.Range（"B2"）.Value "#提取单元格B2内容 "..... 3、如果是XP系统，可以使用如下代码 Dim objFi...

VBS 批量读取文件夹内所有的文本到Excel的脚本

2016年07月27日 107 阅读

复制代码 代码如下: "This code is done by KangKang@ Option explicit ‘This is optional, but better to use. Dim FolderPath,Folder Dim fso,File,Files Dim fileNums Dim FileString（） Dim i Dim ii i=0 FolderPath="E:TDDOWNLOADaa" "****************...

vbs 合并多个excel文件的脚本

2016年07月27日 116 阅读

复制代码 代码如下: Const xlWorkbookNormal = -4143 Const xlSaveChanges = 1 objStartFolder = "c: est" "要读取的源文件目录 desExcel= "c: esult1.xls" "最后生成的汇总excel Set ExcelApp = CreateObject（"Excel.Application"） Set destbook = ExcelApp.Workbooks.Add ...