this site
http://www.guidedways.com/chapter_di...erTranslations[]=3
am working on , i need to understand why in winsock datta arrival the arabic text is not shown in correct format
can u help here is winsock code so u can help me quick.
can you help me get all rows to show up in richtextbox or print to webbrowser plz
http://www.guidedways.com/chapter_di...erTranslations[]=3
am working on , i need to understand why in winsock datta arrival the arabic text is not shown in correct format
can u help here is winsock code so u can help me quick.
Code:
Private Sub Command1_Click()
Text1.Text = ""
ws.Close
ws.Connect "www.guidedways.com", 80
End Sub
Private Sub ws_Connect()
Dim packet As String, login As String, login2 As String, packet2 As String
packet = packet & "GET /chapter_display.php?chapter=1&translator=6&mac=&show_arabic=1&otherTranslations%5B%5D=3 HTTP/1.1" & vbCrLf
packet = packet & "Host: www.guidedways.com" & vbCrLf
packet = packet & "Accept-Language: en-us,en;q=0.5" & vbCrLf
packet = packet & "Connection: keep-alive" & vbCrLf
packet = packet & "User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:19.0) Gecko/20100101 Firefox/19.0" & vbCrLf
packet = packet & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
packet = packet & "Content-Length: " & Len(login) & vbCrLf & vbCrLf & login
ws.SendData packet & login
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
Text1.Text = data
End Subcan you help me get all rows to show up in richtextbox or print to webbrowser plz