anixon Posted April 4, 2007 Share Posted April 4, 2007 I run a McAfee Firewall which within that applications functionality allows you to Fully BLOCK any nominated programs access to the Internet. If you have internet connectivity the following code will return a 1 indicating that the Network is Active even if the exe in which it resides is Fully BLOCKED from Internet access by the McAfee Firewall. $IsCon = DllCall("WinInet.dll", "int", "InternetGetConnectedState", "int_ptr", 0, "int", 0) However the following code in the same cirumstances (exe in which it resides is fully blocked by the McAfee Firewall) produces a -1 (no IP address obtained) as the result. $PublicIP = _GetIP() Why is it so? Ant.. Link to comment Share on other sites More sharing options...
jvanegmond Posted April 4, 2007 Share Posted April 4, 2007 Why is it so?Because _GetIP makes an connection to an external web page to get your IP-address... github.com/jvanegmond Link to comment Share on other sites More sharing options...
anixon Posted April 4, 2007 Author Share Posted April 4, 2007 Because _GetIP makes an connection to an external web page to get your IP-address...Ah that makes sense took me a good couple of hours to establish exactly what the problem was which almost guarantees that I will never forget where to look next time I run into the problem. As a mater of interest what would be the address of the web page?Thanks for your helpAnt.. Link to comment Share on other sites More sharing options...
jvanegmond Posted April 4, 2007 Share Posted April 4, 2007 (edited) This is straight from the includes directory.. expandcollapse popup;=============================================================================== ; ; Function Name: _GetIP() ; Description: Get public IP address of a network/computer. ; Parameter(s): None ; Requirement(s): Internet access. ; Return Value(s): On Success - Returns the public IP Address ; On Failure - -1 and sets @ERROR = 1 ; Author(s): Larry/Ezzetabi & Jarvis Stubblefield ; ;=============================================================================== Func _GetIP() Local $ip, $t_ip If InetGet("http://checkip.dyndns.org/?rnd1=" & Random(1, 65536) & "&rnd2=" & Random(1, 65536), @TempDir & "\~ip.tmp") Then $ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp")) FileDelete(@TempDir & "\~ip.tmp") $ip = StringTrimLeft($ip, StringInStr($ip, ":") + 1) $ip = StringTrimRight($ip, StringLen($ip) - StringInStr($ip, "/") + 2) $t_ip = StringSplit($ip, '.') If $t_ip[0] = 4 And StringIsDigit($t_ip[1]) And StringIsDigit($t_ip[2]) And StringIsDigit($t_ip[3]) And StringIsDigit($t_ip[4]) Then Return $ip EndIf EndIf If InetGet("http://www.whatismyip.com/?rnd1=" & Random(1, 65536) & "&rnd2=" & Random(1, 65536), @TempDir & "\~ip.tmp") Then $ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp")) FileDelete(@TempDir & "\~ip.tmp") $ip = StringTrimLeft($ip, StringInStr($ip, "Your ip is") + 10) $ip = StringLeft($ip, StringInStr($ip, " ") - 1) $ip = StringStripWS($ip, 8) $t_ip = StringSplit($ip, '.') If $t_ip[0] = 4 And StringIsDigit($t_ip[1]) And StringIsDigit($t_ip[2]) And StringIsDigit($t_ip[3]) And StringIsDigit($t_ip[4]) Then Return $ip EndIf EndIf SetError(1) Return -1 EndFunc ;==>_GetIP No problem.. Edited April 4, 2007 by Manadar github.com/jvanegmond Link to comment Share on other sites More sharing options...
anixon Posted April 4, 2007 Author Share Posted April 4, 2007 This is straight from the includes directory.. expandcollapse popup;=============================================================================== ; ; Function Name: _GetIP() ; Description: Get public IP address of a network/computer. ; Parameter(s): None ; Requirement(s): Internet access. ; Return Value(s): On Success - Returns the public IP Address ; On Failure - -1 and sets @ERROR = 1 ; Author(s): Larry/Ezzetabi & Jarvis Stubblefield ; ;=============================================================================== Func _GetIP() Local $ip, $t_ip If InetGet("http://checkip.dyndns.org/?rnd1=" & Random(1, 65536) & "&rnd2=" & Random(1, 65536), @TempDir & "\~ip.tmp") Then $ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp")) FileDelete(@TempDir & "\~ip.tmp") $ip = StringTrimLeft($ip, StringInStr($ip, ":") + 1) $ip = StringTrimRight($ip, StringLen($ip) - StringInStr($ip, "/") + 2) $t_ip = StringSplit($ip, '.') If $t_ip[0] = 4 And StringIsDigit($t_ip[1]) And StringIsDigit($t_ip[2]) And StringIsDigit($t_ip[3]) And StringIsDigit($t_ip[4]) Then Return $ip EndIf EndIf If InetGet("http://www.whatismyip.com/?rnd1=" & Random(1, 65536) & "&rnd2=" & Random(1, 65536), @TempDir & "\~ip.tmp") Then $ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp")) FileDelete(@TempDir & "\~ip.tmp") $ip = StringTrimLeft($ip, StringInStr($ip, "Your ip is") + 10) $ip = StringLeft($ip, StringInStr($ip, " ") - 1) $ip = StringStripWS($ip, 8) $t_ip = StringSplit($ip, '.') If $t_ip[0] = 4 And StringIsDigit($t_ip[1]) And StringIsDigit($t_ip[2]) And StringIsDigit($t_ip[3]) And StringIsDigit($t_ip[4]) Then Return $ip EndIf EndIf SetError(1) Return -1 EndFunc ;==>_GetIP No problem.. Thanks for that I really like to learn something new every day and today has delivered a bonus. Cheers Ant Link to comment Share on other sites More sharing options...
Richard Robertson Posted April 4, 2007 Share Posted April 4, 2007 McAfee kinda sucks. At school, it ate several of my AutoIt scripts. Link to comment Share on other sites More sharing options...
Kickassjoe Posted April 4, 2007 Share Posted April 4, 2007 I can't run AutoIt Scripts at school... I can't run ANY .exe's that aren't on an allowed applications list I don't think... Really sucks when you wanna show someone what you were doing over the weekend (hehe) What goes around comes around... Payback's a bitch. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now