textField.addEventListener(MouseEvent.MOUSE_DOWN, drag);
textField.addEventListener(MouseEvent.MOUSE_UP, drop);
 
// by setting mouseChildren = false it makes the drag function to use the container 
// of the movie clip rather than the compenent within the movieclip. 
// This is where the ReferenceError: Error #1069: Property startDrag 
// not found on flash.text.TextField is coming from 
 
textField.mouseChildren = false;
textField.text1.selectable = false;
 
function drag(e:MouseEvent):void {
	e.target.startDrag();
}
 
 
function drop(e:MouseEvent):void {
  	e.target.stopDrag();
}

window.onload = function() {
	disableSelection(document.body)
}
 
function disableSelection(target){
if (typeof target.onselectstart!="undefined") //IE 
	target.onselectstart=function(){return false}
else if (typeof target.style.MozUserSelect!="undefined") //Firefox 
	target.style.MozUserSelect="none"
else //All other ie: Opera
	target.onmousedown=function(){return false}
target.style.cursor = "default"
}

REM Delete old production files
del \\production_server_name\production_folder\*.*
REM Copy over new production files
copy *.* \\production_server_name\production_folder\
REM Open the location of the file using default browser
start www.production_server.com

 
Sub createRepo(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim repoName As String = repoNameInput.Text
 
        Dim dirExist As Boolean = False
 
        If System.IO.Directory.Exists("C:\svn_repository\" & repoName) Then
            dirExist = True
            result.Text = "<font color=""red"">Repository Already Exist !</font>"
        End If
 
        If (repoName.Length <> 0 And dirExist = False) Then
            Dim myProcess As Process = Process.Start("cmd.exe", "/k svnadmin create C:\svn_repository\" & repoName)
 
            myProcess.WaitForExit(10000)
            ' if the process doesn't complete within
            ' 10 seconds, kill it
 
            If Not myProcess.HasExited Then
                myProcess.Kill()
            End If
 
            result.Text = "Respository Created: " _
                & myProcess.ExitTime & _
                Environment.NewLine & _
                "Exit Code (Troubleshooting Purpose): " & _
                myProcess.ExitCode
        End If
 
    End Sub

Imports System.Diagnostics

 
Imports System.IO
Imports System.Xml
Imports System.Data
Imports System.Data.SqlClient
 
Partial Class writeXML
    Inherits System.Web.UI.Page
 
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        GetXML(Request.QueryString("pid"))
    End Sub
 
    Public Function sqlConnect() As SqlConnection
        Dim oCn As SqlConnection = New SqlConnection("Data Source=xxxx\xxxx; Initial Catalog=tableName; User Id=dbUSERNAME; Password=dbPASSWORD")
        Return oCn
    End Function
 
    Private Function GetDataSet(ByVal strSQL As String) As DataSet
 
        '1. Create a connection
        Dim myConnection As SqlConnection = sqlConnect()
 
        '2. Create the command object, passing in the SQL string    
        Dim myCommand As New SqlCommand(strSQL, myConnection)
 
        myConnection.Open()
 
        '3. Create the DataAdapter
        Dim myDataAdapter As New SqlDataAdapter()
        myDataAdapter.SelectCommand = myCommand
 
 
        '4. Populate the DataSet and close the connection
        Dim myDataSet As New DataSet()
        myDataAdapter.Fill(myDataSet)
        myConnection.Close()
 
        'Return the DataSet
        Return myDataSet
 
    End Function
 
 
    Public Sub GetXML(ByVal id As String)
 
        Dim sqlCommand As String
 
        sqlCommand = "SELECT column1, column2  "
        sqlCommand &= "FROM tableName "
        sqlCommand &= "WHERE id = '" & id & "';  "
 
        Dim retrievedDataSet As New DataSet
        retrievedDataSet = GetDataSet(sqlCommand)
 
        Dim xmlDocument As XmlDocument = New XmlDocument
        xmlDocument.LoadXml(retrievedDataSet.GetXml)
 
 
        Response.Clear()
        Response.ContentType = "text/xml"
        Response.ContentEncoding = Encoding.UTF8
        Response.Write(xmlDocument.InnerXml)
        Response.Flush()
        Response.End()
 
    End Sub
 
End Class

 
window.addEventListener("load", function(e) {
  addButton();
}, false);
 
function addButton(){
 var buttonElems = document.getElementsByTagName('buttonElementName');
 buttonElems[0].innerHTML = buttonElems[0].innerHTML + '<input id="greasemonkeyButton" type="button" value="Call Greasemonkey Function" />'
addButtonListener();
}
 
function addButtonListener(){
  var button = document.getElementById("greasemonkeyButton");
  button.addEventListener('click',doMonkey,true);
}
 
function doMonkey(){
	//do something
}

Sub ResizeImage(ByVal dir As String, ByVal fileName As String, ByVal percentResize As Double)
        'following code resizes picture to fit
 
        Dim bm As New Bitmap("C:\" & dir & "\" & fileName)
 
        Dim width As Integer = bm.Width - (bm.Width * percentResize) 'image width. 
 
        Dim height As Integer = bm.Height - (bm.Height * percentResize)  'image height
 
        Dim thumb As New Bitmap(width, height)
 
        Dim g As Graphics = Graphics.FromImage(thumb)
 
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
 
        g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width, _
bm.Height), GraphicsUnit.Pixel)
 
        g.Dispose()
 
        bm.Dispose()
 
        'image path.
        thumb.Save("C:\" & dir & "\" & fileName, _
System.Drawing.Imaging.ImageFormat.Jpeg) 'can use any image format 
 
        thumb.Dispose()
 
    End Sub