Indetectables

Bueno Practicando un poco sobre cadenas Bstr traduje unas funciones alternativas. usando msvbvm60.dll.

;FileLen ;largo archivo
;msgbox(0,"",Filelen("C:\Documents and Settings\Dark\Escritorio\Beer.exe"))

Func Filelen($ruta)
Local $tBSTR=DllStructCreate("long;wchar[" & stringlen($ruta) & "];char[2]")
If not FileExists($ruta) then Return
DllStructSetData($tBSTR,1,stringlen($ruta))
DllStructSetData($tBSTR,2,$ruta)
Local $dll=DllCall("msvbvm60.dll","long","rtcFileLen","ptr",DllStructGetPtr($tBSTR,2))
Return $dll[0]
EndFunc


;String reverse
;MsgBox(0,"",StrReverse("Hola Mundo"))

Func StrReverse($Cadena)
Local $tBSTR=DllStructCreate("long;wchar[" & stringlen($Cadena) & "];char[2]")
DllStructSetData($tBSTR,1,stringlen($Cadena)*2)
DllStructSetData($tBSTR,2,$Cadena)
Local $dll=DllCall("msvbvm60.dll","wstr","rtcStrReverse","ptr",DllStructGetPtr($tBSTR,2))
Return $dll[0]
EndFunc

Creo que el creador de las funciones en vb6 es hamavb. así que todos los créditos para el creador.


Saludos

Buena traduccion compadre , me gusta , gracias

Gracias bro ;)

LPM me equivoque de sección. alguien que lo mueva please.

te quedo de lujo maquina no se autoit pero el code se ve de lujo, saludos bro

hehehe buenisimo Pink

Salud!