I wrote an vb script which GETs and POSTs to http urls using the winsock in visual
basic..
is there anyway at all I can do the same thing for https urls ?
can openssl help ?
prem
please see below for the code that I'm using now
-----------------------------------------------------------
Function called for establishing the connection:
================================================
Private Sub cmdGet_Click()
Dim tmp_port As Integer
Dim chk As Integer
Dim tmp_str As String
Dim ret_chr As String
tmp_port = Val(Text2.Text)
Text4.Text = ""
socket_hdl = modWinsock.socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)
'MsgBox socket_hdl
'MsgBox socket_hdl
If Val(socket_hdl) < 0 Then
MsgBox "Socket problem"
Else
connection_hdl = vbConnect(socket_hdl, Text1.Text, tmp_port)
'MsgBox connection_hdl
If (connection_hdl = 0) Then
MsgBox "Successfull Connection"
Else
MsgBox "Connection Unsuccessfull"
End If
ret_chr = vbCrLf
tmp_str = "POST /first/wrt_file.php HTTP/1.0" & vbCrLf _
& "User-Agent: Mozilla/4.0" & vbCrLf _
& "Content-Type: application/x-www-form-urlencoded" & vbCrLf _
& "Content-Length: 12" & vbCrLf & vbCrLf _
& "name=kishore" & vbCrLf
Text3.Text = tmp_str
chk = modWinsock.vbSend(socket_hdl, Text3.Text)
'chk = modWinsock.vbSend(socket_hdl, tmp_str)
If (chk > -1) Then
MsgBox "Message sent successfully. Number of bytes=" & chk
Timer1.Enabled = True
Else
MsgBox "Message not sent"
End If
End If
End Sub
------------------------
Timer Function to check the status of the socket for response:
==============================================================
Private Sub Timer1_Timer()
Dim udtRead_fds As fd_set
Dim udtWrite_fds As fd_set
Dim udtError_fds As fd_set
Dim lngRetValue As Long
Dim lngBytereceived As Long
Dim recv_str As String
udtRead_fds.fd_array(1) = socket_hdl
udtRead_fds.fd_count = 1
udtWrite_fds.fd_array(1) = socket_hdl
udtWrite_fds.fd_count = 1
udtError_fds.fd_array(1) = socket_hdl
udtError_fds.fd_count = 1
lngRetValue = vbselect(0&, udtRead_fds, udtWrite_fds, udtError_fds, 0&)
'MsgBox "out"
If lngRetValue = SOCKET_ERROR Then
'
'If the function returned value of SOCKET_ERROR
'just show a message box with error description
'
MsgBox (Err.LastDllError)
'
ElseIf lngRetValue > 0 Then
'Check for readable sockets
'MsgBox "here"
If udtRead_fds.fd_count > 0 Then
'
'Get the socket handle
lngSocket = udtRead_fds.fd_array(1)
'
'MsgBox "Socket is ready to read"
'
lngByterecived = vbRecv(lngSocket, recv_str)
If lngBytereceived = SOCKET_ERROR Then
MsgBox Err.LastDllError
Else
Text4.Text = Text4.Text & recv_str
Timer1.Enabled = False
End If
End If
End If
End Sub
______________________________________________________________________
OpenSSL Project http://www.openssl.org
User Support Mailing List [EMAIL PROTECTED]
Automated List Manager [EMAIL PROTECTED]
