万能的大牛看过来 这里求助

ZJL520

AI了一个 纯API函数设置IE代理相关的C++代码  附件内含


自己转成E 死活设置不成功 求助帮忙修复一下  附件内含

已知的是可以使用修改注册表能修改成功 这个我知道 不想用这个方式


我需要的是使用API直接设置

IE代理设置疑问.rar (50.57 KB, 下载次数: 1)

2025-3-31 01:12 上传

点击文件名下载附件

xiaoyu1986

AI这样说：↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

  

DLL命令名	返回值类型	公开	备 注
InternetSetOptionA	整数型
DLL库文件名:
wininet.dll
在DLL库中对应命令名:
InternetSetOptionA
参数名	类 型	传址	数组	备 注
hInternet	整数型
dwOption	整数型
lpBuffer	整数型
dwBufferLength	整数型

DLL命令名	返回值类型	公开	备 注
InternetOpenA	整数型
DLL库文件名:
wininet.dll
在DLL库中对应命令名:
InternetOpenA
参数名	类 型	传址	数组	备 注
lpszAgent	文本型
dwAccessType	整数型
lpszProxy	文本型
lpszProxyBypass	文本型
dwFlags	整数型

DLL命令名	返回值类型	公开	备 注
InternetCloseHandle	整数型
DLL库文件名:
wininet.dll
在DLL库中对应命令名:
InternetCloseHandle
参数名	类 型	传址	数组	备 注
hInternet	整数型

.版本 2<br /> <br /> .DLL命令 InternetSetOptionA, 整数型, "wininet.dll", "InternetSetOptionA"<br />     .参数 hInternet, 整数型<br />     .参数 dwOption, 整数型<br />     .参数 lpBuffer, 整数型<br />     .参数 dwBufferLength, 整数型<br /> <br /> .DLL命令 InternetOpenA, 整数型, "wininet.dll", "InternetOpenA"<br />     .参数 lpszAgent, 文本型<br />     .参数 dwAccessType, 整数型<br />     .参数 lpszProxy, 文本型<br />     .参数 lpszProxyBypass, 文本型<br />     .参数 dwFlags, 整数型<br /> <br /> .DLL命令 InternetCloseHandle, 整数型, "wininet.dll", "InternetCloseHandle"<br />     .参数 hInternet, 整数型

  

常量名称	常量值	公 开	备 注
INTERNET_OPEN_TYPE_PRECONFIG	0
INTERNET_OPTION_PROXY	38
INTERNET_OPEN_TYPE_PROXY	3

.版本 2<br /> <br /> .常量 INTERNET_OPEN_TYPE_PRECONFIG, "0"<br /> .常量 INTERNET_OPTION_PROXY, "38"<br /> .常量 INTERNET_OPEN_TYPE_PROXY, "3"

  

子程序名	返回值类型	公开	备 注
设置IE代理	逻辑型
参数名	类 型	参考	可空	数组	备 注
代理地址	文本型

变量名	类 型	静态	数组	备 注
hInternet	整数型
代理信息	文本型
结果	整数型

hInternet ＝ InternetOpenA (“易语言代理设置”, #INTERNET_OPEN_TYPE_PRECONFIG, “”, “”, 0)
如果 (hInternet ＝ 0)
调试输出 (“初始化失败~”)
返回 (假)



代理信息 ＝ “http=” ＋ 代理地址 ＋ “;https=” ＋ 代理地址 ＋ “;ftp=” ＋ 代理地址
结果 ＝ InternetSetOptionA (hInternet, #INTERNET_OPTION_PROXY, 取变量地址 (代理信息), 取文本长度 (代理信息))
InternetCloseHandle (hInternet)
返回 (结果 ≠ 0)

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

变量名	类 型	静态	数组	备 注
成功	逻辑型

成功 ＝ 设置IE代理 (“127.0.0.1:8080”)
如果 (成功)
信息框 (“代理设置成功！”, 0, “提示”, )
信息框 (“代理设置失败！”, 0, “错误”, )

返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 设置IE代理, 逻辑型<br /> .参数 代理地址, 文本型<br /> .局部变量 hInternet, 整数型<br /> .局部变量 代理信息, 文本型<br /> .局部变量 结果, 整数型<br /> <br /> hInternet ＝ InternetOpenA (“易语言代理设置”, #INTERNET_OPEN_TYPE_PRECONFIG, “”, “”, 0)<br /> .如果 (hInternet ＝ 0)<br /> <br />     调试输出 (“初始化失败~”)<br />     返回 (假)<br /> <br /> .否则<br /> <br />     代理信息 ＝ “http=” ＋ 代理地址 ＋ “;https=” ＋ 代理地址 ＋ “;ftp=” ＋ 代理地址<br />     结果 ＝ InternetSetOptionA (hInternet, #INTERNET_OPTION_PROXY, 取变量地址 (代理信息), 取文本长度 (代理信息))<br />     InternetCloseHandle (hInternet)<br />     返回 (结果 ≠ 0)<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _启动子程序, 整数型<br /> .局部变量 成功, 逻辑型<br /> <br /> 成功 ＝ 设置IE代理 (“127.0.0.1:8080”)<br /> .如果 (成功)<br />     信息框 (“代理设置成功！”, 0, “提示”, )<br /> .否则<br />     信息框 (“代理设置失败！”, 0, “错误”, )<br /> .如果结束<br /> <br /> 返回 (0)

失地农民

光明正大的偷码

xiaoyu1986

  

写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 1)
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer”, 代理IP)
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections\宽带连接”, 到字节集 (“F.../...........” ＋ 代理IP))

.版本 2<br /> <br />     写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 1)<br />     写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer”, 代理IP)<br />     写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections\宽带连接”, 到字节集 (“F.../...........” ＋ 代理IP))

ZJL520

失地农民 发表于 2025-3-31 01:26
光明正大的偷码

分享更健康  

ZJL520

xiaoyu1986 发表于 2025-3-31 01:28
[e=0].版本 2

    写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEn ...

老哥 看字

ZJL520

xiaoyu1986 发表于 2025-3-31 02:00
AI这样说：↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

[e=0].版本 2

李云龙会告诉您  您是个人才

xiaoyu1986

ZJL520 发表于 2025-3-31 02:03
李云龙会告诉您  您是个人才