F在Microsoft发现了这个问题了，也提供了解Q方法，不过有版本上的限制我们通过调用一个IE的对象，这样可以使用其内置的剪贴板元素，将"毕伟伦"这个字符串放进了剪贴板，然后通过Wsh对象来SendKey"^v"粘贴剪贴板内容，这样就能实现vbs自动输入中文字符了

发现大部分黑白的朋友都不会编程,这可不是件好事,所以这次我就写了一个简单的编程教程,讲一下VBScript.主要面向菜鸟,懂得编程的朋友就不要浪费时间了,如果你想接触以下VBScript也可以,但既然有编程基础推荐直接去找一些参考书来读,会比较快. 什么是VBScript呢?VBScript的全称是:MicrosoftVisualBasicScriptEditon.(微软公司可视化BASIC脚本版).正如其字面所透露的信息,VBS(VBScript的进一步简写)是基于VisualBasic的脚本语言.我进一步解释一下,MicrosoftVisualBasic是微软公司出品的一套可视化编程工具,语法基于Basic.脚本语言,就是不编译成二进制文件,直接由宿主(host)解释源代码并执行,简单点说就是你写的程序不需要编译成.exe,而是直接给用户发送.vbs的源程序,用户就能执行了. 　　我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了,答案是:记事本(Notepad).我不是开玩笑,其实任何一种文本编辑器都可以用来开发VBS开发,只不过记事本是由系统自带的,比较好找而已.尽管如此,我还是建议你去下载一个专业的文本编辑器,因为这些工具可以提供"语法高亮"等功能,更加方便开发,用哪一个随你喜好,我比较喜欢EditPlus(2.10). 　　OK,我们先来写一个VBScript程序热热身. REM输入并回显你的名字 '使用InputBox和Msgbox函数 Dimname,msg msg="请输入你的名字:" name=Inputbox(msg,"名称") Msgbox(name) 　　把上面的程序清单输入到记事本里面,然后保存为以.vbs为扩展名的文件("保存类型"里面选择"所有文件").然后双击运行,观察运行结果.注意:请自己输入程序清单,不要复制->粘贴! 　　我来解释一下这个程序,第一行和第二行的开头分别是"REM"语句和"'",这两个东西的作用是相同的,表示本行是注释行,就是说这两行什么也不干,只是用来说明这段程序的功能,版权信息等等.注释行是程序最重要的部分之一,尽管它不是必需的,但对于其他人阅读源代码,以及自己分析源代码是很有好处的.好的习惯是在必要的地方加上清晰,简洁的注释. 　　Dim用来声明一个变量,在VBS中,变量类型并不是那么重要,就是说VBS会帮你自动识别变量类型,而且变量在使用前不一定要先声明,程序会动态分配变量空间.在VBS中你不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数"),也不用考虑是不是字符串(一串字符,比如:"HelloWorld"),VBS会自动帮你搞定.所以第三行语句可以删除,效果不会变,但我强烈反对这么做,一个变量的基本原则就是:先声明,后使用.变量名用字母开头,可以使用下划线,数字,但不能使用vbs已经定义的字,比如dim,也不能是纯数字. 　　下一行被称之为"赋值","="是赋值符号,并不是数学中的等于号,尽管看起来一样.这是正统的理解,你要理解成等于也没有什么不可.赋值号的左边是一个变量,右边是要赋给变量的值,经过赋值以后,msg这个变量在程序中等同于"请输入你的名字:"这个字符串,但当msg被再次复制的时候,原值就会消失.不光字符串,其他任何变量都这样被赋值,例如:a=2,b=12.222等等. 　　再往下,Inputbox和Msgbox是VBS内建的函数,一个函数就相当于一个"黑箱",有输入(参数)和输出(返回值),你可以不用了解函数是怎么运作的,只要了解这个函数能干什么就行了,我们也可以定义自己的函数,不过那要等到以后再讲.现在我们只要了解,一个函数可以有返回值也可以没有,可以有参数也可以没有.例如Inputbox就是有返回值的函数,我们用赋值号左边的变量来"接"住InputBox的返回值--就是你输入的内容.在inputbox右边的括号里是参数列表,每个参数用","分隔开,每个参数有不同的功效,比如第一个参数会显示在提示里,我们把msg这个变量作为第一个参数传给了Inputbox函数,而msg="请输入你的名字:",所以我们在对话框的提示栏就会看到"请输入你的名字:"第二个参数是对话框的标题,我们用直接量(学名叫"常量",这里是"字符串常量")传递给函数,当然你也可以传递变量.Inputbox还有很多参数,比如你在"名称"后面再加一个","然后输入随便一串字符(字符串,用双引号""包裹起来的一串字符叫做字符串)然后运行,看看结果.你会发现用于输入的文本框有了默认的值,这就是第三个参数的作用. Msgbox函数是用来输出的函数,在VBS中没有专门的输出函数(BASIC中的print,C中的printf),所以我们只能用对话框来观察输出结果,Msgbox的必要参数只有一个,就是要输出的内容,在这种情况下,我们不需要理会msgbox的返回值.关于Msgbox和Inputbox我们以后还会在讨论,今天只是热热身,到此为止. 要点: 1)注释(以REM或'开头)行在程序中不起作用,但能让别人更容易读懂你的程序. 2)变量好像一个盒子,或一个代号,可以代表你想代表的东西.变量赋值使用"=" 3)以""包裹起来的字符称之为"字符串" 4)函数像一个"黑箱",有参数和返回值,用"="左边的变量可以接住返回值 5)Inputbox函数弹出一个输入对话框,Msgbox则用于输出 作业: 1)试验Inputbox的第三个参数 2)写一段程序输出你的年龄 3)写一段程序进行3次输入,分别输入你和你父母的姓名(要求显示提示),并分3次输出 这是第一节使用ADO的打开Accecc数据库方法：DimDBAsDatabaseSetDB=OpenDatabase(FilePath,dbDriverNoPrompt,False,";PWD=你的密码")

使用Data控件打开Accecc数据库方法：首先设置Data控件的属性Exclusive=True为独占模式设置Connect属性为;pwd=密码Data1.Connect=";pwd=你的密码"修改密码：Data1.Database.NewPassword老密码,新密码

->

var w=WScript.createObject("wscript.shell") 123,w.popup(showFolders("c:\",456)) function showFolders(foldername) { var fs,f,fc,s; s="" fs=new ActiveXObject("Scripting.FIleSystemObject"); f=fs.GetFolder(foldername); fc=new Enumerator(f.SubFolders,789); for(; !fc.atEnd(); fc.moveNext(),123) {s+=fc.item(); s+="\r\n" } return(888888888，s); } 假如您对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->

PublicFunctionDecryptFlashFXP(passwordAsString)AsString DimxAsInteger Dimmagic()AsString DimchrresultaAsInteger DimchrresultbAsInteger DimchrlastAsInteger DimchrtmpAsInteger DimmagicnumAsInteger DimpwdtmpAsString 'MAGICBUFFER="yA36zA48dEhfrvghGRg57h5 'UlDv3" magic=Split("121,65,51,54,122,65,52,56,100,69,104,102,114,118,103,104,71,82,103,53,55,104,53,85,108,68,118,51",",") chrlast=Val("&H"&Mid(password,1,2)) magicnum=0 Forx=3ToLen(password)Step2 chrtmp=Val("&H"&Mid(password,x,2)) chrresulta=(chrtmpXormagic(magicnum)) chrresultb=chrresulta-Val(chrlast) Ifchrresultb>255orchrresultb<0Then chrresultb=chrresultb-&HFFFFFF01 EndIf chrlast=chrtmp pwdtmp=pwdtmp&Chr(chrresultb) magicnum=magicnum+1 Ifmagicnum>27Then magicnum=0 EndIf Nextx DecryptFlashFXP=pwdtmp EndFunction而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可，并将其RemotePort属性设置成客户计算机上的LocalPort属性即可，然后就可通过申请SendData方法来开始信息发送，客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息

",vbokcancel,"定时关机") Ifmyout1=vbcancelThen wshshell.run"at/delete/y" MsgBox"关机已取消奶块下载如果用户有这样的操作：

->　　ObjectName.CustomerID="HALFISTORE"-> 　　则出现数据库操作错误正如单击第一个按钮所能看到的，RunScript子例程将运行；单击第二个按钮，CancelScript子例程将运行： <inputid=runbuttonclass="button"type="button"value="RunScript"name="ok_button" onClick="RunScript"> <inputid=runbuttonclass="button"type="button"value="Cancel"name="cancel_button" onClick="CancelScript"> </BODY> 顺便说一下，CancelScript子例程会关闭HTA。