2020-02-16 标签:js,调用,本地,exe,例子,支持,ie,内核,浏览器,实验,使用,好像,不行,实现,代码,如下,html,head

我实验了一下 : 使用IE内核的浏览器 都支持 火狐好像不行 实现代码如下： function callExe() { // new ActiveXObject("Wscript.Shell").run("notepad.exe D:\\a.png.txt"); // new ActiveXO

2020-02-16 标签:js,添加,网页,桌面,快捷方式,代码,详细,整理,实现,如下,function,todesktop,surl,sname,try,var,wshshell,n,ew

实现代码如下： function toDesktop(sUrl,sName){ try{ var WshShell = new ActiveXObject("WScript.Shell"); var oUrlLink = WshShell.CreateShortcut(WshShell.Specia

2020-02-16 标签:wscript,shell,对象,属性,公开,文档,分享,特殊,文件夹,名称,用于,索引,该集,检索,所需,列出,下面

特殊文件夹名称用于索引该集合以检索所需的特殊文件夹，文档中列出了下面的特殊文件夹： AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup Desktop Favorites Fonts MyDocuments NetHo

2020-02-16 标签:vbs,获取,系统,本次,上次,开关,机时,间的,代码,winxp,win,2003,兼容,实现,如下,lcase,right

实现代码如下： If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=

2020-02-16 标签:vbs,硬盘,读写,统计,分区,winxp,win,实现,代码,如下,原创,内容,转载,引用,核心,部分,注明

WinXP，Win7,Win8实现代码如下：'原创内容转载、引用代码核心部分请注明出处硬盘读写统计.vbs If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") ThenCreateObject("WScript.Shell").Run("%C

2020-02-16 标签:恶作剧,vbs,程序,代码,操作方法,保存为,运行,即可,本人,亲自,测试,大问题,一般,利用,无限,循环,死循环,通过,任务

操作方法：把代码保存为*.VBS运行即可 经本人亲自测试 不会出大问题的，一般都是利用无限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可。 实现代码如下： do msgbox "hi" loop无限制的用英文报数 实现代码如下： Set s = CreateObje

2020-02-16 标签:qq,帐号,自动,登录,批处理,脚本,实现,代码,如下,定义,程序,路径,密码,dim,program,a,b

实现代码如下： '定义QQ程序路径、帐名、密码 Dim Program1,a,b Program1= "C:\Program Files\Tencent\QQ\Bin\QQ.exe" Set WshShell=createobject("wscript.shell") '运行QQ主程序 Set oE

2020-02-16 标签:服务器,安全,设置,组件,2003,iis,asp,a,卸载,wscript,shell,application,下面,代码,保存为,bat

WindowsServer2003 + IIS6.0 + ASP 服务器安全设置之--组件安全设置篇 A、卸载WScript.Shell 和 Shell.application 组件，将下面的代码保存为一个.BAT文件执行（分2000和2003系统）windows2000.bat 实现代码如下： r

2020-02-16 标签:服务器,安全,设置,系统,服务,2003,iis,asp,组件,a,卸载,wscript,shell,application,下面,代码

WindowsServer2003 + IIS6.0 + ASP 服务器安全设置之--组件安全设置篇 A、卸载WScript.Shell 和 Shell.application 组件，将下面的代码保存为一个.BAT文件执行（分2000和2003系统）windows2000.bat 实现代码如下： r

2020-02-16 标签:exe,bat,vbs,脚本,实现,代码,如下,fp,wscript,arguments,fn,right,len,instrrev,adodb,stream

exe2bat的脚本 实现代码如下： fp=wscript.arguments(0) fn=right(fp,len(fp)-instrrev(fp,"")) with createobject("adodb.stream") .type=1:.open:.loadfromfile fp:str=.