Question

vb 中用inet Execute 老失败,原因在哪??

只要打开本地电脑防火墙,inet Execute 总是失败,把防火墙关了就次次成功,为什么呢??
理论上不是只要访问网站的80 端口不就行了吗,和本地电脑的防火墙有什么关系???

Inet1.Execute Trim(strURL), "GET"
我写程序是给很多人用的,绝对不能存在因谁的防火墙出问题之类的.,更不可能手工设置

我截了下封包,为什么用inet控件,本地会有个监听断口,这个端口被防火墙封掉了所以远端服务器连接不上,好象是这样?

Answer 1

现在的电脑防火墙，不仅能防御外来木马等的侵袭，而且能限制本地程序连接网络的端口。
这就是照成“只要打开本地电脑防火墙,inet Execute 总是失败,把防火墙关了就次次成功”的根本原因。
要解决此问题，只要对本地的电脑防火墙进行相应设置，允许本地程序访问80端口即可。

Answer 2

你可以吧你的程序添加到系统防火墙例外
参考如下代码

Const NET_FW_SCOPE_ALL = 0
Const NET_FW_IP_VERSION_ANY = 2

Private Sub Form_Load()
MsgBox App.Path & "\" & App.EXEName & ".exe"
MsgBox fhq
'KGfhq
'MsgBox fhq
ADDlw
End Sub
'获得系统防火墙状态
Function fhq() As Boolean
Dim fh1 As INetFwMgr
Dim fhp1 As INetFwProfile

Set fh1 = CreateObject("HNetCfg.FwMgr")

Set fhp1 = fh1.LocalPolicy.CurrentProfile

'获得系统防火墙状态
fhq = fhp1.FirewallEnabled

Set fh1 = Nothing
Set fhp1 = Nothing

End Function
'开关系统防火墙状态
Sub KGfhq()
Dim fh1 As INetFwMgr
Dim fhp1 As INetFwProfile

Set fh1 = CreateObject("HNetCfg.FwMgr")

Set fhp1 = fh1.LocalPolicy.CurrentProfile

'开关系统防火墙状态
fhp1.FirewallEnabled = Not fhp1.FirewallEnabled

Set fh1 = Nothing
Set fhp1 = Nothing

End Sub
'添加例外
Sub ADDlw()
Dim fh1 As INetFwMgr
Dim fhp1 As INetFwProfile
Dim fhApp1 As INetFwAuthorizedApplication

Set fh1 = CreateObject("HNetCfg.FwMgr")
Set fhp1 = fh1.LocalPolicy.CurrentProfile
Set fhApp1 = CreateObject("HNetCfg.FwAuthorizedApplication")

With fhApp1
.Name = App.EXEName '名称
.ProcessImageFileName = App.Path & "\fhq1.exe" '完整路径
.Scope = NET_FW_SCOPE_ALL '作用范围
.IpVersion = NET_FW_IP_VERSION_ANY 'ip协议
.Enabled = True '启用开关
End With

'添加例外
fhp1.AuthorizedApplications.Add fhApp1

Set fh1 = Nothing
Set fhp1 = Nothing
Set fhApp1 = Nothing

End Sub

Answer 3

执行的什么方法？用VB执行系统函数?防火墙会误认为是带有攻击性的代码.所以给阻止了.
不要用URL传什么数据的SQL语句,太敏感了.防火墙自然阻止.

BS楼下的复制粘贴.

Answer 4

要对本地的电脑防火墙进行相应设置，允许本地程序访问80端口即可。

Answer 5

执行的什么方法？用VB执行系统函数?防火墙会误认为是带有攻击性的代码.所以给阻止了.
不要用URL传什么数据的SQL语句