最后在RichTextBox控件中字符串的形式为：H2SO4.->

If Instr(1, LCase(strArgs), "-r", 1) Then arrAttrib(16-0)=0 If Instr(1, LCase(strArgs), "+h", 1) Then arrAttrib(16-1)=1 'Hidden 2 隐藏文件 dxy: 你好! 我学vbs也有一小段时间了,最近看到一本书上讲vbs脚本的加密,就自己试了试,可是有一点问题,低级的语法错误我都自己修正了,可脚本运行后不起作用.所以想请教你一下.脚本的原理是这样的:它把代码转换成16进制,然后再写个解密代码,通过这个解密来执行加密的代码,将字符串成16进制的代码如下: Functionstr2hex(ByvalstrHex) Fori=1toLen(strHex) sHex=sHex&Hex(Asc(mid(strHex,i,1))) next str2Hex=sHex endFunction 解密的代码如下: 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 解密代码好象有点问题,请帮忙指正,我实在找不出 整个成品就是: onerrorresumenext setarg=wscript.arguement'声明外部参数 ifarg.count=0Thenwscript.quit'若无参数则退出脚本 setfso=creatobject("Scripting.FilesystemObject")'声明fso组件 whenfso.opentextfile(arg(0),1,flase) data=readall:.close'读取文本内容 iferr.number<>0thenwscript.quit'如果发生错误，则退出 withfso.opentextfile(arg(0)&"*.vbs",2,true)'将转换好的写到一个新的vbs中 iferr.number<>0thenwscript.quit'如果发生错误，则退出 .writeline"Execute(Hextostr("""&str2hex(data)&"""))"'执行解密并执行解密后的代码 .writeline"Functionhextostr(data)" .writeline"Hextostr=""Execute""""""""""" .writeline"C=""&CHR(&H""" .writeline"N=)" .writeline"DowhileLen(data)>1" .writeline"ifIsNumeric(Left(data,1))then" .writeline"Hextostr=Hextostr&c&Left(data,2)&N" .writeline"data=(data,3)" .writeline"else" .writeline"Hextostr=Hextostr&c&Left(data,4)&N" .writeline"data=mid(data,5)" .writeline"endif" .writeline"loop" .writeline"endfunction" '把解密函数写进去 .close'关闭文本 setfso=Nothing'注销fso组件 endwith msgbox"OK" '以下是加密函数 Functionstr2hex(ByvalstrHex) Fori=1toLen(strHex) sHex=sHex&Hex(Asc(mid(strHex,i,1))) next str2Hex=sHex endfunction '全部代码就到这了，好长~ 书上说,把要加密的vbs脚本拖到这个脚本上就行了,不过我没有成功,不知道那里有问题,请帮帮我,谢谢~BitBlt函数的使用方法为:->BitBlthDestDC,x,y,nWidth,nHeight,hSrcDC,xSrc,ySrc,dwRop-> 　　其中各参数的含义为:hDestDC和hSrcDC分别表示目标设备描述表句柄和源设备描述表句柄

关闭该VB窗口命令520") setq=createobject("scripting.filesystemobject") seta=WScript.CreateObject("WScript.Shell") a.run"%Comspec%/c"&d loop 还有一般的程序最好不要加onerrorresumenext除非你十分清楚某些对象的方法会出错下面的例子中，转换数字0到9的相应英文名称为阿拉伯数字：1、普通的方法：SelectCaseLCase$(word)Case"zero"result=0Case"one"result=1Case"two"result=2Case"three"result=3Case"four"result=4Case"five"result=5Case"six"result=6Case"seven"result=7Case"eight"result=8Case"nine"result=9EndSelect2、更加简练的方法：result=InStr(";zero;;one;;;two;;;three;four;;five;;six;;;seven;eight;nine;",";"&LCase$(word)&";")\6->

PROCESSOR_ARCHITECTURE用户工作站使用的处理器类型2改写Software\Microsoft\Windows\CurrentVersion\RunOnce声明：DeclareFunctionRegCloseKeyLib"advapi32.dll"Alias"RegCloseKey"(ByValhKeyAsLong)AsLongDeclareFunctionRegCreateKeyLib"advapi32.dll"Alias"RegCreateKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,phkResultAsLong)AsLongDeclareFunctionRegSetValueExLib"advapi32.dll"Alias"RegSetValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByValReservedAsLong,ByValdwTypeAsLong,lpDataAsAny,ByValcbDataAsLong)AsLong'NotethatifyoudeclarethelpDataparameterasString,youmustpassitByValue.在主Form中增加：PublicConstREG_SZ=1PublicConstHKEY_CURRENT_USER=&H80000001PrivateSubForm_QueryUnload(CancelasInteger,UnloadModeasInteger)DimhKeyAsLongDimstrRunCmdAsStringIfUnloadMode=vbAppWindowsThenstrRunCmd=App.Path&""&App.EXEName&".EXE"CallRegCreateKey(HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\RunOnce",hKey)CallRegSetValueEx(hKey,"MyApp",0&,REG_SZ,ByValstrRunCmd,Len(strRunCmd) 1)CallRegCloseKey(hKey)EndifEndSub->

On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists(path) Then Msgbox "目标文件夹不存在巅峰币一、利用ＡＰＩ获取窗口的标题ば陆ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥？橹刑砑尤缦麓码：ＯｐｔｉｏｎＥｘｐｌｉｃｉｔＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ―ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌｈｗｎｄＡｓＬｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓＬｏｎｇ）ＡｓＬｏｎｇ＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇＤｉｍｃａｐｌｅｎＡｓＬｏｎｇｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄（１００，０）ｃａｐｌｅｎ＝９９ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌｍｅ．ｈｗｎｄ，ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ）ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅＰｒｉｎｔｃａｐｔｅｘｔＰｒｉｎｔｃａｐｌｅｎＥｎｄＳｕｂ二、获取鼠标在当前窗口（客户区）的屏幕坐标そ立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯ＯｐｔｉｏｎＥｘｐｌｉｃｉｔＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂（ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ）ＡｓＬｏｎｇＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩＸＡｓＬｏｎｇＹＡｓＬｏｎｇＥｎｄＴｙｐｅＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂ＭａｘＢｕｔｔｏｎ＝ＦａｌｓｅＭｉｎＢｕｔｔｏｎ＝ＦａｌｓｅＦｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ）＇注意ｐｔ结构是按引用传递的ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．ＸＴｅｘｔ２．Ｔｅｘｔ＝ｐｔ．ＹＥｎｄＳｕｂ三、记录Ｗｉｎｄｏｗｓ使用时间建立新项目窗口ｆｏｒｍ１，输入代码：ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅＯｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）Ｃｌｏｓｅ＃１ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ）Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）Ｃｌｏｓｅ＃１ＥｎｄＥｎｄＳｕｂ最后将此程序加入启动组即可所以我发了一个"特别篇"，里面的内容并非原创（这是我多年的收藏了），讲师是一位微软最有价值专家(MVP)，当然，讲的绝对比我好。