010113 发表于 2008-9-16 21:26:45

HttpSetProxy(0) 代理问题

首先在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 发表于 2008-9-21 13:59:18

顶一下，不要沉呀

sanhen 发表于 2008-9-21 14:54:02

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

l4ever 发表于 2008-9-21 15:19:33

#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 发表于 2008-10-4 16:46:01

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

笨笨℃ 发表于 2008-12-9 22:50:47

原帖由 l4ever 于 2008-9-21 15:19 发表 http://www.autoitx.com/images/common/back.gif
#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 发表于 2009-7-24 11:14:25

恩，很有用啊

316428696 发表于 2010-1-20 19:11:52

用不上！唉！

qvvcity 发表于 2010-1-20 21:19:01

学习一下看看

deliy 发表于 2013-12-30 23:55:44

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

temp5c 发表于 2016-2-16 23:02:01

去看看NetSession.au3比较牛B与方便
页: [1]
查看完整版本: HttpSetProxy(0) 代理问题