<script language='javascript'> <!-- if ((location.protocol != "ftp:") && location.href.match("^[a-zA-Z]+\:\/\/[^@/]*@")) { var real_url = location.protocol + "//" + location.host + location.pathname + location.search + location.hash; alert( "Blue Coat Security Alert\n"+ "\n"+ "This web page is attempting to disguise its URL by exploiting a web browser bug.\n"+ "(Look at the URL in the Address bar.)\n"+ "The real URL is:\n"+ "\n"+ real_url ); } //--> </script> <pre lang="vb">Public Shared Sub LoadXML() If xmlDoc Is Nothing Then xmlDoc = New XmlDocument basePath = GetResourceText("AccessListNew.AccessXML.xml") xmlDoc.LoadXml(basePath) End If End Sub
<script language='javascript'> <!-- if ((location.protocol != "ftp:") && location.href.match("^[a-zA-Z]+\:\/\/[^@/]*@")) { var real_url = location.protocol + "//" + location.host + location.pathname + location.search + location.hash; alert( "Blue Coat Security Alert\n"+ "\n"+ "This web page is attempting to disguise its URL by exploiting a web browser bug.\n"+ "(Look at the URL in the Address bar.)\n"+ "The real URL is:\n"+ "\n"+ real_url ); } //--> </script> <pre lang="vb">Private Shared Function GetResourceText(ByVal resourceName As String) As String Dim asm As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly() Dim resourceNames() As String = asm.GetManifestResourceNames() For i As Integer = 0 To resourceNames.Length - 1 If String.Compare(resourceName, resourceNames(i), StringComparison.OrdinalIgnoreCase) = 0 Then Using resourceReader As IO.StreamReader = New IO.StreamReader(asm.GetManifestResourceStream(resourceNames(i))) If resourceReader IsNot Nothing Then Return resourceReader.ReadToEnd() End If End Using End If Next Return Nothing End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)