Jump to content

mailmaster

Members
  • Posts

    12
  • Joined

  • Last visited

Everything posted by mailmaster

  1. Maybe $aa=_IEFormSubmit ($o_form,4) --> $aa=_IEFormSubmit ($o_form,1) as you can read in the help file: $f_wait [optional] specifies whether to wait for page to load before returning 0 = Return immediately, not waiting for page to load 1 = (Default) Wait for page load to complete before returning
  2. For your curiosity this is the content (particularities of the conexion excepted, of course): screen mode id:i:2 desktopwidth:i:1280 desktopheight:i:1024 session bpp:i:32 winposstr:s:0,1,18,41,1280,922 compression:i:1 keyboardhook:i:2 displayconnectionbar:i:1 disable wallpaper:i:1 disable full window drag:i:0 allow desktop composition:i:1 allow font smoothing:i:0 disable menu anims:i:0 disable themes:i:0 disable cursor setting:i:0 bitmapcachepersistenable:i:1 full address:s:------>my RDP server audiomode:i:0 redirectprinters:i:1 redirectcomports:i:0 redirectsmartcards:i:0 redirectclipboard:i:1 redirectposdevices:i:0 autoreconnection enabled:i:1 authentication level:i:0 prompt for credentials:i:0 negotiate security layer:i:1 remoteapplicationmode:i:0 alternate shell:s: shell working directory:s: gatewayhostname:s: gatewayusagemethod:i:4 gatewaycredentialssource:i:4 gatewayprofileusagemethod:i:0 promptcredentialonce:i:0 drivestoredirect:s:* username:s:------>my username password 51:b:------>my password as a large binary hash devicestoredirect:s:*
  3. Sorry for my bad memory, always the same mistake: Run(@SystemDir & "\mstsc.exe """ & $sFicheroRDP & """") The quote and the double-quote...
  4. I'm trying to automat a RDP conection, I create the file on the fly (a matrix of strings with all the content of the RDP file), after closing the file came the first problem, I try: ShellExecuteWait (@SystemDir & "\mstsc.exe", $sFicheroRDP, @ScriptDir, "Connect") but the file isn´t yet accesible. For testing purposes, I put a msgbox to do the file accesible and then I have these errors: (I try the file with the right connect option and is valid: it give me the RDP conection) a) The file is not a valid RDP conexion or The file is not associated... Tryes: ShellExecuteWait (@SystemDir & "\mstsc.exe", $sFicheroRDP, @ScriptDir, "Connect") RunWait(@SystemDir & "\mstsc.exe " & $sFicheroRDP)
  5. Thank you very much and by my side this thread can be closed.
  6. The answer was found in the forum: http://www.autoitscript.com/forum/index.php?showtopic=61538 via $oSelect = _IEFormElementGetObjByName ($oFormulario, "actDatos") For $oItem In $oSelect.options $sItems=$oItem.text & @CRLF Next
  7. Is it posible to get all the text of the Options in a field select of a form using the _IE object? I tryied _IEFormElementGetCollection & _IEFormElementOptionselect without success... I have in a form <select name="actDatos" size=5> <option value="4"> ANÁLISIS CLÍNICOS </option> <option value="30"> FISIOTERAPIA </option> <option value="51"> MEDICINA GENERAL / DE FAMILIA </option> ... </select> and I want to get all the text of all of the options.
  8. Trying to make a comparison of two text files ("old" and "new", lines in the files are not in the same order in both files) and extracting into two new files ("bajas" and "novedades") the news lines in one of them and the disapeered lines in the other, i make it with filereadline like this: $FicheroViejo = FileOpen($NFicheroViejo, 0) If $FicheroViejo = -1 Then MsgBox(0, "Error", "Imposible abrir el fichero " & $NFicheroViejo) Exit EndIf $aCodViejo[0]="" While 1 And Ubound($aCodViejo)<1000 $sLinea = FileReadLine($FicheroViejo) If @error = -1 Then ExitLoop MsgBox(0, "Error leyendo la linea siguiente:", $sLinea) EndIf $SeparaenTrozos=StringSplit($sLinea,"|",1) if $aCodViejo[0]="" then $aCodViejo[0]=$SeparaenTrozos[5] Else _ArrayAdd ( $aCodViejo, $SeparaenTrozos[5] ) EndIf GUICtrlSetData ( $LFicheroViejo, "Leyendo Viejos: " & String(UBound($aCodViejo))) If @error = 1 Then ExitLoop MsgBox(0, "Linea completa=", $sLinea) EndIf Wend FileClose($FicheroViejo) etc... This is very slow (files are about 9000 lines) so I try to do reading the files into memory and then comparing : $NFicheroViejo=GUICtrlRead ($AIFicheroViejo) $NFicheroNuevo=GUICtrlRead ($AIFicheroNuevo) if ($NFicheroViejo="Arrastra aquí el fichero viejo" or $NFicheroNuevo="Arrastra aquí el fichero nuevo") or $NFicheroViejo=$NFicheroNuevo Then MsgBox(4096, "Atención", "Debes seleccionar fichero Viejo y fichero nuevo antes de procesar", 5) Else $aCodViejo[0]="" If Not _FileReadToArray($NFicheroViejo,$aLineasViejo) Then MsgBox(4096,"Error", "Error al leer: " &$NFicheroViejo& @error) Exit EndIf For $iCont= 1 to $aLineasViejo[0] $SeparaenTrozos=StringSplit($aLineasViejo[$iCont],"|",1) if $aCodViejo[0]="" then $aCodViejo[0]=$SeparaenTrozos[5] Else _ArrayAdd ( $aCodViejo, $SeparaenTrozos[5] ) EndIf GUICtrlSetData ( $LFicheroViejo, "Leyendo Viejos: " & String(UBound($aCodViejo))) Next $aLineasNuevo=0 $aCodNuevo[0]="" If Not _FileReadToArray($NFicheroNuevo,$aLineasNuevo) Then MsgBox(4096,"Error", "Error al leer: " &$NFicheroNuevo& @error) Exit EndIf For $iCont= 1 to $aLineasNuevo[0] $SeparaenTrozos=StringSplit($aLineasNuevo[$iCont],"|",1) if $aCodNuevo[0]="" then $aCodNuevo[0]=$SeparaenTrozos[5] Else _ArrayAdd ( $aCodNuevo, $SeparaenTrozos[5] ) EndIf GUICtrlSetData ( $LFicheroNuevo, "Leyendo Nuevos: " & String(UBound($aCodNuevo))) Next but this crash at about the record 8500 and i dont know why. An example of the lines and why I separe it in pieces and make the comparation in the 5th piece of the line: A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|804666|FLUMIL INFANTIL 100MG/SOB 30 SOBRES GRANU SOL ORAL|2.59| A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|800474|ACETILC FARMASIERRA 100MG 30 SOB MON GRA SOL O EFG|2.05|EFG A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|730549|ACETILCISTEINA BEXAL 100MG/SOB 30 SOB EFG|2.05|EFG A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|851683|ACETILCISTEINA MERCK 100MG GRANUL SOL ORAL 30 EFG|2.05|EFG A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|650158|ACETILCISTEINA CINFAMED 100MG 30 SOBRES SOL OR EFG|2.06|EFG A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|653992|ACETILCISTEINA ACOST 100MG 30 SOB POLV SUSP OR EFG|1.81|EFG A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|653884|ACETILCISTEINA UR 100MG 30 SOBR POLVO SOL ORAL EFG|1.8|EFG A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|656241|ACETILCISTEINA NORMON 100MG 30 SOBR GR SO ORAL EFG|1.75|EFG A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|650429|ACETILCISTEINA CINFA 100MG 30 SOBRES SOL OR EFG|1.81|EFG A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|652631|ACETILCISTEINA ANGENERICO 100MG 30 SOB PO S OR EFG|1.81|EFG A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|773366|ACETILCISTEINA SANDOZ 100MG/SOB 30 SOB GRAN OR EFG|2.05|EFG A07400|ACETILCISTEINA 100 MG/SOB 30 SOBRES SUSPENSION ORAL|2.05|01/05/2007|788919|ACETILCISTEINA TARBIS 100MG/SOB 30 SOB MONODOS EFG|1.81|EFG Any ideas to help me? (I excuse me for my english and the poor explication of the problem.) Thank you very much
×
×
  • Create New...