KULLANICI ADI : ŞİFRE Şifremi Unuttum*

Anasayfa İLLEG4L BANK KREDİ SATIN AL İLLEG4LİZM RAP Sub Domain Bulucu Arama Yap Yeni Konular Bugünki Konular

Konuyu Oyla:
  • Derecelendirme: 1/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi facebook login source
Konu : Delphi facebook login source - 07.10.2013, 20:27
Mesaj: #1
Delphi ile facebook login olmak isteyennler için kendi hazırladığım kodlarım. Twebbrowser kullanılmıştır.

PHP Kod:
Codlar;

unit Unit1;
interface
uses
Windows
MessagesSysUtilsVariantsClassesGraphicsControlsForms,
DialogsIdBaseComponentIdComponentIdTCPConnectionIdTCPClient,
IdHTTPStdCtrlsOleCtrlsSHDocVw;
type
TForm1 
= class(TForm)
IdHTTP1TIdHTTP;
webTWebBrowser;
Button2TButton;
//procedure Button1Click(Sender: TObject);
procedure Button2Click(SenderTObject);
private
{ Private 
declarations }
public
{ Public 
declarations }
end;
var
Form1TForm1;
implementation
{$R *.dfm}
function 
HTMLDecode(const AStrString): String;
var
SpRpCpTpPChar;
SString;
ICodeInteger;
begin
SetLength
(ResultLength(AStr));
Sp := PChar(AStr);
Rp := PChar(Result);
Cp := Sp;
try
while 
Sp^ <> #0 do
begin
case Spof
&begin
Cp 
:= Sp;
Inc(Sp);
case 
Spof
’a’
: if AnsiStrPos(Sp’amp;) = Sp then { do not localize }
begin
Inc
(Sp3);
Rp^ := &;
end;
’l’,
’g’: if (AnsiStrPos(Sp’lt;) = Sp) or (AnsiStrPos(Sp’gt;) = Spthen { do not localize }
begin
Cp 
:= Sp;
Inc(Sp2);
while (
Sp^ <> ;) and (Sp^ <> #0) do
Inc(Sp);
if 
Cp^ = ’l’ then
Rp
^ := <
else
Rp^ := >;
end;
’n’: if AnsiStrPos(Sp’nbsp;) = Sp then { do not localize }
begin
Inc
(Sp4);
Rp^ := ’ ’;
end;
’q’: if AnsiStrPos(Sp’quot;) = Sp then { do not localize }
begin
Inc
(Sp,4);
Rp^ := "’;
end;
’#’: begin
Tp := Sp;
Inc(Tp);
while (Sp^ <> ’;’) and (Sp^ <> #0) do
Inc(Sp);
SetString(S, Tp, Sp - Tp);
Val(S, I, Code);
Rp^ := Chr((I));
end;
else
Exit;
end;
end
else
Rp^ := Sp^;
end;
Inc(Rp);
Inc(Sp);
end;
except
end;
SetLength(Result, Rp - PChar(Result));
end;
procedure TForm1.Button2Click(Sender: TObject);
var
gelen,gelen2,gelen3:string;
label
bagli;
begin
web.Navigate(’http://facebook.com’);
while web.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
gelen:=Web.OleObject.Document.BOdy.InnerHTML;
gelen:=HTMLDecode(gelen);
//sleep(5000);
if AnsiCompareText(gelen , ’Kaydol’)>0 then
Goto bagli;
delete(gelen,1,pos(’uiButtonConfirm" 
,gelen));
delete(gelen,1,pos(’for="’,gelen)+4);
gelen:=copy(gelen,1,5);
// messageboxa(0,pansichar(gelen),’’,+mb_iconstop);
Web.OleObject.Document.GetElementByid(’email’).value:=’[email protected]’;
Web.OleObject.Document.GetElementByid(’pass’).value:=’kasabaliyizhaaa:)’;
web.OleObject.Document.GetElementByid(gelen).click;
sleep(5000);
bagli:
web.Navigate(’https://www.facebook.com/share.php?u=http://nasil.biz’);
while web.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
gelen3:=Web.OleObject.Document.BOdy.InnerHTML;
gelen3:=HTMLDecode(gelen3);
delete(gelen3,1,pos(’uiButtonLarge"
,gelen3));
delete(gelen3,1,pos(’for="’,gelen3)+4);
gelen3:=copy(gelen3,1,5);
Web.OleObject.Document.GetElementByid(gelen3 ).click;
end ;
end. 

 

Alıntı ile Cevapla


Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi
antalya escort türk ifşa porno izle türk ifşa porno samsun escort izmir escort türk ifşa hd porno