用VB实现自动拨号断开功能~

来源：百度知道 编辑：UC知道 时间：2024/05/05 14:14:08
哪位高手给个思路，最好是源码~
我想实现程序运行时自动打开某个网页，然后关闭浏览器，断开网络再次连接，再打开网页~如此循环~
如何实现？？
一楼的，不是你说的那个，我是想刷访问量，增加我的帐户积分

我干过这档事。。。
楼主是要穷举某个网站的什么东西吧。。别人限制IP访问了。
我测试过了。没问题。

新建一个模块,贴入以下代码:

Option Explicit
Public hRasConn As Long '¶¨ÒåÒ»¸öÖ¸ÏòRASµ÷ÓõÄÈ«¾Ö¾ä±ú
Public Const APINULL = 0&
Public Const UNLEN = 256
Public Const DNLEN = 15
Public Const PWLEN = 256
Public Const RAS95_MaxPhoneNumber = 128
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxCallbackNumber = RAS95_MaxPhoneNumber

Public Type RASDIALPARAMS95
dwSize As Long
szEntryName(RAS95_MaxEntryName) As Byte
szPhoneNumber(RAS95_MaxPhoneNumber) As Byte
szCallbackNumber(RAS95_MaxCallbackNumber) As Byte
szUserName(UNLEN) As Byte
szPassword(PWLEN) As Byte
szDomain(DNLEN) As Byte
End Type
'**********************************
'* RASµ÷ÓÃ&acu