用vbs实现显示系统调色板的代码

2016年07月27日 85 阅读

复制代码 代码如下:setie=createobject（"internetexplorer.application"） ie.navigate"about:blank" dountilie.readystate=4:wscript.sleep25:loop setdoc=ie.document setbody=doc.body setwin=doc.parentwindow body.innerhtml="<OBJECTid=dlgCLASSID=...

用vbs遍历文件并随机显示的脚本

2016年07月27日 82 阅读

setws=createobject（"wscript.shell"） setfso=createobject（"scripting.filesystemobject"） setfolder=fso.getfolder（ws.currentdirectory） setfiles=folder.files foreachfileinfiles d=d&file.name&"," next Randomize DoUntilD="" s=Split（D,","...

用vbs实现随机读取文件的一行内容的脚本

2016年07月27日 81 阅读

复制代码 代码如下:randomize setfso=createobject（"scripting.filesystemobject"） seta=createobject（"scripting.dictionary"） setfile=fso.opentextfile（"a.txt"） dowhilefile.atendofstream<>true m=m+1 a.addm,file.readline loop file.close h=i...

用vbs实现读取文本文件的方法

2016年07月27日 82 阅读

vbs读取文件方法Functionreadfile（readfilepath） "OnErrorResumeNext Setfs=CreateObject（"Scripting.FileSystemObject"） Setfile=fs.OpenTextFile（readfilepath,1,false） readfile=file.readall file.close setfs=nothing endFunction...

一个实现VBS倒计时的代码

2016年07月27日 79 阅读

一个实现VBS倒计时的代码 以下内容为程序代码: <scriptlanguage="VBScript"> DimoTime:oTime=5 FunctionSTime document.all（"oInput"）.value="00:00:"&oTime IfoTime>0Then oTime=oTime-1 window.setTimeout"STime",1000 Else MsgBox"时间到了！" EndIf EndFunctio...

用vbs实现将剪切板的unix格式的内容处理成pc格式的代码

2016年07月27日 84 阅读

处理QQ里复制的文本"复制QQ里的文本到记事本有事可能会有黑框框...（请复制后运行本脚本） setws=createobject（"wscript.shell"） setfso=createobject（"scripting.filesystemobject"） SetobjIE=CreateObject（"InternetExplorer.Application"） objIE.Navigate（"about:blank"） s=objIE.docum...

用vb和vbs 破解flashxp的密码的代码

2016年07月27日 91 阅读

整个在新版中，不是明文的密码字符串了，建议大家都升级到新版本中vbs版 Function DecryptFlashFXP（password） magic = Split（"121,65,51,54,122,65,52,56,100,69,104,102,114,118,103,104,71,82,103,53,55,104,53,85,108,68,118,51", ","） chrlast = CInt（"&H" & Mid（password, 1, 2...

用VBS实现的批量gb2312转utf-8,支持拖动

2016年07月27日 91 阅读

复制代码 代码如下:"/*========================================================================= "*Intro拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件 "*FileNameGB2312.To.UTF-8.vbs "*Authoryongfa365 "*Versionv1.0 "*WEBhttp://www.yongfa365.co...

用vbs实现的XP序列号替换器

2016年07月27日 84 阅读

复制代码 代码如下:ONERRORRESUMENEXT DimVOL_PROD_KEY ifWscript.arguments.count<1then VOL_PROD_KEY=InputBox（"本程序能帮助您更换WindowsXP的序列号。"&vbCr&vbCr&"序列号由您自己寻找并输入。下面列出的不一定是您当前用的序列号，仅作格式参考。"&vbCr&vbCr&"请输入新的序列号：","WindowsXP序列号更换器bydonghai","MR...

VBS可以做什么的简单说明

2016年07月27日 91 阅读

1.计算 2.处理文件和文件夹 3.管理Windows 4.处理Word,Excel,PowerPoint等Office文档 5.嵌入网页，驱动dHTML 6.编写HTTP通信 7.调用系统功能（COM组件），比如说语音说话 8.分析HTML,XML 9.调用命令行并分析返回结果 10.处理图片 11.自动化按键 12.调用WindowsMediaPlayer并管理 13.调用WindowsLiveMessenger并管理14.服务端技术：ActiveSe...

用vbs实现cmd功能的代码

2016年07月27日 84 阅读

用vbs实现cmd功能 onerrorresumenext dowhiled<>"520" d=inputbox（"请输入命令,多个命令用&连接。关闭该VB窗口命令520"） setq=createobject（"scripting.filesystemobject"） seta=WScript.CreateObject（"WScript.Shell"） a.run"%Comspec%/c"&d loop 还有一般的程序最好不要加onerror...

VBS基础编程教程 （第1篇）

2016年07月27日 85 阅读

,如果你想接触以下VBScript也可以,但既然有编程基础推荐直接去找一些参考书来读,会比较快. 什么是VBScript呢？VBScript的全称是:MicrosoftVisualBasicScriptEditon.（微软公司可视化BASIC脚本版）.正如其字面所透露的信息,VBS（VBScript的进一步简写）是基于VisualBasic的脚本语言. 我进一步解释一下,MicrosoftVisualBasic是微软公司出品的一套可视化编程工具,语法基于B...

VBS编程教程 （第2篇）

2016年07月27日 82 阅读

第二篇： 我真没想到,第一次的作业竟然有人不会. 看来要讲的非常非常细致才行,嗯,今天讲各种"量"和基本运算 先说常量,这个比较简单. 什么是常量呢,常量就是其值不可变化的量. 常量分为两种:第一种,自然常量.这叫是因为它们本身就是常量,你怎么更改21的值呢？他永远都是21,不可能变成46 如果你在程序中使用"21=46",这样的语句将会引发一个错误.同样的,字符串也是常量（还记得字符串吗？就是包裹在""之间的一串字符）,"HelloWor...

VBS基础编程教程 （第3篇）

2016年07月27日 85 阅读

第三篇（共六篇）： 首先,我来解决一下上次课程的几个疑问 第一,那个余数问题,16/5=3...1,是因为我改过前面的部分,后面的忘了改了,不好意思. 第二,请看一下程序清单: 1） Dima,b,c a=inputbox（"a是:","输入半径"） b=Inputbox（"b是:","输入半径"） c=a*2+b*2 Msgbox（c） 这个输入1、2时是6 2） Dima,b,c a=inputbox（"a是:","输入半径"） b=Inputbox（...

VBS基础编程教程 （第4篇）

2016年07月27日 79 阅读

四篇（共六篇）： 大家好,昨天我休息了一天,所以今天写第4章:循环结构 我们先来看一道题:商场进行每日结算,要求累加出今天的营业额,每次输入一个数,这道题其实很简单,但就我们现在学 过的知识要完成这道题相当麻烦,我们来分析一下.首先,我们需要知道买卖的次数,这样才能控制输入的次数,但是,这种设 计是非常低效的,每天都要重新设计程序.假定今天进行了5次交易,以下是源程序: dimsum sum=0"初始化变量 sum=sum+int（inputbox（"...

VBS基础编程教程 （第5篇）

2016年07月27日 84 阅读

第五篇（共六篇）： 请允许我县描述一下我现在的环境:气温高达37摄氏度,而我忘记了图书馆开门的时间,还要在这里站上一个小时,在热带植物的包裹下,各种奇怪的小飞虫围着我转来转去.不过令我欣慰的是,终于写到五了,还有两课我们的"基础篇"就要结束了. 今天我们来了解语言本身的最后一个论题:数组. 要理解"数组",这个概念我觉得另一种翻译对学习来说更加容易:"阵列",没错,数组就是一个阵列,一个数据的阵列.最简单的例子是数据库系统,假设你要储存20名学生的英语...

VBS基础编程教程 （第6篇）

2016年07月27日 86 阅读

最后一篇： 新家不错,MM开心,我也就跟着高兴了:）,今天我们学习基础篇的最后一个部分:自定义函数和过程.我们每天都在和函 数打交道,inputbox（）是函数,msgbox（）是函数,int（）也是函数...这些函数都是系统内建的,我们只能用不能改.今天,我 就教大家怎样自己制作一个函数. 首先我们要了解,为什么要用函数,我们用"实例"说话,先看一个例子:给出两个数,输出较大的那一个. dima1,a2,b1,b2,c1,c2 a1=2:a2=4""...

利用vbscript的for命令实现定时关机

2016年07月27日 83 阅读

以下语句实现每个星期的每一天指定时间关机 如果要换成每个月的某几天，请改字母为数字，并用逗号分隔 以下代码没有错误检测语句，输入时间的时候务必按照指定格式输入 可以用在CMD窗口用at命令来查看计划任务复制代码 代码如下:ifnot"%times%"==""for%%iin（%times%）do（ at%%i/every:M,T,W,Th,F,S,Sushutdown-s ）...

在桌面右下角出现温馨提示的vbs冒泡程序

2016年07月27日 84 阅读

这个功能的原理呢，就是用vbs生成exe文件，然后运行，只不过这个exe比较小，不用两个文件了，一个vbs即可实现vbs冒泡效果复制代码 代码如下: Data="4D5A00000000000000000000504500004C010200534C58210000000000000000E0000F010B01000000000000000600000000000054010000001000000C000000000040000010000000020...

利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码第1/2页

2016年07月27日 76 阅读

一．挑选速度快的肉鸡做VPN。 当自己从小菜鸟转型为老菜鸟时，就懂得考虑在玩Hacking的同时也要尽量保证不暴露 自己。万事，安全第一嘛！不然都不知道哪天玩着玩着就被警察叔叔带去喝茶了^_^。 因此，作为老菜鸟的我们，要学会在Hacking时，多用VPN+终端等跳板措施来保护自己，尽量不让自己直接暴露所处地。 但是，由于跳板的增加，导致了数据传输的缓慢。因此我们完全有必要找网速快的机器来做VPN跳板。但如果让自己做这些重复性的操作（从众多的肉鸡中挑选网速...