AutoIT Chiudere un aplicazione exe

AbsolutionZero · 1 Novembre 2014

Sera a tutti, vorrei chiedere una cosa, come facci a far chiudere un aplicazione .exe del mio pc con autoit?
per ora ho provato a fare cosi:

Codice:

If WinExists("[CLASS:InternetExplorer") Then
       WinClose("[CLASS:InternetExplorer")
EndIf

pero questo modo non funziona o almeno nno mi chiude internet explorer... al posto di winclose ho provato a mettere winkill che arresta forzatemene le app na nniente neanche quello, poi ho provato a usare al posto di class a mettere il percorso del exe di internet explorer ma nnt, come posso fare?

ONE OK ROCK · 1 Novembre 2014

Prova ad utilizzare ProcessClose() e come primo paramentro di metti o il PID o il nome del processo..

Codice:

ProcessClose("chrome.exe")

Per altre info --> https://www.autoitscript.com/autoit3/docs/functions/ProcessClose.htm

AbsolutionZero · 1 Novembre 2014

Grande Bro funziona tutto alla perfezione!!

Grazie Mille!
P.S hai letto l'mp?

ONE OK ROCK · 1 Novembre 2014

AbsolutionZero ha detto:
Grande Bro funziona tutto alla perfezione!! Grazie Mille!
P.S hai letto l'mp?

Nulla, se il problema so risolverlo rispondo u_u
Letto, di sti giorni loggo su fb e faccio tutto quello che vuoi :asd:

AbsolutionZero · 2 Novembre 2014

Visto che ci sono...posso farti un altra domanda? come posso far cliccare su una barra di ricerca il mouse? senza usare mouseclick che e scomodo?

ONE OK ROCK · 2 Novembre 2014

La barra di ricerca fa parte del tuo programma, di una pagina _IE o di un programma a parte?

AbsolutionZero · 2 Novembre 2014

questo e quello che sto facendo per ora:
E incorporato dentro la pagina web del _IE

Codice:

#include <ButtonConstants.au3>
#RequireAdmin
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <IE.au3>
#include <File.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Daniel\Desktop\blurum\Form1.kxf
$Form1 = GUICreate("Blurum Bot 1.0.0", 516, 565, 192, 124)
$MenuItem1 = GUICtrlCreateMenu("Menu")
$MenuItem3 = GUICtrlCreateMenuItem("TeamsWorks", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenuItem("Exit (F1)"&@TAB&"F1", $MenuItem1)
$Button1 = GUICtrlCreateButton("Login", 0, 8, 139, 25)
$Button2 = GUICtrlCreateButton("START!", 144, 8, 211, 33)
$Combo10 = GUICtrlCreateCombo("---", 360, 8, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "10|100|200")
Dim $Form1_AccelTable[1][2] = [["{F1}", $MenuItem2]]
GUISetAccelerators($Form1_AccelTable)
$oIE=ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 5, 45, 505, 495)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$fileop=FileOpen("data.dat")
If $fileop=-1 Then
   #include <ButtonConstants.au3>
   #include <EditConstants.au3>
   #include <GUIConstantsEx.au3>
   #include <StaticConstants.au3>
   #include <WindowsConstants.au3>
   #Region ### START Koda GUI section ### Form=C:\Users\Daniel\Desktop\Form1 Disclaimer.kxf
   $Form1 = GUICreate("Disclaimer del Software : Blurum Premium Bot", 423, 438, 192, 124)
   $Edit1 = GUICtrlCreateEdit("", 16, 104, 393, 265)
   GUICtrlSetData(-1, StringFormat("LEGGERE ATTENTAMENTE LA DISCLAIMER E I MODI D"&Chr(39)&"USO!\r\n-------------------------------------------------------------------------------------------------------------------------\r\nLeggere atentamente questa disclaimer, Per andare avanti dovette accetarla.\r\n\r\n1) TeamWorks NON si assume nessuna responsabilita al uso che farette di \r\nquesto software, ne per danni materiali che morali.\r\n2) Questo software Appartiene esclusivamente a TeamWorks e qualunque\r\nvendita,nolleggio,distribuzzione o qualunque altro sistema di distribuzione non\r\nautorizatto e severamente VIETATO!\r\n3) Utilizando Questo Software l"&Chr(39)&"Utente che accetta il contrato e la disclaimer\r\nè Lo fanno a proprio rischio e pericolo.\r\n\r\nVersione software: 1.0.0  Distributed by TeamWorks  S.r.l. Entairtement."))
   $Button1 = GUICtrlCreateButton("Accept The disclaimer and continue", 224, 400, 185, 25)
   $Button2 = GUICtrlCreateButton("Exit!", 8, 400, 185, 25)
   $Label1 = GUICtrlCreateLabel("Leggere atentamente L adisclaimer del software per continuare.", 8, 32, 303, 17)
   GUISetState(@SW_SHOW)
   #EndRegion ### END Koda GUI section ###


   While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
           Case $GUI_EVENT_CLOSE
               Exit
            Case $Button1
               _FileCreate("data.dat")
               FileWriteLine("data.dat" @[I][B][URL="http://www.inforge.net/community/member.php?u=52010"]username[/URL][/B][/I])
               FileWriteLine("data.dat" @[I][B][URL="http://www.inforge.net/community/member.php?u=17032"]computer[/URL][/B][/I]name)
               FileWriteLine("data.dat" @[I][B][URL="http://www.inforge.net/community/member.php?u=167460"]iPad[/URL][/B][/I]dress1)
               DirCreate("C:\Program Files\Blurum Bot v1")
               _FileCreate("C:\Program Files\Blurum Bot v1\datacenter.dat")
               FileWriteLine("C:\Program Files\Blurum Bot v1\datacenter.dat","1.0.0")
               FileWriteLine("C:\Program Files\Blurum Bot v1\datacenter.dat",@MDAY&"/"&@MON&"/"&@YEAR)
               Sleep(2000)
               MsgBox(64,"Instalazzione Software","Instalazzione Del Software : Blurum Bot v1.0.0 {beta test} in corso...",2)
               MsgBox(64,"Instalazione completata","L'instalazzione del software e completata!",1)
               MsgBox(64,"Ativazione software eseguita!","Ativazione Software Eseguita Correttamente! E neccesario riativare il software!")
            Case $Button2
               Exit
       EndSwitch
   WEnd
EndIf


_IENavigate($oIE,"www.blurum.it")
$fff=FileReadLine("C:\Program Files\Blurum Bot v1\datacenter.dat",3)
If $fff="30" Then
   $ff=@MDAY
   If $ff="30" Then
      MsgBox(48,"Error","Il software e Scaduto! Sei pregato di Scaricare la nuova Versione")
      FileWriteLine("C:\Program Files\Blurum Bot v1\datacenter.dat","30")
      Exit
   Else
      MsgBox(64,"Versione a tempo","Questa versione del software scadra il 30/11/2014")
   EndIf
Else
   MsgBox(64,"Versione a tempo","Questa versione del software scadra il 30/11/2014")
EndIf


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button2
            $Combo1=GUICtrlRead($Combo10)
            If $Combo1="10" Then
               _IENavigate($oIE,"www.blurum.com")
               For $tet=1 To 10 Step +1
                  $file001=FileReadLine("test.txt",$tet)
                  Sleep(5000)
                  MouseClick("left",252,370,1,0)
                  Sleep(2000)
                  Send($file001)
                  Sleep(2000)
                  Send("{ENTER}")
                  Sleep(5000)
                  _IENavigate($oIE,"www.blurum.com")
                  If WinExists("[CLASS:InternetExplorer") Then
                     ProcessClose("iexplore.exe")
                  Else
                     ProcessClose("iexplore.exe")
                  EndIf
               Next
               MsgBox(64,"Completo","Tutti i punti sono stati agiunti")
            EndIf
            If $Combo1="100" Then
               _IENavigate($oIE,"www.blurum.com")
               For $tet=1 To 100 Step +1
                  $file001=FileReadLine("test.txt",$tet)
                  Sleep(5000)
                  MouseClick("left",252,370,1,0)
                  Sleep(2000)
                  Send($file001)
                  Sleep(2000)
                  Send("{ENTER}")
                  Sleep(5000)
                  _IENavigate($oIE,"www.blurum.com")
                  If WinExists("[CLASS:InternetExplorer") Then
                     ProcessClose("iexplore.exe")
                  Else
                     ProcessClose("iexplore.exe")
                  EndIf
               Next
               MsgBox(64,"Completo","Tutti i punti sono stati agiunti")
            EndIf
            If $Combo1="---" Then
               MsgBox(48,"Error","Selezionare quanti punti desidera farmare")
            EndIf
            If $Combo1="200" Then
               _IENavigate($oIE,"www.blurum.com")
               For $tet=1 To 200 Step +1
                  $file001=FileReadLine("test.txt",$tet)
                  Sleep(5000)
                  MouseClick("left",252,370,1,0)
                  Sleep(2000)
                  Send($file001)
                  Sleep(2000)
                  Send("{ENTER}")
                  Sleep(5000)
                  _IENavigate($oIE,"www.blurum.com")
                  If WinExists("[CLASS:InternetExplorer") Then
                     ProcessClose("iexplore.exe")
                  Else
                     ProcessClose("iexplore.exe")
                  EndIf
               Next
               MsgBox(64,"Completo","Tutti i punti sono stati agiunti")
            EndIf
    EndSwitch
WEnd

ONE OK ROCK · 2 Novembre 2014

AbsolutionZero ha detto:

questo e quello che sto facendo per ora:
E incorporato dentro la pagina web del _IE

Codice:

#include <ButtonConstants.au3>
#RequireAdmin
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <IE.au3>
#include <File.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Daniel\Desktop\blurum\Form1.kxf
$Form1 = GUICreate("Blurum Bot 1.0.0", 516, 565, 192, 124)
$MenuItem1 = GUICtrlCreateMenu("Menu")
$MenuItem3 = GUICtrlCreateMenuItem("TeamsWorks", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenuItem("Exit (F1)"&@TAB&"F1", $MenuItem1)
$Button1 = GUICtrlCreateButton("Login", 0, 8, 139, 25)
$Button2 = GUICtrlCreateButton("START!", 144, 8, 211, 33)
$Combo10 = GUICtrlCreateCombo("---", 360, 8, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "10|100|200")
Dim $Form1_AccelTable[1][2] = [["{F1}", $MenuItem2]]
GUISetAccelerators($Form1_AccelTable)
$oIE=ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 5, 45, 505, 495)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$fileop=FileOpen("data.dat")
If $fileop=-1 Then
   #include <ButtonConstants.au3>
   #include <EditConstants.au3>
   #include <GUIConstantsEx.au3>
   #include <StaticConstants.au3>
   #include <WindowsConstants.au3>
   #Region ### START Koda GUI section ### Form=C:\Users\Daniel\Desktop\Form1 Disclaimer.kxf
   $Form1 = GUICreate("Disclaimer del Software : Blurum Premium Bot", 423, 438, 192, 124)
   $Edit1 = GUICtrlCreateEdit("", 16, 104, 393, 265)
   GUICtrlSetData(-1, StringFormat("LEGGERE ATTENTAMENTE LA DISCLAIMER E I MODI D"&Chr(39)&"USO!\r\n-------------------------------------------------------------------------------------------------------------------------\r\nLeggere atentamente questa disclaimer, Per andare avanti dovette accetarla.\r\n\r\n1) TeamWorks NON si assume nessuna responsabilita al uso che farette di \r\nquesto software, ne per danni materiali che morali.\r\n2) Questo software Appartiene esclusivamente a TeamWorks e qualunque\r\nvendita,nolleggio,distribuzzione o qualunque altro sistema di distribuzione non\r\nautorizatto e severamente VIETATO!\r\n3) Utilizando Questo Software l"&Chr(39)&"Utente che accetta il contrato e la disclaimer\r\nè Lo fanno a proprio rischio e pericolo.\r\n\r\nVersione software: 1.0.0  Distributed by TeamWorks  S.r.l. Entairtement."))
   $Button1 = GUICtrlCreateButton("Accept The disclaimer and continue", 224, 400, 185, 25)
   $Button2 = GUICtrlCreateButton("Exit!", 8, 400, 185, 25)
   $Label1 = GUICtrlCreateLabel("Leggere atentamente L adisclaimer del software per continuare.", 8, 32, 303, 17)
   GUISetState(@SW_SHOW)
   #EndRegion ### END Koda GUI section ###


   While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
           Case $GUI_EVENT_CLOSE
               Exit
            Case $Button1
               _FileCreate("data.dat")
               FileWriteLine("data.dat" @[I][B][URL="http://www.inforge.net/community/member.php?u=52010"]username[/URL][/B][/I])
               FileWriteLine("data.dat" @[I][B][URL="http://www.inforge.net/community/member.php?u=17032"]computer[/URL][/B][/I]name)
               FileWriteLine("data.dat" @[I][B][URL="http://www.inforge.net/community/member.php?u=167460"]iPad[/URL][/B][/I]dress1)
               DirCreate("C:\Program Files\Blurum Bot v1")
               _FileCreate("C:\Program Files\Blurum Bot v1\datacenter.dat")
               FileWriteLine("C:\Program Files\Blurum Bot v1\datacenter.dat","1.0.0")
               FileWriteLine("C:\Program Files\Blurum Bot v1\datacenter.dat",@MDAY&"/"&@MON&"/"&@YEAR)
               Sleep(2000)
               MsgBox(64,"Instalazzione Software","Instalazzione Del Software : Blurum Bot v1.0.0 {beta test} in corso...",2)
               MsgBox(64,"Instalazione completata","L'instalazzione del software e completata!",1)
               MsgBox(64,"Ativazione software eseguita!","Ativazione Software Eseguita Correttamente! E neccesario riativare il software!")
            Case $Button2
               Exit
       EndSwitch
   WEnd
EndIf


_IENavigate($oIE,"www.blurum.it")
$fff=FileReadLine("C:\Program Files\Blurum Bot v1\datacenter.dat",3)
If $fff="30" Then
   $ff=@MDAY
   If $ff="30" Then
      MsgBox(48,"Error","Il software e Scaduto! Sei pregato di Scaricare la nuova Versione")
      FileWriteLine("C:\Program Files\Blurum Bot v1\datacenter.dat","30")
      Exit
   Else
      MsgBox(64,"Versione a tempo","Questa versione del software scadra il 30/11/2014")
   EndIf
Else
   MsgBox(64,"Versione a tempo","Questa versione del software scadra il 30/11/2014")
EndIf


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button2
            $Combo1=GUICtrlRead($Combo10)
            If $Combo1="10" Then
               _IENavigate($oIE,"www.blurum.com")
               For $tet=1 To 10 Step +1
                  $file001=FileReadLine("test.txt",$tet)
                  Sleep(5000)
                  MouseClick("left",252,370,1,0)
                  Sleep(2000)
                  Send($file001)
                  Sleep(2000)
                  Send("{ENTER}")
                  Sleep(5000)
                  _IENavigate($oIE,"www.blurum.com")
                  If WinExists("[CLASS:InternetExplorer") Then
                     ProcessClose("iexplore.exe")
                  Else
                     ProcessClose("iexplore.exe")
                  EndIf
               Next
               MsgBox(64,"Completo","Tutti i punti sono stati agiunti")
            EndIf
            If $Combo1="100" Then
               _IENavigate($oIE,"www.blurum.com")
               For $tet=1 To 100 Step +1
                  $file001=FileReadLine("test.txt",$tet)
                  Sleep(5000)
                  MouseClick("left",252,370,1,0)
                  Sleep(2000)
                  Send($file001)
                  Sleep(2000)
                  Send("{ENTER}")
                  Sleep(5000)
                  _IENavigate($oIE,"www.blurum.com")
                  If WinExists("[CLASS:InternetExplorer") Then
                     ProcessClose("iexplore.exe")
                  Else
                     ProcessClose("iexplore.exe")
                  EndIf
               Next
               MsgBox(64,"Completo","Tutti i punti sono stati agiunti")
            EndIf
            If $Combo1="---" Then
               MsgBox(48,"Error","Selezionare quanti punti desidera farmare")
            EndIf
            If $Combo1="200" Then
               _IENavigate($oIE,"www.blurum.com")
               For $tet=1 To 200 Step +1
                  $file001=FileReadLine("test.txt",$tet)
                  Sleep(5000)
                  MouseClick("left",252,370,1,0)
                  Sleep(2000)
                  Send($file001)
                  Sleep(2000)
                  Send("{ENTER}")
                  Sleep(5000)
                  _IENavigate($oIE,"www.blurum.com")
                  If WinExists("[CLASS:InternetExplorer") Then
                     ProcessClose("iexplore.exe")
                  Else
                     ProcessClose("iexplore.exe")
                  EndIf
               Next
               MsgBox(64,"Completo","Tutti i punti sono stati agiunti")
            EndIf
    EndSwitch
WEnd

Ah beh che casino leggerlo tutto, non lo leggerò mai x")
Comunque, se devi cliccare in una barra di ricerca o interagire con qualsiasi altra cosa presente nella pagina web (_IE) ti basta prende l'id o il name di essa e con il metodo _IEAction usi l'attributo click..

Codice:

_IEAction($Object,"click")

Per sapere di piu su _IEAction e tutti gli attributi utilizzabile visita -> https://www.autoitscript.com/autoit3/docs/libfunctions/_IEAction.htm

Funzioni che ti potrebbero tornare utili: _IEGetObjByName https://www.autoitscript.com/autoit3/docs/libfunctions/_IEGetObjByName.htm
e
_IEGetObjById https://www.autoitscript.com/autoit3/docs/libfunctions/_IEGetObjById.htm

AbsolutionZero · 2 Novembre 2014

Gia provato ma non mi va :"(

<input name="ctrl_SearchControl$A52851426-96e0-46f9-aa02-e033392a26dc" type="text" maxlength="255" id="A52851426-96e0-46f9-aa02-e033392a26dc" class="search_bar_input">

questa e la barra quindi i devo mettere la parte in roso giusto? senza name="

ONE OK ROCK · 2 Novembre 2014

AbsolutionZero ha detto:
Gia provato ma non mi va :"(

<input name="ctrl_SearchControl$A52851426-96e0-46f9-aa02-e033392a26dc" type="text" maxlength="255" id="A52851426-96e0-46f9-aa02-e033392a26dc" class="search_bar_input">

questa e la barra quindi i devo mettere la parte in roso giusto? senza name="

Utilizza il metodo che ti ho riportato sopra.. (_IEGetObjByName) ed una volta fatto ciò passa la variabile a _IEAction come primo parametro.
Avrai sicuramente messo il name su _IEAction per questo non funziona.

AbsolutionZero · 2 Novembre 2014

quindi cosi? dovrebbe essere cosi ma non va... (se ho capito bene io)
$war=_IEGetObjByName($oIE,"ctrl_SearchControl$A52851426-96e0-46f9-aa02-e033392a26dc")
_IEAction($war,"click")

ONE OK ROCK · 2 Novembre 2014

AbsolutionZero ha detto:
quindi cosi? dovrebbe essere cosi ma non va... (se ho capito bene io)
$war=_IEGetObjByName($oIE,"ctrl_SearchControl$A52851426-96e0-46f9-aa02-e033392a26dc")
_IEAction($war,"click")

Ehm.. si, dovrebbe essere cosi :asd:

AbsolutionZero · 2 Novembre 2014

nisba allora $:\$ ho provato con pure _iegetobjbyid ma nnt

clich · 5 Novembre 2014

AbsolutionZero ha detto:
Visto che ci sono...posso farti un altra domanda? come posso far cliccare su una barra di ricerca il mouse? senza usare mouseclick che e scomodo?

ControlClick()

AbsolutionZero · 6 Novembre 2014

Ok grazie ,proverò e vi farò sapere