Bizimde faydamız olsun Odesa downloader kodları -

Güzel bir trojan kodu -

Tesekkurler Balamir Modum

Buyrun arkadaslar arsıvımde bulundurdugum bazı kodları paylasıyorum Cool Bazı Visual Basic Kodları - 08.08.2008, 14:11 CD-Rom açıp kapatma programı, Kod: Private Declare Function mciExecute Lib "winmm. dll" As Long Private Sub Command1_Click mciExecute End Sub Private Sub Command2_Click mciExecute End Sub Bunu yapmak için, Projeye 2 adet command click eklemeliyiz. Biri açma diğeri kapatma. Speakerdan beep çıkarmak, Kod: Private Sub Command1_Click Beep End Sub Bunu yapmak için, Projenize 1 adet command click eklemeliyiz. Basınca beeb : ) Windows hesap makinesi ve not defterini çalıştırmak, Hesap makinesi için, Kod: Private Sub Command1_Click Call Shell("calc. exe", 1) End Sub Not defteri için, Kod: Private Sub Command1_Click Call Shell("notepad. exe", 1) End Sub Bunları yapmak için 1 adet command click koymalıyız. Yazdığını okuyan program, Kod: Dim speech As SpVoice Private Sub Command1_Click speech. Speak Text1 End Sub Private Sub Form_Load Set speech = New SpVoice End Sub Bunu yapmak için, Bir adet textbox ve command click koyun. Dikkat! Referanstan speech object libraryi seçmeliyiz olması için. Hangi gün doğduğunu bulan program, Kod: Private Sub Command1_Click Dim d_tarih, gun Do d_tarih = InputBox Loop While Not IsDate Select Case Weekday Case 1: gun = "Pazar" Case 2: gun = "Pazartesi" Case 3: gun = "Salı" Case 4: gun = "Çarşamba" Case 5: gun = "Perşembe" Case 6: gun = "Cuma" Case 7: gun = "Cumartesi" End Select MsgBox End Sub Bunu yapmak için, Bir adet command click koyun ve daha sonra kendisi gelicek diğer tuşlar. umarım ısınıze yarar

Visual Basicten hiç anlamam ama öğrenmek çok istiyorum Bunların Hepsini Saklıyom Balamir Abi ; Bu Trojan Kodunu Fudlamak lazım antivirüse yakalanıyor

Teşekkürler paylaşım için (=