ارسال درخواست پست به http از طریق winsock

سلام به دوستان .

من یه برنامه نوشتم وسط کار به مشکل خوردم و جواب نمیده میخواستم اگر امکان داره کمک کنید .
Private Sub Command1_Click()

Winsock1.Close

Winsock1.Connect "www.wpdl.ir", 80

End Sub



Private Sub Winsock1_Connect()

Dim pack As String, login As String

login = "log=" & Text1.Text & "&pwd=" & Text2.Text & "testcookie=1"

pack = "POST /wp-login.php?redirect_to=http%3A%2F%2Fwpdl.ir%2Fwp-admin%2F&reauth=1 HTTP/1.1" & vbCrLf

pack = pack & "Host: www.wpdl.ir" & vbCrLf

pack = pack & "Keep -Alive: 300" & vbCrLf

pack = pack & "Connection: keep -alive" & vbCrLf

pack = pack & "Content-Type: application/x-www-form-urlencoded" & vbCrLf

pack = pack & "Content-Length: " & Len(login) & vbCrLf & vbCrLf & login



Winsock1.SendData pack

End Sub



Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

 Winsock1.GetData Data, vbString

 MsgBox Data

End Sub
این برنامه من هست و من میخوام با 2 تا تکست باکس که نمایانگر فیلد یوزر و پسورد هست به وردپرس لوگین کنم و اینکه اگر موفق شدم لوگین کنم با یه پیغام بهم بگه که لوگین شدم .

تا اینجا رفتم ولی یه سری جواب ها میده که منو واقعا گیج کرده .
دوستان اهل فن یه نظری بدن دعاتون میکنیم

یا علی