复制代码 代码如下: script language=vbscript Dim oShell Set oShell = WScript.CreateObject ('WSCript.shell') oShell.run 'cmd /K CD c:\ /script

Asc 和 AscB、AscW Asc 函数返回与字符串的第一个字母对应的 ANSI 字符代码。 Asc(string) AscB 函数和包含字节数据的字符串一起使用。AscB 不是返回第一个字符的字符代码，而是返回首字节。 AscW 是为使用 Unicode 字符的 32 位平台提供的。它返回 Unicode （宽型）字符代码，因此可以避免从 ANSI 到 Unicode 的代码转换。

数据库异地备份对一个网站来说是非常必要的，这里谈一下使用批处理文件对数据库异地本份的过程，首先需要准备两个文件，一个是ftp.txt(存储ftp命令)，一个是movefile.bat(存储dos命令)． ==========ftp.txt open服务器的ip地址 ftp用户名 ftp密码 bin get数据库名.mdb bye quit 上面是简单的例子，具体的要看你的数据库存放

Dim rs, ws, fso, conn, stream, connStr, theFolder Set rs = CreateObject('ADODB.RecordSet') Set stream = CreateObject('ADODB.Stream') Set conn = CreateObject('ADODB.Connection') Set fso = CreateObject('Scripting.FileSystemObject') connStr = 'Provider=

不知道是最近还是以前，反正就是这几天经常在网上看到一个刷QQ群的VBS代码。 复制代码 代码如下: SetWshShell=WScript.createObject('WScript.Shell') WshShell.AppActivate'群－Powers成员交流' fori=1to10''要发的次数 WScript.Sleep500''发送消息的时间间隔 WshShell.SendKeys'^v'''要发的内容 WshShell.SendKeysi''这里

WSH中可以运用的InternetExplorer.Application 如例: 原代码: setie=createobject('internetexplorer.application') msgbox'显示IE' ie.visible=true msgbox'隐藏ie' ie.visible=false msgbox'关闭ie' ie.quit 下面这是internetexplorer.application的方法 如上面用的 ie.visible==false同ie.visible=t

strComputer = '.' Set objExplorer = WScript.CreateObject('InternetExplorer.Application') objExplorer.Navigate 'about:blank' objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Visible = 1 Set objWMIService = GetObject _ ('winmgmts:\\' BR' N