Skocz do zawartości

Manort

Użytkownik
  • Liczba zawartości

    2 145
  • Rejestracja

  • Ostatnia wizyta

Odpowiedzi dodane przez Manort

  1. Moze problem nie lezy w zawodnikach. W poprzednich wersjach FM nawet slabiakami dalo sie jakos grac. Czytalem Twoja kariere w Chabarowsku i odnosze wrazenie, ze w tej wersji chyba jest podobnie. Ty swoje, grajki swoje. FM 2006 to jednak mistrzowska wersja.

  2. Posiada ktos jeszcze w Archiwach ostatni RRUT 4.0 do FM2006? Ewentualnie ten -> CM Revolution Final FM 2006 Update? Ten byl chyba ostatni do FM 2006. Mam w swoich archwiach loga, kitsy, patche, skiny jakby kogos interesowalo i moge wystawic :) Bede wdzieczny za udostepnienie tego dodatku Skype/gg/PW plik przyjme :) Dzieki

  3. Odswiezam. Mam pytanko moze ktos pomoze.. Napisalem sobie skrypt ktory otwiera IE, loguje sie na pewna strone, szuka sposrod linkow na tej stronie wybranego z aktualna data w nazwie, po otwarciu szuka drugiego z stala nazwa, kopiuje zawartosc strony po otwarciu, zamyka IE i kopiuje do wybranego Arkusza w Excelu. Problem jest tylko w jednym miejscu. Udalo mi sie go zmusic do wyszukiwania daty w linkach na stronie, ale caly czas otwiera tego samego linka.. Bede wdzieczny za hinta :) Problem chyba jest w tych miejscach ktore pogrubilem. Chcialbym by szukal aktualna date, albo wczorajsza w formacie ktory ja mu okresle.

     

     

     

    Sub aaa()
    Dim x As Date
    x = Format(Date, "dd/mm/yyyy;@")
    Set ie = CreateObject("internetexplorer.application")
    ie.navigate2 "http://aaa"
    Do Until ie.ReadyState = 4
    DoEvents
    Loop
    ie.Visible = True ' visible oN
    Set lform = ie.Document.forms(0)
    lform("email").Value = "aaa"
    lform("passwd").Value = "aaa"
    lform.submit
    Do
    DoEvents
    Loop While ie.ReadyState <> 4 Or ie.Busy = True 'wait
    Set LinkCollection = ie.Document.getelementsbytagname("A")
    For Each link In LinkCollection
    If Instr(link.InnerText, "x") Then 'szukaj nazwy konkretnego linka
    link.Click
    Exit For
    End If
    Next
    Do
    DoEvents
    Loop While ie.ReadyState <> 4 Or ie.Busy = True 'wait
    Set LinkCollection = ie.Document.getelementsbytagname("A")
    For Each link2 In LinkCollection
    If InStr(link2.InnerText, "Kosz") Then
    link2.Click
    Exit For
    End If
    Next
    Do
    DoEvents
    Loop While ie.ReadyState <> 4 Or ie.Busy = True 'wait
    ie.ExecWB 17, 0 ' SelectAll
    ie.ExecWB 12, 2 ' Copy selection
    'ie.Quit
    ActiveWorkbook.Sheets("Arkusz1").Paste Range("A1")
    End Sub

     

×
×
  • Dodaj nową pozycję...