Jack Skelley wrote on 2011-11-15:
> Good Morning Tracey:
> Thanks for your input!
> I found the issue and I would have never thought this to be true.
> I opened the Windows 7 firewall and looked at the list of programs that
are allowed and the programs that are blocked. I didn't see anything that
was unusual.
> So I took another XP box and the Windows firewall in that box blocked the
TCP connection from the VFP interface. The difference was that XP told me
that VFP9.exe wanted a connection and what did I want to do Windows 7 was
silent. So I unblocked it in XP and the program worked as expected. I then
went to the Windows 7 x64 box and added VFP9.exe to the allowed programs and
now it works as well. But Windows 7 never alerted me to the request that it
was blocking. I am wondering if this is part of the 'user account control
settings' in the Windows 7 box.
> I would have thought that the winsock.ocx would have been blocked not the
VFP9 interface. So now that makes me think that when the program gets
compiled and distributed that the .exe name will need to be unblocked as
well.
> I guess it is a never ending process...
> Thanks again!
> Best regards,
>
> Jack Skelley
>
Jack,
I just fired up a test box, dragged my exe utility that uses the
mswinsock.ocx listener. On first start it notifies me: "Windows Firewall has
blocked some features of this program".
I don't when I changed my VFP 9 executable firewall status on the old Vista
box. I'm not sure I've needed to on my Windows 7 Dev box I use today.
There is a way to add an exception to the standard Windows Firewall during
setup via Inno Setup using NETSH.EXE
You can also do it with a couple COM object calls when in an administrative
privileged exe.
*-- Disable the "Open Windows Firewall" when access is not available
TRY
LOCAL loFWM as NetFwTypeLib.INetFwMgr , ;
loProfile as NetFwTypeLib.INetFwProfile , ;
loPort as NetFwTypeLib.INetFwOpenPort
loFWM = CreateObject("HNetCfg.FwMgr")
loProfile = loFWM.LocalPolicy.CurrentProfile
loPort = CreateObject("HNetCfg.FWOpenPort")
CATCH TO oEx
THISFORM.FirewallAccess = .F.
ENDTRY
Tracy Pearson
PowerChurch Software
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
