Sign in to follow this  
Followers 0
slaughter

google all in one

2 posts in this topic

I uses google for busines, and noticed that some time i get confused in too many windows, sotime actidently closes windows talk or mail. So i made this.

Bugs: Some times dosent work Enter or Backspace in Talk gaget, Any solutions?

#include <GUIConstants.au3>
#include <GuiTab.au3>
#include <IE.au3>
;~ #include <GuiStatusBar.au3>
;~ #include <array.au3>
;~ #include <Misc.au3>
Global $Tab[11], $oIE[11], $Obj[11], $flasher[11], $backstack[11][2], $init = 1
Global $Title = "My Web Browser", $TabPos1 = 5, $TabPos2 = 35, $TabPos3 = 850, $TabPos4 = 650, $Status = 0, $Title2, $Status2 = "", $frskip = 0, $Count = 1, $HomePage, $LastPage


$with = 900
$heith = 600
$Form = GUICreate("Google All in one",$with,$heith ,0,0)
$CreateTab = GUICtrlCreateTab(0,0,$with,30)

GUISetState()

OpenTab(1, "http://mail.google.com/mail/?hl=lt&tab=wm#inbox", "Mail")
OpenTab(2, "http://www.google.com/calendar/render?tab=mc", "Calendar")
OpenTab(3, "http://sites.google.com/?tab=m3", "Sites")
OpenTab(4, "http://talkgadget.google.com/talkgadget/popout?hl=en#", "Talk")

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd


Func OpenTab($oNum, $oLink = "", $name = "XXX")
    $Count =0
    $Tab[$oNum] = GUICtrlCreateTabItem($name)
    $oIE[$oNum] = _IECreateEmbedded()
    $Obj[$oNum] = GUICtrlCreateObj($oIE[$oNum],10,30,$with -20,$heith - 60)
    _IENavigate($oIE[$oNum], $oLink , 0)
;~   $flasher[$oNum] = GUICtrlCreateEdit("", $TabPos1 + 5, $TabPos2 + 25, $TabPos3 - 10, $TabPos4 - 80)
;~   GUICtrlSetState($flasher[$oNum], $GUI_HIDE)
;~   Navigate($oNum, $oLink)
;~   If $init = 0 Then
;~       _GUICtrlTab_SetCurSel($CreateTab, $Count - 2)
;~   EndIf
EndFunc  ;==>OpenTab

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  
Followers 0