Mensajes

[Requisitos minimos del juego:]

Buenas comunidad de foro el hacker, veran necesito un gran favor de ustedes ojala me puedan ayudar. Hace unos dias me baje un juego para pc se llama "The Wolf Amoung Us" y lo jugue normalmente como por unos 45 minutos y depronto me dijo que "Dejo de funcionar". Luego intente jugar y nada, me daba el mismo cartel, asi que reinstale, reinicie, etc.. Pero no se porque ahora el juego solo me abre y cuando le voy a dar a jugar, que es que muestra las animaciones y demas me da error denuevo.

Revise y creo que los requisitos del juego exceden lo que puede dar mi pc.

Requisitos minimos del juego:

    Sistema operativo: XP Service Pack 3
    Procesador: 2.0 GHz Pentium 4 o equivalente
    Memoria: 3 GB RAM
    Tarjeta gráfica: ATI o NVidia card w/ 512 MB RAM (no se recomienda tarjetas integradas intel)
    DirectX: Version 9.0c
    Disco duro: 2 GB de espacio libre
    Tarjeta de sonido: Direct X 9.0c compatible

Mi pc:

    Sistema operativo: 7 Service pack 1
    Procesador: Intel(R) Pentium(R)Dual CPU T3400 @ 2.16 GHZ 2.17 GHZ
    Memoria: 2 GB RAM
    Tarjeta gráfica: Mobile Intel(R) 4 Series Express Chipset Family (Creo no se mucho de esto D=)
    DirectX: Version 11
    Disco duro: Puff con mucho mas de 2GB disponibles.

Ahora no me explico, porque pude correr el juego normalmente al principio y ahora ya no D=! Si tienen alguna solucion espero me ayuden, el juego es demasiado bueno y me hace falta jajaja
Alguna menera de bajar los requisitos? D=! El juego de por si trae una opcion para bajar los graficos y demas. Bueno espero me puedan ayudar de verdad :C

Saludos y muchas gracias de antemano. 

Buenas gente del foro , esta vez vengo con una pregunta nuevamente :S tengo problemas con el control Winsock e.e! no se porque nunca logro conectarme de manera efectiva con otra pc :S hasta donde veo siempre hago todo bn.

Hoy probando con un amigo nos salto el error 40020 :S no se xq, cuando pruebo el programa con mi mismo Host todo anda bien, pero al probarlo con otros siempre me da error, agradezco su ayuda de ANTEMANO .

CODIGO SERVIDOR:

Option Explicit

Private Sub Winsock1_Close()
Winsock1.Close
TxtPanel.SelStart = Len(TxtPanel.Text)
TxtPanel.Text = TxtPanel.Text & "*** Conexion cerrada por el cliente." & vbCrLf
TxtPanel.SelStart = Len(TxtPanel.Text)
End Sub


Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'Decirnos que alguien se esta conectando
TxtPanel.SelStart = Len(TxtPanel.Text)
TxtPanel.Text = TxtPanel.Text & "*** Peticion numero " & requestID & vbCrLf
TxtPanel.SelStart = Len(TxtPanel.Text)
'Cerramos
Winsock1.Close
'Aceptamos la conexion
Winsock1.Accept requestID
Text1.Text = Winsock1.RemoteHostIP
'Desplazamos un mensaje en la ventana
TxtPanel.SelStart = Len(TxtPanel.Text)
TxtPanel.Text = TxtPanel.Text & "*** Conexion aceptada, listo para interactuar." & vbCrLf
TxtPanel.SelStart = Len(TxtPanel.Text)
End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'Controla los datos que son recibidos
'Declaramos donde se guardaran los datos que envie el cliente el cual se llamara "Buffer"
Dim Buffer As String 'variable para guardar los datos
'Recibe los datos guardados en la variable "Buffer"
Winsock1.GetData Buffer
TxtPanel.SelStart = Len(TxtPanel.Text)
TxtPanel.Text = TxtPanel.Text & "Cliente >" & Buffer 'Mostramos los datos de texto =O!
TxtPanel.SelStart = Len(TxtPanel.Text)
End Sub


Private Sub Winsock1_Error(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)
Winsock1.Close
MsgBox "Error numero " & Number & "| " & Description, vbCritical
End Sub

'---------------CONTROLES

Private Sub CmdDesconectar_Click()
Winsock1.Close
End Sub

Private Sub CmdEnviar_Click()
Winsock1.SendData TxtMensaje.Text & vbCrLf
TxtPanel.SelStart = Len(TxtPanel.Text)
TxtPanel.Text = TxtPanel.Text & "Servidor >> " & TxtMensaje.Text & vbCrLf 'Mostramos los datos
TxtPanel.SelStart = Len(TxtPanel.Text)
TxtMensaje.Text = ""
End Sub

Private Sub CmdEscuchar_Click()
Winsock1.Close 'Cerrar conexiones anteriores
Winsock1.LocalPort = TxtPuerto.Text
Winsock1.Listen
TxtPanel.SelStart = Len(TxtPanel.Text)
TxtPanel.Text = TxtPanel.Text & "*** Escuchando conexiones, (Puerto " & TxtPuerto.Text & ")" & vbCrLf
TxtPanel.SelStart = Len(TxtPanel.Text)
End Sub

CODIGO CLIENTE:

Private Sub CmdConectar_Click()
Winsock1.RemoteHost = TxtServidor.Text
If TxtServidor.Text = "" Then MsgBox "introduzca un servidor en el campo"
If TxtPuerto.Text = "" Then MsgBox "introduzca un puerto en el campo"
Winsock1.RemotePort = TxtPuerto.Text
Winsock1.Close
Winsock1.Connect
End Sub

Private Sub CmdDesconectar_Click()
Winsock1.Close
TxtPanel.Text = TxtPanel.Text & "*** Conexion cerrada por el usuario." & vbCrLf
TxtPanel.SelStart = Len(TxtPanel.Text)
End Sub

Private Sub CmdEnviar_Click()
Winsock1.SendData TxtMensaje.Text & vbCrLf
TxtPanel.SelStart = Len(TxtPanel.Text)
TxtPanel.Text = TxtPanel.Text & "Cliente >" & TxtMensaje.Text & vbCrLf 'Mostramos los datos
TxtPanel.SelStart = Len(TxtPanel.Text)
TxtMensaje.Text = ""
End Sub

Private Sub Form_Load()
TxtPanel.Text = TxtPanel.Text & "*** Aun no introduce los valores para conectarse a algun servidor" & vbCrLf
End Sub

Private Sub Winsock1_Close()
Winsock1.Close
TxtPanel.SelStart = Len(TxtPanel.Text)
TxtPanel.Text = TxtPanel.Text & "*** Conexion Cerrada Por El Servidor" & vbCrLf
TxtPanel.SelStart = Len(TxtPanel.Text)
End Sub

Private Sub Winsock1_connect()
TxtPanel.Text = TxtPanel.Text & "*** Conexion Establecida." & vbCrLf
TxtPanel.SelStart = Len(TxtPanel.Text)
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Buffer As String
Winsock1.GetData Buffer
TxtPanel.SelStart = Len(TxtPanel.Text)
TxtPanel.Text = TxtPanel.Text & "Servidor >" & Buffer
TxtPanel.SelStart = Len(TxtPanel.Text)
End Sub

Private Sub Winsock1_Error(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)
Winsock1.Close
MsgBox "Error numero " & Number & "| " & Description, cbCritical
End Sub

Saludos a todos agradezco su ayuda 

Bueno creo que lo de los firewall ya estaba solucionado, le preguntare a la persona con la que me intento conectar, tomare la idea de declarar antes haber que tal. Trabajare en el codigo y luego posteo mis avances si me funciono o no. Gracias a los 2

Buenas veran tengo un problema con un chat de una sola conexion en visual basic 6.0, siempre me dice tiempo de conexion agotado cuando intento probarlo con otras personas :C . Si me pueden ayudar se los agradeceria para ver a que se debe o que pasa alli.

CODIGO CLIENTE:

Código [Seleccionar] Expandir

Private Sub bntConnect_Click()
On Error GoTo ErrSub

    With Winsock1
        .Close
        .RemoteHost = txtIP
        .RemotePort = txtPort
        .Connect
    End With
Exit Sub
ErrSub:
MsgBox "Error : " & Err.Description, vbCritical
End Sub


Private Sub bntSend_Click()
On Error GoTo ErrSub


    Winsock1.SendData txtSend

    txtLog = txtLog & "Cliente : " & txtSend & vbCrLf
    txtSend = ""

Exit Sub
ErrSub:
MsgBox "Error : " & Err.Description
Winsock1_Close ' cierra la conexión
End Sub

Private Sub Winsock1_Close()

    Winsock1.Close  'Cierra la conexión
    txtLog = txtLog & "*** Desconectado" & vbCrLf

End Sub

Private Sub Winsock1_Connect()

txtLog = "Conectado a " & Winsock1.RemoteHostIP & vbCrLf

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim dat As String
   
    Winsock1.GetData dat, vbString
    txtLog = txtLog & "Servidor : " & dat & vbCrLf

End Sub

Private Sub Winsock1_Error(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)

    txtLog = txtLog & "*** Error : " & Description & vbCrLf

    Winsock1_Close
End Sub


CODIGO SERVIDOR

Código [Seleccionar] Expandir

On Error GoTo errorSub

    With Winsock1
        .Close
        .LocalPort = txtPort
        .Listen
    End With

Exit Sub
errorSub:
MsgBox "Error : " & Err.Description, vbCritical
End Sub

Private Sub bntSend_Click()
On Error GoTo errorSub

    Winsock1.SendData txtSend
   
    txtLog = txtLog & "Servidor : " & txtSend & vbCrLf
    txtSend = ""

Exit Sub
errorSub:
MsgBox "Error : " & Err.Description
' cierra la conexión
Winsock1_Close
End Sub


Private Sub Winsock1_Close()
    ' Finaliza la conexión
    Winsock1.Close

    txtLog = txtLog & "*** Desconectado" & vbCrLf

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
   
    If Winsock1.State <> sckClosed Then
        Winsock1.Close ' close
    End If

    Winsock1.Accept requestID
   
    txtLog = "Cliente conectado. IP : " & _
              Winsock1.RemoteHostIP & vbCrLf

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Winsock1.GetData dat, vbString
    txtLog = txtLog & "Cliente : " & dat & vbCrLf

End Sub

' cuando se produce un error lo envía
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Winsock1_Error(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)

    txtLog = txtLog & "*** Error : " & Description & vbCrLf

    Winsock1_Close

End Sub


Por cierto es Visual Basic 6.0

Buenas, quisiera que me dijeran alguna manera de crear una base de datos y que en uno de los campos vaya e link de una imagen o algo.

Para que al pasar el mouse digamos sobre el image1, Se muestre la imagen que esta en el campo "Direccion" de la fila1.

Al pasar por el image2 se muestre la imagen que se encuentra en el campo "Direccion" de la fila2. Saludos Espero me ayuden soy noob en visual basic aun T_T

Esto fue lo que mas o menos hice segun entendi xD

Cliente

'Hago que el image 2 sea = al image 1, y que este se envie para ser mostado en el winsock (CREO xD)
Private Sub Image1_Click()
Image2.Picture = Imagel1.Picture
Winsock1.SendData (Image2.Picture)
End Sub

Servidor

'Recibe la imagen o los datos D= y se carga en el image2 del servidor (creo tambien)
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData
Image2.picture = LoadPicture
End Sub

No se si estara bn asi :S es que aun soy muy noob. Saludos y gracias 

En el foro tienes el source del RAT houdini, utiliza http.xml2 y adobstreams para cargar/descargar ficheros. Te servirá también para hacer lo de las imágenes.

Oh gracias nuevamente D= ire investigando sobre eso porque soy aun un poco noob en visual basic y todo lo que tiene que ver con el

Quien queira seguir respondiendo este tema para guiarme aun mas se lo agradezco  y denuevo gracias por toda tu AYUDA ||MadAntrax||

Te voy a explicar como yo lo hago, pero no voy a darte código, lo escribiré en pseudo-code:

'server
IMG-SOURCE = OpenTextFile(mifoto.jpg)
Winsock.Send(IMG-SOURCE)

'client
GetData(xData)
CreateTextFile("tmpfile.jpg",xData)
LoadPicture("tmpfile.jpg")

Saludos!!

Creo que mas o menos entendi gracias eso al menos me da una idea