Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.63/32: Рейтинг темы: голосов - 32, средняя оценка - 4.63
 Аватар для Artem333
23 / 23 / 1
Регистрация: 12.10.2012
Сообщений: 288

Как программно войти на любой сайт

16.02.2013, 05:15. Показов 6059. Ответов 20
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток, дорогие друзья, и так:

Как программно войти на любой сайт указанный в Textbox1 под своим логином и паролем(TB2-лог,TB3-pass)?


Заранее благодарю вас!
Всего хорошего!
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.02.2013, 05:15
Ответы с готовыми решениями:

Программно войти на сайт
Доброго времени суток. Если кто может тогда подскажите как можно сделать чтобы если логин и пароль правильный тогда переменная возвращала...

При попытка зайти на любой сайт антишпионом перехватывается сайт partner-pop.men. Как убрать этот сайт?
При попытка зайти на любой сайт через Гугл Хром антишпионом Антимальварэ-байтс перехватывается сайт partner-pop.men. Как убрать этот сайт?...

Как войти программно в сетевую папку с известным логином и паролем?
Не подскажете как осуществляется программный вход в сетевую папку, если известен логин и пароль?

20
16.02.2013, 12:12
 Комментарий модератора 
Artem333, одна тема - один вопрос. Читаем правила форума.
0
525 / 487 / 99
Регистрация: 25.12.2011
Сообщений: 1,176
16.02.2013, 14:40
Лучший ответ Сообщение было отмечено как решение

Решение

К примеру на mail:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Sub Main()
        If Auto("mylogin", "mypassword", "mail.ru") = True Then
            Console.WriteLine("Вы вошли на сайт mail.ru!")
        Else
            Console.WriteLine("Не удалось авторизироваться!")
        End If
        Console.ReadLine()
    End Sub
 
    Function Auto(ByVal Login As String, ByVal Password As String, ByVal Domain As String) As Boolean
        Dim Request As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://win.mail.ru/cgi-bin/auth?Login=" & Login & "&Domain=" & Domain & "&Password=" & Password)
        Dim Response As Net.HttpWebResponse
        Request.Method = "POST"
        Request.AllowAutoRedirect = False
        Response = Request.GetResponse
        If Response.Headers("Set-Cookie").IndexOf("Mpop") = 0 Then
            Return True
        Else
            Return False
        End If
    End Function
3
 Аватар для Artem333
23 / 23 / 1
Регистрация: 12.10.2012
Сообщений: 288
18.02.2013, 05:30  [ТС]
Спасибо код рабочий, но нужно что бы на любой сайт зашло... а не только на Mail.ru
0
1652 / 715 / 47
Регистрация: 11.03.2012
Сообщений: 1,855
Записей в блоге: 1
18.02.2013, 17:39
Artem333, Для каждого сайта нужен свой подход к авторизации, нужно смотреть какие параметры передаются при авторизации.
0
 Аватар для Artem333
23 / 23 / 1
Регистрация: 12.10.2012
Сообщений: 288
18.02.2013, 18:41  [ТС]
Release, ну вот допустим http://css-pro.ru/
0
1652 / 715 / 47
Регистрация: 11.03.2012
Сообщений: 1,855
Записей в блоге: 1
18.02.2013, 19:18
Artem333, Есть специальные программы, которые перехватывают запросы. Скачай плагин для мозилы "Просмотр http заголовков" и через нее будешь узнавать параметры, которые передаются при авторизации.
Миниатюры
Как программно войти на любой сайт  
0
 Аватар для Artem333
23 / 23 / 1
Регистрация: 12.10.2012
Сообщений: 288
18.02.2013, 19:20  [ТС]
А для chrome нету такого?
0
 Аватар для edward_freedom
1569 / 1448 / 303
Регистрация: 01.10.2011
Сообщений: 2,636
18.02.2013, 19:29
Цитата Сообщение от Artem333 Посмотреть сообщение
я думал это форум помощи начинающим программистам, значит я был не прав?
Ты совершено прав, но ты не прилогаешь совершено никаких усилий, чтобы решить свою проблему, а только требуешь готовый код

Добавлено через 6 минут
Цитата Сообщение от Artem333 Посмотреть сообщение
А для chrome нету такого?
Ну вот ты опять, поленился сам поискать, а уже пишешь помощи. Ведь можно поиграться с правой кнопкой, там будет "просмотр элементов" а дальше network
0
 Аватар для Artem333
23 / 23 / 1
Регистрация: 12.10.2012
Сообщений: 288
18.02.2013, 21:39  [ТС]
edward_freedom, ну мне нечего вам ответить =)
0
525 / 487 / 99
Регистрация: 25.12.2011
Сообщений: 1,176
18.02.2013, 22:42
Цитата Сообщение от Artem333 Посмотреть сообщение
А для chrome нету такого?
Есть программа: Fiddler!
0
 Аватар для Artem333
23 / 23 / 1
Регистрация: 12.10.2012
Сообщений: 288
19.02.2013, 05:01  [ТС]
У меня она где-то есть
0
15 / 15 / 2
Регистрация: 26.01.2013
Сообщений: 27
19.02.2013, 08:27
Отслеживать запросы можно,пожалуй, любым из популярных браузеров. Ctrl+shift+i
Для Firefox есть для этого чудесные плагины Firebug и TamperData.
Firebug, причем, не тока запросы отслеживать умеет.
А TamperData позволяет изменять посылаемые запросы.
1
 Аватар для Artem333
23 / 23 / 1
Регистрация: 12.10.2012
Сообщений: 288
04.03.2013, 05:40  [ТС]
И так я снова тут, вообщем я нашел те параметры которые нужно передавать(P.S. смотри миниатюру 1)
Вставил в код:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Imports System.Net
Imports System.IO
 
    Public Class Form1
 
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Auto("mylogin", "mypassword", "mail.ru") = True Then
            Console.WriteLine("Вы вошли на сайт mail.ru!")
        Else
            Console.WriteLine("Не удалось авторизироваться!")
        End If
        Console.ReadLine()
    End Sub
 
    Function Auto(ByVal Login As String, ByVal Password As String, ByVal pass As String) As Boolean
        Dim Request As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://css-pro.ru/user=" & Login & "&password=" & pass & "&rem=1&a=2&ajax=1&rnd=665&_tp_=xml")
        Dim Response As Net.HttpWebResponse
        Request.Method = "POST"
        Request.AllowAutoRedirect = False
        Response = Request.GetResponse
        If Response.Headers("Set-Cookie").IndexOf("Mpop") = 0 Then
            Return True
        Else
            Return False
        End If
    End Function
End Class
Итог: (P.S.Смотри миниатюру 1)
Миниатюры
Как программно войти на любой сайт   Как программно войти на любой сайт  
0
 Аватар для Artem333
23 / 23 / 1
Регистрация: 12.10.2012
Сообщений: 288
04.03.2013, 10:31  [ТС]
там где P.S. смотри миниатюру 1 там 2
0
 Аватар для edward_freedom
1569 / 1448 / 303
Регистрация: 01.10.2011
Сообщений: 2,636
04.03.2013, 12:32
VB.NET
1
 If Auto("mylogin", "mypassword", "mail.ru") = True Then
VB.NET
1
 Dim Request As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://css-pro.ru/user=" & Login & "&password=" & pass & "&rem=1&a=2&ajax=1&rnd=665&_tp_=xml")
Что тут происходит?
0
 Аватар для Artem333
23 / 23 / 1
Регистрация: 12.10.2012
Сообщений: 288
04.03.2013, 12:36  [ТС]
Хмм, в данном случае смыслов этого вопроса много, уточните.
0
 Аватар для edward_freedom
1569 / 1448 / 303
Регистрация: 01.10.2011
Сообщений: 2,636
04.03.2013, 14:00
Artem333, Ты тут хочешь авторизоваться на mail.ru?
VB.NET
1
 If Auto("mylogin", "mypassword", "mail.ru") = True Then
Хотя запрос делаешь на
VB.NET
1
 Net.HttpWebRequest.Create("http://css-pro.ru/user=" & Login & "&password=" & pass & "&rem=1&a=2&ajax=1&rnd=665&_tp_=xml"
Если я ошибаюсь, поправь меня
0
 Аватар для Artem333
23 / 23 / 1
Регистрация: 12.10.2012
Сообщений: 288
04.03.2013, 14:42  [ТС]
Дело в том что я не понял код но мне сказали что нужно изменить запрос + когда я стер mail.ru у меня выдало ошибку
0
 Аватар для edward_freedom
1569 / 1448 / 303
Регистрация: 01.10.2011
Сообщений: 2,636
04.03.2013, 15:48
Artem333, с тебя проорать, как ты, каждую проблему, которая решается за 2 минуты, просишь помочь. А сам даже не прилагаешь никаких усилий, тупо коппируеш чужие коды и не хочешь в них разбираться
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.03.2013, 15:48
Помогаю со студенческими работами здесь

Как войти на сайт через cookie?
Здравствуйте! Как сделать кросс-доменный запрос с использование куки в headers $.ajax({ xhrFields: { ...

Как войти на сайт по логину с паролем?
Я бы хотел сделать программу на Python, которая просит ввести логин и пароль от VK или Cyberforum или еще какой ни будь ерунды, Вводим туда...

Как войти на сайт методом POST?
Могли бы показать на примере -...

Как программно вводить пароль в любой другой программе?
Нужно вводить пароль на установленный программа: То есть открыт программу через другой программе. Подскажите пожалуйста..

Ошибка не может войти на сайт php Авторизация на сайт
Ввожу верный логин и пароль то он пишет 'Извините вы должны ввести правильный логин или пароль !!! если ввожу не верный логин или пароль...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru