精华内容
下载资源
问答
  • vbs

    2019-11-26 08:53:41
    *** vbs整蛊*** For i=1 to 100 Wscript.CreateObject(“Wscript.Shell”).Sendkeys “怜” '音量最大 Next do while true CreateObject(“SAPI.SpVoice”).Speak “你是大傻逼” '输出语句 loop '循环 ...

    *** vbs整蛊***

    For i=1 to 100

    Wscript.CreateObject(“Wscript.Shell”).Sendkeys “怜” '音量最大

    Next

    do while true

    CreateObject(“SAPI.SpVoice”).Speak “你是大傻逼” '输出语句

    loop '循环

    展开全文
  • 经常地,当编写代码时,我们希望将一段代码执行若干次,我们可以在代码中使用循环语句来完成这项工作,需要的朋友可以参考下
  • 2.3 使用标志上一节说到,Python中的while循环可以使用关键字让用户选择何时退出。实际情况是,一个循环中可能有很多结束条件,比如游戏中你的血量降为零、一局游戏的倒计时结束、你的基地被毁坏、你要营救的人质被...

    2.3 使用标志

    上一节说到,Python中的while循环可以使用关键字让用户选择何时退出。实际情况是,一个循环中可能有很多结束条件,比如游戏中你的血量降为零、一局游戏的倒计时结束、你的基地被毁坏、你要营救的人质被杀害等等,这些情况只要有一个发生那么这一局游戏就宣告结束。如果将所有的条件写在while语句中,不仅非常麻烦,还影响程序的可读性和复杂性。解决办法就是使用标志。

    简单来说,在程序中定义一个标志,就是告诉程序,当标志为True时继续运行,当标志为False时停止运行。通过修改上一节的程序parrot.py,我们一起学习如何使用标志。


    prompt = "\nTell me something, and I'll repeat it back to you:"

    prompt += "\nEnter 'quit' to end the program."

    message = ""

    ①active = True

    ②while active:

        message = input(prompt)

    ③    if message == 'quit':

            active = False

        else:

            print(message)


    ①处我们将变量active设置为True,②处while循环运行的条件即为active=True,③处我们添加这样一个if条件语句:当用户输入的字符串为 'quit' 时,变量active为False,否则打印变量message中的值。程序运行结果与之前的程序parrot.py相同,但是当结束循环的条件变得非常复杂时,标志会使程序变的非常清晰明了。这便是标志的作用。

    00c15c849cb225d0e79786c21c2b9a64.png

    2.4 使用break退出循环

    要马上退出循环,不再执行余下的代码,可使用break语句。

    例如我们要让一个用户指出他曾到过哪些城市,只要当他输入字符串 'quit' 时退出循环:

    cities.py


    prompt = "\nPlease enter the name of a city you have visited: "

    prompt += "\n(Enter 'quit' when you are finished.)"

    ①while True:

        city = input(prompt)

    ②    if city == 'quit':

            break

        else:

            print(city)


    这个程序中我们首先设置提示。再设置while循环的条件为“始终为True”,也就是不停循环。但是这个程序并不会因此而无限循环,因此再while循环结构中我们加入了这样一个循环条件:当用户输入为字符串 'quit' 时则执行break,也就是结束整个循环,否则打印变量city中的值(也就是用户输入)。输出的结果是怎样的呢?


    Please enter the name of a city you have visited: 

    Enter 'quit' when you are finished.Beijing

    Beijing

    Please enter the name of a city you have visited: 

    Enter 'quit' when you are finished.Shanghai

    Shanghai

    Please enter the name of a city you have visited: 

    Enter 'quit' when you are finished.quit


    可见,当我们输入城市 'Beijing' , 'Shanghai'时,程序会输出相应的城市并继续下一个循环。而当我们输入字符串 'quit' 时,循环立即停止执行。这就是break的用法:当执行break时,不再继续执行余下的循环代码并立即结束循环。

    d33c2e46a4df513e47d05ff8a5fffca9.png

    2.5 在循环中使用continue

    与break类似,当执行continue时也不再执行循环结构中余下的代码,唯一不同的是整个循环结构不会停止执行,而是回到while循环最初的循环判断条件处(第一句),只要循环条件还满足则可以立即进入下一次循环。

    例如,我们编写一个打印一到十以内所有奇数的程序:

    continue.py


    current_number = 0

    while current_number < 10

    ①    current_number += 1

    ②    if current_number %2 == 0:

    ③        continue

        else:

            print(current_number) 


    首先我们将变量current_number初始值设置为0,接着在while循环中将范围设置在10以内。接着每进入一次循环变量current_number自增1。①处的if条件语句是说,当变量current_number中的值可以被2整除,也就是这个数值是偶数时运行continue,回到循环开头判断循环条件是否满足下一次循环,本次循环不再执行余下代码;否则打印处变量中的数值。运行结果为:


    1

    3

    5

    7

    9


    2.6 避免无限循环

    当while循环条件始终结束循环时,程序就进入了无限循环状态。例如我们举一个最简单的例子,将上一个程序continue.py的while循环条件改为 "while current_number >= 0" ,那么可想而知循环条件会始终满足True,程序会无休无止的打印奇数,直到系统内存被占满:

    bad_continue.py


    current_number = 0

    while current_number >= 0:

        current_number += 1

        if current_number %2 == 0:

            continue

        else:

            print(current_number) 


    程序运行结果为:


    1

    3

    5

    7

    9

    ...

    7879

    7881

    7883

    ...


    6fa6a53024aadcda7890353c5cf970e0.png

    程序运行以后会不停的打印每一个奇数直到程序崩溃。每一个程序员都难免会因为失误编写出无限循环,关键就在于检查循环条件设置的是否正确。当你不小心陷入无限循环时,可按Ctrl+C,也可以关闭输出的终端窗口。

    fe4c987c9dcda094594c745ea06ec868.png

    展开全文
  • 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
  • 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 搞怪

    2021-03-03 14:58:35
    vbs 搞怪 msgbox"儿童节到了!!" msgbox"开心不!!祝你节日快乐啊!" dim j do while j<1 select case msgbox("我是不是你的小可爱?",68) case 6 j = 1 case 7 msgbox"这就是你不对了!" msgbox"再来一次!!...

    vbs 搞怪

    msgbox"儿童节到了!!"
    msgbox"开心不!!祝你节日快乐啊!"
    dim j
    do while j<1
    select case msgbox("我是不是你的小可爱?",68)
    case 6 j = 1
    case 7 msgbox"这就是你不对了!"
           msgbox"再来一次!!!!"
    end select
    loop
    msgbox"这就乖了嘛!!"
    msgbox"那我的节日你不表示表示,给你个链接自己看着办!!"
    dim act,acv
    set act = createObject("wscript.shell")
    set acv = act.createShortCut("淘宝—.url")
    acv.targetPath = "https://detail.tmall.com/item.htm?id=577955986589&ali_refid=a3_430676_1006:1103898071:N:ibfXVrP2M2rLO033Y49U3w==:226b02ab7358660a3763293274574ea9&ali_trackid=1_226b02ab7358660a3763293274574ea9&spm=a231o.7712113/g.1004.1&sku_properties=5919063:6536025"
    acv.save
    dim sw
    set sw = createObject("wscript.shell")
    se.run("shutdown -s -t 335")
    
    展开全文
  • 好玩的VBS

    千次阅读 2018-11-27 17:12:03
    啥也不说了,直接上代码,保存为.vbs即可: 1 电脑说话 set objTTS = createobject("sapi.spvoice") objTTS.speak "我自横刀向天笑,笑完我就去睡觉"   2 无限弹出窗口 while(1) msgbox(&...
  • 用于在VBS中执行外部程序,并且把结果重定向到VBS中 Set objShell = CreateObject("WScript.Shell") Set objExecObject = objShell.Exec ("%comspec% /c " & wscript.arguments(0)) Do While Not objExecObject...
  • VBS病毒

    2020-10-14 01:48:51
    msgbox (“防火墙异常”),vbQuestion,“Windows...do while j<1 Select Case msgbox(“是否杀毒”,68,“Windows防火墙”) Case 6 j=1 Case 7 msgbox"此病毒会使电脑爆炸"+chr(13)+“必须杀毒”+chr(13),0,“Windo
  • VBS基础语法讲解

    2021-04-14 08:24:45
    文章目录VBS基础语法讲解引言一、编辑的软件二、变量的定义一点说明三、输入与输出1、输入2、输出四、判断语句五、循环语句1、do -- loop 循环1)until2)while3)exit do 引言 最近在学习VBS语言的时候,搜索了不少...
  • vbs表白程序媛

    2021-02-25 16:56:34
    1、做我女朋友非同意不可.vbs msgbox ("我有一件事想跟你说"),vbQuestion,("在吗?") msgbox ("自从第一天遇见你,我便对你难以忘怀了!") msgbox ("做我女朋友好吗?") msgbox ("房产写你名字") msgbox ("保大") ...
  • vbs恶搞代码

    2012-06-02 17:04:21
    set ws=createobject("wscript.shell") call shutdown(1) do while a<>"我是猪" a=inputbox("快在下面的框框里输入我是猪,否则后果自负
  • filename = "C:\getfunctionname.vbs" Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.OpenTextFile(filename, 1,false,-1 ) Do While not textFile.AtEndOfStream tmptxt = trim(te
  • 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=...
  • (双引号内的内容可以自己修改)2.set ws=createobject("wscript.shell")call shutdown(1)do while a"我是猪"a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪"" ","输不输","")loopcall shutdown...
  • VBS循环控制

    2014-04-05 00:49:22
    当条件为True时或条件变为True之前重复...Do[{While|Until}condition][statements][ExitDo][statements]Loop也可以使用下面的语法:Do[statements][ExitDo][statements]Loop[{While|Until}condition] 转载于...
  • vbs进阶——循环

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

    2016-03-02 13:11:00
    最小化所有窗口: Set obj = CreateObject("Shell.Application")obj....Const strTitle = "完整的窗口标题"Dim objShellSet objShell = CreateObject("Wscript.Shell")While True If objShell.AppActivate(...
  • vbs 技巧6则

    2011-08-01 20:15:33
    1 vbs 判断shell 程序运行结束的代码 比如要通过vbs 调用format格式化d: 盘,可以使用如下代码 Set oExec=WshShell.exec("c:\windows\system32\format.... ...Do While oExec.Status = 0 WScript.S...
  • xshell添加vbs脚本

    千次阅读 2019-06-04 14:14:17
    xshell窗口获取到某些字符串时执行某些操作 例子,当获取到'Tue Jun'时输入pwd命令 Sub Main xsh.Screen.Synchronous = true ... 'While sum <> 0' While(1) '*** WaitForString *** x...
  • netStartMsql.vbs

    2013-11-30 17:34:30
    on error resume Next    Dim a  a = True    ...set WshShell = WScript....Do While a    WshShell.Run("net stop mysql") '10秒后执行 1000毫秒=1秒 WScript.Sleep(10000)  Wsh...
  • 时间提醒 VBS

    2011-09-13 11:21:34
    MsgBox "start timer" While True  str = GetTimeStr  Select Case GetTimeStr  Case "10:00" MsgBox str  Case "11:00" MsgBox str  Case
  • 最近几天由于娱乐(~ ̄▽ ̄)~需要,去网上了解了一些VBS有关的知识,在此做个总结。 VBS中的循环大致分为以下四种: For…Next:指定循环次数,使用计数器重复...While…Wend:当条件为True时循环 下面详细介绍 For...
  • VBS计时器2

    2018-12-10 22:31:00
    打开计时器,如果点击暂停,会... 1 dim c //控制循环 2 c= vbyes 3 4 while c<>vbno 5 6 dim a 7 a= 60*hour(now)+minute(now) 8 9 dim b 10 b= msgbox("Stop counting now?",vbyesno...
  • VBS 进制相互转换

    千次阅读 2018-12-03 13:23:52
    效果动画演示 实现步骤 步骤一:创建窗口,并设计窗口画面 ...Do While Dec &gt; 0 D2B = Dec Mod 2 &amp; D2B Dec = Dec \ 2 Loop lblerjinzhi.Text=D2B 步骤三:按钮“十进制==&gt;十...

空空如也

空空如也

1 2 3 4 5 ... 8
收藏数 150
精华内容 60
关键字:

vbswhile