VBS/WSH/JS - Нужна помощь в написании скрипта автологина через веб-форму сайта

Rampages · Отправлено: **12:45, 06-02-2014** | #2

Эх никто так и не помог, недавно снова встала эта тема и наконец-то решил её сам и не без помощи гугла:

работающий код выглядит следующим образом:

Код:

Option Explicit

Const READYSTATE_COMPLETE = 4

Dim objIE
Dim objForm

Set objIE = WScript.CreateObject("InternetExplorer.Application")

With objIE
    '.Visible = False
    .Visible = True
    
    .Navigate "http://piton/nonauth/login.php"
    
    ' Ждём…
    Do 
        WScript.Sleep 100
    Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
    
    ' Заполняем форму #0
    Set objForm = .Document.forms(0)
    
    With objForm
        .elements("username").value = "ЛОГИН"
        .elements("password").value = "ПАРОЛЬ"
        
        ' Отправляем форму на сервер
        .submit()
    End With
    
    ' Ждём…
    Do
        WScript.Sleep 100
    Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
    
    'Тут прочие действия, для чего, собственно и затевались…
End With

Set objIE = Nothing

WScript.Quit 0

после запуска остается открытым окно IE, пока не разобрался как его закрыть, но думаю не сложно.
да и по идее не очень то и надо.

P.S. Спс за не предоставленную помощь

в очередной раз убедился в полезности форумов.

Iska · Отправлено: **13:32, 06-02-2014** | #3

Цитата Rampages:

P.S. Спс за не предоставленную помощь в очередной раз убедился в полезности форумов. »

Завсегда пжлст, в очередной раз убедился в претенциозности заявлений, подобных Вашему.

Rampages · Отправлено: **05:26, 25-02-2014** | #4

2Iska

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

Когда же все таки нашел решение за пределами форума, я отписался об этом, намекнув что раздел на форуме скорее мертв, чем жив.
Затем оказывается мой намек вызвал бурление г... и заставил таки кого-то отписаться, а кто-то даже посчитал полезным этот бесполезный комментарий с ссылкой ведущей на другой ресурс никак не связанный с этим сказал за это!

В следующий раз просто закрою тему без решения, ибо так оно видимо куда приятнее будет и мне и окружающим. А ещё лучше не буду создавать тему – одной меньше, одной больше мб вообще не будем на профильных форумах сидеть.

Iska · Отправлено: **04:50, 08-03-2014** | #5

Rampages, поиском научиться пользоваться — невелика доблесть. Ну, нашли код — хорошо. Выложили его сюда — вдвойне молодец. И ладно бы. Если б Вы на этом и закончили, всё было бы замечательно.

Но, то ли Вам просто захотелось выпендриться, то ли Вы сочли себя непонятно чем обиженным — Вы решили высказаться дополнительно. Причём в таком стиле, что в совокупности стало, скажем так, заметно попахивать. Своим следующим постом Вы лишь подтвердили сие.

Цитата Rampages:

намекнув что раздел на форуме скорее мертв, чем жив. »

«Спс за не предоставленную помощь в очередной раз убедился в полезности форумов» — это не намёк. И не «раздела на форуме», а всех форумов.

Итак, Вы взяли код. Со стороннего ресурса. Что примечательно — тоже с форума. Отношение к тому коду — если до Вас всё ещё не дошло («с ссылкой ведущей на другой ресурс никак не связанный с этим сказал за это»), хотя было выше сказано прямым текстом — я имею прямое и самое непосредственное, ибо аз автор его есмь. Как раз-таки я его там и выкладывал в процессе решения темы. В том числе и для того, чтобы люди им пользовались. Они, форумы, знаете, для того и предназначены — нести пользу людям посредством общения. Кстати, коль уж зашла речь, не подскажите — в чём, собственно, выражается самость решения («решил её сам»):

(вопрос, в общем-то, риторический)?! Но чьё именно авторство — тут совсем не важно. Для сути дела достаточно того, что не Ваше.

То есть — Вы в своём посте представляете код, а) найденный б) на форуме, в качестве а) «сам-решения», и б) тут же, одновременно, «поливаете» эти же самые форумы. И как, простите, после всего этого относиться к Вашим словам?! Для меня ответ однозначен.

Печально, что Вы не видите ничего, окромя «бурления говн», а суть претензии, очевидно, Вам осталась попросту недоступна.