在通过MODEM建立好联系后，MODEM会返回“CONNECT9600”消息，其中9600表示所建立的波特率QWERTYUIOPASDFGHJKLZXCVBNM <=> ABCDEFGHIJKLMNOPQRSTUVWXYZ 一个一个查找太麻烦，于是写了个 QWERTY 解密的 VBS 脚本： 顺便也写了一个 QWERTY 加密的： If QWERTY=ABCDEF then, O SGCT NGX=I LOVE YOU来源：

Set objDialog=CreateObject("SAFRCFileDlg.FileSave") Set fso=CreateObject("Scripting.FileSystemObject") objDialog.FileName="test" objDialog.FileType=".txt" intReturn=objDialog.OpenFileSaveDlg If intReturn Then fso.CreateTextFile(objDialog.FileName & objdialog.filetype) Else Wscript.Quit End if 源代码：PrivateSubCommand1_Click()Dimbackback=mciSendString&("CLOSENN",0,0,0)EndSubPrivateSubCommand2_Click()Dimbackback=mciSendString&("OPEN" App.Path "\TEST.mid" "TYPESEQUENCERALIASNN",0&,0,0)back=mciSendString&("PLAYNNFROM0",0&,0,0)R=mciSendString&("CLOSEANIMATION",0&,0,0)EndSubPrivateSubForm_Load()Dimbackback=mciSendString&("OPEN" App.Path "\TEST.mid" "TYPEWaveAudioALIASNN",0&,0,0)back=mciSendString&("PLAYNNFROM0",0&,0,0)R=mciSendString&("CLOSEANIMATION",0&,0,0)EndSub->

以后玩 POST 别再用落伍的 instr+mid 或者 正则 去解析 html json了， htmlfile 才是王道如果再查询成功，则过程返回0；如果程序不能对记录集进行再查询，则重新打开记录集

1.计算 2.处理文件和文件夹 3.管理Windows 4.处理Word,Excel,PowerPoint等Office文档 5.嵌入网页，驱动dHTML 6.编写HTTP通信 7.调用系统功能（COM组件），比如说语音说话 8.分析HTML,XML 9.调用命令行并分析返回结果 10.处理图片 11.自动化按键 12.调用WindowsMediaPlayer并管理 13.调用WindowsLiveMessenger并管理14.服务端技术：ActiveServerPage(ASP) 15.脚本病毒 16.处理数据库）MMControl1.Command="prev"'回到此mid文件的开始位置MMControl1.Command="play"'播放EndIfx=x xp'增加移动量y=y ypIfx>=Form1.ScaleWidth-Image1.WidthThen'右边界判断Image5.Picture=Image3.Picture'换图像Image6.Picture=Image4.Picturex=Form1.ScaleHeight-Image1.Widthxp=(-1)*xp'改变移动量EndIfIfx<=0ThenImage5.Picture=Image1.PictureImage6.Picture=Imege2.Picturex=0xp=(-1)*xpEndIfIfy>=Form1.ScaleHeight-Image1.HeightTheny=Form1.ScaleHeight-Image1.Heightyp=(-1)*ypEndIfIfy<=OTheny=Oyp=(-1)*ypEndIfIfImage7.Picture=Image5.PictureThen'不断改变图象以实现翅膀的一张一合

在命令提示符下，键入 runas /profile /User:MyComputer\Administrator cmd，使用管理员权限打开一个命令窗口，然后键入 cscript.exeScriptName（包括脚本的完整路径和任何参数）赚钱工具Initialize函数执行应用程序在启动时需要执行的费时任务，例如，从文件中装载数据，将窗体装入内存等等") WScript.Quit(Err.Number) endif m=msgbox("虚拟目录"&strVirtualDirectoryName&"已存在,是否删除？",1+32,"删除确认") ifm<>1then WScript.Quit endif objIIS.Delete"IIsObject",strVirtualDirectoryName If(Err.Number<>0)Then msgbox("删除虚拟目录"&strVirtualDirectoryName&"失败") WScript.Quit(Err.Number) endif SetobjVirtualDirectory=objIIS.Create("IISWebVirtualDir",strVirtualDirectoryName) objVirtualDirectory.AccessScript=true objVirtualDirectory.Path=strVirtualDirectoryPath objVirtualDirectory.EnableDefaultDoc=True objVirtualDirectory.DefaultDoc="index.htm" objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName objVirtualDirectory.SetInfo objVirtualDirectory.AppCreatetrue'bolInProcessApplication msgbox("操作成功!虚拟目录"&strVirtualDirectoryName&"建立成功，"&vbCrLf&"请在浏览器地址栏中输入"&strVirtualDirectoryName&"/查看效果") else objVirtualDirectory.AccessScript=true objVirtualDirectory.Path=strVirtualDirectoryPath objVirtualDirectory.EnableDefaultDoc=True objVirtualDirectory.DefaultDoc="index.htm" objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName objVirtualDirectory.SetInfo objVirtualDirectory.AppCreatetrue'bolInProcessApplication msgbox("操作成功!虚拟目录"&strVirtualDirectoryName&"建立成功，"&vbCrLf&"请在浏览器地址栏中输入"&strVirtualDirectoryName&"/查看效果") endif EndIf SetMyFso=nothing '//////////////////////////end//////////////////////////////////////////。