Mensajes

bajate controles de usuario para vb, ay una tacada por ahi, y muchos de ells les puedes personalizar con tus imagenes...

Salu2

lo de infectar aun archivo y k al ejecutarlo se cargue primer otu archivo y despues el otro es sencillo, pero lo de el icono no tengo ni idea, creo k no se puede, en todo caso tensras k sacar el icono al arvhico y ponersele al tuyo.

yo no quiero k el programa espere x segundos, lo k quiero es k espere a k el cliente le mande una respuesta y si pasan 5 segundos y no ha recibido nada pues k cancele el envio.

Salu2

Rey EOF es el principio del archivo, LOF el final.

Código [Seleccionar] Expandir


Dim Tamaño as string

open "C:\lala.exe" for binary as #1
Tamaño = Space$(LOF(1))
get #1,,Tamaño
CLose #1



Te vale ?

Salu2

Hola, estoy acabando un programa para el envio de archivos y cada vez que envia una parte de archivo espera a que el servidor lo haya recibido para que manda la segunda.

Este es el codigo que he hecho para que espere:

Código [Seleccionar] Expandir


Sub Spera()
Dim snTime As Integer
snTime = Timer
While Response = True
DoEvents
If Timer - snTime > 5 Then
MsgBox "Tiempo agotado"
Agotado = True
Exit Sub
End If
Wend
End Sub


Este codigo lee el archivo, y lo manda por trozos esperando en cada trozo.

Código [Seleccionar] Expandir


Dim Buffer as string * 1024
Do While Not EOF(1) 'mientras no lleguemos al final
  If Agotado = True Then Exit Sub ' si se acaba el tiempo salir
  Get #1, , Buffer
  Form_archivos.Winsock_file.SendData Buffer
  DoEvents
  Response = False
  Call Spera
Loop 'hasta k terminemos


Este codigo en el server envia NEXT para que envie la siguiente parte:

Código [Seleccionar] Expandir


Private Sub Winsock_file_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock_file.GetData datos
Put #1, , datos
DoEvents
Winsock_server.SendData "NEXT" 'cuando tiene que enviar esto no lo hace bien, no se si lo manda o no lo manda, creo k no
End Sub


en el data arribal del cliente compruebla si a llegado y tiene k mandar la siguiente

Código [Seleccionar] Expandir


Private Sub Winsock_menu_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim mensaje As String
Winsock_menu(Selecion).GetData mensaje
if mensaje = "NEXT" then
Response = True
end if
end sub


Alguien podria provar el code y decir donde da error, a mi no me da ningun error, pero no hace lo k tendria k acer, creo k el server no manda el NEXT y el cliente no espera, lo manda todo seguido...No se

Ayuda please

Salu2

PD: Polux, me gustaria k le echaras una ojeada a este post si no es mucha molestia 
http://foro.elhacker.net/index.php/topic,90656.0.html

tenes razon, pero lo que yo digo es que el lenguage, "basic" si sabes programar en vb tamben sabes en gambas...

Salu2

Hay compiladores de basic mu parecidos o = a vb que permiten compilar para linux

Ej: Gambas

Salu2

no dices k los maximos datos k te deja cargar en el string son 65000?

Salu2

mostrarlas en el combo es muy facil, lo otro lo veo mas dificil

Salu2

pues en la web de uno de el foro tenes un programa echo por el que si no me equivoco se llamaba cs msn

Salu2