HttpSetProxy(0) 代理问题

010113

首先在IE里设置


然后写的程序里是：
HttpSetProxy(0)    ;0 = （默认）使用 Internet Explorer 设置的代理服务器。

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET","http://www.autoitx.com")
$oHTTP.Send()
$HTMLSource = $oHTTP.Responsetext

$file = FileOpen("C:\http.txt", 2)

; 检查文件是否正常打开
If $file = -1 Then
    MsgBox(0, "错误", "无法打开目标文件。")
    Exit
EndIf

FileWriteLine($file, $HTMLSource)
FileClose($file)

为什么不起作用呢。。每次好像都是用当前的IP，而非代理IP访问的
我希望是通过Internet Explorer 设置的代理服务器 来访问http://www.autoitx.com这个地址。
并获取网页的源文件保存为C:\http.txt。。

请高人指教！！

[ 本帖最后由 010113 于 2008-9-22 20:17 编辑 ]

010113

顶一下，不要沉呀

sanhen

写注册表还快。。。这个函数的作用并不是设置这里用的。

l4ever

#include <IE.au3>
$proxy = HttpSetProxy(2, "218.249.83.87:8080")
if @error or $proxy = 0 then
msgbox (0,"","设置代理失败")
exit
endif
     $Url="http://www.autoitx.com/"
     $oIE = _IECreate ($url, 0, 0)        
     $sHTML = _IEBodyReadHTML ($oIE)
$Write = filewrite ("C:\http.txt",$shtml)
if @error or $proxy = 0 then
msgbox (0,"","写入数据失败")
Else
msgbox (0,"","写入数据成功")
ShellExecute("C:\http.txt", "", "C:\", "edit",@SW_MAXIMIZE)
Endif
Exit

[ 本帖最后由 l4ever 于 2008-9-21 15:22 编辑 ]

wxlj

学习…………………………

笨笨℃

原帖由 l4ever 于 2008-9-21 15:19 发表
#include  
$proxy = HttpSetProxy(2, "218.249.83.87:8080")
if @error or $proxy = 0 then
msgbox (0,"","设置代理失败")
exit
endif
     $Url="http://www.autoitx.com/"
     $oIE = _IECreate ($url, ...

这个办法读出来的也是本地IP  非代理IP呢

用WWW.IP138.CN读的话能看出来

GoTop

恩，很有用啊

316428696

用不上！唉！

qvvcity

学习一下看看

deliy

同楼上的，我试了指定输入了代理IP，用ip138网站测，还是显示我本地的ADSLIP

temp5c

去看看NetSession.au3  比较牛B与方便