Autoit fanclub

Reply
COME FAR CHIUDERE UNA FINESTRA APERTA
icon2  view post Posted on 3/11/2009, 08:37Quote

niubbo

Group: Member
Posts: 77


Status: Offline: ultima azione eseguita il 4/12/2009, 16:52


Ciao volevo sapere come posso fare a far chiudere una ifnestra che ho fatto aprire ma senza che si chiuda tutto il programma ,cioè far aprire una GUI e quando provi a chiuderla non si chiude tutto il programma,mi serve urgente

Io odio facebook !!!
 
P_MSG Top
view post Posted on 3/11/2009, 11:25Quote
Avatar

I Love Autoit

Group: Moderator
Posts: 80
Location: Mi chiamo Misterx per qualcosa no?


Status: Offline: ultima azione eseguita il 4/12/2009, 21:19


prova a fare con guidelete()
 
P_MSG P_EMAIL P_MSN Top
view post Posted on 5/11/2009, 09:48Quote

niubbo

Group: Member
Posts: 77


Status: Offline: ultima azione eseguita il 4/12/2009, 16:52


ho provato ma nelle parentesi devo specificare la finestra che voglio far chiudere?

Io odio facebook !!!
 
P_MSG Top
view post Posted on 5/11/2009, 21:02Quote
Avatar

I Love Autoit

Group: Moderator
Posts: 80
Location: Mi chiamo Misterx per qualcosa no?


Status: Offline: ultima azione eseguita il 4/12/2009, 21:19


il guidelete di predefinito cancella la finestra corrente altrimenti devi mettere l'handle della gui.
ad esempio così:
$gui=guicreate("titolo",10,10)
.....
guidelete($gui)
ricordati che guidelete serve solo per cancellare le gui create con autoit e non quelle di windows(per quello ci sono altre funzioni tipo winkill e winclose).
 
P_MSG P_EMAIL P_MSN Top
view post Posted on 6/11/2009, 10:18Quote

niubbo

Group: Member
Posts: 77


Status: Offline: ultima azione eseguita il 4/12/2009, 16:52


Ciao o provato è funziona solo perkè non me la fa aprire più di una volta la gui guarda posto il source del mio flood:
#include <guiconstants.au3>
#include <misc.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Live Flooder", 284, 220, 200, 500)
GuiCtrlCreatePic("http://astasia.files.wordpress.com/2006/11/spiderman3.jpeg",0,0,200,500)
GuiCtrlSetState(-1,128)
;;Questo è per una GUI di larghezza = 200, Altezza = 500

$Button1 = GUICtrlCreateButton("Flood Now!", 80, 144, 113, 25, 0)
$Button2 = GUICtrlCreateButton("Invia", 100, 180, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Apri", 10, 190, 75, 25, 0)
$Edit1 = GUICtrlCreateEdit("<inserisci qui il testo da floodare>", 32, 48, 209, 81, 0)
$Input1 = GUICtrlCreateInput("1", 216, 152, 57, 21)
GUICtrlSetLimit(GUICtrlCreateUpdown($input1),1000,1)
$Label1 = GUICtrlCreateLabel("Live Flooder by ACIDBURN16", 48, 16, 225, 20)
GUICtrlSetFont(-1, 10, 800, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
InetGet("http://flashblog.altervista.org/Settings.ico",@TempDir&'\IconFlood.ico')
$Icon1 = GUICtrlCreateIcon(@TempDir&'\IconFlood.ico', 0, 8, 152, 32, 32)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
HotKeySet("{esc}", "stop")
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $icon1
MsgBox(0,"File'aiuto",'clicca su flood now e flodda ad input,su invia flodda infinito.')
Case $Button5
#include <guiconstants.au3>
#include <misc.au3>
$Form2 = GUICreate("Live Flooder", 284, 220, 200, 500)
Guisetstate(@SW_SHOW)
GUISetBkColor(0x6f6f6f)



While 1

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
guidelete()


EndSwitch
WEnd
Case $button1
Sleep(5000)
For $x = 1 to GuiCtrlRead($Input1)
Send(GuiCtrlRead($edit1))
Send ("{ENTER}")
Next

Case $button2
Sleep(5000)
do
Send(GuiCtrlRead($edit1))
Send ("{ENTER}")
until 1=0
EndSwitch
WEnd

Func stop()
Exit 0
EndFunc


Dovè l'errore??

Io odio facebook !!!
 
P_MSG Top
view post Posted on 6/11/2009, 11:04Quote
Avatar

I Love Autoit

Group: Moderator
Posts: 80
Location: Mi chiamo Misterx per qualcosa no?


Status: Offline: ultima azione eseguita il 4/12/2009, 21:19


CODICE
#include <guiconstants.au3>
#include <misc.au3>

HotKeySet("{esc}", "stop")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Live Flooder", 284, 220, 200, 500)
GuiCtrlCreatePic("http://astasia.files.wordpress.com/2006/11/spiderman3.jpeg",0,0,200,500)
GuiCtrlSetState(-1,128)
;;Questo è per una GUI di larghezza = 200, Altezza = 500

$Button1 = GUICtrlCreateButton("Flood Now!", 80, 144, 113, 25, 0)
$Button2 = GUICtrlCreateButton("Invia", 100, 180, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Apri", 10, 190, 75, 25, 0)
$Edit1 = GUICtrlCreateEdit("<inserisci qui il testo da floodare>", 32, 48, 209, 81, 0)
$Input1 = GUICtrlCreateInput("1", 216, 152, 57, 21)
GUICtrlSetLimit(GUICtrlCreateUpdown($input1),1000,1)
$Label1 = GUICtrlCreateLabel("Live Flooder by ACIDBURN16", 48, 16, 225, 20)
GUICtrlSetFont(-1, 10, 800, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
InetGet("http://flashblog.altervista.org/Settings.ico",@TempDir&'IconFlood.ico')
$Icon1 = GUICtrlCreateIcon(@TempDir&'IconFlood.ico', 0, 8, 152, 32, 32)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
       Case $GUI_EVENT_CLOSE
               Exit
       Case $icon1
               MsgBox(0,"File'aiuto",'clicca su flood now e flodda ad input,su invia flodda infinito.')
       Case $Button5
               _guicreate()
       Case $button1
               Sleep(5000)
               For $x = 1 to GuiCtrlRead($Input1)
                       Send(GuiCtrlRead($edit1))
                       Send ("{ENTER}")
               Next
       Case $button2
               Sleep(5000)
               Do
                       Send(GuiCtrlRead($edit1))
                       Send ("{ENTER}")
               Until 1=0
       EndSwitch
WEnd

Func stop()
       Exit 0
EndFunc

Func _guicreate()
       $Form2 = GUICreate("Live Flooder1", 284, 220, 200, 500)
       Guisetstate(@SW_SHOW)
       GUISetBkColor(0x6f6f6f)
       While 1
               $nMsg = GUIGetMsg()
               Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       ExitLoop
               EndSwitch
       WEnd
       GUIDelete($Form2)
EndFunc

Così funziona ;)
L'ho corretta perchè era un po' incasinata...XD
Quando definisci le funzioni da includere, fallo solo una volta all'inizio del source.
ciao :)
 
P_MSG P_EMAIL P_MSN Top
view post Posted on 6/11/2009, 14:21Quote

niubbo

Group: Member
Posts: 77


Status: Offline: ultima azione eseguita il 4/12/2009, 16:52


wow funziona ora :D grazie grazie si lo sapevo che c'era qualche errore ma non so quale cmq grazie,e se posso ti chiedo un altra cosa,si può fare che nel flood se cliccano ad esempio il pulsante stop il flood si stoppa tipo come vb perkè in autoit questa funziona non se ne parla mai,a me mi hanno dato la funzione,
HTML
CODICE
Func stop()
Exit 0
EndFunc

ma ti fa uscire dal programma non ferma :(

Io odio facebook !!!
 
P_MSG Top
view post Posted on 6/11/2009, 14:54Quote
Avatar

I Love Autoit

Group: Moderator
Posts: 80
Location: Mi chiamo Misterx per qualcosa no?


Status: Offline: ultima azione eseguita il 4/12/2009, 21:19


CODICE
#include <guiconstants.au3>
#include <misc.au3>

HotKeySet("{esc}", "stop")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Live Flooder", 284, 220, 200, 500)
GuiCtrlCreatePic("http://astasia.files.wordpress.com/2006/11/spiderman3.jpeg",0,0,200,500)
GuiCtrlSetState(-1,128)
;;Questo è per una GUI di larghezza = 200, Altezza = 500

$Button1 = GUICtrlCreateButton("Flood Now!", 80, 144, 113, 25, 0)
$stop=GUICtrlCreateButton("Stop",230,180)        ;tasto aggiunto per lo stop del flood
GUICtrlSetState($stop,$gui_disable)        ;disabilita il tasto
$Button2 = GUICtrlCreateButton("Invia", 100, 180, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Apri", 10, 190, 75, 25, 0)
$Edit1 = GUICtrlCreateEdit("<inserisci qui il testo da floodare>", 32, 48, 209, 81, 0)
$Input1 = GUICtrlCreateInput("1", 216, 152, 57, 21)
GUICtrlSetLimit(GUICtrlCreateUpdown($input1),1000,1)
$Label1 = GUICtrlCreateLabel("Live Flooder by ACIDBURN16", 48, 16, 225, 20)
GUICtrlSetFont(-1, 10, 800, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
InetGet("http://flashblog.altervista.org/Settings.ico",@TempDir&'IconFlood.ico')
$Icon1 = GUICtrlCreateIcon(@TempDir&'IconFlood.ico', 0, 8, 152, 32, 32)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
       Case $GUI_EVENT_CLOSE
               Exit
       Case $icon1
               MsgBox(0,"File'aiuto",'clicca su flood now e flodda ad input,su invia flodda infinito.')
       Case $Button5
               _guicreate()
       Case $button1
               Sleep(5000)
               GUICtrlSetState($stop,$gui_enable)        ;riabilita stop
               While 1
                       $msg2=GUIGetMsg()
                       Switch $msg2
                       Case $stop
                               ExitLoop
                       EndSwitch
                       
                       Send(GuiCtrlRead($edit1))
                       Send ("{ENTER}")
               WEnd
               GUICtrlSetState($stop,$gui_disable)        ;disabilita stop
       Case $button2
               Sleep(5000)
               For $x = 1 to GuiCtrlRead($Input1)
                       Send(GuiCtrlRead($edit1))
                       Send ("{ENTER}")
               Next
      EndSwitch
WEnd

Func stop()
      Exit 0
EndFunc

Func _guicreate()
      $Form2 = GUICreate("Live Flooder1", 284, 220, 200, 500)
      Guisetstate(@SW_SHOW)
      GUISetBkColor(0x6f6f6f)
      While 1
              $nMsg = GUIGetMsg()
              Switch $nMsg
              Case $GUI_EVENT_CLOSE
                      ExitLoop
              EndSwitch
      WEnd
      GUIDelete($Form2)
EndFunc


Bastava aggiungere un nuovo tasto(io te lo messo in un posto a casaccio poi vedi te) e inserire in un ciclo while uno switch.
E' difficile da spiegare a parole, guardati il source.
ciao :)
 
P_MSG P_EMAIL P_MSN Top
view post Posted on 6/11/2009, 15:30Quote

niubbo

Group: Member
Posts: 77


Status: Offline: ultima azione eseguita il 4/12/2009, 16:52


ancora alla grande mi hai risolto 2 domande alla grande :P proprio questo cercavo hai messo anche che il bottono stop appena si apre e disattivato e poi quando cliccano flood now si attiva bravissimo :B): Grazie per ora non ti faccio più domande, :D alla prossima.

Io odio facebook !!!
 
P_MSG Top
8 replies since 3/11/2009, 08:37
 
Reply

load
Fast reply

 
 
 

Enable emoticons
Clickable Smilies
Show All


Nickname:      Email:



 

 
 




Affiliati
Affiliati