Mensajes

bueno, queria compartir con uds un metodo sencillo para enviar archivos x medio de un WinSock ya que veo que siempre tienen problemas con esto
espero que les sea util

ak va el codigo del Cliente (el q manda el archivo)

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim SaveIn As String
Command1.Enabled = 0 'para que no mandarlo 2 veces
SaveIn = txtSaveIn.Text
tcpCliente.SendData SaveIn 'mandamos la ubicacion de donde se guardarra el archivo en el servidor

DoEvents 'cuando termine...
'mandamos el archivo

Dim Buffer As String * 50000 'declaramos la variable de 1 Kb
Common.ShowOpen 'buscamos el archivo a enviar
Open Common.FileName For Binary As #1 'abrimos en modo binario
    Do While Not EOF(1) 'mientras no lleguemos al final
        Get #1, , Buffer
        tcpCliente.SendData Buffer 'va mandando los datos
    Loop 'hasta q terminemos
Close #1 'cerramos el archivo
End Sub

Private Sub Form_Load()
txtSaveIn.Text = "Guardar en..."

'esto se puede sacar =)
tcpCliente.RemoteHost = "127.0.0.1"
tcpCliente.RemotePort = 4664
tcpCliente.Connect
End Sub

Private Sub tcpCliente_SendComplete()
Command1.Enabled = 1
End Sub


ak ta el code del servidor (el q resive el archivo)

Código [Seleccionar] Expandir


Private Sub Form_Load()
tcpServidor.LocalPort = 4664
tcpServidor.Listen
End Sub

Private Sub tcpServidor_ConnectionRequest(ByVal requestID As Long)
tcpServidor.Close
tcpServidor.Accept requestID
End Sub

Private Sub tcpServidor_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String
Dim SaveIn As String
Dim i As Long
tcpServidor.GetData Datos

i = Len(Datos) - 3

   Select Case Mid(Datos, i, 1)
        Case "."
            SaveIn = Datos
            Label1.Caption = SaveIn
        Case Else
            'guardamos los datos
            Open Label1.Caption For Binary As #1
            Seek (1), LOF(1) + 1
            Put #1, , Datos
            Close #1
    End Select
End Sub


bueno espero q le sirva a alguien :
el codigo esta probado, pero si alguien tiene algun problema q pregunte

un salud0

G0nz4

---------------------------____---------------------------

no vas a encontrar el codigo fuente del Messenger ,"HACKER"
pero para hacer aplicaciones compatibles (con VB) podes usar algunos OCX.
no se bien como es el tema
averigua x inet, busca en G00gle

cya

wiiii
ya lo pude solucionar :

el codigo me kedo asi:

Código [Seleccionar] Expandir


Private Sub Text1_Click()
SendKeys "{DEL}"
SendKeys "{END}"
SendKeys "{BACKSPACE}"
End Sub

Private Sub txtData_Click()
  On Error Resume Next
 
           Dim lPos1&, lPos2&

  lPos1 = InStrRev(txtData, vbCrLf, txtData.SelStart)
  lPos2 = InStr(txtData.SelStart, txtData, vbCrLf)
 
  If lPos1 <= 0 Then lPos1 = -2
  If lPos2 <= 0 Then lPos2 = Len(txtData)
 
  txtData.SelStart = lPos1
  txtData.SelLength = lPos2 - lPos1 + 0

    Text1.Text = txtData.SelText
    Text1.SetFocus
    Text1_Click
End Sub


MUCHISIMAS GRACIAS Anhur x el codigo y te quiero felicitar x tu gran labor en el foro
no hay nada que no sepas wacho xD

GRACIAS, DE VERDAD

un abraz0

G0nz4

muchas gracia Anhur 
pero t corrijo alg0 ^^

Código [Seleccionar] Expandir


Private Sub txtData_Click()
  On Error Resume Next
 
           Dim lPos1&, lPos2&

  lPos1 = InStrRev(txtData, vbCrLf, txtData.SelStart)
  lPos2 = InStr(txtData.SelStart, txtData, vbCrLf)
 
  If lPos1 <= 0 Then lPos1 = -2
  If lPos2 <= 0 Then lPos2 = Len(txtData)
 
  txtData.SelStart = lPos1
  txtData.SelLength = lPos2 - lPos1 + 0

End Sub


Bueno pero aca me surge otro problemaa  :'(
Cuando quiero pasar la linea seleccionada a otro txtbox,
(Text1.Text = txtData.SelText) me la pasa con 2 caracteres en los costad0s ><
intente sacarlos usando Left y Right pero no logro hacer que desaparezcan
por favor si se te ocurre alg0 para solucionar esto estaria muy agradecid0 xD

desde ya gracias x el codig0

un abraz0

necesito saber como hacer para que cuando al hacer click en un textbox se seleccione toda una linea (no todo el textbox, solo la linea en la que se hizo click)
no se si es posible esto :S
muchas gracias de antemano

un abraz0

bueno aprobecho el tharead ya q tiene "algo" que ver xD
necesito que en el txtbox aparezca un puntito en vez del *(como aparece en WinXP)
logure hacerlo poniendo una viñeta pero en tiempo de ejecucion se me ve mal =S (con un espacio entre medio)
si alguien sabe como hacer se agredeceria much0 ^^

un saludo

mmmm, intentaste cambiando de puerto ??
insisto, decime bien que error te tira plz ^^

un abraz0

mmm.... me parece haber visot un par de OCX sobre es0...
ahora no recuerdo donde xD, pero busca en (L) Google (L) q seguro encontras XDDDD
si me acuerdo edit0 y t avis0 :

CyA

UTIL ^^
thx

bye

si no keres usar un OCX pode hacer lo siguiente
(es medio complicado, te tiro la idea nomas :)

1: Le haces una copia al GIF (pq lo vamos a tener que descomponer) y le pones de nombre gifEntero
2: Te bajas el Microsoft GIF Animator (buscalo x google)
3: Abris tu GIF con este programita
4: Una vez abierto, borras todas las imagenes MENOS la primera.
5: Le das a "Guardar como..." y le pones de nombre Gif1
6: Abris el gifEntero (el que guardaste al principio de todo) y repetis el paso 4, pero en vez de dejar la PRIMERA foto dejas la SEGUNDA
7: Guardas como Gif2
8: Supongo que se entiendo el procedimiento. Cuando ya hayas guardado todas las imagenes que tiene el GIF abris el VB y pones un Picture, un ImageList y tantos Timers como imagenes tengas.
9: Pones todas las imagenes que guardaste (Gif1, Gif2, Gif3, ...) en el ImageList
10: Ahora viene el codigo xD

Código [Seleccionar] Expandir


Private Sub Form_Load()
Picture1.Picture = ImageList.ListImages("Gif1").Picture 'Pone el la primera imagene en el picture
Timer1.Interval = 500 'Empieza la cadena del GIF
End Sub
Private Sub Timer1_Timer()
Picture1.Picture = ImageList1.ListImages("GIF1").Picture
Timer2.Interval = 500 'Este valor lo podes ir cambiando depende de la velocidad que kieras que tenga tu GIF
Timer1.Interval = 0
End Sub
Private Sub Timer2_Timer()
Picture1.Picture = ImageList1.ListImages("GIF2").Picture
Timer3.Interval = 500 'Este valor lo podes ir cambiando depende de la velocidad que kieras que tenga tu GIF
Timer2.Interval = 0
End Sub
Private Sub Timer3_Timer()
Picture1.Picture = ImageList1.ListImages("GIF3").Picture
Timer1.Interval = 500 'Vuelve al Timer (genera un bucle)
Timer3.Interval = 0
End Sub


Bueno espero que se haya entendido
sino, postea ^^

NOTA: si te las arreglas podes hacer GIFs con tus propias imagenes en el VB

un abraz0

-G0nz4-