Re: ERROR: SSL handshake failed: DH lib (General questions)

by mark, Saturday, January 24, 2009, 00:30 (5574 days ago) @ woddrazen

Here try this.

Private Sub Command1_Click()

http1.ProxyHostname = 198.110.164.4
http1.ProxyPort = 443
http1.ProxyType = ProxySocks4

http1.Request.Headers.RemoveAll
http1.Request.Headers.Add Host , www.paypal.com
http1.HostName = www.paypal.com

http1.Secure = ProtTLS1

http1.AutoRedirect = False
http1.HTTPversion = HTTP/1.1

http1.Request.URI = /

http1.Request.UserAgent = Mozilla/4.0 (compatible; MSIE 5.0; Windows XP) Opera 6.05 [en]

http1.Request.Headers.Add Connection , Close
http1.KeepAlive = Never

http1.Get

End Sub

Private Sub http1_Done(ByVal ErrorCode As Long, ByVal ErrorText As String)
On Error Resume Next

On Error Resume Next

If ErrorCode = 0 Then
Debug.Print done right

Else
Debug.Print ERROR: & ErrorText
Exit Sub
End If

Debug.Print http1.Response.Body

End Sub

Private Sub http1_StateChange(ByVal OldState As wodHttpDLXLibCtl.HttpStates)

Debug.Print State changed to & http1.StateString(http1.State) & (old state was & http1.StateString(OldState) & )

End Sub