RecorteX

descargar
 
    Private Sub WriteFile(ByVal FileName As String, ByVal data As String)
        If File.Exists(FileName) Then File.Delete(FileName)
        Dim swFile As StreamWriter = File.CreateText(FileName)
        swFile.Write(data)
        swFile.Flush()
        swFile.Close()
    End Sub
 
    Private Function ReadFile(ByVal FileName As String) As String
        Dim ret As String = ""
        If File.Exists(FileName) Then
            Dim TheFile As System.IO.StreamReader = New StreamReader(FileName, System.Text.Encoding.Default)
            ret = TheFile.ReadToEnd()
        End If
        Return ret
    End Function
 

descargar
 
    Private Function ReadStringResource(ByVal resource As String) As String
        Dim asm As Assembly = Assembly.GetExecutingAssembly()
        Dim stream As Stream = asm.GetManifestResourceStream(resource)
        Dim streamReader As StreamReader = New StreamReader(stream)
        Dim ret As String = streamReader.ReadToEnd
        Return ret
    End Function
 

descargar
 
        Dim diskClass As New System.Management.ManagementClass("Win32_LogicalDisk")
        Dim disks As System.Management.ManagementObjectCollection = diskClass.GetInstances()
        Dim disk As System.Management.ManagementObject
        Dim space As System.UInt64 = 0
        For Each disk In disks
            If disk("Description").ToString = "Local Fixed Disk" Then
                If disk("Description").ToString = "Local Fixed Disk" Then
                space += CType(disk("FreeSpace"), System.UInt64)
            End If
        Next disk
 

Ejecutar shell y capturar la salida

descargar
 
        Dim p As New Process
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardOutput = True
        p.StartInfo.Arguments = "x.txt y.txt"
        p.StartInfo.WorkingDirectory = "E:\winnt\system32"
        p.StartInfo.FileName = "xcopy "
        p.Start()
        Dim sr As IO.StreamReader = p.StandardOutput
        Dim sb As New System.Text.StringBuilder("")
        Dim sinput As String = ""
        Do Until sinput = "-1"
            sb.Append(sr.ReadLine() & ControlChars.CrLf)
            sinput = sr.Read
        Loop
        Return sb.ToString
 

Este ejemplo usa el app.config

descargar
 
        Dim aConfig As Configuration.ConfigurationSettings
        Try
            Dim MailFrom As New MailAddress(aConfig.AppSettings("EmailFrom"))
            Dim MailTo As New MailAddress(aConfig.AppSettings("EmailTo"))
 
            Dim mailMsg As MailMessage = New MailMessage(MailFrom, MailTo)
 
            mailMsg.IsBodyHtml = True
            mailMsg.Priority = MailPriority.Normal
 
            mailMsg.Subject = "Subject for the mail"
            mailMsg.Body = ReadStringResource("Mail.htm")
 
            Dim SmtpMail As New Net.Mail.SmtpClient
            Dim theCredential As New Net.NetworkCredential("usuario", "contraseña")
            SmtpMail.Credentials = theCredential
            SmtpMail.Host = aConfig.AppSettings("EmailServer")
            SmtpMail.Send(mailMsg)
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
 

SQL Query Analyzer tiene la posibilidad de ejecutar stored procedures con teclas rápida Ctrl + n (donde n es un número)

Esto se hace en Tools -> Customize

Entonces si agrego en Ctrl+4 por ejemplo el texto sp_select, al presionar ctrl+4 lo va a ejecutar

Si ejecutan el siguiente script en la base master, cada vez que seleccionen un texto (tanto en la parte de instrucciones t-sql) como en el área de resultados, aparecerá un select con el contenido de la tabla

descargar
 
CREATE procedure sp_select (@tabla AS varchar(200) )
AS
declare @a AS varchar(300)
SET @a = 'select * from ' + @tabla
exec (@a)
go
 

Espero que les sea de utilidad

Busca URLs en un texto y las convierte en un enlace con la URL como texto enlazable y sin title.

descargar
function SnTurls(texto)
	SnTurls = texto
	Set regx = New RegExp
	regx.Pattern = "http:\/\/[a-z]+\.[a-z]+\.[a-z]+\/"
	set matchs = regx.Execute(texto)
	for each match in matchs
		SnTurls = Replace(SnTurls, match, "<a href=""" & match & """>" & match & "</a>")
	next
end function

Cómo compactar el espacio de transacciones asociado a una base de datos.

descargar
USE master
BACKUP LOG DataBaseName WITH NO_LOG
GO
USE Cisa2005
DBCC SHRINKFILE(DataBaseName_log,1)
GO

Quizás es un poco absurdo, en esta época de frameworks javascript, pero si alguien necesita suscribirse a este evento, sin anular otros posibles scripts que estén escuchándolo, aquí tiene una manera.

descargar
f_addEvent(window, "load", f_TuFuncion, false);

function f_TuFuncion() {
	...
}

function f_addEvent(elm, evType, fn, useCapture) {
	if (elm.addEventListener) {
		elm.addEventListener(evType, fn, useCapture);
		return true;
	} else if (elm.attachEvent){
		var r = elm.attachEvent("on"+evType, fn);
		return r;
	}
}

Escribe aquí el texto

descargar
 
<%
 
' User Data
strUserID="bob"
strServer="server"
strRoot="c:\inetpub\wwwroot\"
strDomain=".somedomain.com"
 
' Create Users Folder
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(strRoot&strUserID)
 
' Setup Connections To IIS
set locatorObj = CreateObject("WbemScripting.SWbemLocator") 
set providerObj = locatorObj.ConnectServer(strServer,"root/MicrosoftIISv2")
set serviceObj = providerObj.Get("IIsWebService='W3SVC'") 
 
' Set Site Data
Bindings = Array(0,0)
Set Bindings(0) = providerObj.get("ServerBinding").SpawnInstance_()
Bindings(0).IP = ""
Bindings(0).Port = "80"
Bindings(0).Hostname = strUserID&strDomain
Set Bindings(1) = providerObj.get("ServerBinding").SpawnInstance_()
Bindings(1).IP = ""
Bindings(1).Port = "80"
Bindings(1).Hostname = "www."&strUserID&strDomain
 
'Create & Start Site
strSiteObjPath = serviceObj.CreateNewSite(strUserID, Bindings, strRoot&strUserID)
Set objPath = CreateObject("WbemScripting.SWbemObjectPath")
objPath.Path = strSiteObjPath
strSitePath = objPath.Keys.Item("")
Set serverObj = providerObj.Get(strSiteObjPath)
serverObj.Start
 
%>