请高手帮忙！！！谢谢 谢谢 （分不够再加）

Question

我想做一个服务就是当电脑开机时就运行（没有界面的）
当服务运行时 隔一段时间就访问一下一个web地址 。
比如说隔30秒就访问一下www.***.com只是访问一下就可以 。

Answer 1

就像写一个 .net里面的服务程序 。
目的时 按一定的间隔时间访问一次固定的web站点 。

Answer 2

写我倒是有点不会写,
但给你提供一点思路倒可以,
你将此要写入注册表,可以用到API函数的.

Answer 3

to zjcxc(邹建) (
可以 具体说说吗  ？谢谢

Answer 4

你可以做一个一般的程序，不做界面，只有sub main函数，在函数里面设定这些操作，或者做一个界面但是运行的时候把它隐藏就可以了，在上面放一个timer控件，设定每30秒就……

Answer 5

请问大哥们，vb里面有像.net那样的服务吗 ？？？

Answer 6

你可以做一个一般的程序，不做界面，只有sub main函数，
在函数里面设定这些操作，或者做一个界面但是运行的时候把它隐藏就可以了，在上面放一个timer控件，设定每30秒就……
然后将此程序写入注册表的run中，使其每次开机运行

Answer 7

前面刚提到“然后将此程序写入注册表的run中，使其每次开机运行”可以用程序来实现这功能吗？比如我写了一个程序，当它已开始被执行的时候就让其加载到注册表？谢谢指教

Answer 8

to yoki(小马哥)
可以把代码写出来吗？？？谢谢

Answer 9

做一个界面但是运行的时候把它隐藏就可以了，在上面放一个timer控件，设定每30秒就……
Option ExplicitPrivate Sub Form_Load()
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
ping "www.csdn.net"
End Sub然后将此程序写入注册表的run中，使其每次开机运行

Answer 10

to online(龙卷风(白学了,重新充电中)) 
在vb中怎样   将此程序写入注册表的run中，使其每次开机运行

Answer 11

经过测试
Option Explicit
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
Const REG_SZ = 1
Const HKEY_LOCAL_MACHINE = &H80000002Private Sub Command1_Click()
'RegCreateKey "hkey_local_machine\software\microsoft\windows\currentversion\run", "aaa", 1
Dim application As String
Dim filename As String
application = "我的测试软件"
filename = "c:\mysoft\www.exe"
Call SaveString(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", application, filename)
End Sub
Public Sub SaveString(Hkey As Long, strPath As String, strValue As String, strdata As String)
Dim KeyHand As Long
Dim r As Longr = RegCreateKey(Hkey, strPath, KeyHand)
r = RegSetValueEx(KeyHand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))
r = RegCloseKey(KeyHand)End Sub