［上一页］（64）［下一页］

在问题: 您想知道有谁正在使用您的 Access 资料库吗？我第一次和大家提到了 Msldvusr.dll，告诉大家在一个 multiuser Jet-based 应用程序中，我们可以使用它来读取 Jet 的 Lock 文件，也就是扩展文件名为 .ldb 的文件，在这个文件中记录著有多少使用者或几台电脑连到资料库中！

在看完上问题之后，如果您有使用这个 Msldvusr.dll 在程序中做一些处理的话，目前这一则讯息或许对您有点帮助！

有网友反应，当他们在做安装磁盘时，已经将 Msldvusr.dll 加入，给使用者安装后，有些版本较旧的 Windows 95，安装完应用程序之后，如果重新开机，Msldvusr.dll 便会无缘无故不见了！

我不知道这是什么 Bug，不过，要解决这个问题，就是在您做好安装磁盘之后，将未压缩的 Msldvusr.dll 也复制到安装磁盘中。然后请使用者在重新开机之后，再将这个文件自行复制到 C:\Windows\System 目录下就可以了，当然，下一次开机之后文件就不会无缘无故不见了！

这个现象只会在某些版本较旧的 Windows 95 上发生，在 Windows 98 以后的版本就不会发生了！

317、钢琴弹奏程序（如何控制 MIDI 装置）

很多人写信来问我如何在 VB 中控制声音的大小，除了难听的 Beep Beep 声之外，如何像以前的 Basic 一样弹奏出 Do Re Mi 之音乐，您们想知道吗？

以下所附之钢琴弹奏程序，程序相当小巧，功能却相当完整！大家可以练习练习！

318、如何保证连网计算机时间同步？

执行命令：
net time "\\OhterComputerName" /set /yes 可以保证名称为OhterComputerName 的计算机与本机时间同步。
Public Sub SyncTime()
Dim thecomp As String
Dim theshell As String
thecomp = "\\computername"
theshell = "net time " & Chr(34) & thecomp & Chr(34) & " /set /yes"
x = Shell(theshell) 
End Sub

319、如何用 WinSock 控件下载文件？

1 增加一个 Winsock 控件， 名称为 Winsock1。
2 建立连接：
Winsock1.RemoteHost = "nease.com"
Winsock1.RemotePort = 80
Winsock1.Connect
3 在Winsock1.Connect 事件中加入：
Dim strCommand as String
Dim strWebPage as String
strWebPage = "http://www.nease.com/~kenj/index.html"
strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept: text/html" + vbCrLf
strCommand = strCommand + vbCrLf
Winsock1.SendData strCommand
4 Winsock 开始下载， 在收到数据时， 发生DataArrival 事件。
Dim webData As String
Winsock1.GetData webData, vbString
TxtWebPage.Text = TxtWebPage.Text + webData

320、如何确定当前Windows的启动状态？

定义：
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CLEANBOOT = 67 
使用：
Select Case GetSystemMetrics(SM_CLEANBOOT)
Case 1: MsgBox "Windows运行在安全模式。" 
Case 2: MsgBox "Windows运行在带网络环境的安全模式。" 
Case Else: MsgBox "Windows运行正常模式。"
End Select

［上一页］（64）［下一页］