Jump to content

Recommended Posts

Hi all Im still New To Autoit and would realy like some help ...

I have gone through some examples and other code on the forum but now I am stuck :(

see comments on what I want to do .

#RequireAdmin
#include <IE.au3>
#include <MsgBoxConstants.au3>
#include <File.au3>
#include <String.au3>
#include <Array.au3>

Global $oIE = _IECreate("https://www.harryhomers.org/et/forum/viewtopic.php?f=89&t=4309", 0, 0, 1, 0)
Global $oElements = _IETagNameAllGetCollection($oIE)
Global $oID = _IEGetObjById($oIE, "p41827")
Global $ListArray[1]

#cs
; the list I want to get is 1 - 20 max 30 and there names . The DIV ID is p41827

<div class="content">HarryHomers can be found at 85.236.100.205:<span style="font-weight: bold">27960</span><br /><br /><ul>HH Bot Multi campaign **<br /><br />1. NAME 1<br />2. NAME 2<br />3. NAME 3<br />4. NAME 4<br />
5. NAME 5<br />6. NAME 6<br />7. NAME 7<br />8. NAME 8<br />9. NAME 9<br />10. NAME 10<br />11. NAME 11<br />12. NAME 12<br />13. NAME 13<br />14. NAME 14<br />
15. NAME 15<br />16. NAME 16<br />17. NAME 17<br />18. NAME 18<br />19. NAME 19<br />20. NAME 20<br />

</ul>

#ce

For $oElement in $oElements
    Local $_sSourceTAG = $oElement.tagname
    Local $_sSourceTEXT = $oElement.innerText
    Local $_sSourceID = $oElement.id
    Local $_sSourceHTML = $oElement.innerhtml

    If $_sSourceID = "p41827" Then

;Test message box
                MsgBox($MB_SYSTEMMODAL, "MY TAG ID", "Innertext: "  & $_sSourceTAG & @CRLF & "id: " & $_sSourceID & @CRLF & "innerText: " & $_sSourceTEXT)
                MsgBox($MB_SYSTEMMODAL, "MY HTML", "Innerhtml: "  & "id: " & $_sSourceID & $_sSourceHTML)

        $oData = _IEPropertyGet($oIE, "strong")
        $Check = StringRight($oData, 11)

        If $Check = "ohnDory</A>" Then
;Test message box
            MsgBox($MB_SYSTEMMODAL, "SEARCH FOUND", "The characters are: " & $Check )
            $ArraySplit1 = StringSplit($oData, ".")
            For $ArrayItem in $ArraySplit1
                $ArrayItem = StringSplit($ArrayItem, "<BR>", 1)
                If $ArrayItem[0] > 1 Then
                    If $ArrayItem[2] > 0 Then
                        $ArrayItem[1] = StringStripWS($ArrayItem[1], 3)
                        _ArrayAdd($ListArray, $ArrayItem[1])
                    EndIf
                EndIf
                If StringInStr($ArrayItem[1], "</UL>") Then
                    $POS = StringInStr($ArrayItem[1], "</UL>") - 1
                    $String = StringLeft($ArrayItem[1], $POS)
                    $String = StringStripWS($String, 3)
                    _ArrayAdd($ListArray, $String)
                EndIf
            Next
        Else
; Not correct so ignore
        MsgBox($MB_SYSTEMMODAL, "NOT FOUND", "The characters are: " & $Check )
        EndIf
    EndIf
    Next

    _ArrayDisplay($ListArray)
    _ArrayReverse($ListArray)
    _ArrayPop($ListArray)
    _ArrayReverse($ListArray)
    _ArrayDisplay($ListArray, "Map List Array Final View")

    sleep(2500)
_IEQuit($oIE)


#cs
; note the html (map names) does change once a month
; save txt file
#ce
;_FileWriteLog(@TempDir & "\list.txt", $ListArray)
Edited by Tardis

Share this post


Link to post
Share on other sites

Well, there are a lot of ways to do this but here is two ways:

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

$oIE = _IECreate("https://www.harryhomers.org/et/forum/viewtopic.php?f=89&t=4309")
$sHTML = _IEBodyReadHTML($oIE)

Dim $ListArray[1]

For $i = 1 To 20
    $aNames = _StringBetween($sHTML, ">" & $i & ". ", "<")
    If IsArray($aNames) Then _ArrayAdd($ListArray, $aNames[0])
Next

_ArrayDisplay($ListArray)
_IEQuit($oIE)

;or you can do this

$dHTML = InetRead(("https://www.harryhomers.org/et/forum/viewtopic.php?f=89&t=4309"))
$sHTML = BinaryToString($dHTML)

Dim $ListArray[1]

For $i = 1 To 20
    $aNames = _StringBetween($sHTML, ">" & $i & ". ", "<")
    If IsArray($aNames) Then _ArrayAdd($ListArray, $aNames[0])
Next

_ArrayDisplay($ListArray)

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  

  • Similar Content

    • By Ho3ein
      Hi, i have a source code of "Danny35d" and i have 2 main question that are:
       How to extract this function's results (Datas are as Array) to combo-box without set number of datas?  When i type 1, 2 in _SystemUsers($AccountType = 0) to get only Local or Domain users, it just give me both of them, it's old problem of this function, please share us debugged code :)❤ #include <Array.au3> $Users = _ArrayToString(_SystemUsers(), "|", 1) ConsoleWrite($Users & @CRLF) #cs =============================================================================== Function: _SystemUsers($AccountType = 0) Description: Return an array with the local or domain username Parameter(s): $AccountType: Local, domain or both username 0 = Local and Domain usernames 1 = Local usernames only 2 = Domain usernames only Returns: An array with the list of usernames - Succeeded @error 1 - Didn't query any username @error 2 - Failed to create Win32_SystemUsers object @error 3 - Invalid $AccountType Author(s): Danny35d #ce =============================================================================== Func _SystemUsers($AccountType = 0) Local $aSystemUsers Local $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20 Local $colItems = "", $strComputer = "localhost" If Not StringRegExp($AccountType, '[012]') Then Return SetError(3, 3, '') $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_SystemUsers", "WQL", _ $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) Then For $objItem In $colItems $Output = StringSplit($objItem.PartComponent, ',') If IsArray($Output) Then $Temp = StringReplace(StringTrimLeft($Output[2], StringInStr($Output[2], '=', 0, -1)), '"', '') If $AccountType = 0 Or ($AccountType = 1 And @ComputerName = $Temp) Then $aSystemUsers &= StringReplace(StringTrimLeft($Output[1], StringInStr($Output[1], '=', 0, -1)), '"', '') & '|' ElseIf $AccountType = 2 And @ComputerName <> $Temp Then $aSystemUsers &= StringReplace(StringTrimLeft($Output[1], StringInStr($Output[1], '=', 0, -1)), '"', '') & '|' EndIf EndIf Next $aSystemUsers = StringTrimRight($aSystemUsers, 1) If $aSystemUsers = '' Then Return(SetError(1, 1, $aSystemUsers)) Return(SetError(0, 0, StringSplit($aSystemUsers, '|'))) Else $aSystemUsers = '' Return(SetError(2, 2, $aSystemUsers)) EndIf EndFunc ;==>_SystemUsers Thanks to your best Team.
    • By sksbir
      Hi
      Trying this from autoit v3.3.14.5 and SCITE 3.19.102.1901.0 :
      help file , page "Language Reference - Variables" , sample autoit script about maps:

      Maps must be declared before use by defining their scope using the 'Global/Local/Static' keywords. Local $mControls[]
      So is my test script : only with this local declation.
      -check syntax is OK
      - running script : 

      test.au3" (13) : ==> Variable subscript badly formatted.: Local $mControls[] Local $mControls[^ ERROR ->14:51:49 AutoIt3.exe ended.rc:1
      any clue ?
    • By jmp
      i am trying to get number from string using this code :
      #include <IE.au3> $oIE = _IEAttach ("Edu.corner") Local $aName = "Student name & Code:", $iaName = "0" Local $oTds = _IETagNameGetCollection($oIE, "td") For $oTd In $oTds If $oTd.InnerText = $aName Then $iaName = $oTd.NextElementSibling.InnerText $iGet = StringRegExpReplace($iaName, "\D", "") EndIf Next MsgBox(0, "", $iGet) it was get number like 52503058
      But, I want to get only student code 5250. (Different student have different code, sometime its 3 digits, Sometime 4)

       
    • By BlueBandana
      Is there a way to output the regex matches into a file?
      I have a script to compare two files and check for regex matches.
      I want to output the matching regex of 'testexample.txt' to another file.
      #include <MsgBoxConstants.au3> #include <Array.au3> $Read = FileReadToArray("C:\Users\admin\Documents\testexample.txt") $Dictionary = FileReadToArray("C:\Users\admin\Documents\example.txt") For $p = 0 To UBound($Dictionary) - 1 Step 1 $pattern = $Dictionary[$p] For $i = 0 To UBound($Read) - 1 Step 1 $regex = $Read[$i] If StringRegExp($regex, $pattern, 0) Then MsgBox(0, "ResultsPass", "The string is in the file, highlighted strings: " ) Else MsgBox(0, "ResultsFail", "The string isn't in the file.") EndIf Next Next  
×
×
  • Create New...