مشکل در ارسال header در زبان vb6

[resa_rm]

سلام

ببخشید من یه header از وبلاگم گرفتم

برای افزایش بازدید :لبخند:

من اصلا نمیتونم این کارو انجام بدم تا حالا 10000 امتحان کردم اما جواب نگرفتم میخواستم بدونم کسی هست که بتونه منو راهنمایی کنه:ناراحت:




Private Sub Command1_Click()
Winsock1.Connect "golden-hell-1.rzb.ir", 80
End Sub

Private Sub Winsock1_Connect()
Dim header As String

header = header & "GET http://golden-hell-1.rzb.ir// HTTP/1.1" + vbCrLf
header = header & "Host: golden-hell-1.rzb.ir" + vbCrLf
header = header & "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0" + vbCrLf
header = header & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" + vbCrLf
header = header & "Accept-Language: en-US,en;q=0.5" + vbCrLf
header = header & "Accept -Encoding: gzip , deflate" + vbCrLf
header = header & "Connection: keep -alive" + vbCrLf

Winsock1.SendData header
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim header1 As String
Winsock1.GetData header1
MsgBox header1
End Sub

Private Sub Winsock1_SendComplete()
Me.Caption = 0
End Sub

[reza13812]

مخلص آقا رضا :لبخند:
من کد برنامتو امتحان نکردم اما به نظرم مشکلش تو کد نیست!!!
چون شما داری هدر رو به صفحه ای میفرستی که اصلا وجود نداره!!
ببین آدرس وبلاگت اینه : http://golden-hell-1.rzb.ir/
اما شما داری هدر رو به این آدرس میفرستی : http://golden-hell-1.rzb.ir//
نمیدونم منظورمو متوجه شدی یا نه، اما آدرس رو درست وارد کن ایشالا که نتیجه میگیری :چشمک:
یا علی.

[resa_rm]

سلام
اقای reza13812 من لینک رو هم عوض کردم اما بازم کار نکرد

[resa_rm]

ممنون از همه دوستان که کمک کردن

خودم آخر تونستم

میذارم که شما هم یاد بگیرید!!!!

Dim header As String
Dim reza As String

Private Sub Command1_Click()
Winsock1.Connect Text1.Text, 80

End Sub


Private Sub Winsock1_Connect()
header = header & "Post / HTTP/1.1" & vbCrLf
header = header & "Host: " & Text1.Text & vbCrLf
header = header & "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0 AlexaToolbar/alxf-2.19" & vbCrLf
header = header & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf
header = header & "Accept-Language: en-US,en;q=0.5" & vbCrLf
header = header & "Accept -Encoding: gzip , deflate" & vbCrLf
header = header & "Connection: keep -alive" & vbCrLf & vbCrLf

Winsock1.SendData header

'MsgBox header, , "Send"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Label1.Caption = bytesTotal
Winsock1.Close
DoEvents
Me.Caption = Me.Caption + 1
header = ""
Winsock1.Connect Text1.Text, 80
End Sub