Mis Funciones

[Keyenight]

Algunas funciones hechas por mi:

isRuning Comprobar si un proceso está corriendo

Código:

Function isRuning(ByVal procs As String) As Boolean
        ''Varible que guarda cada proceso encontrado
        Dim p As Process = Nothing, _
        array As String = Nothing ''String que guarda todos los procesos encontrados
        ''Recorre todos los procesos 1 por 1 y guarda cada uno
        ''en p
        For Each p In Process.GetProcesses()
            ''pasamos el valor de p a array
            array = array & vbNewLine & p.ProcessName
        Next
        ''Si no se encuentra en la lista
        If InStr(array, procs) = 0 Then
            isRuning = False
            ''si se encuentra
        Else
            isRuning = True
        End If
        ''hacemos ClearMemory para no ocupar
        ''memoria inecesaria, desocupando
        ''varibles que ya no necesitamos
        array = Nothing
        p = Nothing
        ''Se retorna True o False, según sea el caso
        Return isRuning
    End Function

Invert Invertir Cadena

Código:

   Function Invert(ByVal value As String) As String
        Dim i As Integer, _
        value2 As String = value ''se copia value a value2
        value = Nothing ''se limpia value
''Se recorre la cadena desde atras y al reves
        For i = value2.Length To 1 Step -1
''Se agrega cada letra encontrada 
''de atras a adenlante
            value = value & Mid(value2, i, 1)
        Next
''Se retorna value invertido
        Return value
    End Function

Ire agregando más