[Pytanie] Ie.Au3 Combo

[tk371]

ReFresz: Gdy używam

_ielinkclickbyindex($oIE, 22, 0)

to nic się nie dzieje. Na stronie na 100% są ponad 22 linki

Czy trzeba najpierw użyć _ielinkgetcollection?

Już zastosowałem inne rozwiązanie, ale pytam się z ciekawości

 

@robem: dzięki

[RobeM]

zawsze nim coś odczytasz musisz zgromadzić o tym informacje , czy trzeba

[tk371]

Pierwsza wersja ukończona:

http://www.mpcforum.pl/topic/282342-download-ftbot-opensource/

[4ggr35510n]

Skan do source'a to chyba przegięcie ;D

 

Leci plus na pewno ;]

 

Tylko pousuwaj te 'ToDo', bo głupio to wygląda

 

		$msg = MsgBox(64+4+8192+262144, "Aktualizacja", "Poprano najnowszą wersję programu oznaczoną numerem "&$New_Version&@CRLF&"Czy chcesz uruchomić teraz najnowszą wersję?", 0, $Form1)
	If $msg = 6 Then
		Run($Nazwa)
	EndIf

 

Wypadałoby wrzucić 'Exita', żeby dwie wersje na raz nie biegały.

 

$file = FileOpen("Data/Dane.ini", 8+1)
FileClose($file)

 

:drapie:sie:po:glowie:

 

Func Start()
AdlibRegister("Trening", 30*1000)
AdlibRegister("Logowanie", 10*1000)
AdlibRegister("Dane", 500)
EndFunc

 

Raczej brzydkie rozwiązanie... Powinno być coś raczej w guście...

 

Func Start()
$_Tran = True
$_Log = True
$_Dane = True
EndFunc



; gł. pętla

$Main_Loop_Last_Train_Action = 0; 

While Not False 
If $_Train Then
  If Not $Main_Loop_Last_Train_Action OR Floor((_Date_Time_GetTick_Count() - $Main_Loop_Last_Train_Action)/30000)
     ; !trenuj szmato! ; 
     $Main_Loop_Last_Train_Action = _Date_Time_GetTickCount()
  EndIF
EndIf
If $_Log
  ;~   j/w   ~; 
EndIf
; some other stuff 
Sleep(100)
WEnd

; GetTick_Count jest skuteczne przeciwko zmianom czasu systemowego. 
; Choć prawdziwy pr0si odpalają swój własny, wewnętrzny zegar (NIE związany z AdLibRegister ani Timer_SetTimer) - w
; pseudoasemblerze. Kod jest gdzieś na auscripts.
;
; Floor((_Date_Time_GetTick_Count() - $Main_Loop_Last_Train_Action)/30000) zwraca True Co 30 sekund LUB WIĘCEJ
; Jeśli minęło mniej niż trzydzieści sekund od ostatniej 'akcji trenowania' - zwraca false
; 
; Dzięki temu unikasz też zastrzeżeń w guście "Ten Bot DZIAŁĄ! Wystarczy poczekać 30 SEKUND! " ;]

[tk371]

$file = FileOpen("Data/Dane.ini", 8+1)
FileClose($file)

Ini się sam nie stworzy po pierwszym uruchomieniu

Manewry z fileexist i filecreate nie wychodziły to tak zrobiłem.

A reszta będzie wniesiona

I co do tego $Main_Loop_Last_Train_Action to jakiś include jest potrzebny?

Idę spać......

[jackraymund]

zamiast filewrite użyj iniwrite, dobre do zapisywania danych

[RobeM]

i na pewno lepsze , dane może pobrać w dowolnej chwili i odświeżyć jeśli potrzeba

[tk371]

Ale tam jest iniwrite

If file does not exist, it is created. Any directories that do not exist, will not be created. Keys and/or sections are added to the end and are not sorted in any way.

Czyli można wyczytać, że iniwrite nie tworzy katalogów.

 

Nowa wersja się ukazała - wniesiono w niej wszystkie poprawki.

[4ggr35510n]

Hmm, robi się naprawdę ciekawie :]

 

Co do 'układu pierwszego posta w temacie' - powinieneś trochę bardziej zaznaczyć DL najnowszej wersji, najlepiej większą czcionką i poza spoilerem, bo sam się pogubiłem

 

Do GetTickCount() jest potrzebne <Date.au3>, ale już ładnie rozkminiłeś :]

 

- - -

 

Nie kupuję zupełnie

 

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 2500, "long", 0x00080000)

 

w dodatku u mnie powoduje pewne problemy z wyświetlaniem (czarna obwódka wokół okna, kilka label'i 'przyciętych').

 

- - -

 

NATYCHMIAST dodaj 10ms Sleep'a do głównej pętli!!

[tk371]

A mogę się zapytać po co te 10ms sleepa?

Dla mniejszego obciążenia procka?

adwi: dzięki

[adwi32]

odpowiedź masz w mojej sygnie