GOSIP now open source community project

[Influx]

unfortunately I lost my flash drive with all the work I have done over about the past month.

Therefore I have decided to make GOSIP an open source community project.

this means anyone can submit modification and additions, a project by the people for the people.

A forum for GOSIP is on the way.

some specifications are:

-Needs to replicate mutli threading by using multiple process that interchange data using $WM_COPY (http://www.autoitscript.com/forum/index.php?showtopic=52198 )

-needs to have a functioning desktop

-each gui must have it own process

-must search and index files

-must have a vista like look

-desktop must be usable, must be fully featured shell

Have fun everyone, everyone that helps regardless of how big or small will be credited.

All code to date:

main code:

expandcollapse popup

; *** Start added by AutoIt3Wrapper ***
#include <ButtonConstants.au3>
; *** End added by AutoIt3Wrapper ***
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_icon=favicon.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=GOSIP - Great Outstanding Shell In Perfection
#AutoIt3Wrapper_Res_Description=GOSIP - Great Outstanding Shell In Perfection
#AutoIt3Wrapper_Res_Fileversion=0.0.1.13
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=On Demand Programmers Of America
#AutoIt3Wrapper_Res_Language=1033
#AutoIt3Wrapper_Res_requestedExecutionLevel=highestAvailable
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; *** Start added by AutoIt3Wrapper ***
#include <MenuConstants.au3>
; *** End added by AutoIt3Wrapper ***
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>
#include <StaticConstants.au3>

Opt("GUIOnEventMode", 1)
FileInstall("start.gif", "start.gif")
FileInstall("bar.bmp", "bar.bmp")
$width = @DesktopWidth
$height = @DesktopHeight
;==================
;start menu
;==================
$gui2 = guicreate("Start Menu[CL:102938]", $width/4, $height/2, 0, $height/2.141, $WS_POPUP,BitOr($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
GUICtrlCreatePic(@ScriptDir & "/bar.bmp", 0, 0, $width/4, $height/2)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel(@username, $width/4-_string_estimated_length(@username)-5, 10, _string_estimated_length(@username))
GUICtrlSetColor(-1, 0xffffff) 
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetBkColor(0x000000)
;==================
;start bar
;==================
GUICreate("Start[CL:102939]", $width, 40, 0, $height - 30, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
GUICtrlCreatePic(@ScriptDir & "/bar.bmp", 0, 0, $width, 40)

GUICtrlSetState(-1, $GUI_DISABLE)
;GUICtrlCreateIcon("start.ico", "start.ico", 5, -3, 40, 43)

$l1 = GUICtrlCreateLabel("00:00:00", $width - 100, 10, 90)
GUICtrlSetOnEvent(-1, "_exit")
GUICtrlSetColor(-1, 0xffffff)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreatePic("start.gif", 12.5, 0, 30, 30)
GUICtrlSetOnEvent(-1, "_start")
GUISetState()
GUIRegisterMsg($WM_SYSCOMMAND, "WM_SYSCOMMAND")
;~ FileDelete("start.gif")
;~ FileDelete("bar.bmp")
dim $x[500]
$var = WinList()
ConsoleWrite($var[0][0])
$c = ($width-150)/20
For $i = 1 to $var[0][0]
    
  ; Only display visble windows that have a title
  If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
  $x[$i] = GUICtrlCreatebutton($var[$i][0], $c, 5, ($width-150)/20, 20)
  GUICtrlSetOnEvent(-1, "pushed")
     ; GUICtrlSetColor(-1, 0xffffff)
;GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
   GUICtrlSetTip(-1, $var[$i][0])
   $c=$c+($width-150)/20
  EndIf
Next
while 1
    sleep(500)


GUICtrlSetData($l1, time12hr())
    $spos = WinGetPos("Start[CL:102939]", "")
    if $spos[0] <> 0 Then
        
        mouseup("left")
    WinMove("Start[CL:102939]","", 0, $height-30)

EndIf
    if $spos[1] <> $height-30 Then
    
        mouseup("left")
    WinMove("Start[CL:102939]","", 0, $height-30)

EndIf
WEnd

func _start()
    
    if WinGetState("Start Menu[CL:102938]") = 5 Then
        GUISetState(@SW_SHOW, $gui2)

Else
GUISetState(@SW_HIDE, $gui2)
EndIf

EndFunc

func _string_estimated_length($String)
    return StringLen($string)*6.3
EndFunc

func _exit()
    Exit
EndFunc

Func WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam)
    If BitAND($wParam, 0x0000FFF0) = $SC_MOVE Then Return False
    Return $GUI_RUNDEFMSG
EndFunc
Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then 
    Return 1
  Else
    Return 0
  EndIf

EndFunc
Func time12hr()
    $iHour = @HOUR
    $iMin  = @MIN
    $iSec  = @SEC
    $sAMPM = "AM"
    If $iHour >= 12 Then $sAMPM = "PM"
    If $iHour = 00 Then $iHour = 12
    If $iHour > 12 Then $iHour -= 12
    Return $iHour & ":" & $iMin & ":" & $iSec & " "& $sAMPM
EndFunc

func pushed()
        ;WinActivate(GUICtrlRead($x[@GUI_Ctrlid-1]))
        WinActivate(GUICtrlRead($x[@GUI_Ctrlid]))
EndFunc

start bar:

bar.bmp

start button:

Edited January 24, 2009 by Influx

[Influx]

also I want sure where to put this, so i put it in help, if it should be in example scripts, would a mod please move it there?