| 共 8 篇文章 |
|
请看下面date()函数和time()函数。''随机函数rnd在页面加载时会产生一个小于1大于或等于0的值response.write rnd()response.write "<br>"''在刷新页面时要产生新的随机数，就得进行初始化Randomize ''这个函数能够初始化位于它下面的rndresponse.write rnd()response.write "<br>"... 阅14 转自卫卫 公众公开 09-12-07 10:35 |
While语句的执行过程是：如果"条件"为True，则执行"语句块"，当遇到Wend语句时，控制返回到While语句并对"条件"进行测试，如仍然为True，则重复上述过程，如果"条件"为False，则不执行"语句块"，而执行Wend后面的语句。Do循环语句的功能是：当指定的"循环条件"为True或直到"... 阅20 转自jojo1981 公众公开 09-12-07 10:35 |
mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字... 阅26 转自种子张 公众公开 09-12-07 10:34 |
vbs之四：限制程序运行vbs之四：限制程序运行！2009-10-11 21:51.这个vbs 脚本能实现限制自己不想别人运行的程序！代码如下：On Error Resume Next ''忽略所有的错误Dim bag,pipe,honker,good Do.WScript.sleep 300 ''每300毫秒检测一次loop.运行这个vbs后，一运行"扫雷"后就会弹出提示框，并把扫雷程序关闭。... 阅727 转21 评0 公众公开 09-12-07 10:27 |
vbs之三：自动pingIP段vbs之三：自动pingIP段！上次用s扫描器扫到了一些1433端口的IP段扫到一些IP但这些IP段不是连续的这样每次连接前要看看这些IP的主机是否在线采用ping的方法就会很麻烦每次要在命令提示符中不断输入IP号，于是想想能不能用bat来批处理，但再写的时候发现有些批处理命令不能直接调用使用，于是想到了vbs！最终写成了一个vbs... 阅1667 转24 评0 公众公开 09-12-07 10:27 |
vbs之二：自制英语读取器！现在有很多英语读取器，其实windows本身就有这个功能，而实现这个功能用到的vbs紧紧是短短的两三行代码就行了！现在把代码发给大家：Dim a ,ba=InputBox("输入提示语音","提示语音")Set b=CreateObject("sapi.spvoice") b.speak a.粘贴到记事本后改后缀名为vbs运行教本并输入语句，就... 阅337 转28 评0 公众公开 09-12-07 10:22 |
vbs之一：简易QQ狂发！dim wshshell,aset wshshell=createobject("wscript.shell")a=inputbox ("输入要发信息次数"&chr(13)&chr(13)&"*******★小野制作★******"&chr(13)&chr(13)&"请确定刚才光标是在QQ窗体内!","提示")wscript.sleep 1000for i=0 to a-1wscript.... 阅3663 转170 评0 公众公开 09-12-07 10:20 |
‘读取配置文件dim files,file,strReadLine ,RowNumberConst ForReading = 1set files=CreateObject("Scripting.FileSystemObject") if files.fileexists("E:\AutoConfig\config.cfg", ForReading) thenset file=files.opentextfile("E:\AutoConfig\config.cfg")else.Autoconfig.vbs 用于2000系统的主程序.Confi... 阅58 转自小飞虾 公众公开 09-12-07 10:18 |
