各位高手，我想用VB写一个软件，这个软件会检测系统注册表中的一个字符串值如下，

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\qq

　　如果不存在下面这个RUN启动项里有一个qq的字符串值，程序每隔两秒就会打开我指定的一个网站 http://192.168.0.1 。一直打开这个网站到这个字符串值qq存在，如果在打开 http://192.168.0.1 过程中，这个qq字符串值存在了，就会每隔两秒自动打开 http://192.168.0.2 这个网站。

要求程序每两秒检测一次qq这个字符串值是否存在，因为程序需要不断判断这个字符串值是否存在再确定应该打开那个网站。

希望高手们能帮小底一个忙，给出完整的VB源码，１００元酬谢。

联系ＱＱ：509954376

[此贴子已经被作者于2006-12-24 23:24:07编辑过]

我可以帮你写！

的确没必要花一百元,还是再加一些功能吧

这很好实现，前两天我还在这个论坛上发了一个注册表操作的帖子......
下面是源代码，如果想要exe文件，请把你的邮箱留下来。

'*************************注册表监视器**************************************************
'作者：轻风工作室REDICE
'***************************************************************************************

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const KEY_ALL_ACCESS = (&H20000 Or &H1 Or &H2 Or &H4 Or &H8 Or &H10 Or &H20) And (Not &H100000)
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal uloptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If getvalue(HKEY_LOCAL_MACHINE, "\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "qq") <> "" Then
ShellExecute Me.hwnd, vbNullString, "http://192.168.0.2 ", vbNullString, "C:\", SW_SHOWNORMAL
Else
ShellExecute Me.hwnd, vbNullString, "http://192.168.0.1 ", vbNullString, "C:\", SW_SHOWNORMAL
End If
End Sub
Private Function getvalue(ByVal ip As Long, keyname As String, valuename As String) As String
Dim retval As Long
Dim hKey As Long
Dim valuesetting As Variant
Dim cddata As Long
Dim lvalue As Long
Dim svalue As String
Dim lvaluetye As Long
retval = RegOpenKeyEx(ip, keyname, 0, KEY_ALL_ACCESS, hKey)
If retval > 0 Then
getvalue = ""
Exit Function
End If
retval = RegQueryValueEx(hKey, valuename, 0, lvaluetype, ByVal vbNullString, cddata)
If retval <> 0 Then
RegCloseKey hKey
Exit Function
End If
svalue = String(cddata, Chr(0))
RegQueryValueEx hKey, valuename, 0, REG_SZ, ByVal svalue, cddata
valuesetting = Left$(svalue, cddata)
getvalue = CStr(valuesetting)
End Function
上述程序我已经测试通过（WinXP,VB6.0）