ayuda con editor mceEditor

Pregunta Sin Miedo no te cortes cualquier cosa para empezar - Autoit se comienza facilmente.Para Ordenes o Comandos sueltos. Ver nota como preguntar.
Responder
greenber
Mensajes: 9
Registrado: 14 Feb 2012, 13:42

ayuda con editor mceEditor

Mensaje por greenber »

Hola, alguien sabe como acceder al cuadro de texto que hay en hotmail y gmail para escribir el cuerpo del mensaje? es una especie de editor mceEditor. no he encontrado información al respecto en el foro.

Un saludo.
Avatar de Usuario
Ximorro
Profesional del Autoit
Mensajes: 1500
Registrado: 10 Jul 2009, 12:35
Ubicación: Castellón, España

Re: ayuda con editor mceEditor

Mensaje por Ximorro »

Esos controles son especiales pues no son controles estándar de Windows, sino que son controles web.
Mientras te responde algún experto en manipular páginas de internet (yo no lo soy) te puedo decir que yo hice algo parecido "a pelo", cutre pero como solución inicial funciona.

Simplemente como el edit de edición ocupa la mayor parte del panel donde se renderiza la página (en mi Firefox una MozillaWindowClass), lo que hago es hacer clic en una posición central de ese panel, donde seguro está el edit de edición, por ejemplo por la mitad en X y al 70% en Y. Así pincha dentro y deja el cursor del teclado.

Otra opción sería navegar con el teclado, a base de TABs hasta que llegue al sitio...

La opción más elegante será trabajar con el código de la página y activar el control web directamente, pero yo con eso no te puedo ayudar mucho...
"¿Y no será que en este mundo hay cada vez más gente y menos personas?". Mafalda (Quino)
Avatar de Usuario
Dany
Profesional del Autoit
Mensajes: 651
Registrado: 28 Mar 2012, 22:49

Re: ayuda con editor mceEditor

Mensaje por Dany »

Mira este ejemplo que envia a gmail. si lo modificas puedes lograr lo que quieres.
el código no es mio.

Código: Seleccionar todo

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.5.6 (beta)
Author:	    warrior

Script Function:
   Template AutoIt script.

#ce ----------------------------------------------------------------------------


Opt("TrayIconHide", 0)
#include <GUIConstants.au3>
#Include<file.au3>

FILEINSTALL("1.bmp",@TEMPDIR&"1.bmp")
$DESTINATION=@TEMPDIR&"1.bmp"
SPLASHIMAGEON("MSN [email protected]",$DESTINATION,228,217)
SLEEP(1000)
SPLASHOFF()


$Form1 = GUICreate("Gmail Send", 372, 369, 193, 125)
GUICtrlCreatelabel("Destinatario:", 40, 10, 70, 21)
$Input1 = GUICtrlCreateInput("[email protected]", 40, 24, 137, 21)
GUICtrlCreatelabel("Asunto:", 40, 47, 70, 21)
$Input6 = GUICtrlCreateInput("", 40, 64, 137, 21)
GUICtrlCreatelabel("Nombre:", 216, 47, 70, 21)
$Input7 = GUICtrlCreateInput("", 216, 64, 137, 21)
$Input2 = GUICtrlCreateInput("[email protected]", 216, 24, 137, 21)
GUICtrlCreatelabel("Password:", 40, 280, 55, 21)
$Input3 = GUICtrlCreateInput("", 40, 298, 105, 21)
GUICtrlCreatelabel("Usuario:", 40, 240, 39, 21)
$Input4 = GUICtrlCreateInput("lobosolitariowarrior", 40, 256, 105, 21)
GUICtrlCreatelabel("@gmail.com", 150, 260, 60, 21)
$Edit1 = GUICtrlCreateEdit("", 40, 100, 315, 137)
GUICtrlSetData(-1, "Mensaje")
GUICtrlCreatelabel("Enviar:", 290, 260, 60, 21)
$Input5 = GUICtrlCreateInput("1", 290, 280, 49, 21)
$Button1 = GUICtrlCreateButton("Enviar", 270, 320, 81, 33, 0)
$Button2 = GUICtrlCreateButton("Abjuntar", 40, 320, 81, 33, 0)
GUISetState(@SW_SHOW)

dim $as
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
   Case $GUI_EVENT_CLOSE
  Exit

   Case $Button1
  $a = " "&Guictrlread($input7)
   
   $i=1
   $x=0
   $aux=0
  $s_SmtpServer = "smtp.gmail.com"	   
$s_FromName = $a	
$s_FromAddress = Guictrlread($input2)
$s_ToAddress = Guictrlread($input1) 
$s_Subject = Guictrlread($input6)	    
$as_Body =Guictrlread($edit1)	     
$s_AttachFiles = $As	
$s_CcAddress = ""	
$s_BccAddress = ""  
$s_Username = Guictrlread($input4)&"@gmail.com"	    
$s_Password = Guictrlread($input3)	     
;$IPPort = 25	    
$ssl = 1	   
$IPPort=465	    
    

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
If @error Then
   MsgBox(0, "Error sending message", "Error code:" & @error & "  Rc:" & $rc)
EndIf
;



  

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
   
   
   
$x=Number(Guictrlread($input5))
While $aux <$x
  $aux +=1
$s_FromName = $aux&$a
   $objEmail = ObjCreate("CDO.Message")
   $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
   $objEmail.To = $s_ToAddress
   Local $i_Error = 0
   Local $i_Error_desciption = ""
   If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
   If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
   $objEmail.Subject = $s_Subject
   If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
   $objEmail.HTMLBody = $as_Body
   Else
   $objEmail.Textbody = $as_Body & @CRLF
   EndIf
   If $s_AttachFiles <> "" Then
   Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
   For $x = 1 To $S_Files2Attach[0]
  $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
  If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
  Else
$i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
return 0
  EndIf
   Next
   EndIf
   $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
   $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
   If $s_Username <> "" Then
   $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
   $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
   $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
   EndIf
   If $Ssl Then
   $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
   EndIf
;Update settings
   $objEmail.Configuration.Fields.Update
; Sent the Message
   $objEmail.Send
   if @error then
   SetError(2)
   return $oMyRet[1]
   
   EndIf
   TrayTip ( "Evios de Mensajes", "Mensaje N° "& $aux , 1 ,0 )


  WEnd
  
EndFunc;==>_INetSmtpMailCom












;
;
; Com Error Handler
Func MyErrFunc()
   $HexNumber = Hex($oMyError.number, 8)
   $oMyRet[0] = $HexNumber
   $oMyRet[1] = StringStripWS($oMyError.description,3)
   ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
   SetError(1); something to check for when this function returns
   Return
EndFunc;==>MyErrFunc
  Case $Button2
_FILEOPENDIALOG()
   
  MsgBox(4096, "Cargando", "" & $as )    
   EndSwitch
WEnd

FUNC _FILEOPENDIALOG($DIALOGTITLE="Selecciona archivo a enviar",$DEFAULTPATH="",$FILTER="Imagenes (*.*)",$OPTIONS=8,$DEFAULTFILENAME="",$GUIHWND=0)
$VAR=FILEOPENDIALOG($DIALOGTITLE,$DEFAULTPATH,$FILTER,$OPTIONS,$DEFAULTFILENAME,$GUIHWND)
$VAR1=$VAR
IF NOT @ERROR THEN
LOCAL $OUTPATH
$TEXARRAY=STRINGSPLIT($VAR,"\")
FOR $I=1 TO $TEXARRAY[0]
$OUTPATH&=$TEXARRAY[$I]&"\"
IF $I=$TEXARRAY[0]THEN $OUTPATH=STRINGTRIMRIGHT($OUTPATH,1)
$NOMBRE=$TEXARRAY[$I]
NEXT
ENDIF
IF @ERROR=1 THEN
EXIT
ENDIF
IF @ERROR=2 THEN
EXIT
ENDIF
$as=$OUTPATH
ENDFUNC
  • ............................................Imagen
    ......................................Imagen
greenber
Mensajes: 9
Registrado: 14 Feb 2012, 13:42

Re: ayuda con editor mceEditor

Mensaje por greenber »

hola, gracias, me imagino que tirara, pero me sigue pasando lo mismo que con otros códigos que he probado, "error de transporte", sera cosa de mi pc...?? :smt021
Avatar de Usuario
Ximorro
Profesional del Autoit
Mensajes: 1500
Registrado: 10 Jul 2009, 12:35
Ubicación: Castellón, España

Re: ayuda con editor mceEditor

Mensaje por Ximorro »

¿¿Error de transporte?? ¿dónde te da ese error tan raro?
"¿Y no será que en este mundo hay cada vez más gente y menos personas?". Mafalda (Quino)
Responder