Tuesday, February 22, 2011

Get html query string with Flashbuilder 4

In the html page that hosts the swf object. Required addition.  located in c:\.....\html-template folder.
 <script type="text/javascript" src="swfobject.js"></script>
        <script type="text/javascript">
            <!-- For version detection, set to min. required Flash Player version, or 0 (or 0.0.0), for no version detection. -->
            var swfVersionStr = "${version_major}.${version_minor}.${version_revision}";
            <!-- To use express install, set to playerProductInstall.swf, otherwise the empty string. -->
            var xiSwfUrlStr = "${expressInstallSwf}";
            var flashvars = {};
var queryString = window.location.search.substring(1);
if (queryString != null & queryString.length > 0)
{
    var keyValuePairs = queryString.split("&");
    for (var i = 0; i < keyValuePairs.length; i++)
    {
        var keyValuePair = keyValuePairs[i].split("=");

        if (keyValuePair.length == 2)
        {
            flashvars[keyValuePair[0]] = keyValuePair[1];
        }
    }
}

            var params = {};
            params.quality = "high";
            params.bgcolor = "${bgcolor}";
            params.allowscriptaccess = "sameDomain";
            params.allowfullscreen = "true";
            var attributes = {};
            attributes.id = "${application}";
            attributes.name = "${application}";
            attributes.align = "middle";
            swfobject.embedSWF(
                "${swf}.swf", "flashContent",
                "${width}", "${height}",
                swfVersionStr, xiSwfUrlStr,
                flashvars, params, attributes);
            <!-- JavaScript enabled so display the flashContent div in case it is not replaced with a swf object. -->


//in the mxml file
protected function lblTest_mouseOverHandler(event:MouseEvent):void
            {
                // TODO Auto-generated method stub
                var someVariable:String = this.parameters["url"];
            lblTest.text=someVariable;
            }

Wednesday, February 16, 2011

VB.NET Webrequest with useragent

 Private Function readHtmlPage(ByVal url As String) As String
        Try
            Dim result As String
            Dim objResponse As WebResponse
            Dim objRequest As WebRequest = System.Net.HttpWebRequest.Create(url)
            DirectCast(objRequest, System.Net.HttpWebRequest).UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.1.38) Gecko/20101203 Firefox/3.6.13 (.NET CLR 3.5.26529)"

            objResponse = objRequest.GetResponse()
            Using sr As New StreamReader(objResponse.GetResponseStream())
                result = sr.ReadToEnd()
                'Close and clean up the StreamReader
                sr.Close()
            End Using
            Return result
        Catch ex As Exception
            'lblStatus.Text = ex.Message
            Return ex.Message.ToString
            Exit Function
        End Try
    End Function