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

 
Imports System
Imports System.IO
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
 
 
Partial Class FlexUpload
    Inherits System.Web.UI.Page
 
    Private filePath As String
    Private fileStream As FileStream
    Private streamWriter As StreamWriter
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim fileName As String
        Dim dir As String = Request.QueryString("dir")
 
        Dim saveToFolder As String = "C:\" & dir & "\"
 
        If File.Exists(saveToFolder) Then
            File.Delete(saveToFolder)
        End If
 
        If Directory.Exists(saveToFolder) Then
            ' do nothing directory exist
        Else
            Directory.CreateDirectory(saveToFolder)
        End If
 
        Try
            Dim i As Integer
 
            For i = 0 To Request.Files.Count - 1
                fileName = System.IO.Path.GetFileName(Request.Files(i).FileName)
                Request.Files(i).SaveAs(saveToFolder & fileName)
            Next
 
        Catch ex As Exception
            WriteLog("Error :" & DateTime.Now & " " & ex.Message)
        End Try
 
    End Sub
 
    ' Error Logging Functions 
     Public Sub OpenFile()
        Dim strPath As String
        strPath = MapPath("~") & "\Error.log"
        If System.IO.File.Exists(strPath) Then
            fileStream = New FileStream(strPath, FileMode.Append, FileAccess.Write)
        Else
            fileStream = New FileStream(strPath, FileMode.Create, FileAccess.Write)
        End If
        StreamWriter = New StreamWriter(fileStream)
    End Sub
 
    Public Sub WriteLog(ByVal strComments As String)
        OpenFile()
        StreamWriter.WriteLine(strComments)
        CloseFile()
    End Sub
 
    Public Sub CloseFile()
        StreamWriter.Close()
        fileStream.Close()
    End Sub
 
End Class

 
[Embed(source="collada.dae", mimeType="application/octet-stream")]
private var Model3D:Class;
var byteArray:ByteArray = new Model3D();
var collada:DAE = new DAE();
collada.load(byteArray, material);
scene.addChild(collada);

    Imports System
    Imports System.IO
    Imports System.Data
 
    Private filePath As String
    Private fileStream As FileStream
    Private streamWriter As StreamWriter
 
    Public Sub OpenFile()
        Dim strPath As String
        strPath = MapPath("~") & "\Error.log"
        If System.IO.File.Exists(strPath) Then
            fileStream = New FileStream(strPath, FileMode.Append, FileAccess.Write)
        Else
            fileStream = New FileStream(strPath, FileMode.Create, FileAccess.Write)
        End If
        StreamWriter = New StreamWriter(fileStream)
    End Sub
 
    Public Sub WriteLog(ByVal strComments As String)
        OpenFile()
        StreamWriter.WriteLine(strComments)
        CloseFile()
    End Sub
 
    Public Sub CloseFile()
        StreamWriter.Close()
        fileStream.Close()
    End Sub

    Try
    'Do something
 
    Catch ex As Exception
        WriteLog("Error :" & Date.Today.ToString & " " & ex.Message)
    End Try