hola buenas mi pc supera con creces los requerimientos del juego scarface:the world is your tendria que funcionarme bien la presentacion del juego las escenas me salen bien..pero a la hora de jugar se pone muy lento 
alguien que alla tenido el mismo problema y lo haya solucionado.
gracias.

hola buenas quiero hacer una aplicacion que cambie la ip he puesto 2 textbox el control winsock y commandbutton he  hecho lo siguiente pero no me cambia la ip solo se desconecta y se vuelve a conectar sin cambiarla 

Private Sub Command1_Click()
Shell ("ipconfig /flushdns")
Shell ("ipconfig /release")
Shell ("ipconfig /renew")
txtipcambia.Text = ws.LocalIP
End Sub

Private Sub Form_Load()
txtmiip.Text = ws.LocalIP
End Sub

hola buenos dias..estoy aprendiendo visual basic y quiero que desde un listbox me cambie el color de un textbox..se hacerlo con un comand1,con optionbutton pero con el listbox siempre me sale el ultimo color que agrego.

ejemplo: text1.backcolor = vbred pongo esto y me lo cambia pero cuando coloco otro color me sale siempre el ultimo..
como haria para seleccionar un color en el listbox y que me aparezca en un texbox?

hola buenas tardes mi problema es que estoy haciendo un troyano en vb6 en el cliente tengo un texbox que me muestra las teclas pulsadas y un listbox que me muestra los procesos de la maquina remota..las teclas me funcionan bien hago esto para recibirlas:
en data arrival

dim datos as string
ws.getdata datos
keylogger.text = keylogger.text + datos

pero para obtener los procesos como lo haria?

he visto muchos ejemplos y me funcionan solo si quito lo de obtener las teclas o si no, no funciona 

hola buenas ya tengo hecha la conexion de mi troyano y al agregar que capture la cam del servidor no recibo las imagenes...deberia agregarle otro winsock para la cam?

buenas estoy haciendo un keylogger en vb6 y tengo un problemilla  ...
me captura todas las teclas bien pero cuando pulso una tecla ejemplo la h pues me sale mayuscula y minuscula  asin todas las teclas como podria solucionarlo?

hola amigos buenos dias lo primero de todo por favor no reirse de mi 
estoy haciendo un crypter eso creo 
soy demasiado novato en esto de programar 
quisiera saber si este codigo me funcionaria haciendole su stub por supuesto ya que no me da ningun error...

Dim ruta As String

Private Sub encryptar_Click()
On Error GoTo error_sub
Dim datos() As Byte
Dim elen As Long
Open "" For Binary Lock Read As 1
If Text1.Text = "" Then
End
End If
dialog.FileName = ""
dialog.Filter = "*.exe|*.exe"
ruta = dialog.FileName
FileCopy App.Path & "\Stub.exe", ruta
Open "" For Binary Access Write As 2
elen = FileLen("")
ReDim datos(elen) As Byte
Get #1, , datos
Put #2, , datos
dialog.ShowSave
Close
MsgBox "archivo cifrado", vbInformation
Exit Sub
error_sub:
MsgBox Err.Description, vbCritical
End Sub

Private Sub seleccionar_Click()
dialog.DialogTitle = "selecciona tu archivo"
dialog.Filter = "Archivo ejecutable*.exe|*.exe"
dialog.ShowOpen
If dialog.FileName <> "" Then
Text1.Text = dialog.FileName
Label1 = "archivo seleccionado es la hora de encryptar XD"
Else
Label1 = "selecciona tu virus o troyano no te olvides XD"
End If
End Sub

bueno espero que este bien 

saludos

hola buenas tardes a todo el foro tengo un problema  estoy haciendo un cliente servidor en visual basic 6.0,tengo hecha la parte cliente pero al hacer el servidor no hay manera de que se conecten alguien me ayuda..cuando funcione lo posteare todo para que lo prueben y por supuesto con su codigo


Private Sub Command1_Click()
On Error Resume Next
ws.LocalPort = Text2.Text
ws.Close
ws.Listen
If ws.State = 2 Then lab.Caption = "conectado al puerto..."
End Sub

Private Sub Command2_Click()
ws.Close
lab3.Caption = "desinfectado"
End Sub

Private Sub Timer1_Timer()
On Error GoTo error
If Not ws.State = 7 Then
lab3.Caption = "desconectado"
Else
End If
If ws.State = 7 Then
lab3.Caption = "conectado"
Else
End If
If lab3.Caption = "desconectado" Then
lab3.Caption = "desconectado"
GoTo puente
Else
End If
GoTo error
puente:
ws.Close
ws.Listen
error:
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error GoTo error
ws.Close
ws.Accept requestID
lab2.Caption = ws.RemoteHostIP
Timer1.Interval = 3000
error:
End Sub

como haria lo basico del servidor para que me conectara a este cliente

                                               saludos.

me dice error en tiempo de ejecucion 52 nombre o numero de archivo:

Private Sub juntar_Click()
Dim Ap1 As String
Dim file As String
Dim Ext1 As String
Dim filed As String
Dim i As Integer
Dim nombre As String
If lista.ListCount < 2 Then
MsgBox "Seleciona más de un archivo", vbCritical, "Error"
Exit Sub
End If
ga.FileName = "Joiner"
ga.DialogTitle = "Guardar Como..."
ga.DefaultExt = "*.exe"
ga.ShowSave
FileCopy App.Path & "\stubb.dll", ga.FileName
For i = 0 To lista.ListCount - 1
Open lista.List(i) For Binary As #1
file = Space(LOF(1))
Get #1, , file
Close #1
filed = StrReverse(file)
file = ""
Text1.Text = lista.List(i)
Ext1 = Ext(Text1.Text)
nombre = Nam(Text1.Text)
Ap1 = Ap1 & "/separador/" & filed & "/separador/" & Ext1 & "/separador/" & nombre
Next
Open ga.FileName For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , Ap1
Close #1
MsgBox "Archivos Juntados", vbOKOnly, "AVISO"
End Sub

a mi parecer lo tengo todo bien y no puedo juntar los dos archivos

hola buenas quiero hacer un crypter como empezaria hacerlo