Test Foro de elhacker.net SMF 2.1

es una cosa simple
digamos que hago un boton llamado acerca de mi y que se habra el block de notas i ponga tu nombre...
yo ejecuo por ejemplo el notepad
shell "notepad.exe"
pero como seria lo siguiente esque me falta esto
shell notepad & lo que sea "nombre" o como seria

¿es una adivinanza o lo preguntas de verdad?

sendkeys "nombre"  ? explícate mejor
Saludos

exacto.. sendkeys "lo que quieras q ponga" y listo...

Cita de: ®® en 15 Enero 2008, 19:36 PM
¿es una adivinanza o lo preguntas de verdad?

no entiendo donde esta la adivinanza? me la explicas?

Cita de: Zero- en 15 Enero 2008, 19:46 PM
sendkeys "nombre"  ? explícate mejor
Saludos

yo le entendi barbaro...



P/D si asi no te funciona proba asi
appactivate "aca el nombre del form del note pad"
sendkeys "aca lo q quieras eniar"


SALUDOS

la adivinanza es donde estan los manuales que le faltan por leer. ultimamente ya no se lee, se pregunta y punto.

Cita de: ®® en 15 Enero 2008, 22:19 PM
la adivinanza es donde estan los manuales que le faltan por leer. ultimamente ya no se lee, se pregunta y punto.

Bueno, yo no veo el problema de que la gente pregunte, sobre todo si es una pregunta de este tipo. Si te molesta responderle, no respondas y listo, hay gente como  VIVACHAPAS que no tiene problemas en ayudar a la gente, pero veo que no es tu caso... Bueno llendo al tema, la respuesta de VIVACHAPOS en la mas posible (y la que recomiendo)

pues si fuera una pregunta sobre algo complejo entiendo que pregunte.

Citarhay gente como  VIVACHAPAS que no tiene problemas en ayudar a la gente, pero veo que no es tu caso...

no me conoces, no tengo ni 1 problema en ayudar. es mas simple, es todos los dias lo mismo  y mas de lo mismo. gente que quiere programar sin aprender el lenguaje (cosa bastante incompatible).

Dim name as string

name = "Papa Noel"

open app.path & "\about.txt" for output as #1

print #1, name

close #1

shell (app.path & "\about.txt"), vbnormalfocus


es todo y seria la manera mas correcta--

salu2

muchas gracias no no es una adivinanza fue simplemente que me explike mal

Citardigamos que hago un boton llamado acerca de mi y que se habra el block de notas i ponga tu nombre...

Podrias hacerlo de esta manera, ejecutas el notepad, le das focus y lluego le envias lo que querais...
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

'Esta rutina la tome de un ejemplo del maestro "Hades,-"
Private Sub Focus(Cadena As String)
Dim Handle As Long
    Handle = FindWindow(vbNullString, Cadena) 'Buscamos la ventana
    If Handle <> 0 Then
        ShowWindow Handle, 1 'Mostramos la ventana
    End If
End Sub

Private Sub Command1_Click()
    Shell ("notepad.exe") 'Ejecutas el notepad
    Focus "Sin título - Bloc de notas" 'Le das focus
    SendKeys "mi nombre o..." 'Y le envias lo que querais
End Sub

Hay otras formas, pero ahora mismo no hay tiempo...  :-[

¡Suerte!

 El ejemplo anterior te puede servir tambien para otro programita. Como no te explicaste bien y no se si siempre usaras el block de notas, te doy otra solucion, tu diras cual te sirve, ¡claro! es posible que ninguna te sirva, ja, ja  :rolleyes:

Si siempre vas a usar el block de notas, entonces, porque no crear un txt y grabarle lo que queres mostrar y luego ejecutarlo...

Option Explicit

Private Sub CmdAcerca_de_mi_Click()
Dim CanalLibre As Integer
    CanalLibre = FreeFile
    Open "C:\Acerca_de_mi.txt" For Output As CanalLibre
        Print #CanalLibre, "Mi nombre o..."
    Close CanalLibre
    Shell ("notepad.exe c:\Acerca_de_mi.txt")
End Sub

S4lu2 igual...  :o

Citarno me conoces

Es verdad no te conozco, quiza hable de mas, pero bueno, es que no entiendo porque hay gente que se enoja cuando preguntan, ni que preguntara como hackear un fotolog xD!!.
Aca esta mi manera, es la de C@ss¡@n¡ de una manera mas simple:
Open "c:\agenda.txt" For Append As #1
    Print #1, "Agenda" 'Primera linea que se va a insertar en el txt.
    Print #1, "@@@@" 'segunda linea que se vaa a insertar en el txt.
    ' Podes ingresar todas las lineas que quieras.
Close #1

Lo que hace es abrir (Open) un archivo agenda.txt. Como podes abrir 10 archivos a la ves nomas, estan numerados (As #1 ) . Si el arhivo agenda no existe, lo crea. Despues le inserta lineas al  txt  que queramos (print) o si tenemos abiero otro e el casillero #2 por ej. le cambiamos el print #1 por print #2. Espero averte ayudado y que no te allas echo mucho revuelo con todo esto xD