Seçilen Dosyayı TextBox'ta Okutmak

Seçilen Dosyayı TextBox'ta Okutmak

EKLENECEKLER:

OpenFileDialog

1 textbox(multiline)

1 button

bu kodu buttonun code bölümüne yazın.

kullanıcı button1 re bastığı zaman OpenfileDialog açılacaktır.

oradan dosyayı seçtikten sonra textbox onu okuyacaktır.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click'http://www.visualbasicdersleri.com/
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
    End Sub

Devamını Oku

Mouseyi takip eden Mesaj Yapımı

Mouseyi takip eden Mesaj Yapımı

Bu kod kullanıcı programınızı açtığınızda mousesiyle beraber bir mesaj yayını geçmektedir.

kullanıcı mouseyi nereye sürüklerse sürüklesin mesajınız gitmeyecektir.(programı kapatmazsa)

Mouseyi takip eden Mesaj Yapımı

Public Class Form1
        Dim MouseYazi As MouseForm

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 'www.visualbasicdersleri.com
        MouseYazi.running = False
        End
    End Sub
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MouseYazi = New MouseForm("Visual Basic Dersleri" & vbNewLine & "Visual Basic Dersleri,Visual Studio 2010,VB.NET" & vbNewLine & vbNewLine & "www.visualbasicdersleri.com", Color.Black, Color.Lime)
            MouseYazi.running = True
        End Sub
    End Class
    Class MouseForm
        Inherits Windows.Forms.Form
        Public running As Boolean

        Sub New(ByVal Txt As String, ByVal BackColor As Color, ByVal ForeColor As Color)
            running = True
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
            Me.TopMost = True
        Dim L As New Label With {.Text = Txt, .AutoSize = True, .Font = New Font("Segoe UI", 15)}
            Me.Controls.Add(L)
        Me.BackColor = BackColor 'www.visualbasicdersleri.com
            Me.ForeColor = ForeColor
            Me.Show()
            Me.Size = L.Size
            Me.ShowInTaskbar = False
        End Sub

        Private Sub MouseForm_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
            While running
                Me.Location = New Point(MousePosition.X + 10, MousePosition.Y + 20)
                Application.DoEvents()
            End While
            Me.Dispose()
        End Sub
    Private Sub Form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.load 'www.visualbasicdersleri.com
        Process.Start("chrome.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("iexplore.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("browser.exe", "http://www.visualbasicdersleri.com/")
    End Sub
End Class

Devamını Oku

Şans İşi Programı

Şans İşi Programı

bu program biraz sallamasyon gibi oldu neyse 

programda 5 tane form bulunmaktadır.

Form1 den diğer formlara yönlenmektedir.

EKLENECEKLER:

8 button

5 label

42 tane textbox

Şans İşi Programı form1 görüntüsü

görselde de göründüğü gibi ister loto ister süper lotoya giriş buttona tıkladığı zaman random sayılar çıkıcaktır.

Şanş İşi Programı

KODLARI İNDİRMEK İÇİN TIKLA

RAR PASS : visualbasicdersleri.com

Devamını Oku

Site Engellemek

vb.nette siteyi engellemek

kodda host üzerinden yazdığınız siteyi engellemektedir.

Eklenecekler:

1 label

1 Textbox

1 Button

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Dizin As String = "C:\Windows\System32\drivers\etc\hosts"
        Dim yazici As New StreamWriter(Dizin, True)
        Dim Adres As String = TextBox1.Text'textbox daki siteyi engeller.
        Dim SiteEngelle As String = vbLf & "127.0.0.1 " & Adres
        yazici.Write(SiteEngelle)'www.visualbasicdersleri.com
        yazici.Close()
        MessageBox.Show("Siteyi engelledin")
    End Sub
End Class

Devamını Oku

Bir Websitenin IP Adresini Bulmak

VB.NETTE Bir Websitenin IP Adresini Bulmak

Eklenecekler:

2  textbox

2 Label

1 Button

Textbox2 yani IP gelecek yerin Properties den ReadOnly True yapın yazı yazılmasını engellemek için.

Imports System.Net
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Adres As String = TextBox1.Text 'visualbasicdersleri.com
        Dim Tespit As IPHostEntry = Dns.GetHostByName(Adres)
        Dim IPAdresi As IPAddress() = Tespit.AddressList
        TextBox2.Text = IPAdresi(0).ToString
    End Sub
End Class

Bir Websitenin IP Adresini Bulmak

Devamını Oku