AutoIT Site/Forum Jumper (Tray)

[AlmarM]

expandcollapse popup

#include <Constants.au3>
#NoTrayIcon

Opt("TrayMenuMode", 1)

$Site_Jump = TrayCreateMenu("Site Jump")
$Forum_Home = TrayCreateItem("Forum Home", $Site_Jump)
$Search = TrayCreateItem("Search", $Site_Jump)
$Help = TrayCreateItem("Help", $Site_Jump)
TrayCreateItem("")
$Forum_Jump = TrayCreateMenu("Forum Jump")
$General = TrayCreateMenu("General", $Forum_Jump)
$Announcements_and_Site_News = TrayCreateItem("Announcements and Site News", $General)
$Chat = TrayCreateItem("Chat", $General)
TrayCreateItem("", $Forum_Jump)
$AutoIT_v3 = TrayCreateMenu("AutoIT v3", $Forum_Jump)
$General_Help_and_Support = TrayCreateItem("General Help and Support", $AutoIT_v3)
$Graphical_User_Interface_GUI_Help_and_Support = TrayCreateItem("Graphical User Interface (GUI) Help and Support", $AutoIT_v3)
$ActiveX_COM_Help_and_Support_AutoItX = TrayCreateItem("ActiveX/COM Help and Support (AutoItX)", $AutoIT_v3)
$Example_Scripts = TrayCreateItem("Example Scripts", $AutoIT_v3)
TrayCreateItem("", $Forum_Jump)
$Bug_Reports = TrayCreateMenu("Bug Reports", $Forum_Jump)
$v3_Bug_Reports_Open = TrayCreateItem("v3 Bug Reports (Open)", $Bug_Reports)
$v3_Bug_Reports_Fixed = TrayCreateItem("v3 Bug Reports (Fixed)", $Bug_Reports)
$v3_Bug_Reports_No_Bug = TrayCreateItem("v3 Bug Reports (No Bug)", $Bug_Reports)
TrayCreateItem("", $Forum_Jump)
$Other = TrayCreateMenu("Other", $Forum_Jump)
$AutoIt_Feature_Requests = TrayCreateItem("AutoIT Feature Requests", $Other)
$Developer_Chat = TrayCreateItem("Developer Chat", $Other)
TrayCreateItem("", $Forum_Jump)
$AutoIT_v2 = TrayCreateMenu("AutoIT v2", $Forum_Jump)
$AutoIt_v2_Help_and_Support = TrayCreateItem("AutoIt v2 Help and Support", $AutoIT_v2)
TrayCreateItem("")
$About = TrayCreateItem("About")
TrayCreateItem("")
$Exit = TrayCreateItem("Exit")

TraySetState()
While 1
    $nMsg = TrayGetMsg()
    Select
    Case $nMsg = $Exit
        Exit
    Case $nMsg = $Forum_Home
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=idx")
    Case $nMsg = $Search
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=Search")
    Case $nMsg = $Help
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=Help")
    Case $nMsg = $Announcements_and_Site_News
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=1")
    Case $nMsg = $Chat
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=6")
    Case $nMsg = $General_Help_and_Support
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=2")
    Case $nMsg = $Graphical_User_Interface_GUI_Help_and_Support
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=10")
    Case $nMsg = $ActiveX_COM_Help_and_Support_AutoItX
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=14")
    Case $nMsg = $Example_Scripts
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=9")
    Case $nMsg = $v3_Bug_Reports_Open
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=16")
    Case $nMsg = $v3_Bug_Reports_Fixed
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=15")
    Case $nMsg = $v3_Bug_Reports_No_Bug
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=18")
    Case $nMsg = $AutoIt_Feature_Requests
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=4")
    Case $nMsg = $Developer_Chat
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=7")
    Case $nMsg = $AutoIt_v2_Help_and_Support
        ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=5")
    Case $nMsg = $About
        MsgBox(0, "About", "AutoIT Site/Forum Jumper" & @CRLF & "By: AlmarM")
    EndSelect
WEnd

Updated the script to a Tray

I only have a few questions

But Ill post them at the General Help and Support topic

[HeffeD]

So it's bookmarks?

[AlmarM]

Bookmarks ??

[HeffeD]

Yes, bookmarks in your browser that take you to any given page that you've bookmarked. They instantly send you to a site you visit often. I think they're called 'Favorites' in IE.

[GEOSoft]

I could be wrong but I think You missed one in the Select.

Case $nMsg = $Bug_Reports
   ShellExecute("http://www.autoitscript.com/forum/index.php?act=SF&s=&f=3")

For the main Bug Reports page.