[Pytanie]Autoit3

[lokuxd]

Nie rozumien dalej po co ma mu to czytac z pliku skoro i tak czyta mu pierwszych 6 pozycji:P to moze rownie dobrze uzyc mojego sposobu i wpisywac samemu te strony bo w ini i tak musi je w pisac... a tak to by mial juz wczytane wszystko tylko wystarczy kliknac strona 1-6 i laduje strone mozesz tez zrobic prostrzy sposob

@echo
start www.google.pl 

wklejasz do notatnika i zapisujesz jako .bat i masz ikonkt do wchodzenia w google :P

[Rower1310]

taki program to ja napisałem 1 tydzień temu ale mi się rozchodzi żeby wpisywać np. w pliku strony.txt zamiast w edytorze

[jackraymund]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Timers.au3>
#include<FF.au3>
dim $ff
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Otwieracz", 322, 206, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$1 = IniRead("klej.ini","1","1","value")
$2 = IniRead("klej.ini","2","2","value")
$3 = IniRead("klej.ini","3","3","value")
$4 = IniRead("klej.ini","4","4","value")
$5 = IniRead("klej.ini","5","5","value")
$6 = IniRead("klej.ini","6","6","value")

$Input1 = GUICtrlCreateInput($1, 8, 8, 161, 21)
$Input2 = GUICtrlCreateInput($2, 8, 40, 161, 21)
$Input3 = GUICtrlCreateInput($3, 8, 72, 161, 21)
$Input4 = GUICtrlCreateInput($4, 8, 104, 161, 21)
$Input5 = GUICtrlCreateInput($5, 8, 136, 161, 21)
$Input6 = GUICtrlCreateInput($6, 8, 168, 161, 21)
$Button1 = GUICtrlCreateButton("Strona1", 184, 8, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("Strona5", 184, 136, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button2Click")
$Button3 = GUICtrlCreateButton("Strona3", 184, 72, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button3Click")
$Button4 = GUICtrlCreateButton("Strona4", 184, 104, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button4Click")
$Button5 = GUICtrlCreateButton("Strona2", 184, 40, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button5Click")
$Button6 = GUICtrlCreateButton("Strona6", 184, 168, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button6Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $number = 0
Global $id1

While 1
       Sleep(100)
WEnd

Func Button1Click()
ShellExecute((GUICtrlRead($Input1)), "", "", "open")
IniWrite("klej.ini","1","1",GUICtrlRead($Input1))
EndFunc

Func Button2Click()
ShellExecute((GUICtrlRead($Input2)), "", "", "open")
IniWrite("klej.ini","2","2",GUICtrlRead($Input2))
EndFunc

Func Button3Click()
ShellExecute((GUICtrlRead($Input3)), "", "", "open")
IniWrite("klej.ini","3","3",GUICtrlRead($Input3))
EndFunc
Func Button4Click()
ShellExecute((GUICtrlRead($Input4)), "", "", "open")
IniWrite("klej.ini","4","4",GUICtrlRead($Input4))
EndFunc
Func Button5Click()
ShellExecute((GUICtrlRead($Input5)), "", "", "open")
IniWrite("klej.ini","5","5",GUICtrlRead($Input5))
EndFunc
Func Button6Click()
ShellExecute((GUICtrlRead($Input6)), "", "", "open")
IniWrite("klej.ini","6","6",GUICtrlRead($Input6))
EndFunc
Func Form1Close()
Exit
pomysł aggr
EndFunc

[Rower1310]

jackraymund dzięki działa chcesz + albo 5

[lokuxd]

tu masz wersje do plikow txt roobisz plik.txt o nazwie strony w pliku z botem i wpisujesz w nim stronki zapisujesz kzada w oddzielnej linijce od 1do6 :P

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include<FF.au3>


Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Otwieracz", 322, 206, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Input1 = GUICtrlCreateInput("", 8, 8, 161, 21)
$Input2 = GUICtrlCreateInput("", 8, 40, 161, 21)
$Input3 = GUICtrlCreateInput("", 8, 72, 161, 21)
$Input4 = GUICtrlCreateInput("", 8, 104, 161, 21)
$Input5 = GUICtrlCreateInput("", 8, 136, 161, 21)
$Input6 = GUICtrlCreateInput("", 8, 168, 161, 21)
$Button1 = GUICtrlCreateButton("Strona1", 184, 8, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("Strona5", 184, 136, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button2Click")
$Button3 = GUICtrlCreateButton("Strona3", 184, 72, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button3Click")
$Button4 = GUICtrlCreateButton("Strona4", 184, 104, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button4Click")
$Button5 = GUICtrlCreateButton("Strona2", 184, 40, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button5Click")
$Button6 = GUICtrlCreateButton("Strona6", 184, 168, 129, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button6Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Sleep(100)
WEnd

Func Button1Click()
$file = FileOpen("strony.txt", 0)
$line = FileReadLine($file, 1)
GUICtrlSetData($Input1, $line)
FileClose($file)
_FFStart(GUICtrlRead($Input1))

EndFunc   ;==>Button1Click
Func Button2Click()
$file = FileOpen("strony.txt", 0)
$line = FileReadLine($file, 2)
GUICtrlSetData($Input2, $line)
FileClose($file)
_FFStart(GUICtrlRead($Input2))

EndFunc   ;==>Button2Click
Func Button3Click()
$file = FileOpen("strony.txt", 0)
$line = FileReadLine($file, 3)
GUICtrlSetData($Input3, $line)
FileClose($file)
_FFStart(GUICtrlRead($Input3))

EndFunc   ;==>Button3Click
Func Button4Click()
$file = FileOpen("strony.txt", 0)
$line = FileReadLine($file, 4)
GUICtrlSetData($Input4, $line)
FileClose($file)
_FFStart(GUICtrlRead($Input4))

EndFunc   ;==>Button4Click
Func Button5Click()
$file = FileOpen("strony.txt", 0)
$line = FileReadLine($file, 5)
GUICtrlSetData($Input5, $line)
FileClose($file)
_FFStart(GUICtrlRead($Input5))

EndFunc   ;==>Button5Click
Func Button6Click()
$file = FileOpen("strony.txt", 0)
$line = FileReadLine($file, 6)
GUICtrlSetData($Input6, $line)
FileClose($file)
_FFStart(GUICtrlRead($Input6))

EndFunc   ;==>Button6Click

Func Form1Close()
Exit
EndFunc   ;==>Form1Close