Pokaż wyniki 1 do 3 z 3

Temat: Pobieranie informacji ze strony WWW - www::Mechanize nie działa

  1. #1
    Zarejestrowany
    Jul 2007
    Postów
    120

    Domyślnie Pobieranie informacji ze strony WWW - www::Mechanize nie działa

    Witam,

    Na wstępie napiszę że przejrzałem sporo informacji ale żadne z nich nie były mi pomocne.
    Mam pewna stronę www na którą chcę się zalogować za pomocą WWW::Mechanize - ale coś nie idzie.
    Prawdopodobnie strona jest w jakiś sposób zabezpieczona przed tego typu działaniami czyli własnymi klientami.

    Znalazłem kod do logowania się do poczty gmaila i jego przerobiłem.
    Podstawa wykorzystania
    How to fetch gmail content?

    Natomiast ja chcę się zalogować na stronę
    https://kokos.pl/

    A niżej mój przerobiony kod

    Kod php:
    use WWW::Mechanize;
    my $mech = new WWW::Mechanize;
    $mech->agent_alias'Windows Mozilla' );
    $mech->get"https://kokos.pl/logowanie" );
    $mech->content();
    my $username '[email protected]';
    my $password 'cos_tajnego';
    $mech->submit_form(
        
    form_number => '1',
        
    fields => {
            
    username => $username,
            
    password => $password,
        }
    );

    my $url "https://kokos.pl/moje_konto.php?akcja=moje_dane";
    $mech->get($url);
    my $html $mech->content();
    print 
    $html
    Przekierowując strumień wyjścia do pliku zawsze dostaję zawartość strony https://kokos.pl/logowanie będąc
    niezalogowanym. Kombinowałem z różnym przesyłaniem formularza, kombinowałem z wysłaniem formularza poprzez click ale i tak nic nie działa. Gdybym zarzucił snifer to może bym się czegoś dopatrzył ale niestety nie zobaczę z uwagi na wykorzystanie https.

    Czy ktoś ma jakiś pomysł?
    Ostatnio edytowane przez r_jaro : 02-20-2011 - 17:02 Powód: zmieniona nazwa tematu

  2. #2
    Avatar GSG-9
    GSG-9 jest offline Shapeshifter
    Zarejestrowany
    Jul 2007
    Skąd
    C:\Perl\bin
    Postów
    1,578

    Domyślnie

    Kod php:
    use WWW::Mechanize;
    my $mech = new WWW::Mechanize;
    $mech->agent_alias'Windows Mozilla' );
    $mech->get"http://kokos.pl/logowanie" );
    $mech->content();
    my $username 'login';
    my $password 'pass';

     
    $mech->submit_form(
        
    form_number => '1',
        
    fields => {
            
    handle => $username,
            
    passwd => $password,
        }
    );
    my $url "https://kokos.pl/moje_konto.php?akcja=moje_dane"
    $mech->get($url);
    my $html $mech->content();
    print 
    $html
    War, war never changes.

  3. #3
    Zarejestrowany
    Jul 2007
    Postów
    120

    Domyślnie

    Dokładnie o to chodziło,
    nie mam pojęcia dlaczego pomyliłem id z name.
    Wielkie dzięki,
    Pozdrawiam

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj