Cara Mudah Kirim Data ke Internet dengan VB.NET dan PHP
Kamis, 05 November 2015
Edit
| ANDA dapat membuat hubungan langsung dengan sql server remote di Internet, ANDA juga dapat melakukan koneksi remote langsung dengan mysql server melalui jaringan internet . ANDA juga bisa melakukan pengiriman data dengan FTP bisa juga melakukan pengiriman data dengan web service . Namun kali ini Saya akan menunjjukkan kepada ANDA bagaimana mengirim data dengan cara yang mudah dan sederhana dengan Visual Basic .NET dan aplikasi kode PHP dengan membuat internal browser di VB .NET dan melakukan browsing ke halaman PHP yang melakukan update data di web server. Lihat gambar di bawah ini adalah halaman web php yang Saya pergunakan untuk mengirim data ke internet. (Interface nya bahasa inggris ga pa pa ya karena awal nya Saya menulis artikel ini dalam versi bahasa Inggris)  Seperti hal nya web biasa ANDA dapat mengisi data secara langsung lalu klik tombol send data maka data terkirim ke server Internet. Ya sesederhana itu memang. Berikut adalah kode PHP nya: |
<html>
<body>
<font face="Courier New, Courier, monospace">
<p><strong>Send Data</strong></p>
<form name="frmdata" method="post">
<p>Name:
<input type="text" id="txtName" name="name">
<br>
Profession:
<input type="text" id="txtProfession" name="profession">
</p>
<p><br>
<input type="submit" id="btnSubmit" value="send">
</p>
</form>
</font>
</body>
</html>
<?php
if (isset($_POST["name"])) {
if ($_POST["name"]!=''){
echo "Data was send"."<br/><br/>";
echo "Name:".$_POST["name"]."<br/>";
echo "Profession:".$_POST["profession"];
}
}
?>
|
| OK. Sekarang ANDA bisa membuat project baru dengan VB .NET. Tambahkan dua label, dua textbox dan satu komponen webbrowser di form. Lihat design nya seperti gambar di bawah ini:  Di bawah ini kode lengkap dari project kirim data ke internet dengan VB .net dan PHP |
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("localhost/send-data.php")
End Sub
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnSend.Click
Dim Page As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
For Each Element As HtmlElement In Page
If Element.GetAttribute("id").Contains("txtName") Then
Dim oTName As HtmlElement = Element
oTName.InnerText = txtName.Text
End If
If Element.GetAttribute("id").Contains("txtProfession") Then
Dim oTProfession As HtmlElement = Element
oTProfession.InnerText = txtProfession.Text
End If
If Element.GetAttribute("id").Contains("btnSubmit") Then
Dim oBtn As HtmlElement = Element
oBtn.InvokeMember("click")
End If
Next
End Sub
End Class
|
| Anda dapat mengisi data di form VB.NET dan project nya otomatis menginput data di browser dan mengirim data ke web server. Lihat gambar di bawah ini: |
 |