نمایش قسمتی از سورس سایت

[nobody.gu3st]

سلام
توی پروژه من قسمتی وجود داره که باید به یک وب وصل بشم و قسمتی از سورس رو داخل edit یا لیبل نشون بدم
مثلا =

<br> Total connections online/Total users online - 50/4<br>
که میخوام
50/4 نمایش داده بشه اگه ساده بود که با idhttpd راحت میشه اینکار رو کرد مشکل اینجاست که
این صفحه وب دارای پسورد prodect هست (مانند cpanel قبل از ورود و نمایش پسورد میخواد)

دوستان راهی برای این کار میدونن ؟

[BORHAN TEC]

این صفحه وب دارای پسورد prodect هست (مانند cpanel قبل از ورود و نمایش پسورد میخواد)
با این اوصاف بعیده که کاری از دستتون بر بیاد. :متفکر:

[arkia]

میشه اتومات فرم کاربر رو پر و پست کرد ( البته اگه پسورد داشته باشی :لبخند:) من قبلا بدون Indy با Twebbrowserهمچین چیزی انجام دادم شد
اینجا یه بار بحث شده (http://barnamenevis.org/showthread.php?298041) اما این قسمت بدست آوردن سورس صفحه و Parse کردنشه اگه پر کردنش هم بخوای کد زیر میشه:

procedure TForm1.fill();
var
form:IHTMLFormElement;

iDoc: IHtmlDocument2;
i: integer;
ov: OleVariant;
iDisp: IDispatch;
iColl: IHTMLElementCollection;
InputImage: HTMLInputImage;
begin

//fill code
WebFormSetFieldValue((WebBrowser1.Document as IHTMLDocument2), 0, 'FIELD NAME/ID',USERNAME);
form := WebFormGet(0, WebBrowser1.Document AS IHTMLDocument2); // شماره فرم



//Submit code

WebBrowser1.ControlInterface.Document.QueryInterfa ce(IHtmlDocument2, iDoc);
if not Assigned(iDoc) then
begin
Exit;
end;
ov := 'input';
iDisp := iDoc.all.tags(ov);
if Assigned(IDisp) then
begin
IDisp.QueryInterface(IHTMLElementCollection, iColl);
if Assigned(iColl) then
begin
for i := 1 to iColl.Get_length do
begin
iDisp := iColl.item(pred(i), 0);
iDisp.QueryInterface(HTMLInputImage, InputImage);
if Assigned(InputImage) then
begin
if InputImage.type_ = 'image' then
// if the type is image
begin
InputImage.Click; // اگر دکمه ارسال عکسی بود این روش استفاده میشه
end;
end;
end;
end;
end;