Здравствуйте, подскажите как из GET получить только нужные информацию, а точнее 10 и 11 строчку
Я сделал так
Но хотелось бы сделать это не через создания файла
Я сделал так
Код:
Global Const $HTTP_STATUS_OK = 200
Func HttpPost($sURL, $sData = "")
Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("POST", $sURL, False)
If (@error) Then Return SetError(1, 0, 0)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.Send($sData)
If (@error) Then Return SetError(2, 0, 0)
If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)
Return SetError(0, 0, $oHTTP.ResponseText)
EndFunc
Func HttpGet($sURL, $sData = "")
Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("GET", $sURL & "?" & $sData, False)
If (@error) Then Return SetError(1, 0, 0)
$oHTTP.Send()
If (@error) Then Return SetError(2, 0, 0)
If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)
Return SetError(0, 0, $oHTTP.ResponseText)
EndFunc
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 300, 150, 192, 124)
$Label1 = GUICtrlCreateLabel(" ", 8, 8, 1000, 17)
$Label2 = GUICtrlCreateLabel(" ", 8, 32, 1000, 17)
$Start = GUICtrlCreateButton("Старт", 8, 60, 50, 25)
$Stop = GUICtrlCreateButton("Стоп", 80, 60, 50, 25)
$slidvolume=GUICtrlCreateSlider(8, 100, 180, 25)
GUICtrlSetData($slidvolume, 50)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
name()
AdlibRegister("name",10000)
$stream = ObjCreate("WMPlayer.OCX.7")
With $stream
.settings.Balance = 0
.controls.stop()
EndWith
While 1
$stream.settings.volume = GUICtrlRead($slidvolume)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$stream.controls.stop()
Exit
Case $Label2
Case $Start
$stream.URL = "http://animeradio.su/playlists/gar.asx"
$stream.controls.play()
Case $Stop
$stream.controls.stop()
EndSwitch
WEnd
Func name()
$name = Random(0,10000, 1)
$sGet = HttpGet("http://proxy.animeradio.su/data.esc")
$sResult = StringRegExpReplace($sGet, '\t\t\t', @CR)
FileWrite(@ScriptDir & $name, $sResult)
$hFile = FileOpen(@ScriptDir & $name, 0)
$sLine = FileReadLine($hFile, 10)
GUICtrlSetData($label1,$sLine)
$sLine2 = FileReadLine($hFile, 11)
GUICtrlSetData($label2,$sLine2)
FileDelete(@ScriptDir & $name)
EndFunc
Но хотелось бы сделать это не через создания файла