var
URL:OleVariant; 
POST:OleVariant; 
target:OleVariant; 
flag:OleVariant; 
header:OleVariant; 
PostStr,ipass,iname,imob,itext:String;
PostLen,Index:Integer;
begin
//û
iname := 'test';
ipass := 'test';
//
ipass := StrToMD5(ipass+iname);
imob := '15900499999';
itext := 'Գ˿ͿĺϷԽм飬ԺϷĳ˿Ϳпۿշ......';
URL := 'http://api.sms.cn/mt/?uid=' + iname + '&pwd= ' + ipass + ' &mobile= ' + imob + ' &content=' + itext;
//URL:='http://api.sms.cn/mt/?uid=test&pwd=E10ADC3949BA59ABBE56E057F20F883E&mobile=15900499999&content=Ϣһ.[ԪϢ]' ;
PostStr:='Login.Token1=04538&Login.Token2=*******&Submit=%B5%C7+%C2%BC'; 
target:=NULL; 
flag:=0; 
PostLen := Length(PostStr);
// ù varByte ͵ Variant array 
Post := VarArrayCreate([0, (PostLen - 1)], varByte);
// 
for Index := 0 to PostLen - 1 do
    Post[Index] := Ord(PostStr[Index + 1]);
// ͷע⣺application 
Header := 'Content-Type: application/x-www-form-urlencoded';

WebBrowser1.Navigate2(URL,flag,target,POST,Header); 
while WebBrowser1.Busy=True do 
     Application.ProcessMessages ; 
if WebBrowser1.ReadyState <>READYSTATE_COMPLETE   then
Memo1.Text :=WebBrowser1.OleObject.Document.all.tags('HTML').Item(0).outerHTML
else 
Memo1.Text:='ҳʧ'; 
