Trik Sms Gratis XL ( LUNA)

Kali ini saya mau berbagi sedikit trik sms SC Luna meskipun kartu sudah masa tenggang masih bisa di gunakan, lumayan buat kantong tipis 

Pertama buka menu sms di HP anda sepeerti biasa. Sebelum menulis pesan anda keteman telebih dahulu anda harus tulis "BAGI 2000" Kemudian di enter di ikuti pesan yang anda mau kirim ke teman anda.
Lihat Gambar:
http://prntscr.com/49hip6

Dork SQL Injection Web Israel

intext:"error in your SQL syntax" +site:il

intext:"mysql_num_rows()" +site:il

intext:"mysql_fetch_array()" +site:il

intext:"Error Occurred While Processing Request" +site:il

intext:"Server Error in '/' Application" +site:il

intext:"Microsoft OLE DB Provider for ODBC Drivers error" +site:il

intext:"Invalid Querystring" +site:il

intext:"OLE DB Provider for ODBC" +site:il

intext:"VBScript Runtime" +site:il

intext:"ADODB.Field" +site:il

intext:"BOF or EOF" +site:il

intext:"ADODB.Command" +site:il

intext:"JET Database" +site:il

intext:"mysql_fetch_row()" +site:il

intext:"Syntax error" +site:il

intext:"include()" +site:il

intext:"mysql_fetch_assoc()" +site:il

intext:"mysql_fetch_object()" +site:il

intext:"mysql_numrows()" +site:il

intext:"GetArray()" +site:il

intext:"FetchRow()" +site:il

intext:"Input string was not in a correct format" +site:il

Traffic Ul Dl Digital Delphi

Contoh :

Pada variabel, kita tambahkan dulu seperti ini:

  Download : Integer;  Upload : Integer;

Kemudian, kita tambahkan pada bagian Execute:

upload:= upload+Length(AThread.NetData);

dan bagian OutBound:

download:= download+Length(AThread.NetData);

Cara masih sama seperti membuat traffic menggunakan label.
Sebagaimana coding yang kita letakan pada Timer awalnya menggunakan label seperti berikut:

Label1.Caption :=  FormatFloat('Down: ##0.## KB/s',download/1024);
Label2.Caption :=  FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;

Jangan dihapus. Rubah saja menjadi seperti ini:

Label1.Caption :=  FormatFloat('0',download/1024);
Label2.Caption :=  FormatFloat('0',upload/1024);
download:= 0;
upload:= 0; 

Kemudian tambahkan komponen TMS VrNum. (Komponent ada di akhir postingan ini)

Beri 2 buah VrNum dan tambahkan pada bagian bawah coding label tadi menjadi seperti ini:

sLabel3.Caption :=  FormatFloat('0',download/1024);
sLabel4.Caption :=  FormatFloat('0',upload/1024);
VrNum1.Value := StrToInt (sLabel1.Caption);
VrNum2.Value := StrToInt (sLabel2.Caption);
download:= 0;
upload:= 0; 

Coba Run atau tekan F9 

Komponen:

Download 

Cara Install:

1. Copy smua isi yang ada di dalam folder sstmiw13 yang sudah ente download tadi ke folder lib delphi.
2. Instal seperti biasa.
3. Kemudian copy kembali isi yang ada di dalam folder TIWD7__crack ke folder lib delphi.

On/Off Capslock With Delphi

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_CAPITAL]=0) then
begin
Keybd_Event(VK_CAPITAL, 1, KEYEVENTF_EXTENDEDKEY or 0, 0);
Keybd_Event(VK_CAPITAL, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end
else
begin
Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;
end;

end.

• Project Yg Sudah Jadi

Download