Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub ProcessCaptcha(ByVal captcha As String)
- 'UI
- SetProgressVisible(True)
- SetStatusText("validating captcha")
- ShowBusy("Validating the captcha...")
- If ISCorrectCaptcha(captcha) Then
- 'Generate the code
- ExtractCode()
- 'Go to Export page
- If ResultCode = String.Empty Then
- If urlSourceCdoe <> String.Empty Then
- Me.Invoke(New delegDefault(Sub() Clipboard.SetText(urlSourceCdoe)))
- 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)
- ShowToolBar(MainToolbar)
- End If
- Else
- ShowToolBar(ExportToolBar)
- End If
- Else
- 'Return to Captcha page
- ShowToolBar(CaptchaToolBar)
- 'Generate a new captcha
- RefreshCaptcha()
- End If
- SetProgressVisible(False)
- End Sub
Add Comment
Please, Sign In to add comment