Cara Mematikan Komputer menggunakan SMS

Cara mematikan koputer menggunakan
sms sebenarnya mudah untuk dibuat, berikut ini saya buatkan sebuah program aplikasi berekstensi exe termasuk contoh scriptnya untuk melakukan restarat atau shutdown dan lain-lain terhadap komputer.

Extract file .zip -> Buka file portsms.dpr -> compile program dengan cara menekan tombol Ctrl+F9 dan akan menghasilkan portsms.exe

Buka file portsms.exe dan lakukan pengisian database,

Cara ngisi database :

1. Sms dengan format First. contoh First.Dadang, maka secara otomatis sms pertama akan dianggap sebagai admin yang mana admin berhak melakukan restart, shutdown dll terhadap komputer. Selain itu juga admin berhak mendaftarkan no hp yang lain untuk bisa melakukan restart, shutdown dll terhadap komputer .

2. Format sms untuk mendaftarkan no hp : Reg.. contoh Reg.087829633225.Dani maka no yang didaftarkan bisa otomatis merestart, shutdown dll terhadap komputer.

3. Perintah untuk merestart, shutdown dll tidak berubah.

4. Database disimpan dalam file setting.ini

5. Penyimpanan database diubah terlebih dahulu dengan menggunakan encrypt data sederhana sehingga jika dibuka file setting.ini akanberbentuk tulisan yang telah di encrypt

6. akan ditampilkan pada saat komputer mambalas sms jika pemilik berhak merestart, shutdown dll.

Daftar perintah dan fungsinya

1. Shutdown berfungsi untuk melakukan shutdown komputer

2. Log Off berfungsi untuk melakukan logging Off Komputer

3. Reboot berfungsi untuk melakukan reboot atau restart komputer

4. Power Off berfungsi untuk mematikan monitor

5. StandBy berfungsi untuk melakukan standby komputer

6. Hibernate berfungsi untuk melakukan hibernate pada laptop atau komputer anda

7. Mode Low Power berfungsi untuk mematikan monitor

8. Mode Shutt Off berfungsi untuk mematikan monitor

9. Memory Load berfungsi untuk informasi memori yang di load

10. Total Phys berfungsi untuk informasi total memory

11. Avail Phys berfungsi untuk informasi memori yang tersedia

12. Avail Page File berfungsi untuk informasi page file yang tersedia

13. Total Page File berfungsi untuk informasi total page file

14. Total Virtual berfungsi untuk informasi total virtual memori

15. Avail Virtual berfungsi untuk informasi virtual memori yang tersedia

silahkan download scriptnya di sini

untuk download file exxenya di sini

selamat mencoba !!

Cara Mengirim Data POST atau GET ke PHP menggunalan Delphi

Pengiriman data POST atau GET pada PHP dengan menggunakan Delphi bisa menggunakan komponen delphi yaitu IDHTTP pada tab Indy Client. Komponen tersebut berguna untuk mengirimkan data ke php sama seperti halnya ketika mengklik tombol pada halaman web saat mengirim data. sebagai contoh akan saya beri contoh sederhana sebagai berikut :

untuk mengirim data ke php dari delphi menggunakan script seperti di bawah ini

procedure TForm1.Button1Click(Sender: TObject);

var    param:TStringList;

begin

case radiogroup1.ItemIndex of

0:begin

param:=TStringList.create;

param.Clear;

param.Add('simpandata1='+edit1.Text);

param.Add('simpandata2='+edit2.Text);

idhttp1.Post('http://localhost/simpandata.php',param);

end;

1:begin

idhttp1.Get('http://localhost/simpandata.php?simpandata1='+edit1.Text+'&simpandata2='+edit2.Text);

end;

end;

webbrowser1.Refresh;

end;





procedure TForm1.FormCreate(Sender: TObject);

begin

webbrowser1.Navigate('http://localhost/simpandata.php');

end;

untuk penerima data menggunakan script php seperti ini

if(!empty($_POST[simpandata1])||!empty($_GET[simpandata1])){ 	$filename = 'data.txt'; 	if($_POST[simpandata1]!='') 		$somecontent = "Penyimpanan data dengan metode POST : $_POST[simpandata1] & $_POST[simpandata2]"; 	else 		$somecontent = "Penyimpanan data dengan metode GET : $_GET[simpandata1] & $_GET[simpandata2]"; 	if (!$handle = fopen($filename, 'w')){ 		echo "Cannot open file ($filename)"; 		exit; 	} 	if (fwrite($handle, $somecontent) === FALSE) { 		echo "Cannot write to file ($filename)"; 		exit; 	} 	fclose($handle); }else{ 	$filename = "data.txt"; 	if (file_exists($filename)){ 		$handle = fopen($filename, "r"); 		$contents = fread($handle, filesize($filename)); 		echo $contents; 		fclose($handle); 	} } 




pengiriman data dengan menggunakanmetode POST pada pemrograman delphi menggunakan TStringList untuk menyimpan data dan variabel yang akan dikirimkan ke php dan file yang diterima php disimpan ke dalam file data.txt untuk melihat perbedaan antara metode POST dan metode GET

download script contoh di atas di sini

Membuat Software Pengirim SMS Masal menggunakan SMS gateway Buatan Sendiri

Sebelum membuat Software pengirim SMS masal, diharapkan sudah mengerti dulu bagaimana cara mebuat SMS Gateway sendiri dengan menggunakan Delphi. Di bawah ini adalah ada beberapa hal yang dibutuhkan :

1. Paket komponen delphi DsgnCport7.dpk. Paket ini bisa dicari dengan menggunakan mbah google
2. Sebuah Modem GSM,

jika sudah lengkap buatlah proyek dan isi program seperti berikut ini :

procedure sendsms(comport1:TComPort;const no,teks:string);
begin
  comport1.WriteStr('AT+CMGS="'+no+'"'+enter);
  comport1.WriteStr(teks);
  comport1.WriteStr(#26);
end;

procedure opensms(comport1:TComPort);
begin
  ComPort1.Open;
  setup:=0;
end;

procedure deletesms(comport1:TComPort);
begin
  ComPort1.WriteStr('AT+CMGD=1,4'+enter);
end;

procedure readsms(comport1:TComPort);
begin
  comport1.WriteStr('AT+CMGL="ALL"'+enter);
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  if comport1.Connected then 

  begin

    timer1.Enabled:=false;

    comport1.WriteStr('AT+CSQ'+enter);

    readsms(comport1);

  end else 

  begin 

    progressbar1.Position:=0;

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  comport1.ShowSetupDialog;

end; 

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);

var perintah,s1:string;

    isii,isi,a,b:tstringlist;

begin

  comport1.ReadStr(s1,count);

  ////////////////////////////////

  memo1.Lines.Append(s1);

  ////////////////////////////// 

  if(eregi('COPS:',s1))then

  begin

    a:=explode(',',s1);

    label2.caption:='Provider : '+str_replace('"','',a[2]);

  end;

  if(eregi('CSQ:',s1))then

  begin

    b:=explode('CSQ:',s1);

    b:=explode(' ',b[1]);

    b:=explode(',',b[1]);

    progressbar1.Position:=strtoint(b[0]);

  end;

  if(setup>3)then

  begin

    if eregi('REC',uppercase(s1)) then

    begin

      isi:=explode(',',str_replace('"','',s1));

      isii:=explode(chr(10),isi.Strings[5]);

      if(pengirim<>isi.Strings[2])or(tanggal<>isi.Strings[4])or(jam<>isii.Strings[0])then

      begin 

        pengirim:=isi.Strings[2];

        tanggal:=isi.Strings[4];

        jam:=isii.Strings[0];

        isi:=explode('+',jam);

        jam:=isi.Strings[0];

        isii:=explode(chr(13),isii.Strings[1]);

        perintah:=isii.Strings[0];

     end;

     memo1.Lines.Append(pengirim+' ('+tanggal+':'+jam+') --> '+perintah);

     deletesms(comport1);

   end;

   if readd then

   timer1.Enabled:=true;

  end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

  case setup of

  0:ComPort1.WriteStr('AT+CMGF=1'+enter);

  1:ComPort1.WriteStr('AT+CPMS="SM"'+enter);

  2:ComPort1.WriteStr('AT+CSCS="GSM"'+enter);

  3:comport1.WriteStr('AT+COPS?'+enter);

  end;

  inc(setup);

  if(setup>3)then

  begin

    timer2.Enabled:=false;

    timer1.Enabled:=true;

  end;

end; 

lebih lengkap nya bisa di download source code nya di sini

DesignCAD 3D MAX Trial

DesainCAD adalah sebuah sofware yang berguna untuk membuat desain baik 2 Dimensi maupun 3 Dimensi. DesainCAD bentuknya lebih komplit dan lebih mudah untuk digunakan. hanya saja untuk mendapatkan aoftware tersebut memerlukan biaya.
tapi tenang saja ada trialnya sekedar untuk mencoba-coba. barangkali anda memerlukannya anda bisa download di :
http://downloads.imsidesign.com/DesignCAD-3DMax-19-1.exe
dan gunakan

Serial number: EH20-5057-4040-2351
Activation Code: 99B5-766D-15CB-9CD4

Program Desain Grafis 3D

Banyak sekali software desain grafis, lebih khusus lagi desain grafis untuk 3D. setelah searching bersama mbah Google akhirnya saya menemukan sebuah program desain grafis untuk 3D yang gratis dan Portable yaitu Blender Portable. situsnya di http://portableapps.com/apps/graphics_pictures/blender_portable. silahkan download aja mang, free alias gratis. Blender Portable adalah open source software untuk modeling 3D, animasi, rendering, post-produksi, dan sebagainya. Program desain grafis ini dibuat khusus untuk modeling animasi yang interkatif.

Download Blender Di Sini