Hôm nay mình sẻ hướng dẫn các bạn lập trình ứng dụng chat tương tự như yahoo ( không bằng yahoo ), cực kì đơn giản mà hiệu quả. nếu trog tay bạn có 1 Hosting mà không biết làm gì thì làm ứng dụng này chơi cũng khá là hay để chat nhóm với bạn bè hoặc là người yêu ^^.
Mã nguồn cũng khá là đơn giản không phức tạp
Bước 1: Các bạn thêm 3 textbox và đổi tên lần lượt từng textbox thành như sau : gettext,getname,getmes. Tiếp đó các bạn thêm một button vào :)
Bước 2: Thêm 2 library này vào trên đầu project :
Imports System.Net
Imports System.IO
Bước 3: Thêm đoạn code sau vào form_loadImports System.IO
'Get Từ Internet
Dim webclient As New Net.WebClient
gettext.Text = webclient.DownloadString("http://localhost/app/logs.txt")
getname.Text = My.Settings.name
'Auto Update Program
Dim src As String = getSrc("http://localhost/app/version.txt")
If (src.Contains(My.Settings.version)) Then
Else
Me.Close()
End If
Private Function getSrc(ByVal url As String)
Dim r As httpwebrequest = httpwebrequest.create(url)
Dim re As httpwebresponse = r.getresponse()
Dim src As String = New streamreader(re.getresponsestream()).readtoend()
Return src
End Function
Dim webclient As New Net.WebClient
gettext.Text = webclient.DownloadString("http://localhost/app/logs.txt")
getname.Text = My.Settings.name
'Auto Update Program
Dim src As String = getSrc("http://localhost/app/version.txt")
If (src.Contains(My.Settings.version)) Then
Else
Me.Close()
End If
Private Function getSrc(ByVal url As String)
Dim r As httpwebrequest = httpwebrequest.create(url)
Dim re As httpwebresponse = r.getresponse()
Dim src As String = New streamreader(re.getresponsestream()).readtoend()
Return src
End Function
Bước 4: Thêm đoạn code sau vào button
Try
gettext.Text = StrConv(getmes.Text, VbStrConv.Uppercase)
Dim Total As String = Environment.NewLine & ">" & getname.Text & ":" & Space(1) & gettext.Text
Dim request As WebRequest = WebRequest.Create("http://localhost/app/post.php?w=" & Total)
request.GetResponse()
Dim webclient As New Net.WebClient
gettext.Text = webclient.DownloadString("http://localhost/app/log.txt")
getmes.Text = Nothing
getname.Enabled = False
Catch ex As Exception
baotri.Show()
Me.Close()
End Try
My.Settings.name = getname.Text
My.Settings.Save()
gettext.Text = StrConv(getmes.Text, VbStrConv.Uppercase)
Dim Total As String = Environment.NewLine & ">" & getname.Text & ":" & Space(1) & gettext.Text
Dim request As WebRequest = WebRequest.Create("http://localhost/app/post.php?w=" & Total)
request.GetResponse()
Dim webclient As New Net.WebClient
gettext.Text = webclient.DownloadString("http://localhost/app/log.txt")
getmes.Text = Nothing
getname.Enabled = False
Catch ex As Exception
baotri.Show()
Me.Close()
End Try
My.Settings.name = getname.Text
My.Settings.Save()
Thế là xog app rồi nhé. Bây giờ đến hosting nào :)
Full code Post.php
<?php
$msg = $_GET['w'];
$logfile= 'log.txt';
$fp = fopen($logfile, "a");
fwrite($fp, $msg);
fclose($fp);
?>
$msg = $_GET['w'];
$logfile= 'log.txt';
$fp = fopen($logfile, "a");
fwrite($fp, $msg);
fclose($fp);
?>
Bây giờ bạn upfile post.php đó lên host ngang với địa chị mà ứng dụng lưu nhé :)
Và các bạn có thể run để test ứng dụng rồi. nếu có bạn nào làm không được thì comment để mình hướng dẫn cụ thế hơn nhé :)Nguồn : Văn Hùng