VBS编程教程 （第4篇）

2017年02月06日 77 阅读

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

VBS编程教程 （第5篇）

2017年02月06日 75 阅读

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

VBS编程教程 （第6篇）

2017年02月06日 75 阅读

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

用VBS可执行程序+Xmlhttp下载备份网上文件的代码

2017年02月06日 77 阅读

今天写程序时突然想到做一个文件的备份，把网站上的数据库备份到本地机上。一个简单的小程序，做成可执行的文件，用VBS最简单方便了。"OnErrorResumeNext DimiRemote,iLocal iRemote=InputBox（"请输入远程文件路径："） SetxPost=CreateObject（"Microsoft.XMLHTTP"） xPost.Open"GET",iRemote,0 xPost.Send（） Setstream=Create...

注册表-批处理-VBS之间的相互结合应用第1/2页

2017年02月06日 70 阅读

不懂注册表、VBS、批处理不要紧，只要会学、会吸收别人的精华，会查找资料，|论坛|百度|GOOGLE|，然后能用好，就非常不错了 贴一些搜集的文字放到这吧。（绿色是标题，蓝色的是原作者，红色的部分就是需要修改的部分，根据你自己的实际情况修改） ======打开迅闪菜单的同时连接虚拟磁盘的VBS====== SetWshShell=WScript.CreateObject（"WScript.Shell"） Return=WshShell.Run（"c:cli...

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

2017年02月06日 78 阅读

复制代码 代码如下: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遍历文件并随机显示的脚本

2017年02月06日 76 阅读

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实现随机读取文件的一行内容的脚本

2017年02月06日 88 阅读

复制代码 代码如下: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实现读取文本文件的方法

2017年02月06日 68 阅读

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

一个实现VBS倒计时的代码

2017年02月06日 103 阅读

一个实现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格式的代码

2017年02月06日 67 阅读

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

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

2017年02月06日 108 阅读

整个在新版中，不是明文的密码字符串了，建议大家都升级到新版本中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,支持拖动

2017年02月06日 66 阅读

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

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

2017年02月06日 92 阅读

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

VBS可以做什么的简单说明

2017年02月06日 71 阅读

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功能的代码

2017年02月06日 82 阅读

用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篇）

2017年02月06日 103 阅读

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

VBS编程教程 （第2篇）

2017年02月06日 71 阅读

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

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

2017年02月06日 69 阅读

第三篇（共六篇）： 首先,我来解决一下上次课程的几个疑问 第一,那个余数问题,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篇）

2017年02月06日 88 阅读

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