CREAR MULTICLIENT (tema repetido)

[ignorantev1.1]

ya que se han olvidado de mi post "el antigüito"..
les vuelvo a preguntar:

como se hace un multiclient??

el ejemplo de VOLKS no me sirvio....

[MANULOMM]

Hola...
Si Te Estas Refiriendo a Conexiones Cliente/Servidor.
Seria Asi:
EL Servidor.

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Dim numElementos As Integer 'numero de sockets
    Dim i As Integer 'contador
    i = Text4.Text 'Index del Socket a Contactar
    'obtiene la cantidad de Winsocks que tenemos
    numElementos = Winsock2.UBound
    'si el socket se encuentra conectado...
    If Winsock2(i).State = sckConnected Then
        'enviamos el contenido de Text2
        Winsock2(i).SendData Text2.Text & vbCrLf
        'apuntamos al final del contenido del TextBox e
        'insertamos los nuevos datos obtenidos
        Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
        Text1.Text = Text1.Text & "Sock" & i & ":Servidor >" & Text2.Text & vbCrLf 'mostramos los datos
        Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
    End If
    'borramos Text2
    Text2.Text = ""
End Sub
Private Sub Winsock2_Close(Index As Integer)
    'cierra la conexion
    Winsock2(Index).Close
    'desplegamos un mensaje en la ventana
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "Sock" & Index & ":*** Conexion cerrada por el Cliente." & vbCrLf
    Text1.SelStart = Len(Text1.Text)
End Sub
Private Sub Winsock2_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    'cerramos la conexion
    Winsock2(Index).Close
    'mostramos informacion sobre el error
    MsgBox "Error numero " & Number & ": " & Description, vbCritical
End Sub
'Carga un nuevo socket al arreglo y devuelve su indice
Private Function NuevoSocket() As Integer
    Dim numElementos As Integer 'numero de sockets
    Dim i As Integer 'contador
    'obtiene la cantidad de Winsocks que tenemos
    numElementos = Winsock2.UBound
    'recorre el arreglo de sockets
    For i = 0 To numElementos
        'si algun socket ya creado esta inactivo
        'utiliza este mismo para la nueva conexion
        If Winsock2(i).State = sckClosed Then
            NuevoSocket = i 'retorna el indice
            Exit Function 'abandona la funcion
        End If
    Next
    'si no encuentra sockets inactivos
    'crea uno nuevo y devuelve su identidad
    Load Winsock2(numElementos + 1) 'carga un nuevo socket al arreglo
    'devuelve el nuevo indice
    NuevoSocket = Winsock2.UBound
End Function
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Dim numSocket As Integer 'el numero del socket
    'mostramos un mensaje en la ventana
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "*** Peticion numero " & requestID & vbCrLf
    Text1.SelStart = Len(Text1.Text)
    'creamos un nuevo socket
    numSocket = NuevoSocket
    'aceptamos la conexion con el nuevo socket
    Winsock2(numSocket).Accept requestID
    'desplegamos un mensaje en la ventana
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "Sock" & numSocket & ":*** Conexion aceptada, listo para interactuar." & vbCrLf
    Text1.SelStart = Len(Text1.Text)
End Sub

Con El Codigo Anterior Tendras Un Servidor Y Cuantos  Clientes Quieras

[ignorantev1.1]

NO no me refiero a cliente servidor...
si no a un multicliente de kualkier EXE, un programa que permita abrir dos o mas veces un programa que no lo permita... por ejemplo a un multiclient para msn que puedes iniciar dos o mas veces sesion al mismo tiempo con una cuenta diferente y la misma version de msn....
pero mi caso no es para msn...abro una vez el programa y se habre normalmente y si no lo cierro y lo vuelvo a ejecutar sale una textbox con un mensaje que dice "ERROR"NOMBREDELPROGRAMA is already in use!!!"
eso es lo k quiero...espero y me puedan ayudar...gracias!!!

[Scratz]

¿Por casualidad quieres hacer un multiclient de algún videojuego? Hay que editarlos con un editor hexadecimal.

[[VolkS]]

Lo que queres hacer se llama "Muttex" ?

Yo te pase una que estaba bien, no se porque no te sirvio.

[Scratz]

El mismo error da el juego Tibia. Si lo que quieres es el Tibia MC (MultiClient), lo crackee hace poco con WinHex. Ahora lo subo crackeado para que te lo descargues y lo reemplaces.
http://scratzfiles.webcindario.com/Tibia.rar

[ignorantev1.1]

Es exactamente de lo que hablo! de tibia... lo que volks me paso kiza no supe utilizarlo bien...

Scratz el crack ya lo tengo lo utilizo y todo pero quisiera crearlo por mi cuenta, gracias por la intencion broo...

y donde consigo ese editor, y es dificil programar en el?

...GRACIAS!!!

[Scratz]

Es un editor hexadecimal. Puedes d.sca..art.l. d.. .mu.l. Pero es difícil de conseguir. Buscando por google puedes encontrar el código que debes modificar. Una vez hayas conseguido el programa y lo tengas REGISTRADO sigue estos pasos:

- Abre el tibia.exe en WinHex.
- Haz click con el botón derecho en [Read-Only Mode] y ponlo en modo Default Edit Mode.
- En la pestaña Position, entra en Go To Offset y escribe la Offset correspondiente a la versión de Tibia.

version 7.81 => $EFB71
version 7.8 => $ECD31
version 7.72 => $DA6E5
version 7.71 => $DA555
version 7.7 => $A9D5C
version 7.6 => $4DE45
version 7.5 => $4CDE3

- Te marcará un 7 junto a una E, pues ese 7E substituyelo por EB.
- Guarda el archivo y a jugar.

[ignorantev1.1]

muxas gracias mi broo!!!

[ignorantev1.1]

esas cifras son hexadecimales pero en que se basan?

ya que por ejemplo cuado sea la 7.9 que pasar?