Dudas vb

[CrashIIX]

1.Como obtengo el nombre del archivo que se esta ejecutando
2.Como copio archivos
3.Como añado cosas en el regedit
4.Porque este code me da error

Código [Seleccionar] Expandir

Private Sub conectar_Click()
Winsock1.RemoteHost = ip.Text
If Winsock1.Connect Then
    MsgBox "Conexion conseguida", vbInformation, "Informacion"
    Form1.Show
Else
    MsgBox "Conexion fallida", vbExclamation, "Informacion"
    Form1.Show
End If
End Sub
5.Sabe alguno donde hay tutos de netcat??
6.Como se usa la funcion sendkeys
7.Quien me enseña a abrir ficheros escribir sobre ellos y tal

Saludos

[dPix]

1.Como obtengo el nombre del archivo que se esta ejecutando
2.Como copio archivos
3.Como añado cosas en el regedit
4.Porque este code me da error

Código [Seleccionar] Expandir

Private Sub conectar_Click()
Winsock1.RemoteHost = ip.Text
If Winsock1.Connect Then
    MsgBox "Conexion conseguida", vbInformation, "Informacion"
    Form1.Show
Else
    MsgBox "Conexion fallida", vbExclamation, "Informacion"
    Form1.Show
End If
End Sub
5.Sabe alguno donde hay tutos de netcat??
6.Como se usa la funcion sendkeys
7.Quien me enseña a abrir ficheros escribir sobre ellos y tal

Saludos

1. App.Exename si no me equivoco (solo lectura)
2, 3. Google
4. Píllate un buen manual de como usar Winsock, hay cientos de ellos que pueden ser encontrados en google o a través del botón buscar de este mismo foto.
5. Busca por google y en el foro, en el eMule también pille uno bueno.
6. Sendkeys "letras que mando", pausa en milisegundos, si quieres usar teclas como F1, F2... Control, Alt, Shift, etc puedes o bien usar Sendkeys chr(codigoasciidelatecla) o busca en google como se usa cada tecla con el Sendkeys, por ejemplo para enter: Sendkeys "{ENTER}"
7. Léete tutoriales, manuales, busca, busca y busca y pilla ejemplos de programas ya hechos que manejen picheros de texto.

Salu2.

PD: Si te sirve pilla un tutorial para VB6 y consulta estos temas ya tratados.

[CeLaYa]

creo que primero deberías conseguier y leer un buen manual, las respuestas a las preguntas 1, 2, 3, 6 y 7 las puedes encotrar si usas el botón "buscar", esos temas ya se han visto en otras ocasiones

pero hay te va un poquito de ayuda

Respuesta a la pregunta 1:
el objeto app tiene la propiedad path y exename, con eso puedes saber el nombre de archivo que estas ejecutando (supongo que quieres saber el nombre y path de tu aplicación)

Código [Seleccionar] Expandir


msgbox app.path & "\" & app.exename


Respuesta a la pregunta 2:
eso lo haces con el File Copy

Código [Seleccionar] Expandir


File Copy ArchOrigen, ArchDestino   


Respuesta a la pregunta 4:
casi no he usado el winsock pero creo que promero deberias ver si ya esta abierto si es asi cirralo y lo vuelves a abrir

If winsock.State <> sckClosed Then winsock.Close

Respuesta a la pregunta 7:

abrir archivo: (si no existe lo crea)

Código [Seleccionar] Expandir


   dim f as long
   f = FreeFile ' Obtienes un canal libre
   Open "C:\tuarchivo.txt" For Binary Access Write As #f 'Abres el archivo
   Put #f, , "aqui pones el texto que quieres guardar"
   Close #f ' Cierras archivo


para leerlo

Código [Seleccionar] Expandir


     dim x as string
     dim f as long
     f = FreeFile
     Open "C:\tuarchivo.txt" For Binary Access Read As #f
     x = Space(LOF(f))
     Get #f, , x
     Close #f


[~~]

Un buen tuto del NetCat aki

El resto es de manual basico...
1S4ludo

[CrashIIX]

Oks, muchas gracias a todos recordad que yo siempre os puedo ayudar en PHP/MYSQL xD

[necroCODE]

3.Como añado cosas en el regedit

Utiliza las funciones SaveSetting, GetSetting, GetAllSettings y DeleteSetting.

7.Quien me enseña a abrir ficheros escribir sobre ellos y tal

Primera pista: Lee sobre tipos de acceso a ficheros (secuencial, aleatorio, binario)

Seguda pista: Lee sobre las funciones Open, Print #, Write #, Close, Input, Line Input #, Dir, Seek y otras tantas...