دخول

**onexite** · 16-06-2015, 03:28 PM

mk1968 كتب :نعم الأمر يتوقف على الارسال,فالمطلوب فقط تعبئة textbox الموجودين على صفحة الويب المفتوحة على الحاسب دون تثبيت أو ارسال للمضيف

سؤالك من الاول غير واضح
عليك استخدام webbrowser وعند انتهاء التحميل عليك ملأ input حسب id او الاسم
delphi

PHP كود :
wb1.OleObject.Document.GetElementByID('Username').value:='' 

html

PHP كود :
<input style="width:150px;" class="small" name="Username" value="" type="text"> 

mk1968 · 16-06-2015, 03:31 PM

فعلت ذلك ولم يظهر شي على مستعرض كروم

وجدت حل للمشكلة على احد المواقع ولكن ليس لدي ادنى فكرة عنه
you will have to
write a separate BHO (browser helper object) plugin that IE loads, and then
have the BHO communicate with your app separately. Your app can then tell
the BHO what it needs, and the BHO can then manipulate the browser. This
approach is far more complex then simply performing the HTTP requests
directly in your app without the use of a browser at all.
موضح بالروابط
Yes, see this:

كود :
www.delphipages.com/threads/thread.cfm

ولكن هذه الروابط لاتفتح لرؤية الطريقة

**onexite** · 16-06-2015, 03:49 PM

mk1968 كتب :فعلت ذلك ولم يظهر شي على مستعرض كروم

ارسل عنوان الصفحة التي تريد ملاها
والبراوز اقصد به الخاص بالدلفي :confused:

mk1968 · 16-06-2015, 05:35 PM

مرفق كود الدلفي وبه محاولة للكتابة على موقع Board4all

**onexite** · 16-06-2015, 08:49 PM

mk1968 كتب :مرفق كود الدلفي وبه محاولة للكتابة على موقع Board4all

كما اخبروك من قبل عليك استخدام Fire bug لايجاد اسماء input

Agmcz · 16-06-2015, 08:50 PM

mk1968 كتب :مرفق كود الدلفي وبه محاولة للكتابة على موقع Board4all

ألق نظرة هنا أيضا
http://www.delphi4arab.net/forum/showpos...ostcount=3

Agmcz · 16-06-2015, 09:06 PM

هذه الدالة كتبتها سابقا لبرنامج يقوم بـ Brute Forcer
يمكنك إستعمالها أعتقد سابقا كانت تعمل على الإصدارات الأقل من 4.0

PHP كود :
function vBulletinTest(PServer, PPort, AuthUsername, AuthPassword, URL, User, Pass: string; Time: Integer; var _Exit: Boolean):
  Boolean;
var
  Post: TStringList;
  Sock: TIdHTTP;
  SSL: TIdSSLIOHandlerSocketOpenSSL;
  RES, S, Find, securitytoken, Find2: string;
begin
  Result := False;
  Post := TStringList.Create;
  Sock := TIdHTTP.Create(nil);
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    Sock.IOHandler:= SSL;
    Sock.HandleRedirects := True;
    Sock.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.2; rv:27.0) Gecko/20100101 Firefox/27.0';
    Sock.ConnectTimeout := Time * 1000;
    Sock.ReadTimeout := Time * 1000;
    if (PServer <> '') and (PPort <> '') then
    begin
      Sock.ProxyParams.ProxyServer := PServer;
      Sock.ProxyParams.ProxyPort := StrToInt(PPort);
    end;
    if (AuthUsername <> '') and (AuthPassword <> '') then
    begin
      Sock.Request.BasicAuthentication := True;
      Sock.Request.Username := AuthUsername;
      Sock.Request.Password := AuthPassword;
    end;
    try
      RES := Sock.Get(URL);
    except

    end;
    Find := '"s" value="';
    Find2 := '"securitytoken" value="';
    if Pos(FIND, RES) <> 0 then
    begin
      S := Copy(RES, Pos(FIND, RES) + 11 , 32);
      securitytoken := Copy(RES, Pos(Find2, RES) + 23 , Pos('" />', RES));
    end;
       Post.Add('s=' + S);
      Post.Add('securitytoken=guest');
    //Post.Add('securitytoken=' + securitytoken);
    //Post.Add('logintype=cplogin');
       Post.Add('do=login');
       Post.Add('vb_login_md5password='+ MD5Crypt(Pass));
    Post.Add('vb_login_md5password_utf=' + MD5Crypt(Pass));
    Post.Add('vb_login_username=' + User);
    Post.Add('vb_login_password=' + Pass);
    try
      RES := Sock.Post(URL, Post);
    except
      on E: Exception do
      begin
        _Exit := True;
      end;
    end;
    if Pos('function exec_refresh', RES) > 0 then
      Result := True;
  finally
    Post.Free;
    Sock.Free;
    SSL.Free;
  end;
end; 

mk1968 · 16-06-2015, 09:41 PM

اخي onexit انت ارلت البيانات للصفحة الموجودة في Webbrowseer ولكن انا ارسالها للصفحة المفتوحة بالمستعرض خارج دلفي

أخ ghost-dz كيف يمكن استعمال هذا التابع فانا ما عندي اي خبرة بالتعامل مع Web

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة