Newsgroup: it.comp.os.win.xp
Titolo: Esecuzione automatica scansione online?

Sapete se c'č modo con uno script o altro di eseguire in automatico la
scansione antivirus del seguente indirizzo?
http://www.bitdefender.com/scan8/ie.html
In pratica con un'operazione pianificata vorrei capire se posso fare
aprire ad un orario prestabilito la pagina con IE ed eseguire
automaticamente "I Agree" e "Click here to scan".
-- 
Stefano L (rimuovere NOSPAM_ per rispondere in e-mail)

 automaticamente "I Agree" e "Click here to scan".
Si .. ma devi saper smanettare un pochino :
(hai parlato tu di script .. altrimenti non l'avrei postato visto che non e'
proprio semplicissimo)
scarica la beta di auto it :
http://www.autoitscript.com/autoit3/files/beta/autoit/
non sono andato a controllare il sito sopra ma qui sotto ci sono esempi generici
Per vedere cosa devi fare tu apri la tua pagina e leggi l'html
(cerca >> I Agree e Click here to scan )
scarica anche IE.au3 che trovi qui
http://www.autoitscript.com/forum/index.php?showtopic=13398
aprilo con notepad e vedi i metodi e varie opzioni
IE.au3 deve o essere nella sua collocazione naturale che e'
C:\Programmi\Autoit3\include  oppure nella directory dello script stesso
;esempio 1 :
#include <IE.au3>
$o_IE = _IECreate ()
_IENavigate ($o_IE, "
http://autoitscript.com
")
_IEClickLinkByText ($o_IE, "forum")
_IEClickLinkByText ($o_IE, "Search")
$o_SearchForm = _IEFormGetObjByName ($o_IE, "sForm")
$o_Keywords = _IEFormElementGetObjByName ($o_SearchForm, "keywords")
_IEFormElementSetValue ($o_Keywords, "ReadyState")
_IEFormSubmit ($o_SearchForm)
; esempio 2 test appena effettuato al volo lascio tutte le prove
#include <IE.au3>
$oIE = _IECreate()
;;;;;;$oIE.visible = 0
_IENavigate($oIE, "
http://190.it/190/trilogy/jsp/home.do?tabName=HOME+190&BV_UseBVCookie=No&ty_skip_md=true
")
$oForm = _IEFormGetObjByName($oIE, "loginForm")
$oQuery = _IEFormElementGetObjByName($oForm, "username")
$oQuery2 = _IEFormElementGetObjByName($oForm, "password")
$oButton = _IEFormElementGetObjByName($oForm, "ok")
_IEFormElementSetValue($oQuery, "USERNAME")
_IEFormElementSetValue($oQuery2, "PASSWORD")
Sleep(1500)
; _IEClickImg($oIE  , "Ok", "alt", 0, 1)
;_IEClickImg($oIE, "Ok", "name", 0, 1)
;_IEClickImg($oForm, "Ok")
; MsgBox(262144, "", _IEIsFrameSet($oIE)) ; no 0
;MsgBox(262144, "", _IEIsFrameSet($oForm)) no 0
;MsgBox(262144, "",_IEDocumentGetObj($oIE)) ;  si
_IEFormSubmit($oForm)
; MsgBox(262144, "",_IEFormElementGetCount($oForm))
Sleep(3000)
 AutoItSetOption("WinTitleMatchMode", 4)
  WinWaitActive( "Avviso di protezione", "", 10 )
  ControlFocus ( "Avviso di protezione","" , "Button1" )
  ControlClick ("Avviso di protezione","","Button1")
sleep(1000)
; ;_IENavigate($oIE, "
http://www.areaprivati.190.it
   ecc
; qui continua con altro
;;;;;;;$oIE.visible = 1
Exit
; dopo aver scaricato la beta di Autoit3 ed IE.au3  prova il sopra cosi :
;Copia incolla su notepad e salva con estensione .au3
;tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.au3)
della beta puoi scaricare l'installer o lo zip se scarichi il secondo
poi fai partire lo script.au3 cosi :
start esegui
C:\Programmi\Autoit3\AutoIt3.exe  c:\test.au3
oppure click destro su  test.au3  con shift premuto   ed apri con :
C:\Programmi\Autoit3\AutoIt3.exe
PS:
l'orario o con il task (operazioni pianificate) di Windows o direttamente
nello script
--
Fosco

 "Stefano L"
scolta .. NON ci capisco una cippa di Javascript ed oggi non
ho neppure il tempo di fare degli esperimenti di sicuro c'e
una maniera migliore .. se vai sul forum o guardi nelle proprieta'
di IE.au3 trovi di sicuro  intanto una cosa sporca e veloce
simula il click del mouse  .. a seconda della risoluzione video devi
aggiustarti da solo le coordinate ... sono arrivato solo alla prima
pagina perche' dopo chiedevadi installare qualcosa continua tu :
seve l'autoit beta ed IE.au3
#include <IE.au3>
   _IECreateAndNav()
Func _IECreateAndNav($s_URL = "
http://www.bitdefender.com/scan8/ie.html
",$f_visible = 1)
$o_object = ObjCreate("InternetExplorer.Application")
   If IsObj($o_object) Then
      $o_object.visible = $f_visible
      $o_object.navigate ($s_URL)
         While _IEGetProperty($o_object, "busy") or _
            ((_IEGetProperty($o_object, "readyState") <> "complete") and (_IEGetProperty($o_object, "readyState") <> 4))
            Sleep(3000)
             ; MsgBox(0, "", "")
         WEnd
      _IELoadWait($o_object)
      SetError(0)
   ;$divs = _IETagNameGetCollection ($o_object.document, "")
   ;MsgBox(262144, "", $divs  & @CRLF)
   ;_FWrite(@TempDir & "\tmp.tmp",$divs  & @CRLF)
 MouseClick("right",290,432)
      Return $o_object
   Else
      SetError(1)
      Return 0
   EndIf
EndFunc  ;==>_IECreateAndNav
Func _FWrite($temp1,$text)
$file = FileOpen($temp1, 2)
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
FileWrite($file, $text & @CRLF)
FileClose($file)
EndFunc

 "Stefano L"
;ecco questo lo fa' nella maniera "ortodossa" come detto io arrivo
;fino al  "I Agree"  devi continuare tu ;
#include <IE.au3>
   _IECreateAndNav()
Func _IECreateAndNav($s_URL = "
http://www.bitdefender.com/scan8/ie.html
",$f_visible = 1)
$o_object = ObjCreate("InternetExplorer.Application")
   If IsObj($o_object) Then
      $o_object.visible = $f_visible
      $o_object.navigate ($s_URL)
While _IEGetProperty($o_object, "busy") or _
((_IEGetProperty($o_object, "readyState") <> "complete") and (_IEGetProperty($o_object, "readyState") <> 4))
            Sleep(3000)
         WEnd
      _IELoadWait($o_object)
      SetError(0)
   _IEClickImg($o_object, "I Agree", "alt")
      Return $o_object
   Else
      SetError(1)
      Return 0
   EndIf
EndFunc  ;==>_IECreateAndNav
--
Fosco

 > "Stefano L"
ti ho incluso tutto NON ti serve piu IE.AU3 ma solo
http://www.autoitscript.com/autoit3/files/beta/autoit/
$oIE = _IECreate()
sleep(500)
   _IENavigate($oIE,"
http://www.bitdefender.com/scan8/ie.html
")
sleep(200)
  _IEClickImg($oIE, "I Agree", "alt")
   Func _IENavigate($o_object, $s_url, $f_wait = 1)
    If IsObj($o_object) Then
        $o_object.navigate ($s_url)
        If ($f_wait = 1) Then _IELoadWait($o_object)
        SetError(0)
        Return -1
  ;  _IEClickImg($o_object, "I Agree", "alt")
    Else
        SetError(1)
        Return 0
    EndIf
EndFunc   ;==>_IENavigate
Func _IECreate($f_visible = 1)
    $o_object = ObjCreate("InternetExplorer.Application")
    If IsObj($o_object) Then
        $o_object.visible = $f_visible
        $o_object.navigate ("about:blank")
        SetError(0)
        Return $o_object
    Else
        SetError(1)
        Return 0
    EndIf
EndFunc   ;==>_IECreate
Func _IELoadWait($o_object, $i_delay = 0)
    If IsObj($o_object) Then
  $s_oname = ObjName($o_object)
  Sleep($i_delay)
        While ($o_object.document.readyState <> "complete") and ($o_object.document.readyState <> 4)
            Sleep(100)
        WEnd
        SetError(0)
        Return 1
    Else
        SetError(1)
        Return 0
    EndIf
EndFunc   ;==>_IELoadWait
   Func _IEClickImg($o_object, $s_linkText, $s_mode = "src", $i_index = 0, $f_wait = 1)
    $doc = $o_object.document
    $imgs = $doc.images
    $found = 0
    $s_mode = StringLower($s_mode)
    For $img In $imgs
        Select
            Case $s_mode = "alt"
                $linkText = $img.alt
            Case $s_mode = "name"
                $linkText = $
img.name
            Case $s_mode = "src"
                $linkText = $img.src
            Case Else
                ;; Invalid mode
                SetError(99)
                Return 0
        EndSelect
        If StringInStr($linkText, $s_linkText) Then
            if ($found = $i_index) Then
                $result = $img.click
                Sleep(500) ; Allow readystate to change before proceeding
                If ($f_wait = 1) Then _IELoadWait($o_object)
                SetError(0)
                Return 1
            EndIf
            $found = $found + 1
        EndIf
    Next
    SetError(1)
    Return 0
EndFunc   ;==>_IEClickImg
;'Copia incolla su notepad e salva con estensione .au3
;'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.au3)
;'se ti da' errore disattiva l'antivirus
--
Fosco

 
http://www.autoitscript.com/autoit3/files/beta/autoit/
Upps
questo e' il setup completo se ti senti imbranatino
http://www.autoitscript.com/autoit3/files/beta/autoit/autoit-v3.1.1.118-beta-Setup.exe
e questo e' lo zip senza installer se sei scafato
http://www.autoitscript.com/autoit3/files/beta/autoit/autoit-v3.1.1.118.zip
lo metti in C:\Programmi\Autoit3
e poi o puoi  start esegui
C:\Programmi\Autoit3\AutoIt3.exe c:\test.au3
o cliccare col shift premuto su test.au3  >> apri con C:\Programmi\Autoit3\AutoIt3.exe
--
Fosco