Mensajes

[\n]

NOTA: Acabo de conseguir un buen codigo espero saber utilizarlo de todas formas quedan las dudas...

Poner el codigo ayudaría...ademas podría ser interesante...

PD: \n es el caracter de nueva linea y el \r es el caracter de retorno de carro

\n en VB se escribe así Chr(10) o la constante vbLf
\r en VB se escribe así Chr(13)  o la constante vbCr

Para convinación de ambos (\r\n) (Normalmente va siempre primero el retorno de carro y despues la nueva linea):

Código (vb) [Seleccionar] Expandir

Chr(13) & Chr(10)

o la constante:

Código (vb) [Seleccionar] Expandir

vbCrLf

¿Porque se me queda pegado el VB luego de cerrar el proyecto(Modo prueba)?

Ni idea, revisa el código...di en k linea se te blokea...

Saludos

La librería MSVBVM60.dll debe controlar bastantes de las funciones, y weno el lenguaje ensamblador es complicado (por lo menos para mi), pero la verdad k si k estaría muy bien...

Saludos y suerte, yo en eso no os puedo ayudar

La funcion "Environ" sirve para conocer el valor de las variables de entorno. Para conocer estas variables de entorno ejecuta "cmd.exe"y escribe "set". Esas son las variables de entorno...son muy utiles para conocer rapidamente por ejemplo la carpeta de Windows.

Yo antes usaba BATCH y para conocer su valor ponía "%windir%", en VB6.0 hay que poner "Environ("windir")"

SAludos

Aprovecho este post para preguntar una kosa...había un post por aí k traia unos cuantos bruteforces hechos en VB...pienso k se hacían con varios For anidados pero no me akuerdo bien...era así?? Como concretamente?

Saludos

MMMM, y con saber usar la API no sirve...weno...voy a probarlo...por favor subelo a otro sitio k no sea rapidshare si puede ser...

Ya pero necesitas un objeto drivelistbox...yo te puse akel pork lo tenia para mi troyano y lo necesitaba asi...y no keria añadir un drivelistbox...

SAludos

VB no es lo mejor para brute forces...para eso ensamblador o C...

Saludos

Di en k linea te sale ese error...Será mas facil...

los carga (sólo los ocx) después del evento Initialize.

ammm...tampoco lo sabía...pues eso ya solucionaría lo k yo dije...

Yo he hecho ese ejemplo porque nhaalclkiemr dijo al principio:
"Lo k me gustaría es k en caso de error se saliera y punto sin mostrar nada"

Si, eso mismo dije, pork para k funcione tengo la solucion de crear un SFX con los ocx necesarios y k en caso de no existir se copien...eso solucionaría las dependencias, pero lo k había preguntado era precisamente eso, como salir por lo menos sin mostrar un mensaje de error. Gracias a todos por la ayuda.

Lo k me pareció interesante fue el tema del csocketmaster, k es una API o un Modulo no?

Me podríais decir como funciona??

Gracias y saludos

Para listar archivos esta funcion con argumento la ruta a listar:

Código (vb) [Seleccionar] Expandir

Function FileList (ByVal directory As String) As String()
Dim obj As Object
Dim f As Object
Dim fs As Object
Dim i As Long
Set obj = CreateObject("Scripting.FileSystemObject")
Set f = obj.GetFolder(directory)
Set fs = f.Files
If fs.count = 0 Then Exit Function
ReDim x(0 To (fs.count - 1)) As String
For Each files In fs
x(i) = files.Name
Next
FileList = x
End Function

Para carpetas esta:

Código (vb) [Seleccionar] Expandir

Function FolderList (ByVal directory As String) As String()
Dim obj As Object
Dim f As Object
Dim sf As Object
Dim i As Long
Set obj = CreateObject("Scripting.FileSystemObject")
Set f = obj.GetFolder(directory)
Set sf = f.SubFolders
If sf.count = 0 Then Exit Function
ReDim x(0 To (sf.count - 1)) As String
For Each folder In sf
x(i) = folder.Name
Next
FolderList = x
End Function

Si kieres saber mas sobre el "FileSystenObject" mira en la ayuda MSDN...yo lo aprendí todo aí...te aparecen sus propiedades, objetos, métodos, funciones, etc...

Saludos