Và dưới đây là video mình check thử và hướng dẫn các bạn cách nhé ^^ "Hoàn toàn đơn giản các bạn nhé ^^"
Full đoạn code cho ai cần nhé ^^
Public Class Form1Hình ảnh của PC đã được Change IP
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim webclient As New Net.WebClient
TextBox1.Text = webclient.DownloadString("http://kiemtraip.com/raw.php")
MessageBox.Show("Cảm Ơn Các Bạn Đã Sữ Dụng Ứng Dụng Của Tôi", "Thông Báo")
End Sub
Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
My.Computer.Clipboard.SetText(TextBox1.Text)
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MessageBox.Show("+ Ứng Dụng Được Phát Triển Bởi Bờm Khùng Blogger" & vbCrLf & "+ Cảm Ơn Các Bạn Đã Sữ Dụng Ứng Dụng Của Tôi" & vbCrLf & "+ Mong Các Bạn Thường Xuyên Ghé Blog " & vbCrLf & "+ Để Nhận Thêm Nhiều Ứng Dụng Nhé")
Process.Start("http://www.bomkhung.info")
End Sub
Private Sub FreshIPToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FreshIPToolStripMenuItem.Click
Dim webclient As New Net.WebClient
TextBox1.Text = webclient.DownloadString("http://kiemtraip.com/raw.php")
MessageBox.Show("Fresh IP Successfull", "Thông Báo")
End Sub
End Class
Và bên dưới là link down cho ai cần nhé ^^
Chúc các bạn thành công ^^
Post a Comment
+ Hiện tại HungCoder.Com đang cập nhật giao diện cho trang blog này. Nên sẽ có một số lỗi xãy ra khi các bạn xem blog này.