取TM自动登录代码并防止关闭(自动登录) DimQQUIN SetobjWMIService=GetObject_ (winmgmts:\\.\root\cimv2) Setps=objWMIService.ExecQuery_ (SELECT*FROMWin32_process) ForEachpsinps列出系统中所有正在运行的程序 foreachpsi
只要运行它后,一旦网线被拔掉的话,马上就进入自动关机倒计时,-t 30是倒计时的时间,你可以自己调整。 复制代码 代码如下: Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObje
希望能够找到个能给excel表另存为TXT的VBS代码,虽然另存为可以选择,但还是需要直接VBS执行这一步另存为TXT格式的,应该如何写代码呢 希望能够找到个能给excel表另存为TXT的VBS代码,
闲来无事发个VBS 16进制验证特定字符 例子验证VBS自身(红色部分fastslz) 复制代码 代码如下: 验证字符:fastslz file=Wscript.ScriptFullName Dim slz set slz = CreateObject(Adodb.Stream) slz.Type = 1 slz.Mode = 3
今天写程序时突然想到做一个文件的备份,把网站上的数据库备份到本地机上。一个简单的小程序,做成可执行的文件,用VBS最简单方便了。OnErrorResumeNext DimiRemote,iLocal iRemote=InputBox(请
经常地,当编写代码时,我们希望将一段代码执行若干次,我们可以在代码中使用循环语句来完成这项工作,需要的朋友可以参考下
这篇文章主要为大家介绍下VBS中的正则表达式的一些使用方法,需要的朋友可以参考下
不懂注册表、VBS、批处理不要紧,只要会学、会吸收别人的精华,会查找资料,|论坛|百度|GOOGLE|,然后能用好,就非常不错了 贴一些搜集的文字放到这吧。(绿色是标题,蓝色的是原作
貌似我看过的 VBScript 书籍没有一本介绍过这种写法,当然,书上没写的东西还有很多 一直以来,我都是用 New RegExp 来创建正则表达式对象的: Set regex = New RegExp然而最新才发现 VBS 的正
rem 请多多指导,如:增加功能;减少内存;加快速度;加密变形;语法格式;书写错误;精简语法 rem email:kouguoxi@hotmail.com rem some crack statement i remment,make it cant to run onerrorresumenext dimti
WORD软虽然可以将doc转为文本文档,但每次打开WORD都很慢。最好就是通过右键菜单来快速转换。 打开记事本输入: 复制代码 代码如下: ONERRORRESUMENEXT setargs=wscript.arguments arg=args(0) setw=c
如果你想用递归搜索我也没办法。下面的程序搜索电脑上所有的MP3文件。 复制代码 代码如下: strComputer = . Set objWMIService = GetObject(winmgmts: _ {impersonationLevel=impersonate}!\\ _ strComputer \root\ci