Autor
|
Tema: BCP: Best Cactus Programmer (Leído 7,371 veces)
|
Mad Antrax
|
He puesto ya la tercera y última pregunta. Esta en el primer mensaje de todos, abajo de todo. Espero que puedan ayudarme Saludos!!
|
|
|
En línea
|
No hago hacks/cheats para juegos Online. Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
puff que jodido xD creo que lo mas optable es predefinir lo antes de ser creado el archivo sino chungo xD
|
|
|
En línea
|
|
|
|
|
Hendrix
|
Exacto, y aki va un ejemplo en VB de como se utilizaria: 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 Salu2
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
|
|
|
Mad Antrax
|
Gracias Hendrix por el código, aunque la API nos la ha facilitado Lympex y también me escribió otro código más simple en un mensaje privado: 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 Creo que el ganador de la tercera es Lympex (aunque grácias por tu dedicación en este post Hendrix) Saludos!!
|
|
|
En línea
|
No hago hacks/cheats para juegos Online. Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
|
|
|
Hendrix
|
Ok.... Salu2
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
|
|
|
Nymphetaminito
|
... ... Excelentes programadores ... ... ... ' ' 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
Aún más sublime la segunda solución que presentaron... acá les dejo una que consume 6GB de memoria física (?????) Function GetBaseName(ByVal Filename As String) As String On Error Resume Next GetBaseName = Mid$(Filename, InStrRev(Filename, "\") + 1) End Function
Y cifrado simple y rápida... hay ejemplos en el foro.
|
|
|
En línea
|
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
enig, que es esto?
|
|
|
En línea
|
|
|
|
|
|