elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


  Mostrar Mensajes
Páginas: [1]
1  Programación / Programación Visual Basic / como interactuar con la shell (cmd) desde visual en: 24 Julio 2007, 04:26 am
hola, hace unos dias me he propuesto crear un programita para enviar mails por telnet, pero el gran problema que me surgio es como interactar con la linea de comandos,

la idea es la siguiente, en un formulario normal ingresar los datos ( servidor  smtp, mail from, rctp to, data) pero a la hora de mandarlo a la shell no encuentro la manera de mandarlo por separado, por  ahora lo que he logrado es abrir la shell y mandarle "telnet" + servidor + puerto, con el siguiente codigo. pero luego debo ingresar los demas datos:

Código
  1. Dim Comando As String
  2. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
  3. Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
  4. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  5. Const STILL_ACTIVE = &H103
  6. Const PROCESS_QUERY_INFORMATION = &H400
  7. Dim cont As Integer
  8. Private Sub ExecCmdNoFocus(ByVal CmdLine As String)
  9. 'Esperar a que un proceso termine,
  10. 'la ventana se mostrará minimizada sin foco
  11. Dim hProcess As Long
  12. Dim RetVal As Long
  13.  
  14. 'captura la id del proceso
  15. hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(CmdLine, vbMinimizedFocus))
  16. Do
  17.  
  18. 'obtiene es status del proceso
  19. GetExitCodeProcess hProcess, RetVal
  20. DoEvents
  21. Sleep 100
  22. ' hace un loop mientras el proceso este activo
  23. Loop While RetVal = STILL_ACTIVE
  24. End Sub
  25.  
  26.  
  27.  
  28. Private Sub Command1_Click()
  29.  
  30. Comando = "Telnet " + Text1.Text + " 25"
  31.  
  32. ExecCmdNoFocus (Comando)
  33.  
  34. End Sub

el codigo no es mio, es extraido de otra pagina

 bueno, agradeceria su ayuda
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines