Home » Uncategories » SOURCE CODE / TUTORIAL INTEGRATION BETWEEN VB6, MYSQL. AND PHP
8 Oct 2014

SOURCE CODE / TUTORIAL INTEGRATION BETWEEN VB6, MYSQL. AND PHP

Alur Program

  • Mengambil serta nilai pada textbox yang menampung nama, email, nohp, alamatdan mengambil informasi waktu saat ini
  • Memasukkan nilai tersebut ke database lokal (Dalam contoh kali ini, fungsi memasukkan data ke database lokal saya ganti dengan fungsi untuk menuliskan data ke file TXT. Silahkan diubah sendiri.)
  • Mengirimkan nilai tersebut dengan metode POST ke http://blog-maslisman.tk/data/maslisman.php
  • index.php memasukkan nilai yang ditangkap ke database website lalu menampilkan respon “Terkirim” jika berhasil dan pesan “ERROR!” jika gagal.
  • Menangkap respon server lalu menampilkannya melalui Message Box.


    Sekarang kita langsung saja ke Tutorial membuat program Visual Basic 6 yang terintegrasi MySql Hosting dan PHP.

    Pertama Mempersiapkan Database

    Karna Program yang Maslisman buat adalah program pencatat / penyimpan Kontak Teman , jadi tabelnya cukup 5 field saja, yaitu nama, email, nohp, alamat dan datetimeuntuk menampung informasi waktu.
    Disini maslisman menggunakan Database MySQL Hosting dari www.idhostinger.com
    Jadi buatlah databasenya seperti dibawah ini :

    Kedua Membuat Kode index.php

    File index.php inilah yang akan menangkap parameter dari aplikasi Program lalu memasukkannya kedalam database di webserver / hosting. Salin lalu upload script berikut. Jangan lupa untuk memasukkan username, password dan nama database Anda pada variabel yang telah saya beri comment.
    <?PHP
    //--------- Config DB
    $host="IsiNamaHostDatabaseAnda"; // Host name
    $username="IsiUsernameDatabaseAnda"; // Mysql username
    $password="IsiPasswordAnda"; // Mysql password
    $db_name="IsiNamaDatabaseAnda"; // Database name
    $tbl_name="IsiNamaTabelDatabaseAnda"; // Table name
    //---------- End Config
    // Connect to server and select database.
    mysql_connect("$host", "$username", "$password")or die("cannot connect server ");
    mysql_select_db("$db_name") or die("cannot select DB");

    if($_POST['insert']=="yes"){
     $nama = $_POST['nama'];
     $email = $_POST['email'];
     $nohp= $_POST['nohp'];
     $alamat= $_POST['alamat'];
     $datetime=$_POST['datetime'];
     $sql="INSERT INTO $tbl_name(nama, email, nohp, alamat, datetime)VALUES('$nama', '$email', '$nohp', '$alamat', '$datetime')";
     $result=mysql_query($sql);
     //Inserted
     if($result){
     echo "Terkirim";
     }else{
     echo "ERROR!";
     }
    }else{
     $sql="SELECT * FROM $tbl_name";
     $result=mysql_query($sql);
     while($rows=mysql_fetch_array($result)){
     ?>
     <title>Maslisman</title>

     <table width="600" border="1" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC"><tr><td valign="top">
     <table width="600" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
      <tr><td valign="top"> <a href="http://www.maslisman.blogspot.com/">maslisman.blogspot.com</a></td><td valign="top"></td><td align="right">
     <? echo htmlspecialchars($rows['datetime'], ENT_QUOTES); ?></td></tr>
     <tr><td width="117">Atas Nama</td><td valign="top">:</td><td valign="top">
     <? echo htmlspecialchars($rows['nama'], ENT_QUOTES); ?></td></tr>
     <tr><td width="117">Email</td><td valign="top">:</td><td valign="top">
     <? echo htmlspecialchars($rows['email'], ENT_QUOTES); ?></td></tr>
     <tr><td valign="top">Nomer HP</td><td valign="top">:</td><td valign="top">
     <? echo htmlspecialchars($rows['nohp'], ENT_QUOTES); ?></td></tr>
     <tr><td valign="top">Alamat</td><td valign="top">:</td><td valign="top">
     <? echo htmlspecialchars($rows['alamat'], ENT_QUOTES); ?></td></tr>
     </table>
     </td></tr></table><BR>
    <?PHP
     }
    }
    mysql_close();
    ?>

    Ketiga Membuat Project VB6.0

    Langkah sekarang adalah membuat Project Visual Basicnya , silahkan membuka area kerja VB6 Baru dan buat sebuah project baru (Standard EXE)
    Panggil komponen Microsoft internet Transfer Control 6.0 dengan klik Project -> Components… (CTRL + T)


     Buatlah sebuah form dengan komponen sebagai berikut:
      • Sebuah Inet dengan nama Inetdata
      • Empat buah TextBox dengan nama txtnama, txtemail, txtnohp, dan txtalamat
      • Sebuah CommandButton dengan nama cmdSend
      • Label dengan nama lblstatus
      • Lihat Seperti gambar dibawah ini :

       

       Lalu Salin kode berikut, masukkan kedalam area code Project:
      '-----------------------------------------------------
      '         http://www.maslisman.blogspot.com/
      '-----------------------------------------------------
      Private Sub cmdsend_Click()
      Dim dataUrl As String
      Dim dataParam As String
      Dim txtfPath As String
      'InetData index.php location
      dataUrl = "http://blog-maslisman.tk/data/maslisman.php"
      'Path to InetData.txt
      txtfPath = App.Path & "\maslisman.txt"
      '-----------------------------------------------------
      'Write to text file
      'you can replace it with function to insert data into
      'local database
      '-----------------------------------------------------
      Open txtfPath For Append As #1
      Print #1, "nama"; Tab(15); ":  " + txtnama.Text
      Print #1, "email"; Tab(15); ":  " + txtemail.Text
      Print #1, "nohp"; Tab(15); ":  " + txtnohp.Text
      Print #1, "alamat"; Tab(15); ":  " + txtalamat.Text
      Print #1, "datetime"; Tab(15); ":  "; Now
      Print #1, "---------------------------------------"
      Close #1
      '-----------------------------------------------------
      'Now, send data to the net via Inet
      dataParam = "insert=yes&nama=" & txtnama.Text & "&email=" & txtemail.Text & "&nohp=" & txtnohp.Text & "&alamat=" & txtalamat.Text & "&datetime=" & Now
      Inetdata.Execute dataUrl, "POST", dataParam, "Content-Type: application/x-www-form-urlencoded"
      Do Until Inetdata.StillExecuting = False
       DoEvents
      Loop
      Screen.MousePointer = vbArrow
      End Sub

      Private Sub Form_Load()

      End Sub

      Private Sub InetData_StateChanged(ByVal State As Integer)
      Dim chData As Variant
      Dim myData As String: myData = ""
      Dim flagDone As Boolean: flagDone = False
      Screen.MousePointer = vbHourglass
      'Control state
      Select Case State
      Case icResolvingHost
      lblstatus.Caption = " Looking up IP address of host computer.."
      Case icHostResolved
      lblstatus.Caption = "IP address found!"
      Case icConnecting
      lblstatus.Caption = "Attempting to connect to Host.."
      Case icConnected
      lblstatus.Caption = "Connected!"
      Case icRequesting
      lblstatus.Caption = "Making Request.."
      Case icRequestSent
      lblstatus.Caption = "Request sent!"
      Case icReceivingResponse
      lblstatus.Caption = "Chatting with Host.."
      Case icResponseReceived
      lblstatus.Caption = "Response received!"
      Case icDisconnecting
      lblstatus.Caption = "Disconnecting.."
      Case icDisconnected
      lblstatus.Caption = "Disconnected!"
      Case icError
      lblstatus.Caption = "Error " & Inetdata.ResponseCode & " " & Inetdata.ResponseInfo
      Screen.MousePointer = vbArrow
      Exit Sub
      'Make sure the complete response has been received
      Case icResponseCompleted
      'get the first chunk
      chData = Inetdata.GetChunk(1024, icString)
      'if there is nothing on the document
      If Len(chData) = 0 Then
       flagDone = True
      End If
      'Loop until everything extracted
      Do While Not flagDone
      myData = myData & chData
      chData = Inetdata.GetChunk(1024, icString)
      If Len(chData) = 0 Then
      flagDone = True
      End If
      Loop
      'display server response
      MsgBox myData, 64, "Info"
      End Select
      End Sub

      Private Sub Label5_Click()
      OpenURL "http://maslisman.blogspot.com/", Me.hWnd
      End Sub
      Silahkan dihias atau dikembangin projectnya sesuka hati anda lalu Jika sudah semua silahkan Make Project , untuk hasilnya bisa anda lihat dari gambar-gambar dibawah ini :


      Dibawah ini adalah hasil file dalam bentun .php , bisa cek di http://blog-maslisman.tk/data/maslisman.php
       Dibawah ini adalah ketika kita buka dalam file berbentuk .txt


      Note: Karena project ini menggunakan MSINET.OCX, anda harus menyertakan file tersebut dalam distribusi file exe Anda untuk antisipasi Error pada komputer yang tidak memiliki MSINET.OCX
      Anda juga bisa mengkreasikan / mengembangkanya seperti program phising, Char Pointblank dibawah ini :  http://blog-maslisman.tk/data/pointblank.php


      Untuk Demo Tools diatas bisa di download dari link dibawah ini :

      Semua ini hanyalah sourcecode & tutorial  membuatnya, disini saya tidak berbagi projectnya, tetapi jika anda menginginkan projectnya saya bersedia membuatkanya sesuai keinginan anda , tetapi ingat projectnya tidak gratis , saya menjualnya dengan harga 50 ribu pembayaran via pulsa Indosat, berminat PM saya di FB Agam Yusliman
      Selain Pembuatan Phising dengan Project .exe VB6 kami juga menyediakan pembuatan phising dengan .PHP
      Saran saya berusahalah dan cobalah ! pasti anda bisa :)

      0 Response to "SOURCE CODE / TUTORIAL INTEGRATION BETWEEN VB6, MYSQL. AND PHP"

      Post a Comment

      Subscribe to: Post Comments (Atom)

      wdcfawqafwef