精华内容
下载资源
问答
  • VBS基础篇 - 循环语句(2) - While...Wend

    千次阅读 2014-08-26 13:16:52
    当条件为True时循环,语法结构...While condition  [statements] Wend  主要参数: condition:数值或字符串表达式,其值为True或False。如果condition为Null,则condition被当作False。

    当条件为True时循环,语法结构如下: 

    ?
    1
    2
    3
    While condition
             [statements]
    Wend

     主要参数:

    condition:数值或字符串表达式,其值为TrueFalse。如果conditionNull,则condition被当作False

    statements:当conditionTrue时被重复执行的一条或多条命令。

      具体示例代码如下:

    ?
    1
    2
    3
    4
    5
    6
    Dim Count:Count = 5 '定义一个变量
    While Count <> 0 '当Count变量值不等于0,一直循环
         MsgBox Count
         Count = Count -1   
    Wend
    MsgBox "循环结束"

     

       While…Wend没有Exit语句,从头一直循环到尾,若要在中途退出,则需用Do…Loop语句。

    如果你對現在不滿意...否則你就好好學,因爲你還只是菜鳥...
    展开全文
  • vbs进阶——循环

    2019-05-17 20:23:30
    循环无限循环条件循环while循环until循环计数循环for循环 无限循环 do 你想要做的事 loop 条件循环 while循环 while 需满足的条件 你想要做的事 wend 例: dim s s=inputbox("") while s="YES" msgbox"YES" ...

    无限循环

    do
       你想要做的事
    loop
    

    条件循环

    while循环

    while 需满足的条件
       你想要做的事
    wend
    

    例:

    dim s
    s=inputbox("")
    while s="YES"
       msgbox"YES"
    wend
    

    不能退出循环

    until循环

    do until 不满足什么条件
       需要做的事
    loop
    

    例:

    dim s
    s=inputbox("")
    do until s="YES"
       msgbox"YES"
    loop
    

    可以使用exit do来退出循环

    计数循环

    for循环

    for   计数器变量=开始计数值  to  最后计数值
       需要做的事
    fext
    

    例:

    for i=1 to 10
       msgbox i
    next
    

    可以使用exit for来退出循环

    循环就介绍到了这里,下期再见

    展开全文
  • .vbs后缀名的死循环

    千次阅读 2019-06-04 17:49:45
    修改后缀名(将txt改为vbs) 下面就是写入到文本文档中的代码了 do msgbox"不好意思小老弟" msgbox"打电话给我叫爸爸" msgbox"如果你不叫的话" msgbox"那你就出不去了" loop 其实与大部分编程语言相同,一个循环...

    首先>>桌面新建一个文本文档>>填入下面的代码>>保存>>修改后缀名(将txt改为vbs)

    下面就是写入到文本文档中的代码了
    do
    msgbox"不好意思小老弟"
    msgbox"打电话给我叫爸爸"
    msgbox"如果你不叫的话"
    msgbox"那你就出不去了"
    loop
    

    其实与大部分编程语言相同,一个循环语句,赋值为真,所以会一直的运行下去,
    效果图
    在这里插入图片描述

    重点来了,既然关闭与确定都无法终止那怎么办呢?,其实很简单,进入任务管理器终止任务即可

    在这里插入图片描述

    任务管理器怎么打开呢?

    方法1:Ctrl +shift +esc
    方法2:window10操作系统,在电脑左下方的搜索栏直接搜索任务管理器即可
    方法3:Ctrl+alt+detele 选中任务管理器,双击打开
    方法4:比较装*的一个方法,先win+r打开运行的对话框,再输入命令taskmgr再回车
    方法5:右键单击左下角开始键,
    方法还有很多就不一一列举了

    展开全文
  • SecureCRT刷配置vbs脚本

    2019-11-04 13:53:09
     While num0  crt.Screen.Send "int tunnel " &num0 & chr(13)  crt.Screen.Send "tunnel mode ipip " & chr(13)  crt.Screen.Send "ip addr 10.1." &num0 & ".1/24" &chr(13)  crt.Screen.Send "tunnel ...

     

    Sub Main
          num0 = 0
          num1 = 256
          crt.Screen.Send "interface loopback 1" & chr(13)
          crt.Screen.Send "ip address 20.1.1.1 255.255.255.255" & chr(13)
          crt.Screen.Send "exit" & chr(13)
          crt.Screen.Send "arp 55.1.1.2 0000.1234.5555 arpa" & chr(13)
          While num0 < num1
            crt.Screen.Send "int tunnel " &num0 & chr(13)
            crt.Screen.Send "tunnel mode ipip " & chr(13)
            crt.Screen.Send "ip addr 10.1." &num0 & ".1/24" &chr(13)
            crt.Screen.Send "tunnel source loopback 1 " & chr(13)
            crt.Screen.Send "tunnel destination 40.1." &num0 &".1" & chr(13)
            num0 = num0 + 1
            crt.Screen.Send chr(1)
          WEnd
          num0 = 0
          While num0 < num1
            crt.Screen.Send "ip route 40.1." &num0 &".1 255.255.255.0 55.1.1.2" &chr(13)
            crt.Screen.Send "ip route 200.1." &num0 &".1 255.255.255.0 tunnel " &num0 &chr(13)
            num0 = num0 + 1
            crt.Screen.Send chr(1)
          WEnd
          
          num0 = 0
          crt.Screen.Send "no interface loopback 1" & chr(13)
          crt.Screen.Send "no arp 55.1.1.2" & chr(13)
          While num0 < num1
            crt.Screen.Send "no int tunnel " &num0 & chr(13)
            crt.Screen.Send "no ip route 40.1." &num0 &".1 255.255.255.0 55.1.1.2" &chr(13)
            num0 = num0 + 1
            crt.Screen.Send chr(1)
          WEnd

    End Sub

    展开全文
  • vbs基础教程(4)循环

    2020-05-05 15:50:14
    while相反的是until, 用法和while一样, 不过他只有当后面的表达式的值为false(表达式不成立)的时候才执行循环体 for… next 还有一种循环: for…next.这种循环结构是基于计数的, 也是在编程中最常见到的循环结构,...
  • 经常地,当编写代码时,我们希望将一段代码执行若干次,我们可以在代码中使用循环语句来完成这项工作,需要的朋友可以参考下
  • VBS中的循环语句

    千次阅读 2014-07-23 13:36:34
    循环用于重复执行一组语句。循环可分为三类:一类在条件变为 False 之前重复执行语句,一类在条件变为 True 之前重复执行语句,另一类按照...While...Wend: 当条件为 True 时循环。 For...Next: 指定循
  • secureCRT脚本----vbs语法

    千次阅读 2020-03-21 14:08:34
    ’ 断开连接 crt.session.disconnect ’ 等待连接关闭 Do crt.Sleep 100 Loop While crt.Session.Connected = True ‘每100毫秒判断连接是否断开 说明: 1.CRT默认tab的index为1 2.要创建第二个标签页tab,必须使用...
  • vbs烟花代码

    千次阅读 2021-06-09 13:24:27
    比如关机代码....我不要整人什么的,我要的是类似翻译的,还有句型哈哈,LS的比较搞笑 先说VBS: 我是学VB的,据说VB和VBS差不了多少,只是VBS没有主界面而已, VB对网络的支持堪称完美,所以不...
  • vbs恶搞代码

    千次阅读 2021-07-05 18:10:45
    vbs整人代码大全,包括强制自动关机、打开无数计算器、无限循环等vbs整人代码,感兴趣的朋友参考下。 1、输入指定语句 Do Dim a, b, c, d a = InputBox("快说“我是猪”", "") If a = "我是猪" Then MsgBox "这就对...
  • 今天敲学生系统时遇到了这样一个循环语句:While.....Wend,这是我第一次见,我感觉很好奇,研究了一下,发现原来他和我们常用的Do While...Loop 循环语句有一些微妙的关系,想知道就往下看看?? 【正文】 ...
  • vba与vbs

    2020-12-20 02:01:49
    第1列为日期,第2列为指标值 dt = sht.Cells(i, 1) '取出日期 Do While IsDate(dt) And dt <> TimeSerial(0, 0, 0) dzhrq = DateDiff("s", DateSerial(1970, 1, 1), dt) '转为DZH日期:与1970.1.1间隔秒数 fso.write...
  • vbs无限循环代码_vbs整人代码

    千次阅读 2020-12-12 13:21:37
    恶作剧(病毒)的vbs代码,这里提供的都是一些死循环或导致系统死机的vbs对机器没坏处,最多关机重启一下就可以了打开记事本,把代码复制粘贴进去,再另存为.vbs格式即可操作方法:把代码另存为.vbs运行即可vbs恶作剧...
  • 简单VBS教程

    万次阅读 多人点赞 2018-06-24 15:38:25
    讲一下VBScript。主要面向菜鸟,懂得编程的朋友就不要浪费时间了,如果你想接触以下VBScript也可以。但既然有编程基础推荐直接去找一些参考书来读。...正如其字面所透露的信息,VBS(VBScript的进一步简写)是基...
  • vbs读取Access数据库

    2021-03-07 06:26:55
    我编写了vbs脚本读取Access数据库,代码如下:Dimpath,ssql,cnn,rst,a,bsetcnn=WScript.CreateObject("ADODB.Connection")setrst=WScript.CreateObject("adodb.recordset")path="d:\student.mdb"cnn....
  • VBS自动更换IP.vbs

    2013-01-06 19:34:11
    VBS自动更换IP.vbs 'VBS自动更换IP Dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Set oIE = CreateObject("InternetExplorer.Application") ...Do While(oIE.Busy) WScript.Sleep 3000 Loop End Sub
  • 例如: set fs =createobject(“scripting.filesystemobject”) set f=fs.getfile(“c:\1.txt”,1,false) set ts=f.openastextstream(1,0) do while ts.atendofstream<>true f.read(1) loop 还有一个属性,atendof...
  • securecrt vbs使用

    2020-01-16 17:13:43
    Loop While crt.Session.Connected = True '每100毫秒判断连接是否断开 说明: 1.CRT默认tab的index为1 2.要创建第二个标签页tab,必须使用函数set newtab = objCurrentTab1.Clone()复制标签页为新的tab页面 否则...
  • vbs实现自动打字祝福前言一、vbs淦对话框二、vbs淦打油诗三、vbs淦函数四、vbs淦英文五、vbs淦C+实现模拟键盘功能六、六六大顺祝福总结 前言 年轻人 不讲武德 一、vbs淦对话框 Dim a,cut,b,Str,flag flag=false ...
  • vbs_批量修改文件

    2014-12-15 12:23:54
    do while findf.atendofstream=false d=f.datelastmodified 'get modified datetime of current file alltext=findf.readall if(InStr(alltext,findstr1)> 0 ) then s=replace(alltext,findstr1, replaceStr) count=...
  • VBS脚本常用经典代码

    2021-01-22 08:51:29
    VBS脚本常用经典代码 1、VBS获取系统安装路径 /*先定义这个变量是获取系统安装路径的,然后我们用“&strWinDir&”调用这个变量。*/ setWshShell = WScript.CreateObject("WScript.Shell") strWinDir=...
  • VBS杀死指定进程

    2021-01-12 15:44:18
    以下是一小段杀死指定进程名字的小vbs,希望对大家有帮助。Function KillProc(strProcName)On Error Resume NextSet objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\.ootcimv2")Set ...
  • VBS进程判断代码

    2021-02-26 18:27:21
    vbs核心代码Option ExplicitDim objWMIService,colProcessList,strComputerstrComputer = "."Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2...
  • VBS连接数据库操作

    2021-01-19 06:01:57
    将结果保存在RECORDSET对象实例中 intArrayLength = objRecordSet.RecordCount '将查询结果的行数作为数组的长度 If intArrayLength > 0 Then ReDim str_Array_QueryResult(intArrayLength-1) Do While NOT ...
  • VBS教程总结

    2021-07-28 22:18:16
    脚本文件的编写十分方便,你可以选用任意一个文字编辑软件进行编写,写完后,你只需将它保存为 WSH 所支持的文件名就行了(如 ..js 文件、.vbs 文件),WSH也就是用来解析VBS语言的宿主,本身包含了几个个常用对象: ...
  • vbs基础教程

    2020-08-07 14:38:30
    vbs基础教程 前言 笔者学习vbs的资源来源于博客中的文章,写成博文时,有些难免理解错误,遇到错误的地方,请提醒我改正,谢谢。有些部分使用了其它博文的资料参考。 1.创建vbs脚本,Hello World! 鼠标右键,创建文本...
  • 当c++爱上了vbs—让你的c++会说话 在开始这篇文章之前,我们先来讲一款在windows上且具有黑科技的编程语言:vbs 是的,在百度搜索中,对vbs的介绍就是这么简单。 然而其实,vbs的代码难度比这还要简单。 但vbs并不能...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,769
精华内容 2,307
关键字:

vbswhile