济南大学信息科学与工程学院网络信息对抗课件 第21讲.ppt

7.使用条件语句 使用 Select Case 进行判断 Select Case 结构提供了 If...Then...ElseIf 结构的一个变通形式，可以从多个语句块中选择执行其中的一个。Select Case 语句提供的功能与 If...Then...Else 语句类似，但是可以使代码更加简练易读。 使用多个 ElseIf 子句经常会变得很累赘。在多个条件中进行选择的更好方法是使用 Select Case 语句。 Select Case 结构在其开始处使用一个只计算一次的简单测试表达式。表达式的结果将与结构中每个 Case 的值比较。如果匹配，则执行与该 Case 关联的语句块 7.使用条件语句 Select Case Document.Form1.CardType.Options(SelectedIndex).Text Case MasterCard DisplayMCLogo ValidateMCAccount Case Visa DisplayVisaLogo ValidateVisaAccount Case American Express DisplayAMEXCOLogo ValidateAMEXCOAccount Case Else DisplayUnknownImage PromptAgain End Select 7.使用条件语句 注意 请注意 Select Case 结构只计算开始处的一个表达式（只计算一次），而 If...Then...ElseIf 结构计算每个 ElseIf 语句的表达式，这些表达式可以各不相同。 仅当每个 ElseIf 语句计算的表达式都相同时，才可以使用 Select Case 结构代替 If...Then...ElseIf 结构。 8.使用循环语句 循环用于重复执行一组语句。循环可分为三类： 一类在条件变为 False 之前重复执行语句， 一类在条件变为 True 之前重复执行语句， 另一类按照指定的次数重复执行语句。 在 VBScript 中可使用下列循环语句： Do...Loop： 当（或直到）条件为 True 时循环。 While...Wend： 当条件为 True 时循环。 For...Next： 指定循环次数，使用计数器重复运行语句。 For Each...Next：对于集合中的每项或数组中的每个元素，重复执行一组语句。 8.使用循环语句 使用 Do 循环 可以使用 Do...Loop 语句多次（次数不定）运行语句块。当条件为 True 时或条件变为 True 之前，重复执行语句块。 当条件为 True 时重复执行语句 While 关键字用于检查 Do...Loop 语句中的条件。有两种方式检查条件： 在进入循环之前检查条件（如下面的 ChkFirstWhile 示例）； 或者在循环至少运行完一次之后检查条件（如下面的 ChkLastWhile 示例）。 在 ChkFirstWhile 过程中，如果 myNum 的初始值被设置为 9 而不是 20，则永远不会执行循环体中的语句。在 ChkLastWhile 过程中，循环体中的语句只会执行一次，因为条件在检查时已经为 False。 Sub ChkFirstWhile() Dim counter, myNum counter = 0 myNum = 20 Do While myNum 10 myNum = myNum - 1 counter = counter + 1 Loop MsgBox 循环重复了 counter 次。 End Sub Sub ChkLastWhile() Dim counter, myNum counter = 0 myNum = 9 Do myNum = myNum - 1 counter = counter + 1 Loop While myNum 10 MsgBox 循环重复了 counter 次。 End Sub 11.VBS病毒 VBS病毒的特点 VBS病毒常常用到的技术 对文件操作 如何发送电子邮件 对html等文件的感染 自加密 如何防范 * * VBS病毒的特点 (1) 编写简单。由于它是明文的，一个对病毒毫无概念的人，都可以在非常短的时间内编写出一个vbs 病毒 (2) 破坏力大。利