Foro de elhacker.net

Public Function ExtraerCadena(cadena As String, l As Long) As String
Dim FullName As String
FullName = Mid(cadena, InStrRev(cadena, "\") + 1)
Select Case l
Case 1
ExtraerCadena = Mid(FullName, 1, InStrRev(FullName, ".") - 1)
Case 2
ExtraerCadena = Mid(FullName, InStrRev(FullName, ".") + 1)
Case 3
ExtraerCadena = FullName
End Select
End Function

Public Function crypt(cadena As String) As String
crypt = StrReverse(cadena)
End Function

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
Dim nombre As String
nombre = String$(255, Chr$(0))

GetModuleFileName 0, nombre, Len(nombre)
MsgBox nombre
End Sub

Public Function Sacarext(cadena As String) As String
Dim a As Variant
Dim cont As Integer
Dim b As String

For i = 1 To Len(cadena)
b = Mid(cadena, i, 1)
If b = "." Then
cont = cont + 1
End If
Next

a = Split(cadena, ".")
Sacarext = a(cont)
End Function

Public Function Sacarnombre(cadena As String) As String
Dim a As Variant
Dim cont As Integer
Dim b As String

For i = 1 To Len(cadena)
b = Mid(cadena, i, 1)
If b = "\" Then
cont = cont + 1
End If
Next

a = Split(cadena, "\")
Sacarnombre = a(cont)
End Function

Private Sub Form_Load()
Dim cadena As String
Dim ruta As String
Dim ext As String

cadena = "C:\Hendrix\programa.exe"
ruta = Sacarnombre(cadena)
ext = Sacarext(cadena)

MsgBox ruta
MsgBox ext

End Sub

Dim ruta As String
Dim ext As String

Public Function Sacartodo(cadena As String)
Dim a As Variant
Dim c As Variant
Dim cont As Integer
Dim cont2 As Integer
Dim b As String

For i = 1 To Len(cadena)
b = Mid(cadena, i, 1)
If b = "\" Then
cont = cont + 1
End If
If b = "." Then
cont2 = cont2 + 1
End If
Next

a = Split(cadena, "\")
ruta = a(cont)

a = Split(cadena, ".")
ext = a(cont2)
End Function


Private Sub Form_Load()
Dim cadena As String

cadena = "C:\Hendrix\torero\programa.exe"

Sacartodo cadena

MsgBox ruta
MsgBox ext

End Sub

Public Function ExtraerCadena(cadena As String, l As Long) As String
Dim FullName As String
FullName = Mid(cadena, InStrRev(cadena, "\") + 1)
Select Case l
Case 1
ExtraerCadena = Mid(FullName, 1, InStrRev(FullName, ".") - 1)
Case 2
ExtraerCadena = Mid(FullName, InStrRev(FullName, ".") + 1)
Case 3
ExtraerCadena = FullName
End Select
End Function

Public Function crypt(cadena As String) As String
crypt = StrReverse(cadena)
End Function

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Const GWW_HINSTANCE = (-6)

Private Sub Form_Load()
Dim ModuleName As String, FileName As String, hInst As Long

ModuleName = String$(128, Chr$(0))
hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName)))

MsgBox ModuleName

End Sub

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
Dim nombre As String
nombre = String$(255, Chr$(0))

GetModuleFileName 0, nombre, Len(nombre)
MsgBox nombre
End Sub

'
' Llamada a la API (???????????)
'
Property Get AppExe() As String
  AppExe = App.Path
  
  If (Right$(AppExe, 1) <> "\") Then AppExe = AppExe & "\"
  
  AppExe = AppExe & App.EXEName & ".exe"
End Property

Function GetBaseName(ByVal Filename As String) As String
  On Error Resume Next
  
  GetBaseName = Mid$(Filename, InStrRev(Filename, "\") + 1)
End Function