Авторизация на сайте - Visual Basic .NET (64711)

Узнай цену своей работы

Формулировка задачи:

Добрый день. Нужна помощь ,не как не могу залогиниться программно на сайт ru.4game.com Нужно проверить валидность аккаунта и если логин осуществлен открыть 2 форму,при этом закрыть первую. Кто поможет разобраться?

Решение задачи: «Авторизация на сайте»

textual
Листинг программы
  1. Imports System.Net
  2. Imports System.IO
  3.  
  4. Public Class Form1
  5.  
  6.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  7.         Dim WC As New WebClient
  8.         Dim Strings, Result As String
  9.         Strings = WC.DownloadString("http://vkontakte.ru/login.php?op=1&email=" + TextBox1.Text + "&pass=" + TextBox2.Text + "&expire=0")
  10.         WC.Dispose()
  11.         Result = Pars(Strings, "<title>", "</title", 0)
  12.         If Result = "В Контакте | Вход" Then
  13.             MsgBox("Неверный логин или пароль")
  14.         Else
  15.             MsgBox(Result)
  16.         End If
  17.     End Sub
  18.  
  19.     Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
  20.         Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
  21.         Dim strResult As String
  22.  
  23.         strResult = String.Empty
  24.         iPos = strSource.IndexOf(strStart, startPos)
  25.         iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
  26.         If iPos <> -1 AndAlso iEnd <> -1 Then
  27.             strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
  28.         End If
  29.         Return strResult
  30.     End Function
  31. End Class

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.25 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут