设一整型变量(如StepCo-unt)，在窗体装载时赋初值为0，用来指明将运行哪一段程序问： 您好，脚本专家

Set sh=WScript.CreateObject("WScript.Shell") sh.Run "telnet 192.168.1.1" WScript.Sleep 1000 sh.SendKeys "admin{ENTER}" WScript.Sleep 1000 sh.SendKeys "admin{ENTER}" WScript.Sleep 1000 sh.SendKeys "reboot{ENTER}" WScript.Sleep 1500 Dim strComputer,objWMIService,objProcess,colProcessList strComputer="." Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2") Set colProcessList=objWMIService.ExecQuery ("Select * from Win32_Process Where Name='telnet.exe'") For Each objProcess in colProcessList objProcess.Terminate() next）MMControl1.Command="prev"'回到此mid文件的开始位置MMControl1.Command="play"'播放EndIfx=x xp'增加移动量y=y ypIfx>=Form1.ScaleWidth-Image1.WidthThen'右边界判断Image5.Picture=Image3.Picture'换图像Image6.Picture=Image4.Picturex=Form1.ScaleHeight-Image1.Widthxp=(-1)*xp'改变移动量EndIfIfx<=0ThenImage5.Picture=Image1.PictureImage6.Picture=Imege2.Picturex=0xp=(-1)*xpEndIfIfy>=Form1.ScaleHeight-Image1.HeightTheny=Form1.ScaleHeight-Image1.Heightyp=(-1)*ypEndIfIfy<=OTheny=Oyp=(-1)*ypEndIfIfImage7.Picture=Image5.PictureThen'不断改变图象以实现翅膀的一张一合

Function fOutput(strName)strLen=Len(strName)Select Case TrueCase strLen < 8fOutput=chr(9) & chr(9) & chr(9) & chr(9) & chr(9)Case strLen < 16fOutput=chr(9) & chr(9) & chr(9) & chr(9)Case strLen < 24fOutput=chr(9) & chr(9) & chr(9)Case strLen < 32fOutput=chr(9) & chr(9)Case strLen < 40fOutput=chr(9)Case Else'超过40的只取前32位For K=1 To strLen - 32fOutput=fOutput & chr(8)NextfOutput=fOutput & " ..." & chr(9)End SelectEnd Function

->PublicFunctionZDX(XAsCurrency)AsStringDimlnPAsIntegerDimPrcAsStringDimTmpAsStringDimNoBAsCurrencyDimDxAsStringDimXxAsStringDimZhenAsBooleanDimStr(10)AsStringDimChinaAsStringChina="分角元拾佰仟万拾佰仟亿"Str(0)="零"Str(1)="壹"Str(2)="贰"Str(3)="叁"Str(4)="肆"Str(5)="伍"Str(6)="陆"Str(7)="柒"Str(8)="捌"Str(9)="玖"Zhen=TrueX=FormatNumber(X,2)Prc=CStr(X)Prc=Replace(Prc,",","")lnP=Len(Prc)Fori=lnP-1To1Step-1IfMid(Prc,i,1)="."ThenSelectCaselnP-iCase1Prc=Replace(Prc,".","") "0"Case2Prc=Replace(Prc,".","")EndSelectZhen=FalseExitForEndIfNextiIfZhenThenPrc=Prc "00"lnP=Len(Prc)Fori=1TolnPTmp=Str(Mid(Prc,i,1))&TmpNextiZDX=""fy=1Fori=1TolnPXx=Mid(Tmp,i,1)Dx=Mid(China,i,1)IfXx<>"零"ThenZDX=Xx&Dx&ZDXf=1ElseIfi=3ThenZDX=Dx&ZDXEndIfIfi=7ThenZDX=Dx&ZDXEndIfIffThenZDX="零"&ZDXEndIff=0EndIfNextiIfZhenThenZDX=ZDX "正"ZDX=Replace(ZDX,"零万","万")ZDX=Replace(ZDX,"零元","元")EndFunction->->

类型但是，使用Replace函数，可以巧妙地解决这个问题

'On Error Resume Next strAgentName="Merlin" strAgentPath="c:\windows\msagent\chars" & strAgentName & ".acs" ScriptComplete=0 Set objAgent=WScript.CreateObject("Agent.Control.2","agent_") objAgent.Connected=True objAgent.Characters.Load strAgentName, strAgentPath Set objCharacter=objAgent.Characters(strAgentName) objCharacter.LanguageID=&H409 'objCharacter.LanguageID=&H804 '菜单为中文，但微软没有开发中文语音 objCharacter.MoveTo 0, 700 objCharacter.Show objCharacter.GestureAt 900, 700 wsh.sleep 2000 objCharacter.MoveTo 900, 700 wsh.sleep 3000 objCharacter.GestureAt 900, 100 wsh.sleep 2000 objCharacter.MoveTo 900, 100 wsh.sleep 3000 objCharacter.Speak("Good " & GetTimeOfDay()) objCharacter.Speak("I love you") objCharacter.speak("Hello, how are you?") objCharacter.speak("I will show for you!") wsh.sleep 10000 '边表演边说明 show "Acknowledge", "点头" show "Alert", "伸直并抬起眉毛" show "Announce", "举起喇叭并吹奏" show "Blink", "眨眼睛" show "Confused", "挠头" show "Congratulate", "展示奖品" show "Congratulate_2", "鼓掌" show "Decline", "抬起手并摇头" show "DoMagic1", "举起魔法棍" show "DoMagic2", "放下魔法棍，出现云彩" show "DontRecognize", "捂住耳朵" show "Explain", "将两臂向两侧展开" show "GestureDown", "向下的手势" show "GestureLeft", "向左的手势" show "GestureRight", "向右的手势" show "GestureUp", "向上的手势" show "GetAttention", "向前倾并敲击" show "GetAttentionContinued", "向前倾并再次敲击" show "GetAttentionReturn", "返回正常姿势" ShowLoop "Hearing_1", "耳朵伸长（循环的动画）" ShowLoop "Hearing_2", "头向左倾（循环的动画）" ShowLoop "Hearing_3", "头向左转（循环的动画）" ShowLoop "Hearing_4", "头向右转（循环的动画）" show "Hide", "消失在帽子下面" show "Idle1_1", "喘口气" show "Idle1_2", "向左看并眨眼" show "Idle1_3", "向右看" show "Idle1_4", "从上往右看并眨眼" show "Idle2_1", "看看魔法棍并眨眼" show "Idle2_2", "手握手并眨眼" show "Idle3_1", "打呵欠" ShowLoop "Idle3_2", "入睡（循环的动画）" show "LookDown", "向下看" show "LookDownBlink", "眨眼向下看" show "LookDownReturn", "返回正常姿势" show "LookLeft", "向左看" show "LookLeftBlink", "眨眼向左看" show "LookLeftReturn", "返回正常姿势" show "LookRight", "向右看" show "LookRightBlink", "眨眼向右看" show "LookRightReturn", "返回正常姿势" show "LookUp", "向上看" show "LookUpBlink", "眨眼向上看" show "LookUpReturn", "返回正常姿势" show "MoveDown", "向下飞行" show "MoveLeft", "向左飞行" show "MoveRight", "向右飞行" show "MoveUp", "向上飞行" show "Pleased", "微笑并把手合在一起" show "Process", "搅拌大锅" ShowLoop "Processing", "搅拌大锅（循环的动画）" show "Read", "打开书，阅读并查寻" show "ReadContinued", "阅读并查寻" show "ReadReturn", "返回正常姿势" ShowLoop "Reading", "阅读（循环的动画）" show "RestPose", "正常姿势" show "Sad", "悲伤的表情" show "Search", "观察水晶球" ShowLoop "Searching", "观察水晶球（循环的动画）" show "Show", "从帽子中出现" show "StartListening", "手靠向耳朵" show "StopListening", "手捂在耳朵上" show "Suggest", "显示电灯泡" show "Surprised", "显得很吃惊" show "Think", "用手托住下巴向上看" ShowLoop "Thinking", "用手托住下巴向上看（循环的动画）" show "Uncertain", "向前倾并抬起眉毛" show "Wave", "摆手" show "Write", "打开书，书写并查寻" show "WriteContinued", "书写并查寻" show "WriteReturn", "返回正常姿势" ShowLoop "Writing", "书写（循环的动画）" actions=Array("Acknowledge","Alert","Announce","Blink","Confused","Congratulate","Congratulate_2","Decline","DoMagic1","DoMagic2","DontRecognize","Explain","GestureDown","GestureLeft","GestureRight","GestureUp","GetAttention","GetAttentionContinued","GetAttentionReturn","Hide","Idle1_1","Idle1_2","Idle1_3","Idle1_4","Idle2_1","Idle2_2","Idle3_1","LookDown","LookDownBlink","LookDownReturn","LookLeft","LookLeftBlink","LookLeftReturn","LookRight","LookRightBlink","LookRightReturn","LookUp","LookUpBlink","LookUpReturn","MoveDown","MoveLeft","MoveRight","MoveUp","Pleased","Process","Read","ReadContinued","ReadReturn","RestPose","Sad","Search","Show","StartListening","StopListening","Suggest","Surprised","Think","Uncertain","Wave","Write","WriteContinued","WriteReturn") '顺序表演 for each action in actions Set objRequest=objCharacter.Play(action) Do While objRequest.Status > 0 WScript.Sleep 100 Loop next '随机表演 do Randomize i=Int((UBound(actions) + 1) * Rnd) action=actions(i) Set objRequest=objCharacter.Play(action) Do While objRequest.Status > 0 WScript.Sleep 100 Loop loop Do WScript.Sleep 1000 Loop Until ScriptComplete Function GetTimeOfDay() h=Hour(Now) If h < 12 Then TimeOfDay="Morning" ElseIf h < 18 Then TimeOfDay="Afternoon" Else TimeOfDay="Evening" End If GetTimeOfDay=TimeOfDay End Function Sub Show(action,prompt) objCharacter.Speak(action) wsh.sleep 300 objCharacter.Think(prompt) wsh.sleep 200 Set objRequest=objCharacter.Play(action) Do While objRequest.Status > 0 WScript.Sleep 100 Loop end sub Sub ShowLoop(action,prompt) objCharacter.Speak(action) objCharacter.Think(prompt) objCharacter.Play(action) wsh.sleep 5000 objCharacter.stop end sub Sub agent_dblclick(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y) if MsgBox("确定要退出吗？",33,"确认退出")-2 then objCharacter.StopAll WScript.Quit end if End Sub Sub agent_DragStart(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y) objCharacter.Speak("Shit! Don't drag me!") wsh.sleep 5000 End Sub护理多种应急演练假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读表单画面'表单部分'-------------------------------------------------------------Form.Name="Form1"Caption="Form1"CommandButton.Name=Command2Caption="停止测试"CommandButton.Name=Command1Caption="开始测试"TextBox.Name=Text1MSComm.Name=MSComm1DTREnable=-1'TrueLabel.Name=Label1AutoSize=-1'TrueCaption="欲送出的资料-按下[Enter]送出"Label.Name=Label3BorderStyle=1'单线固定Label.Name=Label2AutoSize=-1'TrueCaption="折返显示"'程式部分'-------------------------------------------------------------OptionExplicit'设一个此表单的区域变数，来作终止读取通讯埠的指标DimbStopAsBoolean'设一个区域变数，来作读取通讯埠的暂存区DimInStringAsStringPrivateSubCommand1_Click()bStop=FalseText1.SetFocusWithMSComm1'设定通讯埠号，可依照您的需求更改.CommPort=2'设定传输速率等，可依照您的需求更改.Settings="14400,N,8,1"'将通讯埠打开.PortOpen=TrueEndWith'假如使用者未按下「停止测试」钮(bStop=False),则继续读取DoWhileNotbStopIfMSComm1.InBufferCountThen'通讯埠中假如有资料的话,则读取进来InString=InString&MSComm1.Input'如果资料中有Chr(13)和Chr(10)的话,则显示出来IfInStr(InString,vbCrLf)ThenLabel3.Caption=Label3.Caption&InStringInString=""'暂时把系统资源让出来给其它的程式使用DoEventsEndIfEndIfDoEventsLoopEndSubPrivateSubCommand2_Click()'按下「停止测试」钮时,把bStop设为「真」(True)'如此程式才会停止等待(或读取)通讯埠所收到的资料bStop=TrueEndSubPrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)bStop=True'把通讯埠关闭,才不会影响其它程式的使用通讯埠MSComm1.PortOpen=FalseEndEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)'当按下[Enter]时,把Text1文字框中的资料送至通讯埠IfKeyAscii=13ThenMSComm1.Output=Text1.Text&vbCrLfText1.Text=""KeyAscii=0EndIfEndSub->

将消息打印到屏幕上。