Mensajes

E0N necesito travajar con relate documents como hago para ponerlo en el form

hola en google no encontre nada jajaj

pero esto me sirvio haora me la estoy arreiglando

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/winsock-enviar-archivo.htm

gracias

hola e tratado de pasar imagenes con winsock , poero no e treatado lo intente con mapa de bits , .bmp  .JPG . GIF Y NO PUDE CON NINGUNA ME PODRIAN AYUDAR 

SALUDOS 
NOTA : me e buscado por todo el foro y no encontre la solucion

ok gaxcias el problema ya lo solucione

haci quedo

Código (vb) [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'Declaramos la variable que recibirá los datos
Dim data1 As String
'Tomamos los datos que nos envían
Winsock1.GetData data1
DoEvents

'separamos el String y determinamos que accion nos está mandando el Cliente
Select Case Mid(data1, 1, 10)

Case "#MENSAJE##"
  Kill Mid(data1, 11, Len(data1))
End Select

End Sub

miren
Metodos de EOF y LOF, aqui te dejo un modulo de clase EOF

http://indetectables.net/foro/download/file.php?id=486
no lo entiendo mucho pero dicen q sirve para lo q es posteado


saludos

vivachapas esta forma

Código (vb) [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim datos As String
Winsock1.GetData datos

Select Case Left(datos, 2)
Case "t#"
Kill (Right(datos, Len(datos)) - 2)

End Select
end sub

me dise error:
run-time error "13":
type mismatch
y me señala esto
Kill (Right(datos, Len(datos)) - 2)





toy mas perdido q tarzan en el centro 

aun haci sigo sin entender 
toy un poco mariado jajaj
seria haci
cliente :
winsock1.sendata "t#" &text1.text

server
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
dim data1 as string
winsock1.getdata dato
DoEvents
Select Case Mid(data1, 1, 10)
case "t#"
MsgBox Mid(data1, 11, Len(data1))
end select
end sub

a ok de la forma q me decis seria haci
servidor 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos

Select Case datos                        'no funca 
Case "t#" &dat

Kill (datos)

End Select
end sub

e provado de otra forma
-----------------------------------------------------------
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Tempdata As String
Winsock1.GetData Tempdata
    Select Case Left(Tempdata, 10)
     Case "1#" &dat                'no funca
       Tempdata = Mid(Tempdata, 11, Len(Tempdata))
kill  Tempdata

End Select
o otra forma
---------------------------------------------------------------------------
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Tempdata As String
Winsock1.GetData Tempdata
    Select Case Left(Tempdata, 10)             'tampoco funca
     Case "1#"
       Tempdata = Mid(Tempdata, 11, Len(Tempdata))
  kill    Tempdata

End Select
me lo podrias hacer un ejemplo y subirlo a megaunload o donde quieras   
saludos

hola
e tenido problemas ultimamente con el winsoc1 de vb el cliente se conecta perfectamente al servidor pero cuando hago la  siguiiente hacion el server no responde
cliente  ejemplo
(cmd8)
dim dat
dat =  File1.Path & "\" & File1.FileName

winsock1.sendata  "t#" & dat

haora viene el problema
servidor

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos

Select Case datos
Case "t#"

Kill (datos)

End Select
end sub

el sevidor no responde a la acion no lo borra al archivo selecionado 


si me podria ayudar

http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=40144&lngWId=1

ese no usa la propiedades de generar a .exe usa la de filecopy con un archivo yamado rdfce.ext hau asi me quedaron dudas con este

http://foro.elhacker.net/programacion_vb/generic_sever_editor_class_src-t228494.0.html

no lo entiendo mucho

si me lo podria explicar seria grandioso