Mensajes

[Sangriento Infierno Lunar!¡.]

error es asi

Código (vb) [Seleccionar] Expandir



On Error Resume Next
Dim Res         As Long
   Res = Shell("cmd.exe /c fsutil file createnew ""C:\archivo2GB.dat"" 2147483648", vbHide)
   If Res Then
       Call MsgBox("Todo Correcto")
   Else
       Call MsgBox("Error en Comando")
   End If



Le he metido un poco de mi ser!¡.

Sangriento Infierno Lunar!¡.

PASO 1
PASO 2

xD!¡.

[USA GOOOOGLE!¡.]

.
Nada mas por qué en un tiempo te hable.... USA GOOOOGLE!¡.

Holi Holas, estaba trabajando en este proyecto y esta bastante decente en este punto asi lo posteo para el que le interese. Es un wrapper para SQLIte3 hecho enteramente en VB6.

http://www.vbsqlite.com.ar/

Dulces Lunas!¡.

[@DarkMatrix]

@DarkMatrix

http://www.recursosvisualbasic.com.ar/htm/tutoriales/modulos-de-clase-menu.htm

Mas o menos es esto lo que quieres o me equivoco?!¡...

Código (vb) [Seleccionar] Expandir



Function Funcion2()
   Debug.Print "Empezo la funcion 2"
   Do
       WaitMessage
       DoEvents
   Loop Until Variable = 2 Or Variable = 1
   Debug.Print "Acabo la funcion 2 "
End Function



Aun qué si tienes muchas funciones de este tipo, es mejor hacerlo en un modulo de clase y sacarle en la sección qué desees un evento, así se ejecutaría un Código X determinado y se vería mejor ordenado!¡.


@Drinky94

CreateRemoteThread

Para qué querría tener un proceso remoto teniendo el código fuente a manipular?!¡...


Sangriento Infierno Lunar!¡.

Me huele a qué necesitas Hilos!¡, No es recomendable pero siendo tu caso seria con Hilos !¡.
CreateTheard!¡

Aun que la alternativa en VB6 es CreateWindowEx si no recuerdo y Sub-Clasificar la ventana creada y asi crear un hilo, pero bueno!¡.

Pero bueno sacando los hilos del tema, te vendría bien poner tu función en un Modulo de Clase si no me equivoco al respecto!¡.

Dulces Lunas!¡.

Antes que nada Tabula Tu Código es ILEGIBLE, no se puede detectar ningún error así, es como estar leyendo Chino!¡.

solo pasa la variable del array por el senddata!¡

Ejemplo:

Código (vb) [Seleccionar] Expandir



Dim vData() As Byte
Dim ff As Integer
Const OuputFile As String = "e:\aaaa.jpg"

   Winsock1.GetData vData
   
   ff = FreeFile
   Open OuputFile For Binary As ff
       Put ff, LOF(ff) + 1, vData
   Close ff



En el servidor te recomiendo de igual manera recoger los datos con un array tipo byte solo pasa la variable en el getdata y grábalo en el archivo eso seria todo!¡.


Sangriento Infierno Lunar!¡.

en un evento DataArrival

Código (vb) [Seleccionar] Expandir



Dim vData() As Byte
Dim ff As Integer
Const OuputFile As String = "e:\aaaa.jpg"

   Winsock1.GetData vData
   
   ff = FreeFile
   Open OuputFile For Binary As ff
       Put ff, LOF(ff) + 1, vData
   Close ff



Es lo ultimo qué pongo aquí...

Dulces Lunas!¡.

solo pasa la variable del array por el senddata!¡

Ejemplo:

Código (vb) [Seleccionar] Expandir



Dim ff                                  As Integer
Dim vData()                             As Byte
Dim file                                As String
   file="c:\aaa.exe"
   If Dir(file, vbArchive) <> "" Then
       ff = FreeFile
       Open file For Binary Access Read As ff
           ReDim vData(LOF(ff) - 1) ' // el 0 es contable por ello se resta -1
           Get ff, , vData
       Close ff
       S_Main_Out(index).SendData vData
   Else
       '   //  Log Errores
   End If



En el servidor te recomiendo de igual manera recoger los datos con un array tipo byte solo pasa la variable en el getdata y grabalo en el archivo eso seria todo!¡.


Sangriento Infienro Lunar!¡.

[@MicroSoft:]

.
Me imagino esto...

@MicroSoft:
   Como pasarías un día inolvidable con tu PC...
@Un Wey:
   De pelos terminaríamos usando el puerto Universal y 3 MiniLaptops...
@MicroSoft:
   O.o? xD!¡. Contratado...

[@karmany]

@karmany

Se debe hacer una SubClasificacion el Form y cancelar cualquier mensaje qué tenga qué ver con re-dimensionar un FORM así evitas cualquier SendMessage eterno, por ejemplo!¡

@Elemental Code
On Error Resume Next!¡.

P.D.: No desvíen el tema!¡.

Dulces Lunas!¡.

GRacias por responder   pero sigo con el problema, al pasar el archivo, se queda dañado o algo parecido y al ejecutarlo sale la tipica cmd que intenta ejecutar algo pero que no ejecuta nada   La verdad es que en transferencia de archivos no tengo mucha esperiencia que se diga...   pero no sera que no se puede leer como un archivo binario? al ser exe no se si eso influye... De todas formas gracias por el code, es mas pequeño que el mio y esta mas claro

Intenta usar en lugar de String un Array Byte(), también usa un protocolo de transferencia, habitualmente de forma local es muy rápida la transferencia por lo cual se corta el archivo, pero son en casos Raros... intenta de igual manera no estar abriendo y cerrando tanto el archivo, déjalo abierto y cuando termine de resivir el archivo lo cierras !¡.

P.D.: Un carácter en un String = 2 bytes  1 carácter en un ArrayBye = 1 Byte xP (Lógica), ya qué el array es consecutivo y sin separador!¡, en el string es todo lo contrario!¡..

Sangriento Infierno Lunar!¡.