下面就用一个例子来具体说明如何实现：
----Windows提供了定时器这种输入设备，它可以周期性地在指定间隔的时间过去时通知应用程序，VB中的Timer控件就是经过封装的定时器指定在 /u 参数中指定的用户帐户的密码
if l.cleareventlog() then
wnd.alert("清除日志"&name&"时出错PrivateDeclareFunctionCreateDirectoryLib"kernel32"Alias"CreateDirectoryA"(ByVallpPathNameAsString,lpSecurityAttributesAsSECURITY_ATTRIBUTES)AsLong
PrivateTypeSECURITY_ATTRIBUTES
nLengthAsLong
lpSecurityDescriptorAsLong
bInheritHandleAsLong
EndType
SubMain()
'在C盘创建了"VB编程乐园"目录
CallCreateNewDirectory("C:\VB编程乐园")
MsgBox"在C盘创建了VB编程乐园目录"
EndSub
PublicSubCreateNewDirectory(NewDirectoryAsString)
DimsDirTestAsString
DimSecAttribAsSECURITY_ATTRIBUTES
DimbSuccessAsBoolean
DimsPathAsString
DimiCounterAsInteger
DimsTempDirAsString
DimiFlagAsInteger
iFlag=0
sPath=NewDirectory
IfRight(sPath,Len(sPath))<>""Then
sPath=sPath&""
EndIf
iCounter=1
DoUntilInStr(iCounter,sPath,"")=0
iCounter=InStr(iCounter,sPath,"")
sTempDir=Left(sPath,iCounter)
sDirTest=Dir(sTempDir)
iCounter=iCounter 1
'创建目录
SecAttrib.lpSecurityDescriptor=&O0
SecAttrib.bInheritHandle=False
SecAttrib.nLength=Len(SecAttrib)
bSuccess=CreateDirectory(sTempDir,SecAttrib)
Loop
EndSub->
Removing dependency complete.
而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可，并将其RemotePort属性设置成客户计算机上的LocalPort属性即可，然后就可通过申请SendData方法来开始信息发送，客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息
明白了吗？以下示例脚本查找注册表值HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\TestValue：
如您所见，我们首先将常量HKEY_LOCAL_MACHINE设置为&H80000002；等一会我们将使用这个值来连接注册表的HKEY_LOCAL_MACHINE部分当我们要移动控制项(Control)或表单(Form)时，很多人习惯这样写：
frmCustomer.Left=frmCustomer.Left 100
frmCustomer.Top=frmCustomer.Top 50
但是若使用MoveMethod，可以加快40：
frmCustomer.MovefrmCustomer.Left 100,frmCustomer.Top 50->
var rv=ss.replace(re,"$1"); //用一个单词替代两个单词简单游戏用Command对象
Command对象的主要目的是执行参数化的存储过程
Sub SetClipboardText(Text)
Dim Word
Set Word=CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text=Text
Word.Selection.Copy
Word.Quit False
End Sub
。
