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

[alih4cker]

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

من یه برنامه نوشتم وسط کار به مشکل خوردم و جواب نمیده میخواستم اگر امکان داره کمک کنید .


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 تا تکست باکس که نمایانگر فیلد یوزر و پسورد هست به وردپرس لوگین کنم و اینکه اگر موفق شدم لوگین کنم با یه پیغام بهم بگه که لوگین شدم .

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

یا علی

[Dr Saeed]

این صفحه که شما بهش متصل شدید که اصلا قسمت login نداره :-؟ شما دارید به یه صفحه هدر ارسال میکنید که توش جای login کردن نداره

واسه اینکه بفمهی لاگین شدید یا نه جوابی که از طرف سایت ارسال میشه رو بریزید داخل یه تکس باکس و متن داخل تکس باکس رو چک کنید