Jump to content

Bid Tracker v1.0 - By John O.

z0mgItsJohn

By z0mgItsJohn,
in AutoIt Example Scripts

 Share

Recommended Posts

z0mgItsJohn Universalist

z0mgItsJohn

Posted
Posted

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

Link to comment
Share on other sites
  • 1 month later...
Valuater Universalist

Valuater

Posted
Posted

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

Link to comment
Share on other sites
Valuater Universalist

Valuater

Posted
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

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...