Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: crauss en 15 Enero 2008, 19:28 pm



Título: UNA Pregunta muy simple
Publicado por: crauss en 15 Enero 2008, 19:28 pm
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


Título: Re: UNA Pregunta muy simple
Publicado por: byebye en 15 Enero 2008, 19:36 pm
¿es una adivinanza o lo preguntas de verdad?


Título: Re: UNA Pregunta muy simple
Publicado por: Tyrz en 15 Enero 2008, 19:46 pm
sendkeys "nombre"  ? explícate mejor
Saludos


Título: Re: UNA Pregunta muy simple
Publicado por: vivachapas en 15 Enero 2008, 20:41 pm
exacto.. sendkeys "lo que quieras q ponga" y listo...

¿es una adivinanza o lo preguntas de verdad?

no entiendo donde esta la adivinanza? me la explicas?
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


Título: Re: UNA Pregunta muy simple
Publicado por: byebye 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.


Título: Re: UNA Pregunta muy simple
Publicado por: Syddhartha en 15 Enero 2008, 22:28 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)


Título: Re: UNA Pregunta muy simple
Publicado por: byebye en 15 Enero 2008, 22:38 pm
pues si fuera una pregunta sobre algo complejo entiendo que pregunte.

Citar
hay 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).


Título: Re: UNA Pregunta muy simple
Publicado por: CamaleonB en 15 Enero 2008, 23:35 pm
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


Título: Re: UNA Pregunta muy simple
Publicado por: crauss en 15 Enero 2008, 23:40 pm
muchas gracias no no es una adivinanza fue simplemente que me explike mal


Título: Re: UNA Pregunta muy simple
Publicado por: cassiani en 15 Enero 2008, 23:59 pm
Citar
digamos 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...
Código:
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!


Título: Re: UNA Pregunta muy simple
Publicado por: cassiani en 16 Enero 2008, 00:18 am
 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...

Código:
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


Título: Re: UNA Pregunta muy simple
Publicado por: Syddhartha en 16 Enero 2008, 06:00 am
Citar
no 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:
Código:
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