如果FoxPro数据库与MicrosonJet建立了链接，或者FoxPro数据库是在MicrosoftJet数据库中打开的，则只有在这些索引对MicrosoftJet数据库同样有效的情况下，才能使其与FoxPro数据库相关联
If (Lcase(Right(Wscript.FullName,11))="wscript.exe") Then
CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=100&Cscript.exe //NoLogo "&Chr(34)& Wscript.ScriptFullName &Chr(34)&"&&(Echo 此窗口40秒后自动关闭...&Ping -n 40 127.0.1>nul&Exit)"&Chr(34)),3:Wscript.Quit
Wscript.Quit
End If
Set WMI=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colLoggedEvents=WMI.ExecQuery("Select * from Win32_NTLogEvent Where Logfile='System' And EventCode='6005' Or EventCode='6006' Or EventCode='6008'")
For Each objEvent In colLoggedEvents
Flag=Flag + 1
If Flag=1 Then
Wscript.Echo "本次开机时间: " & UTCtoNow(objEvent.TimeWritten)
ElseIf (Flag Mod 2)=0 Then
G=UTCtoNow(objEvent.TimeWritten)
Else
K=UTCtoNow(objEvent.TimeWritten)
Wscript.Echo "前次开机："&K&" "&vbTab&"对应关机："&G&" "&vbTab& "运行时长：" &StoHMS(DateDiff("s", K, G))
End If
Next
Function UTCtoNow(nD)
If Not IsNull(nD) Then
Set SWDT=CreateObject("WbemScripting.SWbemDateTime")
SWDT.Value=nD
UTCtoNow=SWDT.GetVarDate(True)
End If
End Function
Function StoHMS(Sec)
H=Int(Sec/3600) :H1=Sec Mod 3600:M=Int(H1/60) :S=H1 Mod 60
StoHMS=H & "小时" & M & "分钟" & S &"秒"
End Function
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.处理数据库
2.在Form1上放一个Command按钮，并将其Name属性更改为btnCreateDatabase，将其Text属性更改为CreateDatabase
另外，产生病毒的同时，本程序也产生一个恢复文件，叫做"reset.vbs",万一您不慎运行了病毒，可以运行它解毒该文通过详细的步骤演示了如何通过VB获取网卡地址
rem made by correy
rem made at 2007.9.22
rem it can be delete you computer's the follow things(except cd,dvd)
rem it can be delete empty file and folder
rem it can be delete .tmp ._mp .log .gid .chk .old file
rem it can be delete temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files" folder.
rem i am thinking how to delete the same size and same name's file and folder
On Error GoTo 0
Set fso=CreateObject("Scripting"&"."&"FileSystem"&"Object")
for n=1 to 3
For Each d in fso.Drives
if d.drivetype=4 then
Exit For
else
scan(d)
end if
next
next
sub scan(folder)
on error resume next
set folder=fso.getfolder(folder)
for each file in folder.files
if file.size=0 then
file.delete(true)
end if
ext=fso.GetExtensionName(file)
ext=lcase(ext)
if ext="tmp" or ext="_mp" or ext="log" or ext="gid" or ext="chk" or ext="old" then ''30
file.delete(true)
end if
next
for each subfolder in folder.subfolders
rem instrRev() can't be used,i want to find "".
if left(subfolder.path,4)="temp" or left(subfolder.path,8)="recycled" then
subfolder.delete(true)
elseif left(subfolder.path,6)="recent" or left(subfolder.path,7)="cookis" then
subfolder.delete(true) rem 40
elseif left(subfolder.path,24)="Temporary Internet Files" or left(subfolder.path,8)="prefetch" then
subfolder.delete(true)
end if
if subfolder.size=0 then subfolder.delete(true)
scan(subfolder)
next
end sub
在VB中，我们可以按以下步骤来创建此类窗口：
1、设置窗口的BorderStyle=3；
2、在Form_Load中加入：Me.Icon=LoadPicture("")->
交流
许多开发者，特别是那些先前是C程序员的人，都会深信下面的语句将声明2个Interger类型变量：
而实际上，x被声明为了variant类型
然后
1.使用软件禁用注册表
比如：（此间文字由系统自动屏蔽）
2.通过.reg文件
把下面的内容保存为lock.reg，双击后，注册表禁用
REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"DisableRegistryTools"=dword:00000001
3.在Windows2000/XP/2003中，运行Gpedit.msc，打开“组策略”。
