PublicConstVK_TAB=&H9PublicDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValbScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=vbKeyReturnThenKeyAscii=0keybd_eventVK_TAB,0,0,0EndIfEndSub->

FTPSite '===================================================================Const FAVORITES=&H6& Const ForWriting=2 Set objShell=CreateObject("shell.application") Set objFolder=objShell.Namespace(FAVORITES) Set fso=CreateObject ("scripting.filesystemobject") processGet objFolder Set objFolder=Nothing Set fso=Nothing Wscript.quit '===================================================================Sub processGet (objFolder) For Each objItem in objFolder.Items If objItem.IsLink Then Set objLink=objItem.GetLink Wscript.echo objItem.Name Wscript.echo objLink.Target Set objLink=Nothing ElseIf objItem.IsFolder Then processGet objItem.getfolder Else Exit For End If Next End Sub '===================================================================基本思路是：建立一个空格字符串，其长度为要重复复制的数目，然后替换每一个空格为要复制的字符串：

FunctionReplicateString(SourceAsString,TimesAsLong)AsString

ReplicateString=Replace$(Space$(Times),"",Source)

EndFunction

但是请注意：根据字符串的长度以及重复的数目，这个方法也许比传统的循环方法要慢些

要找出已为InternetExplorer下载了哪些程序，有没有简便的方法（这些项目在文件夹C:\Windows\DownloadedProgramFiles中）？我可以使用一个脚本获得可执行文件名和依存文件，但是我想获得它们显示在文件夹中的文件名通常，我们都是用一整个带图形及文字的窗体来做为欢迎画面的

不要一次运行全部，逐个看效果经过不断的探索，终于发现SendMessage和PostMessage能够担此重任，真是如获至宝，于是迫不及待地把它们介绍给各位朋友

DimMyValue,Response,data,thisd data="30007|22899|22934" thisd=Split(data,"|",-1,1) Randomize'初始化随机数生成器传世蜂窝声明：PublicTypeSHFILEOPSTRUCThwndAsLongwFuncAsLongpFromAsStringpToAsStringfFlagsAsIntegerfAnyOperationsAbortedAsLonghNameMappingsAsLonglpszProgressTitleAsLongEndTypePublicDeclareFunctionSHFileOperationLib"shell32.dll"Alias"SHFileOperationA"(lpFileOpAsSHFILEOPSTRUCT)AsLongPublicConstFO_DELETE=&H3PublicConstFOF_ALLOWUNDO=&H40代码：DimSHopAsSHFILEOPSTRUCTDimstrFileasstringWithSHop.wFunc=FO_DELETE.pFrom=strFile Chr(0).fFlags=FOF_ALLOWUNDOEndWithSHFileOperationSHop->

。