Da sie cos takiego zrobic ?

[skrall]

Czesc.

Czy jest mozliwosc zrobienia czegos takiego jak "otwieracz stron"

Chodzi mi o to ze co 5 sec otwierac bedzie inna strone , w tym samym oknie , badz tak zeby kolejna strona otwierala sie juz w programie ?

Przykladowo mam 10 linkow wpisanych juz w program , w programie klikan start i otwiera sie pierwsza strona , po 5 sekundach otwiera sie nastepna w tym samym oknie. Jest taka mozliwosc stworzenia programu ?

 

Ogolnie program ma byc tak jakby bot do datkow tylko ze bez wpisywania linku w programie , tylko aby linki ktore maja byc otwierane byly juz w kodzie programy by kliknac start i zeby sie otwieraly

[Sopelek997]

fileopen

filereadline

lub iniread

shellexecute lub run lub IE.au3 lub FF.au3.

[Protecto]

#include <file.au3>
Dim $linki
If Not _FileReadToArray("linki.txt", $linki) Then
  Switch @error
Case 1
 MsgBox(16, "Błąd", "Wystąpił błąd: nie można otworzyć pliku")
Case 2
 MsgBox(16, "Błąd", "Wystąpił błąd: nie można podzielić pliku")
  EndSwitch
EndIf
For $i = 1 to $linki[0]
ShellExecute($linki[$i])
Next

 

W katalogu skryptu musi znajdować się plik linki.txt, w którym każdy link będzie zapisany w nowej linijce.

Przykład zawartości pliku txt:

 

http://www.mpcforum.pl/
http://www.mpcforum.pl/user/307469-protecto/
http://www.mpcforum.pl/blog/1004/entry-792-poradnik-jak-zrobic-screenshot-z-komorki-displayreader/
http://www.mpcforum.pl/forum/190-autoit/
http://www.mpcforum.pl/topic/373678-autoitnajwazniejsze-tutoriale/
http://www.mpcforum.pl/topic/99781-autoit-opis-programu/
http://www.mpcforum.pl/topic/482103-konkursnajlepszy-tetris-w-autoit/
http://www.mpcforum.pl/topic/289207-regulamin-lokalny-dzialu-autoit/
http://www.mpcforum.pl/topic/161158-tut-full-autoit-v3-tutorial/

 

[skrall]

@up dzieki to dziala , ale mozna prosic o jakis link do poradniczka w ktorym bedzie cos jak opisalem tzn , program otworzy jedna strone a po 5 sec w tym samym oknie nastepna. O ile da sie cos takiego zrobic.

[4ggr35510n]

Użyłbym raczej biblioteki IE.au3 niż ShellExecute.

Poza tym, @2UP ma wszytko czego potrzebujesz

 

@EDIT

@UP

Biblioteka IE.au3. Wszystkie potrzebne funkje + przykłady znajdziesz w Helpie AutoIta.

[Protecto]

To ja opiszę w komentarzach jak to działa, to sam sobie pozmieniasz.

 

#include <file.au3> ;zalaczam UDF do operacji na plikach
Dim $linki ;definiuje tablice do przechowywania linków (wierszy)
If Not _FileReadToArray("linki.txt", $linki) Then ;jesli wartosc zwrocona przez funkcje _fileReadArray bedzie mniejsza od 1 to... (oznacza, ze wystapil blad
  Switch @error ;pobiera info z @error
Case 1 ;jezeli @error zawiera wartosc 1 to...
 MsgBox(16, "Błąd", "Wystąpił błąd: nie mżzna otworzyć pliku") ;info w oknienku o błędzie
Case 2 ;jezeli @error zawiera wartosc 2 to...
 MsgBox(16, "Błąd", "Wystąpił błąd: nie można podzielić pliku") ;info w oknienku o błędzie
  EndSwitch ;koniec switcha
EndIf ;koniec ifa
For $i = 1 to $linki[0] ;powtarzaj operacje nizej za kazdym razem zwiekszajac zmienna $i o 1 az $linki[0] osiagnie 0
ShellExecute($linki[$i]) ;ta czynnosc ma wykonywac w petli
Next ;koniec petli
;wyjscie z programu

 

Wybaczcie brak polskich znaków w komentarzach, ale jestem przyzwyczajony do pisania komentów w kodzie bez ogonków. Nie chcę mi się wstawiać.

 

PS Wrzuć do SciTe. Ładniej, lepiej i bardziej przejrzyście to wygląda.

[skrall]

Patrzcie mam cos takiego

 

#include <file.au3>
local $linki
$czas = 10	 ;czas co ile ma otwierać się kolejna strona.
_FileReadToArray("linki.txt", $linki)

If Not IsArray($linki) Then
  MsgBox(4112,"", "Błąd. Nie znaleziono linków w pliku.")
  Exit 1
EndIf

For $x = 1 to $linki[0]
  ShellExecute($linki[$x])
  Sleep($czas * 1000)
Next

 

Pomoze ktos z funkcja zamykania otwartych stron ? Po 10 sec otwiera next a potrzeba jeszcze zamykac te strony.

[m4rcin93]

Kod dla IE:

#include <file.au3>
#include <IE.au3>
local $linki
$czas = 10	   ;czas co ile ma otwierać się kolejna strona.
_FileReadToArray("linki.txt", $linki)

If Not IsArray($linki) Then
  MsgBox(4112,"", "Błąd. Nie znaleziono linków w pliku.")
  Exit 1
EndIf

For $x = 1 to $linki[0]
  $oIE = _IECreate($linki[$x])
_IELoadWait($oIE)
  Sleep($czas * 1000)
_IEAction($oIE,"quit")
Next

 

Kod dla FF:

#include <file.au3>
#include <FF.au3>
local $linki
$czas = 10	   ;czas co ile ma otwierać się kolejna strona.
_FileReadToArray("linki.txt", $linki)

If Not IsArray($linki) Then
  MsgBox(4112,"", "Błąd. Nie znaleziono linków w pliku.")
  Exit 1
EndIf

For $x = 1 to $linki[0]
  _FFStart($linki[$x])
_FFLoadWait()
  Sleep($czas * 1000)
_FFQuit()
Next

[skrall]

m4rcin93 jestes wielki ziom !

Masz Like'a