Jump to content



Photo

AutoIT Site/Forum Jumper (Tray)


  • Please log in to reply
4 replies to this topic

#1 AlmarM

AlmarM

    Programming my way.

  • Active Members
  • PipPipPipPipPipPip
  • 1,642 posts

Posted 30 November 2007 - 03:27 PM

AutoIt         
#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("<a href='http://www.autoitscript.com/forum/index.php?act=idx' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=idx"</a>)     Case $nMsg = $Search         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=Search' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=Search"</a>)     Case $nMsg = $Help         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=Help' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=Help"</a>)     Case $nMsg = $Announcements_and_Site_News         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=1' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=1"</a>)     Case $nMsg = $Chat         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=6' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=6"</a>)     Case $nMsg = $General_Help_and_Support         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=2' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=2"</a>)     Case $nMsg = $Graphical_User_Interface_GUI_Help_and_Support         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=10' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=10"</a>)     Case $nMsg = $ActiveX_COM_Help_and_Support_AutoItX         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=14' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=14"</a>)     Case $nMsg = $Example_Scripts         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=9' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=9"</a>)     Case $nMsg = $v3_Bug_Reports_Open         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=16' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=16"</a>)     Case $nMsg = $v3_Bug_Reports_Fixed         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=15' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=15"</a>)     Case $nMsg = $v3_Bug_Reports_No_Bug         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=18' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=18"</a>)     Case $nMsg = $AutoIt_Feature_Requests         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=4' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=4"</a>)     Case $nMsg = $Developer_Chat         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=7' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=7"</a>)     Case $nMsg = $AutoIt_v2_Help_and_Support         ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=5' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=5"</a>)     Case $nMsg = $About         MsgBox(0, "About", "AutoIT Site/Forum Jumper" & @CRLF & "By: AlmarM")     EndSelect WEnd


Updated the script to a Tray :P
I only have a few questions :)
But Ill post them at the General Help and Support topic ;)





#2 HeffeD

HeffeD

    Adventurer

  • Active Members
  • PipPip
  • 107 posts

Posted 30 November 2007 - 07:11 PM

So it's bookmarks?

#3 AlmarM

AlmarM

    Programming my way.

  • Active Members
  • PipPipPipPipPipPip
  • 1,642 posts

Posted 30 November 2007 - 07:23 PM

Bookmarks ?? :P

#4 HeffeD

HeffeD

    Adventurer

  • Active Members
  • PipPip
  • 107 posts

Posted 30 November 2007 - 07:57 PM

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.

#5 GEOSoft

GEOSoft

    Sure I'm senile. What's your excuse?

  • MVPs
  • 10,563 posts

Posted 30 November 2007 - 08:02 PM

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

Case $nMsg = $Bug_Reports    ShellExecute("<a href='http://www.autoitscript.com/forum/index.php?act=SF&s=&f=3' class='bbc_url' title='' rel='norewrite'>http://www.autoitscript.com/forum/index.php?act=SF&s=&f=3"</a>)
For the main Bug Reports page.
GeorgeQuestion about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.*** The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number.Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else."Old age and treachery will always overcome youth and skill!"




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users