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