Temas

[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 

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


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

Buenas foro.elhacker.net , bueno hoy vines a hacerle una pequeña pregunta para ver si me pueden pasar un codigo o al menos darme alguna idea de como hacer para enviar imagenes de un servidor a un cliente y viceversa? con el control Winsock, me explico:

Quiero agregar digamos un Image1 y que al darle click pueda transferir esa imagen y que se muestre digamos en el control Image2 del servidor. Y pues como dije antes y viceversa osea que si le doy al Image1 del servidor pueda enviar la imagen al image2 del cliente, Gracias de Antemano

Buenas queria saber si hay una manera facil de crear bases de datos para visual basic 6.0, que no sea con Microsoft Acces ya que mi pc no lo tiene, y que no tenga necesidad de registrarme para usar el servicio con el que creare la base de datos.

Si pueden tambien me dejan las intrucciones de como registrarla en el visual

Gracias de antemano espero respondan 

Buenas gente, escribo en esta gran web para ver si me pueden brindar ayuda con unos problemas que tengo con un chat :S, veran cuando lo uso en mi misma pc me anda perfecto, pero al momento de probarlo con amigos me suelta varios errores como lo son:

Error 10060: Se ha sobrepasado el tiempo de conexion
Error 4006: Protocolo o estado de conexion erroneo para la transaccion o peticion solicitada.

CODIGOS DEL PROYECTO:

---SERVIDOR:

Private Sub command1_Click()
Winsock1.Close
Winsock1.LocalPort = 23
Winsock1.Listen
command2.Enabled = True
Text1 = Textt & "[Servidor] -Servidor de Chat Iniciando en Puerto: " & Winsock1.LocalPort & vbCrLf

End Sub

Private Sub command2_Click()
If Text2.Text = "" Then
Else
Winsock1.SendData Text2
Text1 = Text1 & "[Servidor] - " & Text2 & vbCrLf
Text2 = ""
End If
End Sub

Private Sub Form_Load()
command2.Enabled = False
End Sub

Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then
Winsock1.Close
Else
End If
Winsock1.Accept requestID
Text1 = Text1 & "(Servidor) - Cliente conectado desde la ip: " & Winsock1.RemoteHostIP & vbCrLf

End Sub

Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1 = Textt1 & "(Cliente) - " & datos & 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)
    MsgBox Number & ": " & Description
End Sub



---CLIENTE

Private Sub Command2_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.RemotePort = Text4.Text
Winsock1.Close
Winsock1.Connect
End Sub

Private Sub Winsock1_Connect()
Text1.Text = Text1.Text & _
"*** Conexion establecida." & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub

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

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

Private Sub Command1_Click()
Winsock1.SendData Text2.Text & vbCrLf
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
Text1.Text = Text1.Text & "Cliente >" & Text2.Text & vbCrLf 'mostramos los datos
Text1.SelStart = Len(Text1.Text)
Text2.Text = ""
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Buffer As String
Winsock1.GetData Buffer
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "Servidor >" & Buffer
text1.SelStart = Len(Text1.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

----------------------------------------------[/left]

muchas gracias de antemano, y mil disculpas si me equivoque en alguna cosa que publique en este tema,