LINUX.ORG.RU

Скрипт заполняющий формы


0

0

есть примерчик какого-нибудь скрипта на питоне который бы заполнял формы на сайте, и отсылал результат.

хочу ограбить корован френзи, заодно узнать как такие скрипты пишутся.

★★★

> есть примерчик какого-нибудь скрипта на питоне который бы заполнял формы на сайте, и отсылал результат. 

Вот тебе вырваннный из проекта кусок на tcl.
Первым делом делаешь view source на нужной тебе странице, находишь имена полей, которые надо заполнить, заполняешь и скармливаешь их в -query. А потом результат, который будет положен в ::http::data обрабатываешь.

proc login {user password} {
    variable lorUrl
    variable loggedIn
    variable cookies

    set url "$lorUrl/login.jsp"

    if [ catch {
        set token [ ::http::geturl $url \
            -query [ ::http::formatQuery "nick" $user "passwd" $password ] \
            -headers [ list "JSESSIONID" [ startSession ] ] \
        ]

        set loggedIn 0
        # Yes, ::http::ncode must be 302 :)
        if { [ ::http::status $token ] == "ok" && [ ::http::ncode $token ] == 302 } {
            upvar #0 $token state

            set loggedIn 1
            set cookies ""
            foreach {key value} $state(meta) {
                if { $key == "Set-Cookie" && \
                    [ regexp -lineanchor {^(\w+)=(\w+); (?:Expires=[^;]+; ){0,1}Path=/$} $value dummy id val ] } {
                    lappend cookies $id $val
                }
            }
            ::http::cleanup $token
        } else {
            error [ ::http::code $token ]
        }
    } err ] {
        ::http::cleanup $token
        error $err
    }
}

gaa ★★
()
Ответ на: комментарий от vasaka

PS. Вспомнил еще Mozilla::Mechanize - это если нужна поддержка javascript. Саму mozilla можно запускать через Xvfb

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.