Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- UserID = 128;
- Password = "jlnr-ldnq-yuak";
- Connection = New HTTPConnection( "repbase.ru", 443, , , , , New OpenSSLSecureConnection() );
- Query = New HTTPЗапрос("/TSD/api0/api.php?operation=getList&iduser=" + UserID + "&password=" + Password);
- Answer = Connection.Get(Query);
- If Answer.StatusCode = 200 Then
- PageText = Answer.ПолучитьТелоКакСтроку();
- If TrimAll(PageText) = "Error: wrong password" Then
- Message("Wrong password", MessageStatus.Important);
- Else
- Message(PageText);
- EndIf;
- Else
- Message("Wrong server answer: " + Answer.StatusCode);
- EndIf;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement