Visual Basıc'te Link Ekleme

Shell("explorer.exe http://www.google.com" )

                      Visual Basıc'te Dört İşlem   

Dim yedek As Single   Dim islem As Char Birinci Butona yedek = Val(TextBox1.Text) islem = "+"İkinci ButonaFormumuza Dört Buton ve Bir Adet Textbox Ekleyin.Önce genel bir değişken tanımlarız. yedek = Val(TextBox1.Text) islem = "-" Üçüncü Butona yedek = Val(TextBox1.Text) islem = "/" Dördüncü Butona yedek = Val(TextBox1.Text) islem = "x" Beşinci Butona If islem = "+" Then TextBox1.Text = Val(TextBox1.Text) + yedek ElseIf islem = "-" Then TextBox1.Text = yedek - Val(TextBox1.Text) ElseIf islem = "/" Then TextBox1.Text = yedek / Val(TextBox1.Text) ElseIf islem = "x" Then TextBox1.Text = Val(TextBox1.Text) * yedek Else MsgBox("işlem uygun değerde değildir.") End If

   

                Visual Basıc'te İp'den Msj GÖnder

Önce Genel Bir Değişken Tanımlarız.   Dim sayı As Integer   Dim mesaj As String   Dim i, a As IntegerFormun Load'ına If TextBox1.Text = "MEHMET" Then 'Şifremiz TextBox1.Text = "" mesaj = InputBox( sayı = InputBox(   a = Shell(   "Bomba Mesajınızı Yazınız")"Bomba Mesaj Sayısını Giriniz")For i = 1 To sayı"net send " & TextBox2.Text & " " & TextBox1.Text)Next   Else TextBox1.Text = "" a = Shell( "net send "& TextBox2.Text &" "&  TextBox1.Text) End If