Mensajes

hola buenas tardes a todo el foro tengo un problema  estoy haciendo un cliente servidor en visual basic 6.0,tengo hecha la parte cliente pero al hacer el servidor no hay manera de que se conecten alguien me ayuda..cuando funcione lo posteare todo para que lo prueben y por supuesto con su codigo


Private Sub Command1_Click()
On Error Resume Next
ws.LocalPort = Text2.Text
ws.Close
ws.Listen
If ws.State = 2 Then lab.Caption = "conectado al puerto..."
End Sub

Private Sub Command2_Click()
ws.Close
lab3.Caption = "desinfectado"
End Sub

Private Sub Timer1_Timer()
On Error GoTo error
If Not ws.State = 7 Then
lab3.Caption = "desconectado"
Else
End If
If ws.State = 7 Then
lab3.Caption = "conectado"
Else
End If
If lab3.Caption = "desconectado" Then
lab3.Caption = "desconectado"
GoTo puente
Else
End If
GoTo error
puente:
ws.Close
ws.Listen
error:
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error GoTo error
ws.Close
ws.Accept requestID
lab2.Caption = ws.RemoteHostIP
Timer1.Interval = 3000
error:
End Sub

como haria lo basico del servidor para que me conectara a este cliente

                                               saludos.

me dice error en tiempo de ejecucion 52 nombre o numero de archivo:

Private Sub juntar_Click()
Dim Ap1 As String
Dim file As String
Dim Ext1 As String
Dim filed As String
Dim i As Integer
Dim nombre As String
If lista.ListCount < 2 Then
MsgBox "Seleciona más de un archivo", vbCritical, "Error"
Exit Sub
End If
ga.FileName = "Joiner"
ga.DialogTitle = "Guardar Como..."
ga.DefaultExt = "*.exe"
ga.ShowSave
FileCopy App.Path & "\stubb.dll", ga.FileName
For i = 0 To lista.ListCount - 1
Open lista.List(i) For Binary As #1
file = Space(LOF(1))
Get #1, , file
Close #1
filed = StrReverse(file)
file = ""
Text1.Text = lista.List(i)
Ext1 = Ext(Text1.Text)
nombre = Nam(Text1.Text)
Ap1 = Ap1 & "/separador/" & filed & "/separador/" & Ext1 & "/separador/" & nombre
Next
Open ga.FileName For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , Ap1
Close #1
MsgBox "Archivos Juntados", vbOKOnly, "AVISO"
End Sub

a mi parecer lo tengo todo bien y no puedo juntar los dos archivos

hola buenas quiero hacer un crypter como empezaria hacerlo

hola buenas este codigo de modulo me da error:

Select Case "Conexion"
Dim x As ListItem
Set x = lv.ListItems.Add(, Index & "|", data(1))
x.SubItems(1) = ws(Index).RemoteHostIP
x.SubItems(2) = data(2) & "/" & data(3)
x.SubItems(3) = data(4)
x.SubItems(4) = data(5) & " MB"
x.SubItems(5) = data(6)
x.SubItems(6) = data(7)
x.SubItems(7) = data(8)
x.SubItems(8) = data(9)
x.SubItems(9) = "v.1"
End Select

no se que tengo que cambiar alguien me ayuda

hola buenas a todos lo que quiero es agregar a un crypter para buscar el archivo (input) y otro para poder guardarlo (output) no se como se hace..

pero lo compilo y no me da error..me da error al generarlo para el empaquetado.como se haria?

hola muy buenas me da error al generar el proyecto

Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim RData As String, RData2 As String, Message() As String, i As Integer, intForLoop As Integer
Dim Imagen As String
Dim datos As String
Dim data() As String 'array
consola.Text = consola.Text + datos + vbNewLine
ws.GetData Imagen, vbNullString
Put #1, , Imagen
If Right(Imagen, 3) = "Fin" Or Imagen = "Fin" Then
Close
Picture1 = LoadPicture(Ruta)
Open Ruta For Binary As #1
End If
ws(Index).GetData datos
dSelect case Data(0)ata = Split(datos, "|")
Case "Conexion"
....
End Select
End Sub

muchas gracias por la ayuda

hola alguien me puede ayudar con este codigo me da error


Dim temp As Long
hwdc = capCreateCaptureWindow("CapWindow", ws_child Or ws_visible, _
0, 0, 320, 240, Picture1.hWnd, 0)
If (hwdc <> 0) Then
webcam = "Si"
temp = DestroyWindow(hwdc)
temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
DoEvents
Else
webcam = "No"
End If

gracias cobein