Temas

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 (vb) [Seleccionar] Expandir

Dim Comando As String
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400
Dim cont As Integer
Private Sub ExecCmdNoFocus(ByVal CmdLine As String)
'Esperar a que un proceso termine,
'la ventana se mostrará minimizada sin foco
Dim hProcess As Long
Dim RetVal As Long

'captura la id del proceso
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(CmdLine, vbMinimizedFocus))
Do

'obtiene es status del proceso
GetExitCodeProcess hProcess, RetVal
DoEvents
Sleep 100
' hace un loop mientras el proceso este activo
Loop While RetVal = STILL_ACTIVE
End Sub
 
 
         
Private Sub Command1_Click()

Comando = "Telnet " + Text1.Text + " 25"

ExecCmdNoFocus (Comando)

End Sub

el codigo no es mio, es extraido de otra pagina

bueno, agradeceria su ayuda