"Deal-A-Day" Sites

[JLogan3o13]

A couple years ago a friend of mine got me into checking out "One Deal a Day" sites such as Woot and SlickDeals. The list has since grown to include 22 sites, plus several News sites, plus (of course!) this forum, and I found that I despised moving back and forth among all the IE tabs. I came up with this relatively simple embedded IE GUI that allows for switching back and forth more quickly. You may need to adjust resolution, as mine is set pretty high.
 

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

Local $oIE = _IECreateEmbedded()
Global $myGUI = GUICreate("Deal A Day Sites", 1915, 1024, 1, 1,$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)

GUICtrlCreateObj($oIE, 10, 120, 1885, 900)

Local $GUI_Button_1 = GUICtrlCreateButton("1 Sale a Day", 5, 10, 100, 30)
Local $GUI_Button_2 = GUICtrlCreateButton("13 Deals", 110, 10, 100, 30)
Local $GUI_Button_3 = GUICtrlCreateButton("Daily Steals", 215, 10, 100, 30)
Local $GUI_Button_4 = GUICtrlCreateButton("Kids.Woot", 320, 10, 100, 30)
Local $GUI_Button_5 = GUICtrlCreateButton("MidnightBox", 425, 10, 100, 30)
Local $GUI_Button_6 = GUICtrlCreateButton("MWave", 530, 10, 100, 30)
Local $GUI_Button_7 = GUICtrlCreateButton("SlickDeals", 635, 10, 100, 30)
Local $GUI_Button_8 = GUICtrlCreateButton("ThingFling", 740, 10, 100, 30)
Local $GUI_Button_9 = GUICtrlCreateButton("Woot", 845, 10, 100, 30)
Local $GUI_Button_10 = GUICtrlCreateButton("Yugster", 950, 10, 100, 30)
Local $GUI_Button_11 = GUICtrlCreateButton("AntiRebate", 1055, 10, 100, 30)
Local $GUI_Button_12 = GUICtrlCreateButton("Ben's Bargains", 1160, 10, 100, 30)
Local $GUI_Button_13 = GUICtrlCreateButton("Deal Xtreme", 1265, 10, 100, 30)
Local $GUI_Button_14 = GUICtrlCreateButton("CowBoom", 1370, 10, 100, 30)
Local $GUI_Button_15 = GUICtrlCreateButton("Easy Street Deals", 1475, 10, 100, 30)
Local $GUI_Button_16 = GUICtrlCreateButton("EjectIT", 1580, 10, 100, 30)
Local $GUI_Button_17 = GUICtrlCreateButton("Geeks.com", 1685, 10, 100, 30)
Local $GUI_Button_18 = GUICtrlCreateButton("Ice Monkey", 1790, 10, 100, 30)
Local $GUI_Button_19 = GUICtrlCreateButton("LocoBuy", 5, 45, 100, 30)
Local $GUI_Button_20 = GUICtrlCreateButton("MeritLine", 110, 45, 100, 30)
Local $GUI_Button_21 = GUICtrlCreateButton("I Have to Have That", 215, 45, 110, 30)
Local $GUI_Button_22 = GUICtrlCreateButton("Promotional Products", 330, 45, 140, 30)
Local $GUI_Button_23 = GUICtrlCreateButton("Giveaway of the Day", 475, 45, 140, 30)
Local $GUI_Button_24 = GUICtrlCreateButton("XKCD", 740, 45, 100, 30)
Local $GUI_Button_25 = GUICtrlCreateButton("News of the Weird", 845, 45, 100, 30)
Local $GUI_Button_26 = GUICtrlCreateButton("Written Weird", 950, 45, 100, 30)
Local $GUI_Button_27 = GUICtrlCreateButton("Tom's Hardware", 1055, 45, 100, 30)
Local $GUI_Button_28 = GUICtrlCreateButton("AutoIT General Help", 1260, 45, 110, 30)
Local $GUI_Button_29 = GUICtrlCreateButton("AutoIt Chat", 1375, 45, 100, 30)
Local $GUI_Button_30 = GUICtrlCreateButton("AutoIt User Moderation", 1480, 45, 120, 30)
Local $GUI_Button_31 = GUICtrlCreateButton("AutoIt GUI", 1605, 45, 100, 30)
Local $GUI_Button_32 = GUICtrlCreateButton("AutoIt Example Scripts", 1710, 45, 120, 30)
Local $GUI_Button_33 = GUICtrlCreateButton("Back", 655, 85, 120, 30)
Local $GUI_Button_34 = GUICtrlCreateButton("Fwd", 780, 85, 120, 30)
Local $GUI_Button_35 = GUICtrlCreateButton("Stop", 905, 85, 100, 30)
Local $GUI_Button_36 = GUICtrlCreateButton("Refresh", 1010, 85, 100, 30)
Local $GUI_Button_37 = GUICtrlCreateButton("Exit", 1115, 85, 100, 30)

GUISetState()
_IENavigate($oIE, "http://www.google.com")

While 1
     Local $msg = GUIGetMsg()
         Select
         Case $msg = $GUI_EVENT_CLOSE
             Exit
         Case $msg = $GUI_Button_1
             _IENavigate($oIE, "http://1saleaday.com")
         Case $msg = $GUI_Button_2
             _IENavigate($oIE, "http://www.13deals.com")
         Case $msg = $GUI_Button_3
             _IENavigate($oIE, "http://www.dailysteals.com")
         Case $msg = $GUI_Button_4
             _IENavigate($oIE, "http://kids.woot.com")
         Case $msg = $GUI_Button_5
             _IENavigate($oIE, "http://www.midnightbox.com")
         Case $msg = $GUI_Button_6
             _IENavigate($oIE, "http://www.mwave.com")
         Case $msg = $GUI_Button_7
             _IENavigate($oIE, "http://www.slickdeals.net")
         Case $msg = $GUI_Button_8
             _IENavigate($oIE, "http://www.thingfling.com")
         Case $msg = $GUI_Button_9
             _IENavigate($oIE, "http://www.woot.com")
         Case $msg = $GUI_Button_10
             _IENavigate($oIE, "http://www.yugster.com")
         Case $msg = $GUI_Button_11
             _IENavigate($oIE, "http://www.antirebate.com")
         Case $msg = $GUI_Button_12
             _IENavigate($oIE, "http://bensbargains.net")
         Case $msg = $GUI_Button_13
             _IENavigate($oIE, "http://www.dealextreme.com")
         Case $msg = $GUI_Button_14
             _IENavigate($oIE, "http://www.cowboom.com")
         Case $msg = $GUI_Button_15
         _IENavigate($oIE, "http://www.easystreetdeals.com")
         Case $msg = $GUI_Button_16
             _IENavigate($oIE, "http://www.ejectit.com")
         Case $msg = $GUI_Button_17
             _IENavigate($oIE, "http://www.geeks.com")
         Case $msg = $GUI_Button_18
         _IENavigate($oIE, "http://www.icemonkey.com")
         Case $msg = $GUI_Button_19
             _IENavigate($oIE, "http://www.locobuy.com")
         Case $msg = $GUI_Button_20
             _IENavigate($oIE, "http://www.meritline.com")
         Case $msg = $GUI_Button_21
             _IENavigate($oIE, "http://www.thatdailydeal.com")
         Case $msg = $GUI_Button_22
             _IENavigate($oIE, "http://www.trypromotionalproducts.com")
         Case $msg = $GUI_Button_23
             _IENavigate($oIE, "http://www.giveawayoftheday.com")
         Case $msg = $GUI_Button_24
             _IENavigate($oIE, "http://xkcd.com")
         Case $msg = $GUI_Button_25
             _IENavigate($oIE, "http://www.newsoftheweird.com/")
         Case $msg = $GUI_Button_26
         _IENavigate($oIE, "http://www.jaygarmon.net/")
         Case $msg = $GUI_Button_27
             _IENavigate($oIE, "http://www.tomshardware.com/")
         Case $msg = $GUI_Button_28
             _IENavigate($oIE, "http://www.autoitscript.com/forum/forum/2-general-help-and-support/")
         Case $msg = $GUI_Button_29
             _IENavigate($oIE, "http://www.autoitscript.com/forum/forum/6-chat/")
         Case $msg = $GUI_Button_30
             _IENavigate($oIE, "http://www.autoitscript.com/forum/forum/28-user-moderation/")
         Case $msg = $GUI_Button_31
             _IENavigate($oIE, "http://www.autoitscript.com/forum/forum/10-graphical-user-interface-gui-help-and-support/")
         Case $msg = $GUI_Button_32
             _IENavigate($oIE, "http://www.autoitscript.com/forum/forum/9-example-scripts/")
         Case $msg = $GUI_Button_33
             _IEAction($oIE, "back")
         Case $msg = $GUI_Button_34
             _IEAction($oIE, "forward")
         Case $msg = $GUI_Button_35
             _IEAction($oIE, "stop")
         Case $msg = $GUI_Button_36
             _IEAction($oIE, "refresh")
         Case $msg = $GUI_Button_37
             Exit
     EndSelect

WEnd

Edited November 7, 2014 by JLogan3o13

[ileandros]

To be honest i dindnt found it very iteresting but u have to add scrollbars cuz not all the pc can display the entire website(screen)

[JLogan3o13]

As I mentioned, unless you're running at 1900 x 1080, it'll definitely need some tweaking

[robinsiebler]

I tried it, it is pretty cool. However, even though I adjusted the resolution to 1600x1200, there are 2 small problems: the buttons on the far right (whatever is to the right of "Easy Street Deals") go off the screen and there is a wide margin at the bottom of the screen that would be better put to use by the browser.

Edited June 21, 2012 by robinsiebler

[abberration]

Not a bad idea. I run 1920x1080, so it looked perfect on my screen.

However, you missed a deal site: http://www.bitsdujour.com/

[JLogan3o13]

However, you missed a deal site: http://www.bitsdujour.com/

Yes, I miss that one The network I am on lately does not allow some sites, so I had to trim the list.

[ileandros]

Why us modify it...??? You can add a menu,option or sth else i dont know, with screen resolution so simple users can modify it by them selfs without having to edit ur script or you can simply add scrollbars...

It's ur script not ours. Anyway gl

[JLogan3o13]

For someone who "didn't find it very interesting" you sure are hanging around a lot on this thread If it is not your cup of tea, so be it. Wander elsewhere.

[ileandros]

I am trying to be smart neither judging you dude. Just gave an idea. Do whatever you want

EDIT: I am NOT trying to be smart.... LOL just saw it!!!!!!!!

Edited June 29, 2012 by ileandros

[Skrip]

Why not have the program poll what the current deal is on each website and display them on a GUI instead of having to go through and manually look at each one?

[JiaJohn]

Not a bad idea.

you missed a deal site: <snip>

Edited December 15, 2013 by Melba23
Removed URL

[Melba23]

JiaJohn,

We do not permit advertising here - please do not do anythign like that again.

M23