elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


  Mostrar Mensajes
Páginas: [1] 2
1  Media / Juegos y Consolas / Requisitos de un juego - Problemas en: 13 Julio 2014, 06:50 am
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.  :laugh:
2  Programación / Programación Visual Basic / VB 6.0 [Error 40020] en: 3 Julio 2014, 03:03 am
Buenas gente del foro :D , 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 :D.

CODIGO SERVIDOR:

Citar
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:

Citar
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  :laugh: ;-)
3  Programación / Programación Visual Basic / Re: Problemas Chat VB 6.0 en: 17 Mayo 2014, 21:18 pm
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 ;D
4  Programación / Programación Visual Basic / Problemas Chat VB 6.0 en: 17 Mayo 2014, 01:37 am
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:
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:
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
5  Programación / Programación Visual Basic / Re: Base de Datos - Imagenes en: 10 Mayo 2014, 20:36 pm
Por cierto es Visual Basic 6.0
6  Programación / Programación Visual Basic / Base de Datos - Imagenes en: 10 Mayo 2014, 20:33 pm
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

 ;-) :laugh: ;-) :laugh: ;-)
7  Programación / Programación Visual Basic / Re: Imagenes de Cliente-Servidor en: 18 Enero 2014, 18:04 pm
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  :laugh:
8  Programación / Programación Visual Basic / Re: Imagenes de Cliente-Servidor en: 18 Enero 2014, 01:16 am
Cita de: ||MadAntrax|| en 18 Enero 2014, 01:13 am
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 :)
9  Programación / Programación Visual Basic / Re: Imagenes de Cliente-Servidor en: 18 Enero 2014, 00:16 am
Quien queira seguir respondiendo este tema para guiarme aun mas se lo agradezco :)  y denuevo gracias por toda tu AYUDA ||MadAntrax|| :D
10  Programación / Programación Visual Basic / Re: Imagenes de Cliente-Servidor en: 17 Enero 2014, 23:19 pm
Cita de: ||MadAntrax|| en 17 Enero 2014, 23:16 pm
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!! :D

Creo que mas o menos entendi gracias eso al menos me da una idea  ;-)
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines