First gui

[duhu]

Sorry for this stupid question but i tried and i didnt make it.

Now heres my problem: Im triing to make a gui with 2 buttons, start and exit, ok ive made the gui but when i double click on it it quickly diisapear.Now,, the start button, i want to run a vbs script (that defrag the hdd) and the exit button to exit the gui.I now is quite simple but i didn fully understand the help file, so im asking if someone please give an example of the script that has 2 buttons, one that call an external file , and the other exits.

so pllss someone helpme if you can, ill appreciate that, and sorry for my eng.

Doohooodogg

[quaizywabbit]

post what code you have so far.....

[duhu]

Heres what ive done so far, but now im stuck

expandcollapse popup

; ----------------------------------------------------------------------------;; AutoIt Version: 3.1.0; Author:         A.N.Other <myemail@nowhere.com>;; Script Function:; Template AutoIt script.;; ----------------------------------------------------------------------------; Script Start - Add your code below here#include <GUIConstants.au3>Opt("GUICoordMode",2)Opt("GUIOnEventMode", 1); the guiiGUICreate ( "Defrag-er" , 500 , 500 )GUICtrlCreateLabel("Welcome to Defrag-er", 30, 10)GUICtrlSetOnEvent ( 4, "defragpressed" )GUICtrlCreateButton ( "Defrag Now", 10, 50 )GUICtrlCreateButton ( "Exit", 10, 60 )GUISetIcon ( "data\icon.ico" )


            
        

        

        
    

    

    




    Link to comment
    
        
    
    
    

    
    Share on other sites
    

    
        
            

    

        
            

    

        
            

    

        
            

    

        
    


    
    More sharing options...

    


    

                    
                    
                    
                

                    

                    
                    





    

    

    
        
            
                


    
        
    

                
                
                    
                        

                    
                
            
        
        
            
                


quaizywabbit
            
            
                Posted August 5, 2005
                
            
        
    
    
        


quaizywabbit
            
        
        
            
                
                    


    
        
    

                    
                    
                        

                    
                
            
            
                Active Members
                
            
            
                
                    
                        
                            
                                
                            
                                 455
                            
                                
                            
                        
                        
                    
                
            
            
                

    
    
        
picked the wrong day to quit sniffin' glue
    
    

            
        
    
    
        



    
        
            
                
                    
                    
                    
                    
                    
                
            
            
                
                    
                    
                        
                        
                            Share
                        
                        
                        
                        
                        
                            
                                
                            
                            
                            
                            
                            
                            
                        
                    
                
                
            
        

        
            Posted August 5, 2005
            
            
                
                    (edited)
                
                
            
        
    

    

    

    
        
        
            #include <GUIConstants.au3>
Opt("GUICoordMode",2)
Opt("GUIOnEventMode", 1)



; the guii
$gui = GUICreate ( "Defrag-er" , 500 , 500 )
$label = GUICtrlCreateLabel("Welcome to Defrag-er", 30, 10)
$defrag = GUICtrlCreateButton ( "Defrag Now", 10, 50 )
GUICtrlSetOnEvent ( $defrag, "defragpressed" )

$vamoose = GUICtrlCreateButton ( "Exit", 10, 60 )
GUICtrlSetOnEvent ( $vamoose, "vamoose" )
GUISetOnEvent($GUI_EVENT_CLOSE, "vamoose")
GUISetIcon ( "data\icon.ico" )
GUISetState()
While 1
sleep(1000);idle
WEnd
func vamoose()
    Exit
EndFunc
Func defragpressed()
;Your event code goes here
EndFunc

this should get you heading in a better direction......Keep reading the Help file!!!!

EDIT: added event for main gui close 'X' button..

Edited August 6, 2005 by quaizywabbit

[duhu]

Thanx very very much!!

One more question if you dont mind, i cant see the gui, its disappearing very fast!

Do you know why?

Anyway thanx again!

[quaizywabbit]

i fixed the code above

(forgot the guisetstate() and while/wend loop)

[duhu]

Its working now, thanx a lot.

[kcd-clan]

Its not working .

The X buttion dose not work.

Edited August 6, 2005 by kcd-clan

[quaizywabbit]

edited it to exit properly...see above

[duhu]

Yes, its working now.

thanx!

[duhu]

I dont know if this is the right place but if not the please excuse me.

i needed the above example to create a gui that has 2 buttons, defrag now and exit.

The defrag button is used to call a vbs script that defrag all my drives, but it gives me an errror like "Cannot execute external program" or something like that.Is there any add-on or something like that to allow runing other types of scripts/files?

Thanx.

Srry for my eng and if this is not the right place to ask this!

[quaizywabbit]

post the vbs script...autoit can probably emulate it

[duhu]

Heres is the dfrag.vbs

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run ("%systemdrive%\INSTALL\CD\A120\setup.msi /qn REBOOT=REALLYSUPPRESS")

WScript.Sleep 12000

WshShell.SendKeys "{TAB}"

WScript.Sleep 1000

WshShell.SendKeys "{ENTER}"

WScript.Sleep 9000

WshShell.SendKeys "{ENTER}"

WScript.Quit

[quaizywabbit]

$WshShell = ObjCreate("WScript.Shell")
$WshShell.Run ("%systemdrive%\INSTALL\CD\A120\setup.msi /qn REBOOT=REALLYSUPPRESS")
Sleep(12000)
$WshShell.SendKeys "{TAB}"
Sleep(1000)
$WshShell.SendKeys "{ENTER}"
Sleep (9000)
$WshShell.SendKeys "{ENTER}"
$WshShell = 0
exit

you'll need the latest beta version

I haven't really used COM before, so I may have missed something...

[duhu]

Thanx a lot

[duhu]

Jessus Christ, i was so dumb, that was another script, i inverted the names from a mistake, heres the defrag script:

Dim Act, Fso, strDrv, Drvs

Set Act = CreateObject("Wscript.shell")

Set Fso = CreateObject("Scripting.FileSystemObject")

Drvs = Array("C:\","D:\","E:\","F:\","G:\","H:\","I:\","J:\","K:\","L:\","M:\","N:\","O:\","P:\",_

"Q:\","R:\","S:\","T:\","U:\","V:\","W:\","X:\","Y:\","Z:\")

For Each strDrv In Drvs

If Fso.DriveExists(strDrv) Then

Act.Run("Defrag " & strDrv & " -F"),1,true

End If

Next

[duhu]

Man....i was so stupid, that was another vbs script. The real script that i want is this:

Dim Act, Fso, strDrv, Drvs

Set Act = CreateObject("Wscript.shell")

Set Fso = CreateObject("Scripting.FileSystemObject")

Drvs = Array("C:\","D:\","E:\","F:\","G:\","H:\","I:\","J:\","K:\","L:\","M:\","N:\","O:\","P:\",_

"Q:\","R:\","S:\","T:\","U:\","V:\","W:\","X:\","Y:\","Z:\")

For Each strDrv In Drvs

If Fso.DriveExists(strDrv) Then

Act.Run("Defrag " & strDrv & " -F"),1,true

End If

Next