Another "OS shell script"

[seclinix]

jesus christ i can only add replies!!?!?! i can't start a new topic so ill have to post my script here sorry dude... im posting a operating shell but its not quite finished yet it will have background pics... it has a screensaver which is automatically added and it has right click menu too but not all functioning yet i will be working on ity when possible and post back when i have improved it

expandcollapse popup

#Include <Misc.au3>
#Include <GuiConstants.au3>
#Include <File.au3>

Dim $Title = 'Lycanian Operating Shell'
Dim $Hide_Menu = 1, $Join = 1, $File_Bin_i = 1
Dim $Files[1000], $FileSize, $RightActive = 0
Dim $Icon_Image[200], $Icon_Text[200], $Time
Dim $x = 20, $y = 30, $w = 35, $h = 35
Dim $Icon_Determine, $Path[200], $SC_Backdrop
Dim $Shift = 122, $pfText[30], $posit[100]
Dim $pfText[16], $pfFile[30], $sn = 100
Dim $DropText[10000], $sc_text[100], $Hidden_Snow = 0

; +----------------------------------+
; | Declare The Icons For Future Use |
; +----------------------------------+

Dim Const $Picture_Icon = 117
Dim Const $Exe_Icon = 2
Dim Const $Folder_Icon_Open = 3
Dim Const $Folder_Icon_Closed = 4
Dim Const $Command_Icon = 24
Dim Const $Recycling_Icon = 101
Dim Const $Music_File = 116
Dim Const $Internet_Icon = 220
Dim Const $Txt_Icon = 70
Dim Const $Ini_Icon = 69
Dim Const $Unknown_Icon = 0
Dim Const $Shutdown_Icon = 25

Dim $Project = 'This project was set up by Seclinix on the 15th October 2007 to create a Operating system that can be integrated with windows so the user can have a totally new look on things and have a more understandable system that looks after itself and makes the users computer more friendly. It is a free open source project like unix and is written in AutoIt3 so if you would like to donate to this project you may donate money if you wish too or you can help with the coding which would be most appreciated. You can contact me through email: Seclinix@gmail.com'

$Files = _FileListToArray ( @DesktopDir, '*', 1 )

$MainOSHandle = GuiCreate ( $Title, 1028, 800, -5, -40 )
GuiSetBkColor ( 0x000000, $MainOSHandle )
For $i = 1 To $Files[0]
    
    $Ext = StringSplit ( $Files[$i], '.' )
    
    If $Ext[2] = 'exe' Then 
        $Icon_ID = '%1'
        $IPath = FileGetLongName ( $Files[$i] )
    EndIf
    If $Ext[2] = 'jpeg' Then 
        $Icon_ID = 117
        $IPath = 'Shell32.dll'
    EndIf
    If $Ext[2] = 'txt' Then 
        $Icon_ID = 70
        $IPath = 'Shell32.dll'
    EndIf
    If $Ext[2] = 'ini' Then 
        $Icon_ID = 69
        $IPath = 'Shell32.dll'
    EndIf
    If $Ext[2] = 'lnk' Then 
        $Icon_ID = 85
        $IPath = 'Shell32.dll'
    EndIf
    If $Ext[2] = 'Note' Then 
        $Icon_ID = 84
        $IPath = 'Shell32.dll'
    EndIf
        
    $Filename = StringSplit ( FileGetLongName ( $Files[$i] ), '\' )
    
    For $n = 1 To $Filename[0]
        $File_Name = $Filename[$n]
    Next
        
    $Icon_Image[$i] = GuiCtrlCreateIcon ( $IPath, $Icon_ID, $x, $y, $w, $h )
    $ControlPos = ControlGetPos ( $Title, '', $Icon_Image[$i] )
    $lx = $ControlPos[0] - 20
    $ly = ( $ControlPos[1] + $ControlPos[2] ) + 5
    $lw = 80
    $lh = 40
    $Icon_Text[$i] = GuiCtrlCreateLabel ( $File_Name, $lx, $ly, $lw, $lh, $SS_Center )
    $Path[$i] = FileGetShortName ( $Files[$i] )
    GuiCtrlSetColor ( $Icon_Text[$i], 0x00FF00 )
    GuiCtrlSetBkColor ( $Icon_Text[$i], $GUI_BKCOLOR_TRANSPARENT )
    $x = $x + 80
    If $x > 900 Then 
        $x = 20
        $y = $y + 100
    EndIf
Next

; +-----------------------------+
; |         StartMenu           |
; +-----------------------------+

$StartButton = GuiCtrlCreateLabel ( 'Start Menu', 0, 748, 96, 30, $SS_Sunken )
GuiCtrlSetColor ( $StartButton, 0x0000FF )
GuiCtrlSetFont ( $StartButton, 14, 400, 0, 'Arial' )
GuiCtrlSetBkColor ( $StartButton, 0x313131 )
;GuiCtrlCreateButton ( 'Start Menu', 0, 748, 96, 30, $BS_DEFPUSHBUTTON  )
$Menu_Bar = GuiCtrlCreateLabel ( '', 96, 748, 820, 30, $SS_SUNKEN  )
$Time_Bar = GuiCtrlCreateLabel ( @Hour & ':' & @Min, 900, 748, 120, 30, $SS_Center + $SS_SUNKEN  )

GuiCtrlSetBKColor ( $Menu_Bar, 0x313131 )
GuiCtrlSetFont ( $Menu_Bar, 18, 400, 0, 'Times New Roman' )
GuiCtrlSetColor ( $Menu_Bar, 0x00FF00 )

GuiCtrlSetBKColor ( $Time_Bar, 0x313131 )
GuiCtrlSetFont ( $Time_Bar, 18, 400, 0, 'Times New Roman' )
GuiCtrlSetColor ( $Time_Bar, 0x00FF00 )

; +-----------------------------+
; |         StartMenu Bar       |
; +-----------------------------+

$Start_Menu = GuiCtrlCreateLabel ( '', 2, 448, 200, 300, $SS_Sunken )
GuiCtrlSetBkColor ( $Start_Menu, 0x313131 )
GuiCtrlSetState ( $Start_Menu, $Gui_Hide )

$SMText2 = GuiCtrlCreateLabel ( 'Exit', 6, 555 + $Shift, 200, 20 )
GuiCtrlSetFont ( $SMText2, 12, 600, 0, 'Lucida Console' )
GuiCtrlSetBkColor ( $SMText2, $GUI_BKCOLOR_TRANSPARENT )
$SMText3 = GuiCtrlCreateLabel ( 'Command Prompt', 6, 525 + $Shift, 200, 20 )
GuiCtrlSetFont ( $SMText3, 12, 600, 0, 'Lucida Console' )
GuiCtrlSetBkColor ( $SMText3, $GUI_BKCOLOR_TRANSPARENT )
$SMText4 = GuiCtrlCreateLabel ( 'Paint', 6, 495 + $Shift, 200, 20 )
GuiCtrlSetFont ( $SMText4, 12, 600, 0, 'Lucida Console' )
GuiCtrlSetBkColor ( $SMText4, $GUI_BKCOLOR_TRANSPARENT )
$SMText5 = GuiCtrlCreateLabel ( 'Internet Explorer', 6, 465 + $Shift, 200, 20 )
GuiCtrlSetFont ( $SMText5, 12, 600, 0, 'Lucida Console' )
GuiCtrlSetBkColor ( $SMText5, $GUI_BKCOLOR_TRANSPARENT )
$SMText6 = GuiCtrlCreateLabel ( 'Admin Panel', 6, 435 + $Shift, 200, 20 )
GuiCtrlSetFont ( $SMText6, 12, 600, 0, 'Lucida Console' )
GuiCtrlSetBkColor ( $SMText6, $GUI_BKCOLOR_TRANSPARENT )
$SMText7 = GuiCtrlCreateLabel ( 'System Info', 6, 405 + $Shift, 200, 20 )
GuiCtrlSetFont ( $SMText7, 12, 600, 0, 'Lucida Console' ) 
GuiCtrlSetBkColor ( $SMText7, $GUI_BKCOLOR_TRANSPARENT )
GuiCtrlSetColor ( $SMText2, 0xFF0000 )
GuiCtrlSetColor ( $SMText3, 0xFF0000 ) 
GuiCtrlSetColor ( $SMText4, 0xFF0000 )
GuiCtrlSetColor ( $SMText5, 0xFF0000 )
GuiCtrlSetColor ( $SMText6, 0xFF0000 )
GuiCtrlSetColor ( $SMText7, 0xFF0000 )

$User_Pic = GuiCtrlCreateButton ( 'Picture', 6, 330 + $Shift, 60, 60, $BS_ICON )
$Username = GuiCtrlCreateLabel ( @Username, 66, 335 + $Shift, 120, 40, $SS_Center )
GuiCtrlSetBkColor ( $Username, $GUI_BKCOLOR_TRANSPARENT )
GuiCtrlSetImage ( $User_Pic, 'Shell32.dll', 130 )
GuiCtrlSetFont ( $Username, 12, 600, 6, 'Lucida Console' )
GuiCtrlSetColor ( $Username, 0x00FF00 )

; +------------------------------+
; |     Files Bin Menu           |
; +------------------------------+

$Program_Files = GuiCtrlCreateLabel ( '', 205, 250, 160, 300, $SS_Sunken )
GuiCtrlSetBkColor ( $Program_Files, 0x313131 )

$pfText[1] = GuiCtrlCreateLabel ( 'Username: ' & @Username, 210, 260, 140, 20 )
$pfText[2] = GuiCtrlCreateLabel ( 'Operating system: ' & @OSTYPE , 210, 280, 140, 40 )
$pfText[3] = GuiCtrlCreateLabel ( 'Operating Build: ' & @OSBuild, 210, 320, 140, 20 )
$pfText[4] = GuiCtrlCreateLabel ( 'Computer Name: ' & @ComputerName, 210, 340, 140, 40 )
$pfText[5] = GuiCtrlCreateLabel ( 'IP Address: ' & @IPAddress1, 210, 380, 140, 30 )
$pfText[6] = GuiCtrlCreateLabel ( 'Version: ' & @AutoItVersion, 210, 400, 140, 30 )

For $i = 1 To 6
    GuiCtrlSetColor ( $pfText[$i], 0x00FF00 )
    GuiCtrlSetBkColor ( $pfText[$i], $GUI_BKCOLOR_TRANSPARENT )
    GuiCtrlSetFont ( $pfText[$i], 10, 400, 0, 'Arial' )
Next


; +------------------------------+
; |     Right Click Menu         |
; +------------------------------+

$RCBackdrop = GuiCtrlCreateLabel ( '', 200, 200, 100, 150, $SS_Sunken )
GuiCtrlSetBkColor ( $RCBackdrop, 0x313131 )
ControlDisable ( $Title, '', $RCBackdrop )
$New = GuiCtrlCreateLabel ( 'Create New', 205, 205, 90, 15 )
GuiCtrlSetBkColor ( $New, $Gui_Bkcolor_Transparent )
GuiCtrlSetColor ( $New, 0x00FF00 )
GuiCtrlSetFont ( $New, 9, 400, '', 'Lucida Console' )
$Delete = GuiCtrlCreateLabel ( 'Delete', 205, 220, 90, 15 )
GuiCtrlSetBkColor ( $Delete, $Gui_Bkcolor_Transparent )
GuiCtrlSetColor ( $Delete, 0x00FF00 )
GuiCtrlSetFont ( $Delete, 9, 400, '', 'Lucida Console' )
$Tools = GuiCtrlCreateLabel ( 'Tools', 205, 235, 90, 15 )
GuiCtrlSetBkColor ( $Tools, $Gui_Bkcolor_Transparent )
GuiCtrlSetColor ( $Tools, 0x00FF00 )
GuiCtrlSetFont ( $Tools, 9, 400, '', 'Lucida Console' )
$ACTSnow = GuiCtrlCreateLabel ( 'Start Snow', 205, 250, 90, 15 )
GuiCtrlSetBkColor ( $ACTSnow, $Gui_BKColor_Transparent )
GuiCtrlSetColor ( $ACTSnow, 0x00FF00 )
GuiCtrlSetFont ( $ACTSnow, 9, 400, '', 'Lucida Console' )


; +------------------------------+
; |         Note Viewing         |
; +------------------------------+

$Notebook = GuiCtrlCreateLabel ( '', 800, 500, 220, 240, $SS_Sunken )
ControlDisable ( $Title, '', $Notebook )
GuiCtrlSetBkColor ( $Notebook, 0x313131 )
$Notebook_Title = GuiCtrlCreateLabel ( 'This is the Title', 805, 505, 210, 30, $SS_Center )
GuiCtrlSetFont ( $Notebook_Title, 18, 400, 0, 'System' )
GuiCtrlSetColor ( $Notebook_Title, 0x00FF00 )
$Notebook_Note = GuiCtrlCreateLabel ( 'This is the note', 805, 540, 210, 195 )
GuiCtrlSetColor ( $Notebook_Note, 0x00FF00 )

; +------------------------------+
; |
; +------------------------------+

; +------------------------------+
; | Stuff To Start Off With...   |
; +------------------------------+
HideStartMenu()
HideFilesBin()
HideRightClick()
HideNotebook()
GuiSetState ()
Activate_Screensaver_Snow()


While 1
    
    $Dc001 = GuiGetMsg ()
    
    If $Dc001 = $Gui_Event_Close Then Exit
    
    Select
        
    Case $Dc001 = $StartButton
        If $Hide_Menu = 1 Then 
            ShowStartMenu()
            $Hide_Menu = 0
        Else
            $Hide_Menu = 1
            HideStartMenu()
            HideFilesBin()
            $File_Bin_i = 1
        EndIf
        
    Case _IsPressed ( '02' ) 
        $KZad = MouseGetPos ( )
        $RightActive = 1
        ShowRightClick( $KZad[0],$KZad[1] )
        
    Case _IsPressed ( '01' ) 
        If WinActive ( $Title ) Then 
            $Cursor = GUIGetCursorInfo ( $MainOSHandle )
            If $RightActive = 1 Then
                If $Cursor[4] <> $RCBackdrop Then 
                    If $Cursor[4] <> $New And $Cursor[4] <> $Delete And $Cursor[4] <> $Tools Then 
                        HideRightClick()
                        $RightActive = 0
                    EndIf
                EndIf
                If $Cursor[4] = $ACTSnow Then
                    $Optn = ControlGetText ( $Title, '', $ACTSnow )
                    If $Optn = 'Start Snow' Then 
                        Activate_Screensaver_Snow()
                    EndIf
                    If $Optn = 'Stop Snow' Then
                        $Hidden_Snow = 1
                    EndIf
                    
                EndIf
                
            EndIf
            
            For $s = 1 To $Files[0]
                If $Cursor[2] = 1 Then 
                    If $Cursor[4] = $Icon_Image[$s] Then
                            Sleep ( 100 )
                            $Check = GuiGetCursorInfo ( $MainOSHandle )
                            If $Check[2] = 0 Then 
                                Run ( @Comspec & ' /c ' & 'Start ' & $Path[$s], '', @sw_Hide )
                                Exitloop
                            Else
                                While $Cursor[2] = 1                    
                                    GuiCtrlSetPos ( $Icon_Image[$s], $Cursor[0] - 5, $Cursor[1] )
                                    $Icon_Pos = ControlGetPos ( $Title, '', $Icon_Image[$s] )
                                    $xpos = $Icon_Pos[0] - 20
                                    $ypos = ( $Icon_Pos[1] + $Icon_Pos[2] ) + 5
                                    GuiCtrlSetPos ( $Icon_Text[$s], $xpos, $ypos )
                                    Sleep ( 20 )
                                    $Cursor = GuiGetcursorInfo ( $MainOSHandle )
                                WEnd
                            EndIf
                    EndIf
                EndIf
            Next
        EndIf
        
    EndSelect
    
    Select
        
    Case $Dc001 = $SMText2
        Exit
    Case $Dc001 = $SMText3
        Run ( @Comspec, '', @sw_show )
    Case $Dc001 = $SMText4
        Run ( @Comspec & ' /c Start mspaint.exe', @SystemDir, @sw_hide )
    Case $Dc001 = $SMText5
        $Shell = ObjCreate ( 'InternetExplorer.Application.1' )
        $Shell.Navigate = ( 'www.Google.co.nz' )
        $Shell.Visible = 1
    Case $Dc001 = $SMText6
        
    Case $Dc001 = $SMText7
        If $File_Bin_i = 1 Then 
            ShowFilesBin()
            $File_Bin_i = 0
        Else
            HideFilesBin()
            $File_Bin_i = 1
        EndIf
    EndSelect
    
    Show_Colors()
    
WEnd

Func HideStartMenu()
    GuiCtrlSetState ( $Start_Menu, $Gui_Hide )
    GuiCtrlSetState ( $SMText2, $Gui_Hide )
    GuiCtrlSetState ( $SMText3, $Gui_Hide )
    GuiCtrlSetState ( $SMText4, $Gui_Hide )
    GuiCtrlSetState ( $SMText5, $Gui_Hide )
    GuiCtrlSetState ( $SMText6, $Gui_Hide )
    GuiCtrlSetState ( $SMText7, $Gui_Hide )
    GuiCtrlSetState ( $User_Pic, $Gui_Hide )
    GuiCtrlSetState ( $Username, $Gui_Hide )
EndFunc

Func ShowStartMenu()
    GuiCtrlSetState ( $SMText2, $Gui_Show )
    GuiCtrlSetState ( $SMText3, $Gui_Show )
    GuiCtrlSetState ( $SMText4, $Gui_Show )
    GuiCtrlSetState ( $SMText5, $Gui_Show )
    GuiCtrlSetState ( $SMText6, $Gui_Show )
    GuiCtrlSetState ( $SMText7, $Gui_Show )
    GuiCtrlSetState ( $User_Pic, $Gui_Show )
    GuiCtrlSetState ( $Username, $Gui_Show )
    GuiCtrlSetState ( $Start_Menu, $Gui_Show )
    GuiCtrlSetState ( $Start_Menu, $Gui_Disable )
EndFunc

Func ShowFilesBin()
    GuiCtrlSetState ( $Program_Files, $Gui_Show )
    GuiCtrlSetState ( $Program_Files, $Gui_Disable )
    For $i = 1 To 6
        GuiCtrlSetState ( $pfText[$i], $Gui_Show )
    Next
EndFunc

Func HideFilesBin()
    GuiCtrlSetState ( $Program_Files, $Gui_Hide )
    For $i = 1 To 6
        GuiCtrlSetState ( $pfText[$i], $Gui_Hide )
    Next
EndFunc

Func HideRightClick()
    GuiCtrlSetState ( $RCBackdrop, $Gui_Hide )
    GuiCtrlSetState ( $New, $Gui_Hide )
    GuiCtrlSetState ( $Delete, $Gui_Hide )
    GuiCtrlSetState ( $Tools, $Gui_Hide )
    GuiCtrlSetState ( $ACTSnow, $Gui_Hide )
EndFunc

Func ShowRightClick( $Positionx, $Positiony )
    
    $StablePoint = MouseGetPos ()
    
    ControlMove ( $Title, '', $RCBackdrop, $StablePoint[0], $StablePoint[1] )
    ControlMove ( $Title, '', $New, $StablePoint[0] + 5, $StablePoint[1] + 10 )
    ControlMove ( $Title, '', $Delete, $StablePoint[0] + 5, $StablePoint[1] + 25 )
    ControlMove ( $Title, '', $Tools, $StablePoint[0] + 5, $StablePoint[1] + 40 )
    ControlMove ( $Title, '', $ACTSnow, $StablePoint[0] + 5, $StablePoint[1] + 55 )
    
    GuiCtrlSetState ( $RCBackdrop, $Gui_Show )
    GuiCtrlSetState ( $New, $Gui_Show )
    GuiCtrlSetState ( $Delete, $Gui_Show )
    GuiCtrlSetState ( $Tools, $Gui_Show )
    GuiCtrlSetState ( $ACTSnow, $Gui_Show )
    
    GuiCtrlSetState ( $RCBackdrop, $Gui_Enable )
    GuiCtrlSetState ( $New, $Gui_Enable )
    GuiCtrlSetState ( $Delete, $Gui_Enable )
    GuiCtrlSetState ( $Tools, $Gui_Enable )
    GuiCtrlSetState ( $ACTSnow, $Gui_Enable )
EndFunc

Func HideNotebook()
    GuiCtrlSetState ( $Notebook, $Gui_Hide )
    GuiCtrlSetState ( $Notebook_Title, $Gui_Hide )
    GuiCtrlSetState ( $Notebook_Note, $Gui_Hide )
EndFunc

Func ShowNotebook()
    GuiCtrlSetState ( $Notebook, $Gui_Show )
    GuiCtrlSetState ( $Notebook_Title, $Gui_Show )
    GuiCtrlSetState ( $Notebook_Note, $Gui_Show )
EndFunc

Func ChangeColor( $Colors )
    GuiCtrlSetColor ( $SMText1, $Colors )
    GuiCtrlSetColor ( $SMText2, $Colors )
    GuiCtrlSetColor ( $SMText3, $Colors )
    GuiCtrlSetColor ( $SMText4, $Colors )
    GuiCtrlSetColor ( $SMText5, $Colors )
    GuiCtrlSetColor ( $SMText6, $Colors )
    GuiCtrlSetColor ( $SMText7, $Colors )
    For $l = 1 To $Files[0]
        GuiCtrlSetColor ( $Icon_Text[$l], $Colors )
    Next
    GuiCtrlSetColor ( $pfText[1], $Colors )
    GuiCtrlSetColor ( $pfText[2], $Colors )
    GuiCtrlSetColor ( $pfText[3], $Colors )
    GuiCtrlSetColor ( $pfText[4], $Colors )
    GuiCtrlSetColor ( $pfText[5], $Colors )
    GuiCtrlSetColor ( $pfText[6], $Colors )
    
EndFunc

Func Activate_Screensaver_Snow()
;$SC_Backdrop = GuiCtrlCreateLabel ( '', 0, 0, @DesktopWidth, @DesktopHeight ) 
    GuiCtrlSetData ( $ACTSnow, 'Stop Snow' )
    For $sc = 1 To 30
        $Randomx = Random ( 0, 1024 )
        $Randomy = Random ( 0, 800 )
        
        $sc_text[$sc] = GuiCtrlCreateLabel ( '*', $Randomx, $Randomy, 5, 5 )
        
        GuiCtrlSetBkColor ( $sc_text[$sc], 0x000000 )
        GuiCtrlSetFont ( $sc_text[$sc], 7, 400, 0, 'Lucida Console' )
    Next
    
    While 1
        Sleep ( 6 )
        
        For $zk = 1 To 30
            $SnowPos = ControlGetPos ( $Title, '', $sc_text[$zk] )
            If $Hidden_Snow = 0 Then 
                If $SnowPos[1] > 735 Then 
                    ControlMove ( $Title, '', $sc_text[$zk], $SnowPos[0], 0 )
                    GuiCtrlSetColor ( $sc_text[$zk], 0xFFFFFF )
                Else
                    ControlMove ( $Title, '', $sc_text[$zk], $SnowPos[0], $SnowPos[1] + 10 )
                EndIf
            Else
                Hide_Screensaver_Snow()
                ExitLoop
            EndIf
            
            MustDoFunc()
            Show_Colors()
        Next
        If $Hidden_Snow = 1 Then
            $Hidden_Snow = 0
            GuiCtrlSetData ( $ACTSnow, 'Start Snow' )
            ExitLoop
        EndIf
    WEnd
    
EndFunc

Func Hide_Screensaver_Snow()
;GuiCtrlDelete ( $SC_Backdrop )
    For $p = 1 To 30
        GuiCtrlDelete ( $sc_text[$p] )
    Next
    $Hiden_Snow = 1
EndFunc

Func MustDoFunc()

    $Dc001 = GuiGetMsg ()
    
    Select
        
    Case $Dc001 = $StartButton
        If $Hide_Menu = 1 Then 
            ShowStartMenu()
            $Hide_Menu = 0
        Else
            $Hide_Menu = 1
            HideStartMenu()
            HideFilesBin()
            $File_Bin_i = 1
        EndIf
        
    Case _IsPressed ( '02' ) 
        $KZad = MouseGetPos ( )
        $RightActive = 1
        ShowRightClick( $KZad[0],$KZad[1] )
        
    Case _IsPressed ( '01' ) 
        If WinActive ( $Title ) Then 
            $Cursor = GUIGetCursorInfo ( $MainOSHandle )
            If $RightActive = 1 Then
                If $Cursor[4] <> $RCBackdrop Then 
                    If $Cursor[4] <> $New And $Cursor[4] <> $Delete And $Cursor[4] <> $Tools Then 
                        HideRightClick()
                        $RightActive = 0
                    EndIf
                EndIf
                If $Cursor[4] = $ACTSnow Then
                    $Optn = ControlGetText ( $Title, '', $ACTSnow )
                    If $Optn = 'Start Snow' Then 
                        Activate_Screensaver_Snow()
                    EndIf
                    If $Optn = 'Stop Snow' Then
                        $Hidden_Snow = 1
                    EndIf
                    
                EndIf
                
            EndIf
            
            For $s = 1 To $Files[0]
                If $Cursor[2] = 1 Then 
                    If $Cursor[4] = $Icon_Image[$s] Then
                            Sleep ( 100 )
                            $Check = GuiGetCursorInfo ( $MainOSHandle )
                            If $Check[2] = 0 Then 
                                Run ( @Comspec & ' /c ' & 'Start ' & $Path[$s], '', @sw_Hide )
                                Exitloop
                            Else
                                While $Cursor[2] = 1                    
                                    GuiCtrlSetPos ( $Icon_Image[$s], $Cursor[0] - 5, $Cursor[1] )
                                    $Icon_Pos = ControlGetPos ( $Title, '', $Icon_Image[$s] )
                                    $xpos = $Icon_Pos[0] - 20
                                    $ypos = ( $Icon_Pos[1] + $Icon_Pos[2] ) + 5
                                    GuiCtrlSetPos ( $Icon_Text[$s], $xpos, $ypos )
                                    Sleep ( 20 )
                                    $Cursor = GuiGetcursorInfo ( $MainOSHandle )
                                WEnd
                            EndIf
                    EndIf
                EndIf
            Next
        EndIf
        
    EndSelect
    
    Select
        
    Case $Dc001 = $SMText2
        Exit
    Case $Dc001 = $SMText3
        Run ( @Comspec, '', @sw_show )
    Case $Dc001 = $SMText4
        Run ( @Comspec & ' /c Start mspaint.exe', @SystemDir, @sw_hide )
    Case $Dc001 = $SMText5
        $Shell = ObjCreate ( 'InternetExplorer.Application.1' )
        $Shell.Navigate = ( 'www.Google.co.nz' )
        $Shell.Visible = 1
    Case $Dc001 = $SMText6
        
    Case $Dc001 = $SMText7
        If $File_Bin_i = 1 Then 
            ShowFilesBin()
            $File_Bin_i = 0
        Else
            HideFilesBin()
            $File_Bin_i = 1
        EndIf
    EndSelect
    
EndFunc

Func Show_Colors()
    If WinGetTitle ( '' ) = $Title Then 
        $Over = GuiGetCursorInfo ( $MainOSHandle )
        If $Hide_Menu = 0 Then 
    
            If $Over[4] = $SMText7 Then
                GuiCtrlSetColor ( $SMText7, 0xFF0000 )
            Else
                GuiCtrlSetColor ( $SMText7, 0x00FF00 )
            EndIf
            
            If $Over[4] = $SMText6 Then
                GuiCtrlSetColor ( $SMText6, 0xFF0000 )
            Else
                GuiCtrlSetColor ( $SMText6, 0x00FF00 )
            EndIf
            
            If $Over[4] = $SMText5 Then
                GuiCtrlSetColor ( $SMText5, 0xFF0000 )
            Else
                GuiCtrlSetColor ( $SMText5, 0x00FF00 )
            EndIf
                
            If $Over[4] = $SMText4 Then
                GuiCtrlSetColor ( $SMText4, 0xFF0000 )
            Else
                GuiCtrlSetColor ( $SMText4, 0x00FF00 )
            EndIf
                
            If $Over[4] = $SMText3 Then
                GuiCtrlSetColor ( $SMText3, 0xFF0000 )
            Else
                GuiCtrlSetColor ( $SMText3, 0x00FF00 )
            EndIf
                
            If $Over[4] = $SMText2 Then
                GuiCtrlSetColor ( $SMText2, 0xFF0000 )
            Else
                GuiCtrlSetColor ( $SMText2, 0x00FF00 )
            EndIf
            
        EndIf
        
        
        If $Over[4] = $New Then 
            GuiCtrlSetColor ( $New, 0xFF0000 )
        Else
            GuiCtrlSetColor ( $New, 0x00FF00 )
        EndIf
        If $Over[4] = $Delete Then 
            GuiCtrlSetColor ( $Delete, 0xFF0000 )
        Else
            GuiCtrlSetColor ( $Delete, 0x00FF00 )
        EndIf
        If $Over[4] = $Tools Then 
            GuiCtrlSetColor ( $Tools, 0xFF0000 )
        Else
            GuiCtrlSetColor ( $Tools, 0x00FF00 )
        EndIf
        If $Over[4] = $ACTSnow Then 
            GuiCtrlSetColor ( $ACTSnow, 0xFF0000 )
        Else
            GuiCtrlSetColor ( $ACTSnow, 0x00FF00 )
        EndIf
        
        
        
    EndIf
EndFunc

[AzKay]

Mmm, Make a USB OS

[seclinix]

oh im sorry i was meant to say it only takes resoultion 800x1024 sorry... i have added last night a software firewall... stopping programs from accessing internet without permission etc and i am working on customization... so you can have any start menu etc and background with alot of options basically something alongh the line of linux OS that give you the option to 'debug' yourself...

Its funny because i have only been writing this Opp Shell while i am drinking alcohol preferably Vodka

[seclinix]

also if you can't use 800x1024 let me know and i will work on having it Universal... good for all resolutions

and any ideas you can email them to me... Seclinix@gmail.com as i plan on making this better than windows explorer.exe

Thanks Seclinix

[emoyasha]

i do not mean to creat ehostitlity but i was attempting the same thing in AHK and then came here becaus ethe point was o have all ahk programs with as little other kinds as posible and delete all files the new shell wasent dependent on or the scripts wenrnt dependent on, im not sure how this works yet but i have a few tips,

i have a screen shot of vistas start menu, why not use that and make the icons and names appear inside the picture, so it looks cooler, i did the same with the start bar, but i aded a mac apple with a punguin in it, shifted backwards as the start button. how ever thats all the farther i have gotten. the script detects the screen width and places it at the toop of the screen and spans the entire screen

just some ideas

i plan on using both laungues, because both have posotives and negitivs to eac other, so anyone who could help me get started i would like ( i hope youo guys arnt a sunfriendly as i hear) not that thats an insult

[emoyasha]

also i would liek to inform you all that this is extreamly buggy on a vista laptop

[emoyasha]

also for the user problem why noot use just multipul keys not files like

[user1]

[user2]

[seclinix]

i use AHK too but i find that AHK does not offer you all the functions like autoit can... Autoit is ten times better and always will be mind you its always up to the user i guess,

[seclinix]

sorry to say i ouldn't hacve a clue what you are on about

[seclinix]

and emoyasha you said you did the same with some script of yours... why don't you share with us?

i did the same with the start bar, but i aded a mac apple with a punguin in it, shifted backwards as the start button. how ever thats all the farther i have gotten. the script detects the screen width and places it at the toop of the screen and spans the entire screen

Not to be mean but it isa a peice of piss although when i started the sclript i usually use 800x1024 so instead of re changing all of the script i would just improve so it would stay the same as 800x1024 but it would be better... if i were to change it then it would take while because of how many lines there are... read again...

i am working on customization... so you can have any start menu etc and background with alot of options basically something alongh the line of linux OS that give you the option to 'debug' yourself...

so baically you can do what you want with it...

[Kreatorul]

:| Lol people...the edit button won't dissapear of you press it you know...

Tzarani

[emoyasha]

well there isone thing ahk had features that autoit dosent and autoit has ones ahk dosent, so i like both, and im not dont yet i just finished the task bar and start menu

[seclinix]

its a work in progress... i will update to make it more like a operating system and emoyasha you can still share your script wis us even if it isn't done yet

Edited January 17, 2008 by seclinix

[NELyon]

This has a whole mess of undeclared variables. It doesn't even run.

[jaenster]

Very nice! But i need to make a suggestion.

When i run this script in 800X640, The start menu is cut off. Other than that, I like this!

EDIT: Don't ask why i use 800x640. It's a long story

Why you use? ^^

j/k

[seclinix]

it works... the variables will be used at a leater date as i am still making it...

[NELyon]

it works... the variables will be used at a leater date as i am still making it...

It doesn't even run. You have undeclared variables as GUI parameters.

[Skrip]

It doesn't even run. You have undeclared variables as GUI parameters.

Yeah, I was just about to post this. Please fix it soon. I want to check this out.

[crzftx]

didn't test, but 1024x800.... ? I have never heard of a contemporary screen that isn't 16:9, 16:10, or 16:12.

32:25 (16:12.5) ... weird.

Edited January 17, 2008 by crzftx

[JustinReno]

There are bunches of odd screen resolutions, like my laptop that is 1400x900.