hiteshluthra 0 Posted March 21, 2011 Hi all genius, I Need help to find VPN address and display on GUI Code should display address starting with 10.199.x.x and if not present then should display " VPN NOT CONNECTED ". my code : Local $sTestSegment = "10.199." Local $sVPNAddress[0]="VPN NOT CONNECTED " Local $sAll_IP = "," & @IPAddress1 & "," & @IPAddress2 &","& @IPAddress3 &","& @IPAddress4 & "," Local $aMatches=StringRegExp($sAll_IP, ",(" & StringReplace($sTestSegment, ".", "\.") & ".+?),",3) If IsArray($aMatches) then $Input3 = GUICtrlCreateInput($aMatches[0], 232, 247, 145, 21,$ES_READONLY)] Else $Input3 = GUICtrlCreateInput("VPN NOT CONNECTED", 232, 247, 145, 21,$ES_READONLY)] Thanks in advance Share this post Link to post Share on other sites
Mallie99 2 Posted March 21, 2011 Hi all genius, I Need help to find VPN address and display on GUI Code should display address starting with 10.199.x.x and if not present then should display " VPN NOT CONNECTED ". my code : Local $sTestSegment = "10.199." Local $sVPNAddress[0]="VPN NOT CONNECTED " Local $sAll_IP = "," & @IPAddress1 & "," & @IPAddress2 &","& @IPAddress3 &","& @IPAddress4 & "," Local $aMatches=StringRegExp($sAll_IP, ",(" & StringReplace($sTestSegment, ".", "\.") & ".+?),",3) If IsArray($aMatches) then $Input3 = GUICtrlCreateInput($aMatches[0], 232, 247, 145, 21,$ES_READONLY)] Else $Input3 = GUICtrlCreateInput("VPN NOT CONNECTED", 232, 247, 145, 21,$ES_READONLY)] Thanks in advance What's it currently doing/not doing that's causing problems? Mallie Are you telling me something I need to know or something I want to know? Share this post Link to post Share on other sites
hiteshluthra 0 Posted March 21, 2011 Does nothing shows syntax error Share this post Link to post Share on other sites
Mallie99 2 Posted March 21, 2011 Does nothing shows syntax error Then simplify it. Assuming you are running this on a local computer, that computer will likely only have 1 VPN address. In that case you only want to pick that one address out and display it: Local $sTestSegment = "10.199" Local $sVPNAddress= "VPN NOT CONNECTED" Local $sMatches If StringLeft(@IPADDRESS1, 6) = $sTestSegment Then $sMatches = @IPADDRESS1 ElseIf StringLeft(@IPADDRESS2, 6) = $sTestSegment Then $sMatches = @IPADDRESS2 ElseIf StringLeft(@IPADDRESS3, 6) = $sTestSegment Then $sMatches = @IPADDRESS3 ElseIf StringLeft(@IPADDRESS4, 6) = $sTestSegment Then $sMatches = @IPADDRESS4 Else $sMatches = "VPN NOT CONNECTED" EndIf Global $Input3 = GUICtrlCreateLabel($sMatches, 232, 247, 145, 21) Once you've simplified it and got the info you want, then you can go in and condense the code if you need to. Hope this helps. Mal Are you telling me something I need to know or something I want to know? Share this post Link to post Share on other sites
hiteshluthra 0 Posted March 21, 2011 Thats why i call you all Genius..........................it worked thanks a lot Mallie99 for help Share this post Link to post Share on other sites