14-09-20, 09:59 PM
السلام عليكم ورحمة الله وبركاته
دلوقتي انا بصمم برنامج بث مباشر
طبعا
طبعا لما بضغط علي البوتن علي 3 زراير مثلا او علي اي زرار تلت مرات السيرفر بيقطع وبيجيب رسالة ان السيرفر تم قطعه
فانا عاوز حد خبره يعدلي علي الكود بحيث ان السيرفر ميقطعش الاتصال
اتمني ان حد يكون فهمني
دلوقتي انا بصمم برنامج بث مباشر
طبعا
كود :
Function live(ByVal n As String) As String
Dim host As String = "http://62.210.181.164:7777/"
Dim usrps As String = "yacinenew1178/yacinenew1178/"
Dim postData As String = ""
Dim tempcookies As New CookieContainer
Dim encoding As New UTF8Encoding
Dim byteData As Byte() = encoding.GetBytes(postData)
Dim postreq As HttpWebRequest = DirectCast(HttpWebRequest.Create(host & usrps & n), HttpWebRequest)
'postreq.Proxy = Nothing
postreq.Method = "GET"
postreq.Timeout = 2500
postreq.KeepAlive = True
postreq.AllowAutoRedirect = False
postreq.UserAgent = "yacineapp.tv"
postreq.Host = "62.210.181.164:7777"
postreq.Headers.Add("Accept-Encoding: none")
Dim postresponse As HttpWebResponse
Try
postresponse = DirectCast(postreq.GetResponse, HttpWebResponse)
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
End Try
postresponse = DirectCast(postreq.GetResponse, HttpWebResponse)
tempcookies.Add(postresponse.Cookies)
Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
Dim chlink As String = postresponse.GetResponseHeader("Location")
VLCP.playlist.stop()
VLCP.playlist.items.clear()
VLCP.playlist.add(chlink.Trim)
VLCP.playlist.play()
VLCP.CtlVisible = True
Return Nothing
End Function
فانا عاوز حد خبره يعدلي علي الكود بحيث ان السيرفر ميقطعش الاتصال
اتمني ان حد يكون فهمني