Jump to content
Sign in to follow this  
hendrikhe

analyze a webpage

Recommended Posts

hendrikhe

Hey guys,

I was am looking to analyze a site and save the results.

The website is http://http://www.ellatha.com/eve/LPIndex-Isk-1

the function should be able to search for an INT > 1500 for exemple on the ISK Profit/LP column and afterwards save me the results

with the item on a file. After that press next site button and repeat the task. The only thing that I founded so far is:

'?do=embed' frameborder='0' data-embedContent>>

but maybe someone with more experience can give me some tipps

 

Thnx

Hendrik

Share this post


Link to post
Share on other sites
DW1

Please see the Forum Rules.

 

Launching, automation or script interaction with games or game servers, regardless of the game.

I don't think that this will be allowed, but it is not my decision.

Share this post


Link to post
Share on other sites
hendrikhe

Thats not for ingame, its a tool that will help me to decide in which item I should invest my LP (loyality Points) the game is eveonline.com. I just want to analyze a webpage that has a databse for it

I am not launching this script ingame or in game server. I am analyzing a third party website

Edited by hendrikhe

Share this post


Link to post
Share on other sites
DW1

I understand completely.  I have just seen exactly this sort of request be against the rules in the past.  If a mod comes in and says that they allow it, I will gladly help you out with it.

Sorry man.

Share this post


Link to post
Share on other sites
Melba23

hendrikhe,

Sorry for the delay - it took some time to learn about what you were trying to do. From what I have seen so far it seems to me that this does not involve game play:

The EVE API is a service provided by CCP that supplies account and character information to external applications without requiring you to log into the game

so I am happy for the thread to stay open. Please do not stray into other, less welcome areas. :)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
DW1

Since the mods are allowing it, perhaps this can get you started:

#include <IE.au3>
#include <Array.au3>

Global $iValue = 1500, $sSearch = "Isk Profit/LP"
Local $bVisible = True
Local $sURL = "http://www.ellatha.com/eve/LPIndex-Isk-", $iIndex = 1, $iISKindex
Local $oIE = _IECreate("about:blank", 0, $bVisible)
OnAutoItExitRegister("cleanup")

Local $oTables, $aTable, $aItem
While 1
    _IENavigate($oIE, $sURL & $iIndex)
    $oTables = _IETableGetCollection($oIE)
    For $oTable In $oTables
        $aTable = _IETableWriteToArray($oTable, True)
        If StringInStr($aTable[0][0], "Faction Corp") Then
            For $a = 0 To UBound($aTable, 2) - 1
                If StringInStr($aTable[0][$a], $sSearch) Then
                    For $b = 1 To UBound($aTable, 1) - 1
                        If Number(StringReplace($aTable[$b][$a], ',', '')) > $iValue Then
                            Dim $aItem[2][UBound($aTable, 2)]
                            For $iItem = 0 To UBound($aTable, 2) - 1
                                $aItem[0][$iItem] = $aTable[0][$iItem]
                                $aItem[1][$iItem] = $aTable[$b][$iItem]
                            Next
                            _LogItem($aItem)
                        EndIf
                    Next
                EndIf
            Next
            ExitLoop
        EndIf
    Next
    $iIndex += 20
WEnd

Func _LogItem($aItem)
    _ArrayDisplay($aItem, "Item found with at least " & $iValue & " " & $sSearch)
EndFunc   ;==>_LogItem

Func cleanup()
    _IEQuit($oIE)
EndFunc   ;==>cleanup

Share this post


Link to post
Share on other sites
hendrikhe

Thnx mod and jesus: TY DW1 that helped me a lot! Will give you a better feedback soon!

Thnx mate

Edited by hendrikhe

Share this post


Link to post
Share on other sites
hendrikhe

I changed the script just a little bit so it didnt stopped after finding a result.

#include <IE.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>


Global $iValue = 1500, $sSearch = "Isk Profit/LP"
Local $bVisible = True
Local $sURL = "http://www.ellatha.com/eve/LPIndex-Isk-", $iIndex = 1, $iISKindex
Local $oIE = _IECreate("about:blank", 0, $bVisible)
OnAutoItExitRegister("cleanup")

Local $oTables, $aTable, $aItem
sleep(5000)
$test = 1
$blad= 1
Dim $aItem[1000][1000]
While $blad < 1506
    _IENavigate($oIE, $sURL & $iIndex)
    $oTables = _IETableGetCollection($oIE)

    For $oTable In $oTables
        $aTable = _IETableWriteToArray($oTable, True)
        If StringInStr($aTable[0][0], "Faction Corp") Then
            For $a = 0 To UBound($aTable, 2) - 1
                
                If StringInStr($aTable[0][$a], $sSearch) Then
                    For $b = 1 To UBound($aTable, 1) - 1
                        If Number(StringReplace($aTable[$b][$a], ',', '')) > $iValue Then
                            

                            For $iItem = 0 To UBound($aTable, 2) - 1
                                $aItem[0][$iItem] = $aTable[0][$iItem]
                                $aItem[$test][$iItem] = $aTable[$b][$iItem]

                            Next
                            $test = 1 + $test
                       
                        EndIf
                    Next
                EndIf
            Next
            ExitLoop
        EndIf
    Next
    $iIndex += 20
    $blad = $blad + 1
WEnd

Func _LogItem($aItem)
    _ArrayDisplay($aItem, "Item found with at least " & $iValue & " " & $sSearch)
EndFunc   ;==>_LogItem

Func cleanup()
    _IEQuit($oIE)
EndFunc   ;==>cleanup

while 1
_LogItem($aItem)
sleep(5000)

WEnd

This site is really nice because its easy to navigate, but unfortunately thiis site is not up to date.

After some research I found this site : https://www.fuzzwork.co.uk/lpstore/ but it seems to be impossible for me to navigate via autoit there, also I couldnt find out how to set "show 100 entries" with Autoit

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  

×