Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5

[Ask] Pilot TSEL 2014

#1
om2, mastah2..
tolong pencerahan nya..
ane pake pilot ini kok malak byk ya, skali konek buka browsing lsng abis (data on 1000 pulsa 4000+)
kira2 apa yg perlu di tambah atau di kurangi ya om2/mastah2
Quote:procedure TForm1.IdMappedPortTCP1Execute(AContext: TIdContext);
var
Payload : string;
begin
Payload := 'GET [Only registered and activated users can see links Click here to register] HTTP/1.1'#13#10'Connection: Keep-Alive'#13#10'Host: BUGS'#13#10;
if Pos('CONNECT',AThread.NetData)<>0 then
AThread.NetData := AThread.NetData + Payload;
Memo1.Lines.Add(AThread.NetData);
thank's om2/mastah2 atas pencerahan nya
bingung
#2
Coba make yang ini dari mimin

if (pos('CONNECT',athread.NetData)<>0) or (pos('HTTP',athread.NetData)<>0) then begin
AThread.OutboundClient.Write(athread.netdata);
Sleep(1000);
AThread.NetData:= netdata+ 'GET [Only registered and activated users can see links Click here to register] HTTP/1.1'#13#10'Connection :Keep-Alive'#13#10'User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:14.0) Gecko/20100101 Firefox/14.0'#13#10'Host: BUG'#13#10;
AThread.NetData := AThread.NetData ;
end;
[Only registered and activated users can see links Click here to register] | [Only registered and activated users can see links Click here to register]| Portal JV HD
#3
disini kn udh ada contohnya mbah [Only registered and activated users can see links Click here to register]
malahan lengkap sm bughostnya ngakak
[Only registered and activated users can see links Click here to register]
  


Possibly Related Threads…
Thread Author Replies Views Last Post
  [tanya] pilot isat ALwIN 5 2,576 05-19-2017, 06:46 PM
Last Post: eivf
  [ASK] pilot 3 g mau nyantol barong82 1 1,406 09-29-2015, 12:10 PM
Last Post: ibnue