Авторизация на сайте - Visual Basic .NET (64711)
Формулировка задачи:
Добрый день.
Нужна помощь ,не как не могу залогиниться программно на сайт ru.4game.com
Нужно проверить валидность аккаунта и если логин осуществлен открыть 2 форму,при этом закрыть первую.
Кто поможет разобраться?
Решение задачи: «Авторизация на сайте»
textual
Листинг программы
- 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
- Dim WC As New WebClient
- Dim Strings, Result As String
- Strings = WC.DownloadString("http://vkontakte.ru/login.php?op=1&email=" + TextBox1.Text + "&pass=" + TextBox2.Text + "&expire=0")
- WC.Dispose()
- Result = Pars(Strings, "<title>", "</title", 0)
- If Result = "В Контакте | Вход" Then
- MsgBox("Неверный логин или пароль")
- Else
- MsgBox(Result)
- End If
- End Sub
- Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
- Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
- Dim strResult As String
- strResult = String.Empty
- iPos = strSource.IndexOf(strStart, startPos)
- iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
- If iPos <> -1 AndAlso iEnd <> -1 Then
- strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
- End If
- Return strResult
- End Function
- End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д