Guest User

Untitled

a guest
Jan 21st, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.19 KB | None | 0 0
  1.  
  2.     Private Sub ProcessCaptcha(ByVal captcha As String)
  3.         'UI
  4.         SetProgressVisible(True)
  5.         SetStatusText("validating captcha")
  6.         ShowBusy("Validating the captcha...")
  7.         If ISCorrectCaptcha(captcha) Then
  8.             'Generate the code
  9.             ExtractCode()
  10.             'Go to Export page
  11.             If ResultCode = String.Empty Then
  12.                 If urlSourceCdoe <> String.Empty Then
  13.                     Me.Invoke(New delegDefault(Sub() Clipboard.SetText(urlSourceCdoe)))
  14.                     MessageBox.Show("An error occured whene trying to extract the source code from the web page" & vbCrLf & "The url is copied in clipboard so you can paste it in a navigator to access your source code web page", "AfterCopy", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
  15.                     ShowToolBar(MainToolbar)
  16.                 End If
  17.             Else
  18.                 ShowToolBar(ExportToolBar)
  19.             End If
  20.         Else
  21.             'Return to Captcha page
  22.             ShowToolBar(CaptchaToolBar)
  23.             'Generate a new captcha
  24.             RefreshCaptcha()
  25.         End If
  26.         SetProgressVisible(False)
  27.     End Sub
Add Comment
Please, Sign In to add comment