Link opener

[lordsocke]

Hi guys im new here and im not sure if it is the right section so please move me if im wrong

So I want to create a programm where you are able to open links from a .txt flie one by one automaticly can anybody tell me how to do this best? 

[Celtic88]

copy the code from here

https://www.autoitscript.com/autoit3/docs/functions/FileReadToArray.htm

 

and just replace this line "

 MsgBox($MB_SYSTEMMODAL, "", $aArray[$i]) ; Display the contents of the array.

" with  "

ShellExecute ( $aArray[$i]) ; command to open links 

"

Edited September 1, 2015 by Celtic88

[Gianni]

@Celtic88 your way will run only the first link

try this variant:

#include <File.au3>
Local $aRecords
If Not _FileReadToArray("Links.txt", $aRecords) Then
    MsgBox(4096, "Error", " Error reading file to Array     error:" & @error)
    Exit
EndIf
For $x = 1 To $aRecords[0]
    ShellExecute("iexplore.exe", $aRecords[$x])
Next

 

Edited September 1, 2015 by Chimp

[lordsocke]

@Chimp yours worked very fine but how can I open them one by one until they are loaded?

[Gianni]

then have a look to the examples of the _IECreate() function  https://www.autoitscript.com/autoit3/docs/libfunctions/_IECreate.htm

and pay attention to the $iWait parameter...

Edited September 1, 2015 by Chimp

[TheDcoder]

@lordsocke You need:

For
Next

FileReadToArray

ShellExecute

That's all you need, TD

[ViciousXUSMC]

This is my crack at it.  Assuming I get what you want to be opening a list of sites from a txt file but not opening them all at once instead opening the next after the first is closed.

To make this browser independent I did not use any of the IE functions and use a hotkey + variable combo to trigger the "open next" 

Everything will open with your default browser.

;Set Alt+n to open next site and close current
HotKeySet("!n", "WaitNext")

;Read files from SiteList.txt to an array
$aFileList = FileReadToArray("SiteList.txt")

#cs
sitelist.txt example
Https://Google.com
Http://Cisco.com
https://www.autoitscript.com/forum
#CE

For $i = 0 to UBound($aFileList) -1
    $vNext = 1
    ShellExecuteWait($aFileList[$i], "", "", "", @SW_MAXIMIZE)
    While $vNext = 1
        Sleep(10)
    WEnd
Next

Func WaitNext()
    $vNext = 2
    WinClose("")
EndFunc