)
- Код: Выделить всё
Public Function Execute(ByVal URL_File As String) As String
On Error GoTo err
Dim req As Net.WebRequest = Net.WebRequest.Create("http://localhost/game/" & URL_File)
Dim rsp As Net.WebResponse
Dim sr As IO.StreamReader
req.Method = "GET"
rsp = req.GetResponse()
sr = New IO.StreamReader(rsp.GetResponseStream(), System.Text.Encoding.Default)
Return sr.ReadToEnd()
Exit Function
err:
If Err.Number = 5 Then MsgBox("К сожалению, невозможно присоединиться к серверу по техническим причинам. Возможно вам просто мешает FireWall или же сам сервер лежит в глубоком дауне... ХЗ что происходит", MsgBoxStyle.Critical, "Ошибка связи с Центром")
Return "ERROR"
End Function
Вобщем, примерно так я ее юзаю:
- Код: Выделить всё
Dim str As String = Execute("account.php?type=ping&login=" & user_login)
В переменную возвращается код, обработанные PHP-скриптом.
Внимание вопрос: Уважаемые знатоки - как "обезопасить" сие мероприятие? Как-то раньше не приходилось работать "в связке" с несколькими языками. Было б это клиент-серверное - не было бы вопросов, а тут как... хз...