获取javascript生成的网站图片(基本上就是验证码)
Getting website image generated by javascript (basically is a captcha)
我想将此 captcha 放入图片框,在 vb 中。
objective是访问一个网站,将验证码图片发送给程序,让用户在TextField中写入验证码文本,访问网站内容。
可以吗?? XD
我已经拥有的代码如下(它可以工作,但没有得到验证码图像 :( )
谢谢大家,感谢大家的帮助
Private Sub txtFileURL_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtFileURL.KeyDown
If e.KeyCode = Keys.Enter Then
Dim fileURL As String = txtFileURL.Text
Dim fileName As String = My.Computer.FileSystem.GetName(fileURL)
Dim saveFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim saveFullPath As String = saveFolder + "\" + fileName
Try
My.Computer.Network.DownloadFile(fileURL, saveFullPath)
MsgBox("Saved in Desktop!")
Catch ex As Exception
MsgBox(ex.Message)
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("D:\test.txt", True)
file.WriteLine(ex.Message)
file.Close()
End Try
End If
End Sub
回答者:ADyson
好吧,如错误中所述,您的 URL 中缺少协议。尝试将 http://(或 https://,无论哪个)添加到 URL 字符串的开头。代码不知道在发出下载请求时使用哪些(或任何其他)协议。
我想将此 captcha 放入图片框,在 vb 中。 objective是访问一个网站,将验证码图片发送给程序,让用户在TextField中写入验证码文本,访问网站内容。
可以吗?? XD 我已经拥有的代码如下(它可以工作,但没有得到验证码图像 :( ) 谢谢大家,感谢大家的帮助
Private Sub txtFileURL_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtFileURL.KeyDown
If e.KeyCode = Keys.Enter Then
Dim fileURL As String = txtFileURL.Text
Dim fileName As String = My.Computer.FileSystem.GetName(fileURL)
Dim saveFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim saveFullPath As String = saveFolder + "\" + fileName
Try
My.Computer.Network.DownloadFile(fileURL, saveFullPath)
MsgBox("Saved in Desktop!")
Catch ex As Exception
MsgBox(ex.Message)
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("D:\test.txt", True)
file.WriteLine(ex.Message)
file.Close()
End Try
End If
End Sub
回答者:ADyson
好吧,如错误中所述,您的 URL 中缺少协议。尝试将 http://(或 https://,无论哪个)添加到 URL 字符串的开头。代码不知道在发出下载请求时使用哪些(或任何其他)协议。