用VB如何做个代理服务器检测程序

可以用Inet控件来实现：思路，让Inet用代理访问百度并获取源代码，如果能从源代码找到百度之类的字眼就可以了。

方法：

工程-添加部件-找到microsoft internet transfer control 6.0

private sub form_load()

inet1.Proxy="192.168.1.100:3128"

dim temp as string

temp=inet1.openurl("www.baidu.com")

if instr(temp,"百度")>0 then

'有效

else

'无效

end if

end sub

你想做一个VB程序，这个程序能通过IP代理访问网络？

要编这样的代理程序很麻烦。

VB没有必要编这样的程序，现在有现成的代理工具

proxifierPE2.91汉化版 能把IP代理转成直通的，

VB程序就没必要访问IP代理了。

建议你使用注册表的API进行修改

封装两个NET函数给你

private string GetReg(string RegPath)  取得注册表项内容

        {

            string str=""

            RegistryKey hkml = Registry.LocalMachine 

            RegistryKey software = hkml.OpenSubKey("SOFTWARE",true) 

            RegistryKey aimdir = software.OpenSubKey("krabs",true)

            

            if (aimdir != null)

            {

                if (aimdir.GetValue(RegPath) != null)

                    str = aimdir.GetValue(RegPath).ToString()

                if (str != null)

                    return str

                return null

            }

            return null

        }

        private bool SetReg(string RegPath,string Data)  //设置注册表内容

        {

            RegistryKey reg = Registry.LocalMachine

            RegistryKey software = reg.OpenSubKey("SOFTWARE", true)

            RegistryKey aimdir1 = software.CreateSubKey("krabs")

            if (aimdir1 == null)

                return false

            aimdir1.SetValue(RegPath, Data)

            return true

        }

---