Jump to content

Recommended Posts

Posted (edited)

Hello!,

I've finished the script the second version of Runner (but isn't Completely finished)

Download It:

Runner_2.rar

Script:

;~ Author: Antonio
;~ Program Name: Runner
;~ Version: 2.0
;~ Home Page: http:\\shides.altervista.org
#include <GUIConstants.au3>
;finestra

$start = GUICreate("Runner",400,300)
GUICtrlCreatePic ("Runner.gif", 75, 25,245,62)
$scritta1 = GUICtrlCreateLabel("Benvenuto in Runner!", 145, 95, 150)
$scritta2 = GUICtrlCreateLabel("Questo programma ti farà aprire facilmente alcuni programmi", 55,115, 500)
;menù alto
$filemenu = GuiCtrlCreateMenu ("File")
$exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu)
$helpmenu = GuiCtrlCreateMenu ("?")
$aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu)
$upgrade = Guictrlcreatemenuitem ("Check Upgrade", $helpmenu)
;bottone esci
$cancelbutton = GuiCtrlCreateButton ("Esci",230,230,100,30)
;bottone avanti
$Okbutton = GuictrlCreateButton ("Avanti",60,230,100,30)
GUISetState()
Func _GUIUpdate() 
     GUICtrlsetstate($Okbutton,$GUI_Disable)
     GUICtrlDelete($aboutitem)
     GUICtrlDelete($scritta2)
     GUICtrlDelete($scritta1)
        $paint =  GUICtrlCreateButton ("1", 80,85,48,48,$BS_ICON)
            GUICtrlSetImage (-1, "icone.Dll","1")
        $ie = GUICtrlCreateButton ("2", 185,85,48,48,$BS_ICON)
            GUICtrlSetImage (-1, "icone.Dll","2")
        $Ms_Dos = GUICtrlCreateButton ("3", 290,85,48,48,$BS_ICON)
            GUICtrlSetImage (-1, "icone.Dll","3")
        $Magnify = GUICtrlCreateButton ("4", 80,140,48,48,$BS_ICON) 
            GUICtrlSetImage (-1, "icone.Dll","4")
        $WinHelp = GUICtrlCreateButton ("5", 185,140,48,48,$BS_ICON)
            GUICtrlSetImage (-1, "icone.Dll","5")
        $Calc = GUICtrlCreateButton ("close", 290,140,48,48,$BS_ICON)
                GUICtrlSetImage (-1, "icone.Dll","6")
        $WMP =  GUICtrlCreateButton ("1", 345,115,48,48,$BS_ICON)
            GUICtrlSetImage (-1, "icone.Dll","7")
                While 1
    $iMsg = GUIGetMsg()
    Select
                
        Case $imsg = $paint
            Run ("mspaint.exe")     
        Case $imsg = $ie
            ShellExecute ("iexplore.exe")
        Case $imsg = $Ms_Dos
            Run ("cmd.exe")
        Case $imsg = $Magnify
            Run ("magnify.exe")
        Case $imsg = $WinHelp
            Run ("winhelp.exe")
        Case $imsg = $Calc
            Run ("Calc.exe")
        Case $imsg = $WMP
            ShellExecute ("wmplayer.exe")
        Case $imsg = $cancelbutton
            Exit
            
        Case $imsg = $Gui_event_close
            Exit

        Case $imsg = $exititem
            Exit
        Case $imsg = $upgrade
            ShellExecute ("iexplore.exe", "http://shides.altervista.org/ver_his.htm")
    EndSelect
WEnd
EndFunc
While 1
    $iMsg = GUIGetMsg()
    Select

        Case $imsg = $Okbutton
            _GUIUpdate()

        Case $imsg = $cancelbutton
            Exit
            
        Case $imsg = $Gui_event_close
            Exit

        Case $imsg = $exititem
            Exit

        Case $imsg = $aboutitem
            GUICtrlDelete($scritta2)
            GUICtrlDelete($scritta1)
            GUICtrlCreateLabel("Ideatore del Programma:", 10, 20, 500)
GUICtrlCreateLabel("Shides", 10,40, 500)
GUICtrlCreateLabel("Contatti:", 10,60, 500)
GUICtrlCreateLabel("Msn:     matrix2192@hotmail.it", 10,75, 500)
GUICtrlCreateLabel("E-mail:  matrix2192@supereva.it", 10,90, 500)
        Case $imsg = $upgrade
            ShellExecute ("iexplore.exe", "http://shides.altervista.org/ver_his.htm")
    EndSelect
WEnd
Edited by Shides
I'm a Italian a AutoIterMy scriptTxTediTor -->TxTediTor is a simple program similar notepad[center]Please vote me with five star ;)Antonio Caragliano for Nokia Nseries[/center]
  • Moderators
Posted

:whistle: did you mean to post this in the Example script forum? :P

If you reply yes, I'm sure the mods will move it for you so you don't have to repost.

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Posted

it has like 8 butttons, and if you click one, it simply just opens up that program...all programs that are included with windows, it's extremly basic, and i don't see why it's in the example scripts section.

  • Moderators
Posted

it has like 8 butttons, and if you click one, it simply just opens up that program...all programs that are included with windows, it's extremly basic, and i don't see why it's in the example scripts section.

If it belonged in "a" forum at all, which would you want it to be in? In all seriousness, doesn't matter how relevant you personally think it is or if you think it belongs at all. I don't think 80% of the scripts in the Example Scripts forum belong here, but that's not for me to say either (sure would make for easier surfing if they weren't :whistle: ).

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Posted

If it belonged in "a" forum at all, which would you want it to be in? In all seriousness, doesn't matter how relevant you personally think it is or if you think it belongs at all. I don't think 80% of the scripts in the Example Scripts forum belong here, but that's not for me to say either (sure would make for easier surfing if they weren't :whistle: ).

Agreed, when you make something for the first time, and you like it.. You think other people will like it too, lol. :P So you want to share it.

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
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...