integer li_rc;
Blob lblb_args;
InternetResult result;
String ls_header, ls_url, ls_args, answer;
Long ll_length;
inet iinet;

if (not isvalid(iinet)) then iinet = create inet;
if (not isvalid(result)) then result = create InternetResult;
ls_url = "http://mysite.ru/page";
ls_args = "user=MyName&pwd=MyPasswd";
lblb_args = Blob(ls_args);
ll_length = Len( lblb_args );
ls_header = "Content-Type: " + "application/x-www-form-urlencoded~n" + "Content-Length: " + String( ll_length ) + "~n~n"
li_rc = iinet.PostURL(ls_url, lblb_args, ls_header, result);

li_rc = iinet.PostURL(ls_url, lblb_args, ls_header, result);
answer = string(result.iblob_data);
messagebox(String(li_rc), answer);