Vb.net Chat Programi Yapma

By NaNo · 15 Nis 2016

[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Trebuchet MS', Helvetica, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Selamın Aleyküm Arkadaşlar Bu Dersimizde Chat Programı Yapımını Anlatacağım

[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Gereken İtemler
[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]-2 Adet Richtbox
-2 Adet Button
-1 textbox
Ve Bir Site

[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Program İnternet Üzerinden Çalışacağı İçin Bir Site Ye İhtiyacımız var [ücretsiz domain ve ücretsiz host yeterlidir]

Sitemizin Ftp Sine Bağlandıktan Sonra bir Metin Belgesi Oluşturalım ve adını Chat Yapalım ardından bu dosyayı ftp ye atalım ama ana dizine atmamız gerekiyor [public.html]

[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Bu İşlemleri Yaptıktan Sonra Artık Bir Form Oluşturabiliriz .
Forumumuzu Oluşturalım gerekli itemleri forma yerleştirelim

[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Konumlar
-Richtbox1 i en yukarı koyalım ve istediğiniz büyüklükte ayarlayın mesajları görmemize yarıyacak

-Richtbox2 yi Onun Biraz Altına Koyalım bu göndericeğimiz mesajı yazdığımız bölüm olucak

-Buttton1 i richtbox2 nin yanına koyalım veya altına mesajı gönderme buttonumuz olucak

-Textbox1 mesajı gönderen kişinin adının yazılacağı bölüm kendi istediğiniz yere koyun

-button 2 yi istediğiniz yere koyun yenileme buttonu olucak

[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Ardından Kodlarımıza Geçelim
button 1 kodları[/FONT][/FONT][/FONT]

[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Trebuchet MS', Helvetica, Arial, sans-serif]
[font=Monaco, Consolas, Courier, monospace]Dim name [/FONT][font=Monaco, Consolas, Courier, monospace]As [/FONT][font=Monaco, Consolas, Courier, monospace]String
name [/FONT][font=Monaco, Consolas, Courier, monospace]= [/FONT][font=Monaco, Consolas, Courier, monospace]TextBox1[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]Text
  [/FONT][font=Monaco, Consolas, Courier, monospace]Try
  [/FONT][font=Monaco, Consolas, Courier, monospace]Dim client [/FONT][font=Monaco, Consolas, Courier, monospace]As New [/FONT][font=Monaco, Consolas, Courier, monospace]Net[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]WebClient
client[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]Credentials [/FONT][font=Monaco, Consolas, Courier, monospace]= New [/FONT][font=Monaco, Consolas, Courier, monospace]Net[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]NetworkCredential[/FONT][font=Monaco, Consolas, Courier, monospace]([/FONT][font=Monaco, Consolas, Courier, monospace]"ftp kullanıcısı"[/FONT][font=Monaco, Consolas, Courier, monospace], [/FONT][font=Monaco, Consolas, Courier, monospace]"ftp şifresi"[/FONT][font=Monaco, Consolas, Courier, monospace])
  [/FONT][font=Monaco, Consolas, Courier, monospace]client[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]UploadString[/FONT][font=Monaco, Consolas, Courier, monospace]([/FONT][font=Monaco, Consolas, Courier, monospace]"ftp://siteniz/chat.txt"[/FONT][font=Monaco, Consolas, Courier, monospace], [/FONT][font=Monaco, Consolas, Courier, monospace]RichTextBox1[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]Text [/FONT][font=Monaco, Consolas, Courier, monospace]& [/FONT][font=Monaco, Consolas, Courier, monospace]name [/FONT][font=Monaco, Consolas, Courier, monospace]& [/FONT][font=Monaco, Consolas, Courier, monospace]" : " [/FONT][font=Monaco, Consolas, Courier, monospace]& [/FONT][font=Monaco, Consolas, Courier, monospace]RichTextBox2[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]Text [/FONT][font=Monaco, Consolas, Courier, monospace]+ [/FONT][font=Monaco, Consolas, Courier, monospace]vbNewLine[/FONT][font=Monaco, Consolas, Courier, monospace])
Catch [/FONT][font=Monaco, Consolas, Courier, monospace]ex [/FONT][font=Monaco, Consolas, Courier, monospace]As [/FONT][font=Monaco, Consolas, Courier, monospace]Exception
MsgBox[/FONT][font=Monaco, Consolas, Courier, monospace]([/FONT][font=Monaco, Consolas, Courier, monospace]"Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz"[/FONT][font=Monaco, Consolas, Courier, monospace])

  [/FONT][font=Monaco, Consolas, Courier, monospace]End [/FONT][font=Monaco, Consolas, Courier, monospace]Try [/FONT][/FONT][/FONT]

[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]
Button 2 Kodları (isterseniz bir timere girin otomatik yenilensin)[/FONT]

[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]
[font=Monaco, Consolas, Courier, monospace]Try
  [/FONT][font=Monaco, Consolas, Courier, monospace]Dim client [/FONT][font=Monaco, Consolas, Courier, monospace]As New [/FONT][font=Monaco, Consolas, Courier, monospace]Net[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]WebClient
client[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]Credentials [/FONT][font=Monaco, Consolas, Courier, monospace]= New [/FONT][font=Monaco, Consolas, Courier, monospace]Net[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]NetworkCredential[/FONT][font=Monaco, Consolas, Courier, monospace]([/FONT][font=Monaco, Consolas, Courier, monospace]"ftp kullanıcısı"[/FONT][font=Monaco, Consolas, Courier, monospace], [/FONT][font=Monaco, Consolas, Courier, monospace]"ftp şifresi"[/FONT][font=Monaco, Consolas, Courier, monospace])
  [/FONT][font=Monaco, Consolas, Courier, monospace]RichTextBox1[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]Text [/FONT][font=Monaco, Consolas, Courier, monospace]= [/FONT][font=Monaco, Consolas, Courier, monospace]client[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]DownloadString[/FONT][font=Monaco, Consolas, Courier, monospace]([/FONT][font=Monaco, Consolas, Courier, monospace]"ftp://siteniz.com/chat.txt"[/FONT][font=Monaco, Consolas, Courier, monospace])
Catch [/FONT][font=Monaco, Consolas, Courier, monospace]ex [/FONT][font=Monaco, Consolas, Courier, monospace]As [/FONT][font=Monaco, Consolas, Courier, monospace]Exception
MsgBox[/FONT][font=Monaco, Consolas, Courier, monospace]([/FONT][font=Monaco, Consolas, Courier, monospace]"Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz"[/FONT][font=Monaco, Consolas, Courier, monospace])
  [/FONT][font=Monaco, Consolas, Courier, monospace]End [/FONT][font=Monaco, Consolas, Courier, monospace]Try [/FONT][/FONT]

[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]
ve son olarak form1 load bölümüne girilecek kodlar
[/FONT]

[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]
[font=Monaco, Consolas, Courier, monospace]Try
  [/FONT][font=Monaco, Consolas, Courier, monospace]Dim client [/FONT][font=Monaco, Consolas, Courier, monospace]As New [/FONT][font=Monaco, Consolas, Courier, monospace]Net[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]WebClient
client[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]Credentials [/FONT][font=Monaco, Consolas, Courier, monospace]= New [/FONT][font=Monaco, Consolas, Courier, monospace]Net[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]NetworkCredential[/FONT][font=Monaco, Consolas, Courier, monospace]([/FONT][font=Monaco, Consolas, Courier, monospace]"ftp kullanıcısı "[/FONT][font=Monaco, Consolas, Courier, monospace], [/FONT][font=Monaco, Consolas, Courier, monospace]"ftp şifresi"[/FONT][font=Monaco, Consolas, Courier, monospace])
  [/FONT][font=Monaco, Consolas, Courier, monospace]RichTextBox1[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]Text [/FONT][font=Monaco, Consolas, Courier, monospace]= [/FONT][font=Monaco, Consolas, Courier, monospace]client[/FONT][font=Monaco, Consolas, Courier, monospace].[/FONT][font=Monaco, Consolas, Courier, monospace]DownloadString[/FONT][font=Monaco, Consolas, Courier, monospace]([/FONT][font=Monaco, Consolas, Courier, monospace]"ftp://siteniz/chat.txt"[/FONT][font=Monaco, Consolas, Courier, monospace])
Catch [/FONT][font=Monaco, Consolas, Courier, monospace]ex [/FONT][font=Monaco, Consolas, Courier, monospace]As [/FONT][font=Monaco, Consolas, Courier, monospace]Exception
MsgBox[/FONT][font=Monaco, Consolas, Courier, monospace]([/FONT][font=Monaco, Consolas, Courier, monospace]"Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz"[/FONT][font=Monaco, Consolas, Courier, monospace])
  [/FONT][font=Monaco, Consolas, Courier, monospace]End [/FONT][font=Monaco, Consolas, Courier, monospace]Try
  [/FONT][font=Monaco, Consolas, Courier, monospace]End Sub [/FONT]
[/FONT]

[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]
Ve Bu Kadar Bir Dahaki Dersimizde Görüşmek Üzere[/FONT]

CoderBYW · 15 Nis 2016

ııııııııııııııııııııııııııııııııııııııııııııııııııııııı

magicalcoder · 15 Nis 2016

bakalalım kardeş

FreshnessWT · 15 Nis 2016

bakalalım kardeş

emre1345 · 17 Nis 2016

[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Selamın Aleyküm Arkadaşlar Bu Dersimizde Chat Programı Yapımını Anlatacağım [/FONT]

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]mza: İmzam bu mesajda gözüksün. (Gözükmemesi için kutucuktaki işareti kaldırın.)[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] [/FONT]

RiotKorayREiz · 18 Nis 2016

adamsin pnp adam adam

)

captaincold · 18 Nis 2016

eyvallah denicem +rez

tr6152hacks · 19 Nis 2016

Bakalım Saol jeqwe

B4YH4K4N · 28 Haz 2016

("ftp kullanıcısı ", "ftp şifresi")

BURAYA NE YAZACAZ BİLEN VARMI VARSA YAZABİLİRMİ

Ara

Vb.net Chat Programi Yapma

By NaNo

CoderBYW

Thıs Is Afyon

magicalcoder

PROGRAMMER

FreshnessWT

emre1345

RiotKorayREiz

captaincold

tr6152hacks

B4YH4K4N

Benzer Konular