Jump to content
Sign in to follow this  
duhu

First gui

Recommended Posts

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

Share this post


Link to post
Share on other sites
quaizywabbit

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


[u]Do more with pre-existing apps![/u]ANYGUIv2.8

Share this post


Link to post
Share on other sites
duhu

Heres what ive done so far, but now im stuck

; ----------------------------------------------------------------------------;; 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" )


            
        

        
            
                
                    

        
        
            
                
                    
                
            
            
            
        
    


                
            
            
                
                    
                    
                    
                
                
                    
                
            
        

        
    

    
        
            Share this post
            
            Link to post
            
            
            

            
                Share on other sites
                

    
        
            

    

        
            

    

        
            

    

        
            

    

        
            

    

        
    

            
        
    

    

                    
                        
                    
                
                    
                    
                    






    

    
        
            
quaizywabbit
              

    
        
    
             2
    
        
    

        
        
            

    
        
    

        
    
    
        
quaizywabbit   

    
        
    
             2
    
        
    

        
        
            
                picked the wrong day to quit sniffin' glue
            
            

            
                

    
        
    

            
            Active Members
            
            
                

    
        
    
             2
    
        
    

                455 posts
                
                

            
        
    
    
        


    

    
        
            
                
                    Report post
                
                
                
                    
                
                
            
        

        
            Posted 
            
                
                    (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 by quaizywabbit

[u]Do more with pre-existing apps![/u]ANYGUIv2.8

Share this post


Link to post
Share on other sites
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!

Share this post


Link to post
Share on other sites
quaizywabbit

i fixed the code above

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


[u]Do more with pre-existing apps![/u]ANYGUIv2.8

Share this post


Link to post
Share on other sites
quaizywabbit

edited it to exit properly...see above


[u]Do more with pre-existing apps![/u]ANYGUIv2.8

Share this post


Link to post
Share on other sites
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!

Share this post


Link to post
Share on other sites
quaizywabbit

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


[u]Do more with pre-existing apps![/u]ANYGUIv2.8

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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...


[u]Do more with pre-existing apps![/u]ANYGUIv2.8

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.