BiLX.Net Türkiyenin En Büyük Paylaşım Sitesi

Facebook`ta Paylaş




Dim a As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim d() As String, i, f, j, g, ff, gg As Short

a = TextBox1.Text

If a = "" Then

MsgBox("Lütfen metni giriniz.", MsgBoxStyle.Information, "Metin girilmedi!")

Else


ListBox1.Items.Clear()

d = a.Split(" ")

For i = 0 To UBound(d)

j = d(i).Length

f = d(i).IndexOf("@")

ff = d(i).IndexOf("@", f + 1)

g = d(i).IndexOf(".")

gg = d(i).IndexOf(".", g + 1)

If f <> -1 And g <> -1 And ff = -1 And gg = -1 And g - f > 3 And f > 2 And g <> j - 1 And j - g > 2 Then

ListBox1.Items.Add(d(i))

End If

Next

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text = "Fikirlerinizi bekletmeyin, hayata geçirin. Yazılımda Türkçe içeriği destekleme açısından Türkiye'de bir ilke imza atıyoruz. Yaklaşık 32.000 üyesi ile Türkçe bir Visual Basic Portalı olan VBTURK.NET artık sanal dünya ile sınırlı kalan bir platform olmaktan kurtuluyor.ahsdh@hotmail.com hahas@hotmail.com hahsd@mynet.com dsanfn@fka@nasnd()"




End Sub

End Class

buradada programın exe'si mevcut Linkleri Görebilmek İçin Kayıt Olmanız Gerekmektedir. Kayıt Ol or Giriş Yap






Sitemizi Facebook`ta Beğenin Yeniliklerden Haberiniz Olsun