Sign in to follow this  
Followers 0
z0mgItsJohn

Bid Tracker v1.0 - By John O.

6 posts in this topic

Well My Dad Got Some Extra $.$ And He Wanted Me To Show Him E-Bay So He Started Biding And So On Well He Wanted A Way To Check If His Bids W/O Opening

IE And Blah Blah.. So I Made This :(

Just Set Item URLS In The INI ^^

Bid Tracker v1.0 - Source :

#Include <GUIConstants.Au3>
#include <IE.au3>
Opt ('GUIOnEventMode','1')

Global $Space = '                                                                      '

$Embedded = _IECreateEmbedded () 

GUICreate ($Space & $Space & 'Bid Tracker v1.0 - By John O.','1000','700','-1','-1','-1','128')
GUISetOnEvent ($GUI_EVENT_CLOSE, '_Exit')
GUICtrlCreateObj ($Embedded, '100','0','900','700')
GUISetBkColor ('0xA3C6ED')
$Tree_View = GUICtrlCreateTreeView ('0','5','100','700')
GUICtrlSetBkColor ('-1','0xA3C6ED')
$Item_1 = GUICtrlCreateTreeViewItem ('Current Bids', $Tree_View)
GUICtrlSetColor ('-1','0x0000FF')
For $Array = '1' To '9'
GUICtrlCreateTreeViewItem ('Bid [ 0' & $Array & ' ]', $Item_1)
GUICtrlSetOnEvent ('-1','_Bid_' & $Array)
GUICtrlSetColor ('-1','0xFFFFFF')
Next
For $Array = '10' To '42'
GUICtrlCreateTreeViewItem ('Bid [ ' & $Array & ' ]', $Item_1)
GUICtrlSetOnEvent ('-1','_Bid_' & $Array)
GUICtrlSetColor ('-1','0xFFFFFF')
Next
GUISetState (@SW_SHOW)

_IENavigate ($Embedded, 'http://www.ebay.com')

While ('1')
Sleep ('150')
WEnd

Func _Bid_1 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 01 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_2 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 02 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_3 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 03 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_4 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 04 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_5 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 05 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_6 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 06 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_7 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 07 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_8 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 08 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_9 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 09 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_10 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 10 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_11 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 11 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_12 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 12 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_13 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 13 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_14 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 14 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_15 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 15 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_16 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 16 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_17 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 17 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_18 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 18 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_19 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 19 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_20 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 20 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_21 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 21 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_22 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 22 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_23 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 23 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_24 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 24 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_25 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 25 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_26 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 26 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_27 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 27 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_28 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 28 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_29 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 29 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_30 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 30 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_31 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 31 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_32 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 32 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_33 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 33 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_34 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 34 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_35 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 35 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_36 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 36 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_37 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 37 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_38 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 38 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_39 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 39 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_40 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 41 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_41 ()
$Read = IniRead ('Current Bids.ini','Current Bids','Bid ( 42 )','')
If $Read <> '' Then _IENavigate ($Embedded, $Read)
EndFunc

Func _Bid_42 ()
_IENavigate ($Embedded, IniRead ('Settings.ini','Bids','42',''))
EndFunc

Func _Exit ()
Exit
EndFunc

Current Bids.INI - Source

CODE
[Current Bids]

Bid ( 01 ) =

Bid ( 02 ) =

Bid ( 03 ) =

Bid ( 04 ) =

Bid ( 05 ) =

Bid ( 06 ) =

Bid ( 07 ) =

Bid ( 08 ) =

Bid ( 09 ) =

Bid ( 10 ) =

Bid ( 11 ) =

Bid ( 12 ) =

Bid ( 13 ) =

Bid ( 14 ) =

Bid ( 15 ) =

Bid ( 16 ) =

Bid ( 17 ) =

Bid ( 18 ) =

Bid ( 19 ) =

Bid ( 20 ) =

Bid ( 21 ) =

Bid ( 22 ) =

Bid ( 23 ) =

Bid ( 25 ) =

Bid ( 25 ) =

Bid ( 26 ) =

Bid ( 27 ) =

Bid ( 28 ) =

Bid ( 29 ) =

Bid ( 30 ) =

Bid ( 31 ) =

Bid ( 32 ) =

Bid ( 33 ) =

Bid ( 34 ) =

Bid ( 35 ) =

Bid ( 36 ) =

Bid ( 37 ) =

Bid ( 38 ) =

Bid ( 39 ) =

Bid ( 40 ) =

Bid ( 41 ) =

Bid ( 42 ) =

Hope You Enjoy :) muttley

Yea The Code Most Likely Be Shorter But Ya Know...

Please Leave Comments! Bugs.. Etc..


Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites



Hey John... That is way cool.. Nice use of the tree.. Thanks!

Share this post


Link to post
Share on other sites

Hey John... That is way cool.. Nice use of the tree.. Thanks!

Thanks for the nice comment!


Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

67 views 1 comment ;)

Here's one.... :D

#include <GUIConstants.Au3>
#include <IE.au3>
Opt('GUIOnEventMode', '1')

Global $Space = '                                                                      '

$Embedded = _IECreateEmbedded()

GUICreate($Space & $Space & 'Bid Tracker v1.0 - By John O.', 1000, 700, -1, -1, -1, 128)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
GUICtrlCreateObj($Embedded, 100, 0, 900, 700)
GUISetBkColor('0xA3C6ED')
$Tree_View = GUICtrlCreateTreeView(0, 5, 100, 700)
GUICtrlSetBkColor(-1, 0xA3C6ED)
$Item_1 = GUICtrlCreateTreeViewItem('Current Bids', $Tree_View)
GUICtrlSetColor(-1, 0x0000FF)
For $Array = 1 To 9
    GUICtrlCreateTreeViewItem('Bid [ 0' & $Array & ' ]', $Item_1)
    GUICtrlSetOnEvent('-1', '_Bidman')
    GUICtrlSetColor(-1, 0xFFFFFF)
Next
For $Array = 10 To 42
    GUICtrlCreateTreeViewItem('Bid [ ' & $Array & ' ]', $Item_1)
    GUICtrlSetOnEvent(-1, '_Bidman')
    GUICtrlSetColor(-1, 0xFFFFFF)
Next
GUISetState(@SW_SHOW)

_IENavigate($Embedded, 'http://www.ebay.com')

While 1
    Sleep(150)
WEnd

Func _Bidman()
    $iBid = (@GUI_CtrlId - 5)
    ToolTip('Loading... Bid [ ' & $iBid & ' ]', 10, 10, "Bid Tracker v1.0", 1) ; for a visual aid
    Sleep(1000)
    If $iBid <= 9 Then
        $Read = IniRead('Current Bids.ini', 'Current Bids', 'Bid ( 0' & $iBid & ' )', '')
    Else
        $Read = IniRead('Current Bids.ini', 'Current Bids', 'Bid ( ' & $iBid & ' )', '')
    EndIf
    If $Read <> '' Then _IENavigate($Embedded, $Read)
    ToolTip("")
EndFunc   ;==>_Bidman

Func _Exit()
    Exit
EndFunc   ;==>_Exit

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

Even better!!!

.... added save and remove URLS

#include <GUIConstants.Au3>
#include <IE.au3>
Opt('GUIOnEventMode', '1')

Global $Space = '                                                                      '

$Embedded = _IECreateEmbedded()

GUICreate($Space & $Space & 'Bid Tracker v1.0 - By John O.', 1000, 700, -1, -1, -1, 128)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
GUICtrlCreateObj($Embedded, 100, 0, 900, 700)
GUISetBkColor('0xA3C6ED')
$Tree_View = GUICtrlCreateTreeView(0, 5, 100, 600)
GUICtrlSetBkColor(-1, 0xA3C6ED)
$Item_1 = GUICtrlCreateTreeViewItem('Current Bids', $Tree_View)
GUICtrlSetColor(-1, 0x0000FF)
For $Array = 1 To 9
    GUICtrlCreateTreeViewItem('Bid [ 0' & $Array & ' ]', $Item_1)
    GUICtrlSetOnEvent('-1', '_Bidman')
    GUICtrlSetColor(-1, 0xFFFFFF)
Next
For $Array = 10 To 35 ;42 leave some room for buttons
    GUICtrlCreateTreeViewItem('Bid [ ' & $Array & ' ]', $Item_1)
    GUICtrlSetOnEvent(-1, '_Bidman')
    GUICtrlSetColor(-1, 0xFFFFFF)
Next

GUICtrlCreateButton("&Save URL", 1, 620, 100, 20)
GUICtrlSetOnEvent(-1, '_SaveURL')
GUICtrlCreateButton("&Remove URL", 1, 650, 100, 20)
GUICtrlSetOnEvent(-1, '_RemoveURL')
GUISetState(@SW_SHOW)

_IENavigate($Embedded, 'http://www.ebay.com')

While 1
    Sleep(150)
WEnd

Func _SaveURL()
    $URL = _IEPropertyGet($Embedded, "locationurl")
    For $Count = 1 To 35
        If $Count <= 9 Then
            $Read = IniRead('Current Bids.ini', 'Current Bids', 'Bid ( 0' & $Count & ' )', '')
            If $Read = "" Then IniWrite('Current Bids.ini', 'Current Bids', 'Bid ( 0' & $Count & ' )', $URL)
            If $Read = "" Then ExitLoop
        Else
            $Read = IniRead('Current Bids.ini', 'Current Bids', 'Bid ( ' & $Count & ' )', '')
            If $Read = "" Then IniWrite('Current Bids.ini', 'Current Bids', 'Bid ( ' & $Count & ' )', $URL)
            If $Read = "" Then ExitLoop
        EndIf
    Next
    If $Read = "" Then Return _ToolTip('Saving... Bid [ ' & $Count & ' ]')
    _ToolTip('***NOT SAVED*** Bid [ ' & $URL & ' ]')
EndFunc   ;==>_SaveURL

Func _RemoveURL()
    $URL = _IEPropertyGet($Embedded, "locationurl")
    For $Count = 1 To 35
        If $Count <= 9 Then
            $Read = IniRead('Current Bids.ini', 'Current Bids', 'Bid ( 0' & $Count & ' )', '')
            If $Read = $URL Then IniWrite('Current Bids.ini', 'Current Bids', 'Bid ( 0' & $Count & ' )', "")
            If $Read = $URL Then ExitLoop
        Else
            $Read = IniRead('Current Bids.ini', 'Current Bids', 'Bid ( ' & $Count & ' )', '')
            If $Read = $URL Then IniWrite('Current Bids.ini', 'Current Bids', 'Bid ( ' & $Count & ' )', "")
            If $Read = $URL Then ExitLoop
        EndIf
    Next
    If $Read = $URL Then Return _ToolTip('Removing... Bid [ ' & $Count & ' ]')
    _ToolTip('***NOT REMOVED*** [ ' & $URL & ' ]')
EndFunc   ;==>_RemoveURL

Func _Bidman()
    $iBid = (@GUI_CtrlId - 5)
    If $iBid <= 9 Then
        $Read = IniRead('Current Bids.ini', 'Current Bids', 'Bid ( 0' & $iBid & ' )', '')
    Else
        $Read = IniRead('Current Bids.ini', 'Current Bids', 'Bid ( ' & $iBid & ' )', '')
    EndIf
    If $Read <> "" Then Return _ToolTip('Loading... Bid [ ' & $iBid & ' ]', $Read)
    _ToolTip('***NOT FOUND*** Bid [ ' & $iBid & ' ]')
EndFunc   ;==>_Bidman

Func _ToolTip($tText, $tURL = "")
    ToolTip($tText, 10, 10, "Bid Tracker v1.0", 1)
    If $tURL <> "" Then _IENavigate($Embedded, $tURL)
    Sleep(2000)
    ToolTip("")
EndFunc   ;==>_ToolTip

Func _Exit()
    Exit
EndFunc   ;==>_Exit

EDIT: small tooltip update...

8)

Edited by Valuater

NEWHeader1.png

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