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....
Hola...
Si Te Estas Refiriendo a Conexiones Cliente/Servidor.
Seria Asi:
EL Servidor.
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
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!!!
¿Por casualidad quieres hacer un multiclient de algún videojuego? Hay que editarlos con un editor hexadecimal.
Lo que queres hacer se llama "Muttex" ?
Yo te pase una que estaba bien, no se porque no te sirvio.
El mismo error da el juego Tibia (http://www.tibia.com). 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
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!!!
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.
muxas gracias mi broo!!!
esas cifras son hexadecimales pero en que se basan?
ya que por ejemplo cuado sea la 7.9 que pasar?
yo necesito un codigo parecido, el que se usa para los macros alguien lo tiene?
En la web de BlackD, creador del cada vez más famoso BlackdProxy para Tibia, teneis un amplio foro (en inglés) sobre programación de macros y este tipo de cosas. Por cierto, BlackD es español, pero no hableis español en el foro. Esta es su web: www.blackdtools.com (http://www.blackdtools.com).
Los códigos hexadecimales para crackear el Tibia, los publica un usuario de Tarreo.cl o algo así. Podeis encontrar el post con los códigos buscando en google por "Dieferencia Tibia MC Tarreo". Estos códigos se buscan con una tool llamada Tsearch, bastante difícil de usar. Con ella he conseguido sacar mi acc/pass (la mia, o la de alguna victima ;P).