Antes de nada gracias a todos los que colaboran con el foro, me has salvado la vida mil y una veces. Dicho esto, tengo un problema con un array, que cuando la envio por un send a un formulario web, se vuelve loco
y empieza a a abrir pestañas. El texto lo saco de una web y lo divido en secciones con stringsplit, lo que me devuielve un array que no se manejar. Os dejo el codigo (es muy sencillo) a ver si alguien me puede hechar una mano. Muchas gracias de antemano.Código: Seleccionar todo
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Clipboard.au3>
#include <MsgBoxConstants.au3>
#include <Excel.au3>
#include <String.au3>
#include <IE.au3>
#include <Misc.au3>
Local $idCQS = "KP5WHDQF8-1"
Local $oIE = _IECreate("http://gsit.intranet.gencat.cat/gsitfa/AppJava/front2/search.do?reqCode=front2SearchCreate")
_IELoadWait ($oIE)
WinWaitActive ( "Cercador" )
WinSetState ( "Cercador", "", @SW_MAXIMIZE )
Local $oForm = _IEFormGetCollection($oIE, 0)
Local $oQuery = _IEFormElementGetCollection($oForm, 3)
_IEFormElementSetValue($oQuery, "KP5WHDQF8-1")
_IEFormSubmit($oForm)
_IELoadWait ($oIE)
_IELinkClickByText($oIE, "Seguiment")
_IELoadWait ($oIE)
WinWaitActive ( "Dades de contacte" )
sleep (2000)
Local $sHTML = _IEBodyReadText($oIE)
$var = StringSplit($sHTML, 'Assumpte:', 1)
$assumpte = StringSplit($var[2], 'Detall:', 1)
$var1 = StringSplit($sHTML, 'Detall:', 1)
$detall = StringSplit($var1[2], 'Dades addicionals:', 1)
$var2 = StringSplit($sHTML, 'Dades addicionals:', 1)
$dades = StringSplit($var2[2], 'Mitjà de resposta preferent:', 1)
MsgBox(4096, "Document Source", "TITULO: " &$assumpte[1] & "DETALLE: " &$detall[1]& "DATOS: " &$dades[1])
ShellExecute ("firefox.exe","http://suport.gencat.cat/framedesk/user/new.asp")
WinWaitActive ( "SUPORT - Nou tiquet" )
sleep (2000)
Send ("{TAB 14}{SPACE}")
Send ("{TAB}Serveis d'atenció - FA_N2 - Frontal Agents - Tractament")
Send ("{TAB}")
sleep (2500)
Send ("{TAB}s")
Send ("{TAB 4}")
Send ("" & $idCQS & " - " & $assumpte[1], 1)
Send ("{TAB}")
Send ("" & $detall[1] & @CRLF & $dades[1], 1)
