software2
formatear disquettes desde el Escritorio
Hay un proceso mucho más rápido y sencillo para formatear disquetes sin tener que ir hasta Mi PC y seguir todos los pasos habituales. Lo primero que tenemos que hacer es crear un nuevo acceso directo, en el Escritorio, por ejemplo. Para ello, hacemos clic con el botón derecho del mouse sobre el escritorio, seleccionamos en el menú la opción [Nuevo] [Acceso directo]. A continuación, nos va a pedir una línea de comandos, allí escribimos lo siguiente: rundll32 shell32.SHFormatDrive y le damos un nombre al acceso directo, que por supuesto será Formatear disquete.
Así, cada vez que precisamos formatear un disquete, podemos hacerlo con un sólo clic sobre el acceso directo que acabamos de crear.
VB6 - Matar un proceso
Aquí os adjunto el código para matar un proceso de la memoria. Deberéis pegarlo en un módulo, y la llamada se realiza mediante KillProcess("proceso.exe"). Si hay varios procesos del mismo nombre, se los carga a todos.
Espero os sirva de ayuda.
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices
servicename = LCase(Trim(CStr(oService.Name) & ""))
If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If
Next
Set oServices = Nothing
Set oWMI = Nothing
ErrHandler:
Err.Clear
End Sub
- - - - - - - - - - - - - - - - - - - - - - - -
MSOffice Word tiene su Código ASCII
Si estas trabajando en Word, y requieres un Símbolo en especifico, lo puedes tener sin Buscar el famoso codigo ASCII, Por si no lo tienes a la mano, esto te puede ayudar, en la parte de arriba donde dice, ARCHIVO, EDICION, VER, INSERTAR.... Vas a donde dice INSERTAR, despues donde dice SíMBOLO, Al darle Click ahi, estaras viendo muchos Simbolos, y ahi podras encontrar el que desees colocar en tu escrito
Encripta/Desencriptar cadenas (Visual Basic)
Las siguientes funciones les van a servir para Encriptar y Desencriptar cadenas de caracteres con una Password.
Rem Encripta una cadena de caracteres.
Rem S = Cadena a encriptar
Rem P = Password
Function EncryptStr(ByVal S As String, ByVal P As String) As String
Dim I As Integer, R As String
Dim C1 As Integer, C2 As Integer
R = ""
If Len(P) > 0 Then
For I = 1 To Len(S)
C1 = Asc(Mid(S, I, 1))
If I > Len(P) Then
C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))
Else
C2 = Asc(Mid(P, I, 1))
End If
C1 = C1 + C2 + 64
If C1 > 255 Then C1 = C1 - 256
R = R + Chr(C1)
Next I
Else
R = S
End If
EncryptStr = R
End Function
Rem Desencripta una cadena de caracteres.
Rem S = Cadena a desencriptar
Rem P = Password
Function UnEncryptStr(ByVal S As String, ByVal P As String) As String
Dim I As Integer, R As String
Dim C1 As Integer, C2 As Integer
R = ""
If Len(P) > 0 Then
For I = 1 To Len(S)
C1 = Asc(Mid(S, I, 1))
If I > Len(P) Then
C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))
Else
C2 = Asc(Mid(P, I, 1))
End If
C1 = C1 - C2 - 64
If Sgn(C1)=-1 Then C1 = 256 + C1
R = R + Chr(C1)
Next I
Else
R = S
End If
UnEncryptStr = R
End Function
Saludos 
Conversión numérica (Visual Basic) Las siguientes funciones les van a servir para realizar conversiones numéricas de Decimal a una base cualquiera y viceversa.
Const NumChars = "0123456789ABCDEF"
Rem Transforma un número en decimal
Rem S = Número (cualquier base)
Rem NumBase = Número de la Base
Rem 2=Binario, 8=Octal, 10=Decimal, 16=Hexadecimal
Rem Si hay un error, retorna -1.
Function ToDec(ByVal S As String, ByVal NumBase As Integer) As Long
Dim R As Long, I As Integer, P As Integer
R = -1
S = UCase(S)
If (NumBase = 2) Or (NumBase = 
Or (NumBase = 10) Or (NumBase = 16) Then
R = 0
For I = 1 To Len(S)
P = InStr(NumChars, Mid(S, I, 1))
If (P = 0) Or (P > NumBase) Then
R = -1
Exit For
End If
R = R + (P - 1) * (NumBase ^ (Len(S) - I))
Next I
End If
ToDec = R
End Function
Rem Transforma un número decimal en otras bases
Rem N = Número a convertir
Rem NumBase = Número de la Base
Rem 2=Binario, 8=Octal, 10=Decimal, 16=Hexadecimal
Rem Si hay un error, retorna una cadena vacía.
Function FromDec(ByVal N As Long, ByVal NumBase As Integer) As String
Dim S As String
S = ""
If ((NumBase = 2) Or (NumBase = Or (NumBase = 10) Or (NumBase = 16)) And (N >= 0) Then
Do
S = Mid(NumChars, (N Mod NumBase) + 1, 1) + S
N = Fix(N / NumBase)
Loop Until (N = 0)
End If
FromDec = S
End Function
Rem Convierte de Cualquier base a cualquier base.
Rem N = Núero a convertir
Rem fromBase = Base de origen (2, 8, 10, 16)
Rem toBase = base destino (2, 8, 10, 16)
Function Convert(ByVal N As String, ByVal fromBase As Integer, ToBase As Integer) As String
Dim Nm As Long, S As String
Nm = ToDec(N, fromBase)
If (Nm = -1) Then
S = ""
Else
S = FromDec(Nm, ToBase)
End If
Convert = S
End Function
Espero les sea de utilidad. Saludos
Abrir/Cerrar lector de CD (Visual Basic)
Si necesitan rutinas para manipular la Bandeja de CD, aquí va el código:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Rem Abre/Cierra la bandeja de CD.
Rem Si ST = FALSE, cierra la bandeja.
Rem Si ST = TRUE, abre la bandeja.
Sub OpenCD(ByVal St As Boolean)
Dim Ret As Integer, ReturnString As String, Aux As String
If St Then
Aux = "open"
Else
Aux = "closed"
End If
Ret = mciSendString("set CDAudio door " + Aux, ReturnString, 127, 0)
End Sub
Espero que les sea de gran utilidad. Saludos;-)
Expresar bytes en otras unidades (Visual Basic).
Esta función sirve para expresar bytes en otras unidades (Kilobytes, Megabytes, etc.), de modo que la cantidad a manejar se reduzca
Function ConvBytes(ByVal Bytes#) As String
Dim Nm(0 To 4) As String, L As Integer
Dim S As String
Nm(0) = "Bytes"
Nm(1) = "Kilobytes"
Nm(2) = "Megabytes"
Nm(3) = "Gigabytes"
Nm(4) = "Terabytes"
L = 0
While (Fix(Bytes / 1024#) > 0) And (L < 4)
L = L + 1
Bytes = Bytes / 1024#
Wend
S = LTrim(Str(Bytes))
If InStr(1, S, ".") > 0 Then S = Left(S, InStr(1, S, ".") + 2)
ConvBytes = S + " " + Nm(L)
End Function