- IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1'; // ini adalah Proxy Default
- IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('8080'); // ini Listen Port, bisa Kalian Ubah Sesuka hati
- IdMappedPortTCP1.MappedHost:='202.152.240.50'; // Ini adalah Proxy dari Operator , saya contohkan XL
: 202.152.240.50
- IdMappedPortTCP1.MappedPort:=StrToInt('8080'); // ini adalah Port dari Proxy Operator, Port XL : 8080
- IdMappedPortTCP1.Active:=True; // ini Untuk Mengaktifkan TCP Server
- Button1.Enabled:=False; // Ini Untuk Menonaktifkan Button1 atau Start
- Button2.Enabled:=True; // ini Untuk Mengaktifkan Button2 atau Stop
- IdMappedPortTCP1.Active:=False; // ini untuk menonaktifkan TCP Server
- IdMappedPortTCP1.Bindings.Clear; // ini Untuk Membersihkan koneksi TCP Server
- Button1.Enabled:=True; // ini untuk mengaktifkan kembali Button1 atau Start
- Button2.Enabled:=False; // ini untuk menonaktifkan Button1 atau Stop
- var
- ESIND:string; //Perintah Untuk Menghubungkan dan Letakkan di atas
Begin
- ESIND:='GET
http://BUGSKAMU/ HTTP/1.1'+#13#10+'User-Agent: Mozilla/5.0 (Windows NT6.1;
rv:14.0) Gecko/20100101 Firefox/14.0 Host :
BUGSKAMU'#13#10#13#10#13#10+athread.NetData;
- if
pos('CONNECT',athread.NetData) <>0 then
- athread.NetData:=athread.NetData+ESIND; // Merupakan Methode untuk menghubungkan ke Server
AThread.NetData :=
stringreplace(AThread.NetData,' 403 Forbidden',' 200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'HTTP/1.1 302
Found','HTTP/1.1 200 Ok',[rfReplaceAll, rfIgnoreCase]); // Ini Berfungsi Untuk MeReplace Jika ada Bugs
Yang Harus di Replace.
By : Edi
gag ada link downloadnya om,.. (o) (o)
ReplyDeleteYg paling bawah (o)
ReplyDeletehttp://ge.tt/8GkN1hR2/v/0