Visual Basic Ders Paylaşma Bölümü

Videomuz;
https://www.youtube.com/watch?v=FoI8pgx_ojE

Kodlarımız;
Görsel olarak izlenmesi uygun görüldüğü için,kodları buraya bırakmıyorum.
​

Videomuz;
https://www.youtube.com/watch?v=LvTmjX71h5w

Kodlarımız;
Görsel izlenmesi uygun görüldüğünden,kodlar buraya bırakılmadı.​

Videomuz;
https://www.youtube.com/watch?v=UDKCZy4vml4

Kodlarımız;
Görsel olarak izlenmesi uygun görüldüğünden,kodlar buraya bırakılmamıştır.​

Videomuz;
https://www.youtube.com/watch?v=ILXtaCx9ql0

Kodlarımız;
Görsel olarak izlenmesi uygun görüldüğünden kodlar buraya bırakılmadı.​

Videomuz;
https://www.youtube.com/watch?v=ScV_ERT4xk0

Kodlarımız;
Görsel olarak izlenmesi Uygun Görülmüştür.​

Videomuz;
https://www.youtube.com/watch?v=a6aKmyh7XWg

Kodlarımız;
Button1 Kodları:
ListBox1.Items.Clear()
For Each dongu As Process In Process.GetProccesses
ListBox1.Items.Add(dongu.ProcessName)
Next​

Videomuz;
https://www.youtube.com/watch?v=TRX6XzOVgus

Kodlarımız;
Button1 Kodları:
Dim name As String
name = TextBox1.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat","hgqww7j3")
client.UploadString("ftp://ftp.deneme222.pusku.com/chat.txt",RichTextBox1.Text & name & " : " & RichTextBox2.Text + vbNewLine )
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try

Button2 Kodları:
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat","hgqww7j3")
RichTextBox1.Text = client.DownloadString("ftp://ftp.deneme222.pusku.com/chat.txt")
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try

Form1_Load Kodları:
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat","hgqww7j3")
RichTextBox1.Text = client.DownloadString("ftp://ftp.deneme222.pusku.com/chat.txt")
Catch ex As Exception
MsgBox("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz!")
End Try​

Videomuz;
https://www.youtube.com/watch?v=-9ybaNqSDt4
Kodlarımız;
Button1 Kodları:
Dim smsto As HtmlElement = WebBrowser1.********.GetElementById("smsto")
Dim message As HtmlElement = WebBrowser1.********.GetElementById("message")
Dim smsfrom As HtmlElement = WebBrowser1.********.GetElementById("smsfrom")
Dim imgcode As HtmlElement = WebBrowser1.********.GetElementById("captcha")
Dim Submit As HtmlElement = WebBrowser1.********.GetElementById("submit")

smsto.SetAttribute("Value",TextBox1.Text)
message.SetAttribute("Value",TextBox2.Text)
smsfrom.SetAttribute("Value",TextBox3.Text)
imgcode.SetAttribute("Value",TextBox4.Text)
submit.InvokeMember("Click")

Button2 Kodları:
WebBrowser1.Navigate("http://www.afreesms.com/intl/turkey")

WebBrowser1_********Complete Kodları:
On Error Resume Next

Dim Nesne As Object

nesne = WebBrowser1.********.Dom********.body.createControlRange()
nesne.add(WebBrowser1.********.Dom********.İmages(3))
nesne.execCommand("Copy")
PictureBox1.Image = My.Computer.Clipboard.GetImage​