Jump to content

Finding a Picture

milkman

By milkman,
in AutoIt General Help and Support

 Share

Recommended Posts

milkman Wayfarer

milkman

Posted
Posted

I need help on how to do a script that searchs a page for a certain picture ( i have the source of the picture) and depending on what picture it is, goes to a certain link.

So If this picture is on screen go to this url, but if this other picture is on screen go to this other url.

Link to comment
Share on other sites
cppman Universalist

cppman

Posted
Posted

I need help on how to do a script that searchs a page for a certain picture ( i have the source of the picture) and depending on what picture it is, goes to a certain link.

So If this picture is on screen go to this url, but if this other picture is on screen go to this other url.

Im not sure if i understand u fully, but try the IE_Automation Library. Its in script and scraps somewhere. It is very very nice.

Miva OS Project
Link to comment
Share on other sites
Valuater Universalist

Valuater

Posted
Posted

well... heres an effort

#include <file.au3>
#include <IE.au3>

Dim $x, $Count, $Move[100]

$oIE = _IECreate()
_IENavigate($oIE, "http://www.autoitscript.com/"); need your web site here
$sloc = @TempDir & "\Htmltext.txt"
$Body = _IEBodyReadHTML($oIE)
FileDelete($sloc)
FileWrite($sloc, $Body)


Dim $aRecords
If Not _FileReadToArray( $sloc, $aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
For $x = 1 to $aRecords[0]
    If StringInStr($aRecords[$x], "url to pic #1") Then
        _IENavigate($oIE, "http://www.autoitscript.com/"); need your #1 pic web site here
    EndIf   
    If StringInStr($aRecords[$x], "url to pic #2") Then
        _IENavigate($oIE, "http://www.autoitscript.com/"); need your #2 pic web site here
    EndIf   
Next

8)

NEWHeader1.png

Link to comment
Share on other sites
milkman Wayfarer

milkman

Posted
  • Author
Posted

Works Perfectly thank you so much. I only need help with one more thing. After the whole script happens, a new page loads, and I need it to load the whole 'If this picture is there then go here' again after each refresh.

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:       Calvin <teamgonuts@gmail.com>
;
; Script Function:
;   Auto-Plays Scorchy Slots
;
; ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <file.au3>
#include <IE.au3>

HotKeySet( "\" , "close")

Func close ()
    Exit
EndFunc


Dim $x, $Count, $Move[100]

$oIE = _IECreate()
_IENavigate($oIE, "http://www.neopets.com/games/tyranuevavu.phtml")
$oForm = _IEFormGetObjByIndex($oIE,2)
_IEFormSubmit($oForm)
_IELoadWait($oIE, 0)

$sloc = @TempDir & "\Htmltext.txt"
$Body = _IEBodyReadHTML($oIE)
FileDelete($sloc)
FileWrite($sloc, $Body)


Dim $aRecords
If Not _FileReadToArray( $sloc, $aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf


For $x = 1 to $aRecords[0]
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/2_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/3_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/4_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/5_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/6_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/7_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/8_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/9_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/10_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/11_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/12_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/13_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/14_spades.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf  
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/2_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/3_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/4_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/5_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/6_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/7_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/8_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/9_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/10_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/11_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/12_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/13_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
     If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/14_hearts.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/2_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/3_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/4_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/5_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/6_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/7_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/8_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/9_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/10_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/11_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/12_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/13_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/14_clubs.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/2_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/3_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/4_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/5_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/6_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/7_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/8_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/9_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/10_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/11_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/12_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/13_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
    If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/14_diamonds.gif") Then
        _IENavigate($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1"); need your #1 pic web site here
    EndIf
Next
Link to comment
Share on other sites
Valuater Universalist

Valuater

Posted
Posted

NOT TESTED...

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Authors:      Calvin <teamgonuts@gmail.com> & Valuater 8)
;
; Script Function:
;   Auto-Plays Scorchy Slots
;
; ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <file.au3>
#include <IE.au3>

Dim $x, $Count, $Move[100]

HotKeySet( "\", "Closer")
HotKeySet( "{F9}", "Run_script")

Dim $oIE = _IECreate ()
_IENavigate ($oIE, "http://www.neopets.com/games/tyranuevavu.phtml")
$oForm = _IEFormGetObjByIndex ($oIE, 2)
_IEFormSubmit ($oForm)
_IELoadWait ($oIE, 0)
Run_script(); runs script the first time when program is started

While 1
    Sleep(5000); set sleep as long as you want to wait, 2000 = 5 seconds
;Run_script(); run the script automatically after the sleep/wait time - or press F9 to run 
WEnd

Func Run_script()
    $sloc = @TempDir & "\Htmltext.txt"
    $Body = _IEBodyReadHTML ($oIE)
    FileDelete($sloc)
    FileWrite($sloc, $Body)
    
    Dim $aRecords
    If Not _FileReadToArray($sloc, $aRecords) Then
        MsgBox(4096, "Error", " Error reading log to Array   error:" & @error)
        Exit
    EndIf
    
    For $x = 1 To $aRecords[0]
        If StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/2_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/3_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/4_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/5_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/6_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/7_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/8_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/9_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/10_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/11_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/12_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/13_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/14_spades.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/2_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/3_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/4_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/5_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/6_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/7_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/8_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/9_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/10_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/11_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/12_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/13_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/14_hearts.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/2_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/3_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/4_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/5_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/6_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/7_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/8_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/9_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/10_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/11_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/12_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/13_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/14_clubs.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/2_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/3_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/4_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/5_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/6_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/7_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=higher&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/8_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/9_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/10_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/11_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/12_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/13_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        ElseIf StringInStr($aRecords[$x], "http://images.neopets.com/games/cards/14_diamonds.gif") Then
            _IENavigate ($oIE, "http://neopets.com/games/tyranuevavu.phtml?type=play&action=lower&bs=1")
        EndIf
    Next
    $oIE = ""
EndFunc  ;==>Run_script

Func Closer()
    Exit
EndFunc  ;==>Closer

8)

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...