Arkadaşlar,

Porn, warez vb. türündeki alakasız ve tamamen adice düzenlenmiş web sitelerinin gönderdiği programları, resimlerini vb. özetle o tür internet sitelerine erişimi ne tür bir program ile önleyebiliriz?

anti-porn diye bir program kullanıyorum ama TRIAL versiyon

Gmail isteklerinizde aşağıdaki başlığı kullanınız. Lütfen yeni başlık açmayınız.
http://www.donanimmerkezi.com/viewtopic.php?t=59

locosaeron@yahoo.com

gmail davetiyesi gönrecekmişsiniz?? doğruysa

xxxxxxxxx@hotmail.com

şimdiden teşekkürlerrr

aopen qf50 kasamın yan sadece yan kısmını cam yaptırmayı düşünüyorum. sorun yaratırmı bilgisi olan varmı.

Form1


Dim sayı(6)
Dim kolon
Dim süre
Private Sub Command1_Click()
If Combo1.Text = "" Then
MsgBox "Kolon Sayısını Giriniz"
GoTo son
End If
For i = 1 To 48
Label2(i).Caption = ""
Next i
kolon = Combo1.Text
Text3.Text = kolon
Timer1.Enabled = True
For i = 1 To 48
Label2(i).Visible = False
Shape1(i).Visible = False
Next i
For i = 1 To 6 * kolon
Label2(i).Visible = True
Shape1(i).Visible = True
Next i
Form1.Height = 3500 + kolon * 800
son:
End Sub
Private Sub Form_Load()
Text3.Text = 1
For i = 1 To 6
Text1(i).Text = ""
Next i
For i = 1 To 48
Label2(i).ForeColor = &HC0&
Next i
End Sub

Private Sub kapat_Click()
End
End Sub
Private Sub oyna_Click()
If Combo1.Text = "" Then
MsgBox "Kolon Sayısını Giriniz"
GoTo son
End If
For i = 1 To 48
Label2(i).Caption = ""
Next i
kolon = Combo1.Text
Text3.Text = kolon
Timer1.Enabled = True
For i = 1 To 48
Label2(i).Visible = False
Shape1(i).Visible = False
Next i
For i = 1 To 6 * kolon
Label2(i).Visible = True
Shape1(i).Visible = True
Next i
Form1.Height = 3500 + kolon * 800
son:
End Sub
Private Sub Timer1_Timer()
süre = süre + 1
If Text3.Text = 0 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
Randomize Timer
For i = 1 To 6 '1 ile 49 arasında sayılar seçiliyor
sayı(i) = Int((49 * Rnd) + 1)
Next i
For j = 1 To 6
For i = 0 To 5
If j = i Then
i = i + 1
End If
bas:
If sayı(j) = sayı(i) Then 'sayılar birbirleriyle karşılaştırılıyor
sayı(i) = Int((49 * Rnd) + 1) 'eğer sayılar eşitse tekrar seçim yapılıyor
GoTo bas 'daha sonra tekrar karşılaştırılıyor
End If
Next i
Next j
For i = 1 To 6
Text1(i).Text = sayı(i)
Next i
For j = 0 To 5
For i = 0 To 5 'sayılar küçükten büyüğe diziliyor
If sayı(i) > sayı(i + 1) Then
küçük = sayı(i + 1)
sayı(i + 1) = sayı(i)
sayı(i) = küçük
End If
Next i
Next j
If süre = 10 Then
Text3.Text = Text3.Text - 1
For i = 1 To 6
Label2(i + (6 * (kolon - Text3.Text - 1))).Caption = sayı(i)
Next i
süre = 0
End If
End Sub
Private Sub Timer2_Timer()
If Text3.Text = 0 Then
Form2.Show
Form2.Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub


form2

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Dim a(49)
Dim süre
Private Sub Form_Load()
Dim b(49)
süre = 0
b(1) = "bir"
b(2) = "iki"
b(3) = "üç"
b(4) = "dört"
b(5) = "beş"
b(6) = "altı"
b(7) = "yedi"
b(8) = "sekiz"
b(9) = "dokuz"
b(10) = "on"
b(11) = "onbir"
b(12) = "oniki"
b(13) = "onüç"
b(14) = "ondört"
b(15) = "onbeş"
b(16) = "onaltı"
b(17) = "onyedi"
b(18) = "onsekiz"
b(19) = "ondokuz"
b(20) = "yirmi"
b(21) = "yirmibir"
b(22) = "yirmiiki"
b(23) = "yirmiüç"
b(24) = "yirmidört"
b(25) = "yirmibeş"
b(26) = "yirmialtı"
b(27) = "yirmiyedi"
b(28) = "yirmisekiz"
b(29) = "yirmidokuz"
b(30) = "otuz"
b(31) = "otuzbir"
b(32) = "otuziki"
b(33) = "otuzüç"
b(34) = "otuzdört"
b(35) = "otuzbeş"
b(36) = "otuzaltı"
b(37) = "otuzyedi"
b(38) = "otuzsekiz"
b(39) = "otuzdokuz"
b(40) = "kırk"
b(41) = "kırkbir"
b(42) = "kırkiki"
b(43) = "kırküç"
b(44) = "kırkdört"
b(45) = "kırkbeş"
b(46) = "kırkaltı"
b(47) = "kırkyedi"
b(48) = "kırksekiz"
b(49) = "kırkdokuz"
For i = 1 To 48
a(i) = Form1.Label2(i).Caption
If a(i) = "" Then
GoTo son
End If
a(i) = b(a(i))
son:
Next i
End Sub
Private Sub Timer1_Timer()
Dim kolon
kolon = Form1.Combo1.Text
süre = süre + 1
If süre = (kolon * 6) + 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
Form1.Timer1.Enabled = False
süre = 0
End If
sndPlaySound "c:\program files\sayısal loto\sesler\" & a(süre) & "", 1
End Sub
Private Sub Timer2_Timer()
süre = süre + 1
If süre = 5 Then
Unload Form2
süre = 0
End If
End Sub
Private Sub Timer3_Timer()
Form2.Visible = False
End Sub


( sesleri siz ekleyeceksiniz )

ALANLAR
Dim b As Double
Dim c As Double
Private Sub txtdai_pisayısıs_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub

Private Sub cmdhesap_Click()
b = Val(txtdik_kenar1.Text)
c = Val(txtdik_kenar2.Text)
txtdik_sonuc.Text = b * c
txtdik_sonuc.SetFocus
End Sub
Private Sub cmddiktemizle_Click()
txtdik_kenar1.Text = ""
txtdik_kenar2.Text = ""
txtdik_sonuc = ""
txtdik_kenar1.SetFocus
End Sub

Private Sub Form_Load()
txtdai_pisayısıs.Text = "3,1415"
End Sub

Private Sub cmdkarehesapla_Click()
Dim c As Integer
c = Val(txtkare_kenar.Text)
txtkare_sonuc = c * c
End Sub
Private Sub cmdkareTemizle_Click()
txtkare_kenar.Text = ""
txtkare_sonuc.Text = ""
End Sub
Private Sub cmddaihesap_Click()
If txtdai_yarıcap.Text = "" Then
txtdai_yarıcap.Text = ""
Else
txtdai_sonuc.Text = CDbl(txtdai_pisayısıs.Text) * CDbl(txtdai_yarıcap.Text)
End If
End Sub
Private Sub cmddaitemizle_Click()
txtdai_yarıcap.Text = ""
txtdai_sonuc.Text = ""
End Sub
Private Sub cmddikuchesapla_Click()
Dim w, c As Integer
w = Val(txtdikuc_taban.Text)
c = Val(txtdikuc_yuksel.Text)
txtdikuc_sonuc.Text = w * c / 2
End Sub
Private Sub cmddikucsonuc_Click()
txtdikuc_taban.Text = ""
txtdikuc_yuksel.Text = ""
txtdikuc_sonuc.Text = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmhesap.Visible = True
frmhesap.Enabled = True
End Sub
Private Sub txtdai_yarıcap_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub

Private Sub txtdik_kenar1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub

Private Sub txtdik_kenar2_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub
Private Sub txtdikuc_taban_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub

Private Sub txtdikuc_yuksel_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub

Private Sub txtkare_kenar_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub
Döviz İşlemleri
Dim a, b As Double
Private Sub cmdhesapla_Click()
If txtkur.Text = "" Then
txtkur = ""
Else
a = txtkur.Text
b = txtmiktar.Text
txtsonuc.Text = a * b
End If
txtsonuc.SetFocus
End Sub

Private Sub cmdtemizle_Click()
txtmiktar.Text = ""
txtkur.Text = ""
txtsonuc.Text = ""
txtsonuc.SetFocus
txtkur.SetFocus
End Sub

Private Sub Form_Unload(Cancel As Integer)
frmhesap.Visible = True
frmhesap.Enabled = True
End Sub

Private Sub txtkur_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub

Private Sub txtmiktar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
a = txtkur.Text
b = txtmiktar.Text
txtsonuc.Text = a * b
txtsonuc.SetFocus
End If
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub

Private Sub txtsonuc_Change()
txtsonuc.Text = Format(txtsonuc.Text, "###,###")
txtsonuc.SelStart = Len(txtsonuc.Text)
End Sub

Private Sub txtsonuc_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
txtkur.Text = ""
txtmiktar.Text = ""
txtsonuc.Text = ""
txtkur.SetFocus
End If
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
txtsonuc.SetFocus
End Sub

Frm Hesap
Dim b As Double
Dim c As Double
Private Sub cmdaltı_Click()
txtgir.Text = txtgir.Text & 6
Me.txtgir.SetFocus
End Sub
Private Sub cmdbes_Click()
txtgir.Text = txtgir.Text & 5
Me.txtgir.SetFocus
End Sub
Private Sub cmdbir_Click()
txtgir.Text = txtgir.Text & 1
Me.txtgir.SetFocus
End Sub
Private Sub cmdbol_Click()
b = txtgir.Text
txtgir.Text = ""
lblisaret.Caption = "/"
Me.txtgir.SetFocus
End Sub
Private Sub cmdcarp_Click()
b = txtgir.Text
txtgir.Text = ""
lblisaret.Caption = "*"
Me.txtgir.SetFocus
End Sub
Private Sub cmdcıkar_Click()
b = txtgir.Text
txtgir.Text = ""
lblisaret.Caption = "-"
Me.txtgir.SetFocus
End Sub
Private Sub cmdCotanjant_Click()
f = txtgir.Text
b = 1 / Tan(f * 3.1415 / 180)
txtgir.Text = ""
txtgir.Text = b
Me.txtgir.SetFocus
End Sub
Private Sub cmdfaktoryel_Click()
a = txtgir.Text
s = 1
For i = 1 To a
s = s * i
Next
txtgir.Text = s
txtgir.SetFocus
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
txtgir.Text = ""
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
For i = 1 To 150
frmhesap.Width = frmhesap.Width - i
frmhesap.Height = frmhesap.Height - i
Next
End Sub

Private Sub txtgir_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 190 Then
MsgBox ("Virgüllü Hesaplamalar için Hesaplamalar/Virgüllü Hesaplamalara gidiniz")
txtgir.Text = ""
End If
End Sub
Private Sub mnhakkında_Click()
frmhesap.Enabled = False
frmhesap.Visible = False
Bilgi.Show
End Sub
Private Sub mnvirgül_Click()
frmhesap.Enabled = False
frmhesap.Visible = False
frmvirgül.Show
End Sub
Private Sub cmdsinx_Click()
If txtgir.Text = 90 Then
txtgir.Text = "1"
Else
If txtgir.Text = 180 Then
txtgir.Text = "0"
Else
If txtgir.Text = 30 Then
txtgir.Text = "0,5"
Else
f = Val(txtgir.Text)
b = (Sin(f * 3.1415 / 180))
txtgir.Text = ""
txtgir.Text = b
End If
End If
End If
Me.txtgir.SetFocus
End Sub
Private Sub cmdcosx_Click()
f = txtgir.Text
If f = 90 Then
txtgir.Text = "0"
Else
If f = 270 Then
txtgir.Text = "0"
Else
If f = 180 Then
txtgir.Text = "-1"
Else
b = Cos(f * 3.1415 / 180)
txtgir.Text = ""
txtgir.Text = b
End If
End If
End If
Me.txtgir.SetFocus
End Sub
Private Sub cmdtanj_Click()
f = txtgir.Text
If f = 270 Then
txtgir.Text = "İşlevsiz"
Else
If f = 90 Then
txtgir.Text = "İşlevsiz"
Else
If f = 45 Then
txtgir.Text = "1"
Else
b = Tan(f * 3.1415 / 180)
txtgir.Text = ""
txtgir.Text = b
End If
End If
End If
Me.txtgir.SetFocus
End Sub
Private Sub cmdsil_Click()
a = txtgir.Text
If a <> "" Then
b = Len(a)
txtgir.Text = Left(txtgir.Text, b - 1)
Else
MsgBox "cmdsilinecek Sayı Yok"
End If
End Sub
Private Sub cmdyuvarla_Click()
f = txtgir.Text
b = Sqr(f)
txtgir.Text = ""
txtgir.Text = b
Me.txtgir.SetFocus
End Sub
Private Sub cmdmutlak_Click()
f = txtgir.Text
q = Abs(f)
txtgir.Text = q
Me.txtgir.SetFocus
End Sub
Private Sub cmdloga_Click()
f = txtgir.Text
u = Log(f) / Log(10)
txtgir.Text = u
Me.txtgir.SetFocus
End Sub
Private Sub cmddokuz_Click()
txtgir.Text = txtgir.Text & 9
Me.txtgir.SetFocus
End Sub

Private Sub cmddort_Click()
txtgir.Text = txtgir.Text & 4
Me.txtgir.SetFocus
End Sub
Private Sub cmdesitir_Click()
If txtgir.Text = "" Then
MsgBox ("İşlem Yapınız")
Else
c = txtgir.Text
If lblisaret.Caption = "+" Then txtgir.Text = b + c
If lblisaret.Caption = "-" Then txtgir.Text = b - c
If lblisaret.Caption = "*" Then txtgir.Text = b * c
If lblisaret.Caption = "/" Then txtgir.Text = b / c
Beep
End If
Me.txtgir.SetFocus
End Sub

Private Sub Form_Load()
mntarih.Caption = Date
mnnormal.Enabled = False
kilit2.Enabled = False
kilit3.Enabled = False
End Sub
Private Sub txtgir_Change()
kilit2.Enabled = True
kilit3.Enabled = True
If txtgir.Text = "" Then
kilit2.Enabled = False
kilit3.Enabled = False
End If
End Sub
Private Sub txtgir_KeyPress(KeyAscii As Integer)
If txtgir.Text = "" Then
txtgir.Text = ""
Else
If KeyAscii = 27 Then
txtgir.Text = ""
End If
If KeyAscii = 13 Then
cmdesitir_Click
End If
If KeyAscii = 43 Then
cmdtopla_Click
End If
If KeyAscii = 45 Then
cmdcıkar_Click
End If
If KeyAscii = 47 Then
cmdbol_Click
End If
If KeyAscii = 42 Then
cmdcarp_Click
End If
End If
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub
Private Sub cmdiki_Click()
txtgir.Text = txtgir.Text & 2
Me.txtgir.SetFocus
End Sub
Private Sub cmdkareal_Click()
b = txtgir.Text
txtgir.Text = b * b
Me.txtgir.SetFocus
End Sub
Private Sub cmdkdv_Click()
b = txtgir.Text
txtgir.Text = b * 0.18
txtgir.SetFocus
End Sub
Private Sub mnalan_Click()
frmhesap.Enabled = False
frmhesap.Visible = False
frmalan.Show
End Sub
Private Sub mncık_Click()
For i = 1 To 150
frmhesap.Width = frmhesap.Width - i
frmhesap.Height = frmhesap.Height - i
Next
End
End Sub
Private Sub mngelismis_Click()
a = 5
For i = a To 66
frmhesap.Width = frmhesap.Width + i
Next
mngelismis.Enabled = False
mnnormal.Enabled = True
End Sub
Private Sub mnkur_Click()
frmdoviz.Show
frmhesap.Enabled = False
frmhesap.Visible = False
End Sub
Private Sub mnnormal_Click()
a = 5
For i = a To 66
frmhesap.Width = frmhesap.Width - i
Next
mngelismis.Enabled = True
mnnormal.Enabled = False
End Sub
Private Sub cmdsekıs_Click()
txtgir.Text = txtgir.Text & 8
Me.txtgir.SetFocus
End Sub
Private Sub cmdsıfır_Click()
txtgir.Text = txtgir.Text & 0
Me.txtgir.SetFocus
End Sub
Private Sub cmdtemizle_Click()
txtgir.Text = ""
Me.txtgir.SetFocus
End Sub
Private Sub saat_Timer()
mngoster.Caption = Time
End Sub
Private Sub cmdtopla_Click()
b = txtgir.Text
txtgir.Text = ""
lblisaret.Caption = "+"
Me.txtgir.SetFocus
End Sub
Private Sub cmdüc_Click()
txtgir.Text = txtgir.Text & 3
Me.txtgir.SetFocus
End Sub
Private Sub cmdyedi_Click()
txtgir.Text = txtgir.Text & 7
Me.txtgir.SetFocus
End Sub

Virgüllü hesaplamalar
Private Sub Form_Load()
lstislemlerim.Enabled = False
kilit.Enabled = False
lstislemlerim.AddItem "Topla"
lstislemlerim.AddItem "Çarp"
lstislemlerim.AddItem "Çıkart"
lstislemlerim.AddItem "Böl"
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmhesap.Enabled = True
frmhesap.Visible = True
End Sub
Private Sub lstislemlerim_Click()
txtsonuc.Visible = True
txtsonuc.Visible = True
a = lstislemlerim.ListIndex
If a = 0 Then
txtsonuc = CDbl(txtsayı1.Text) + CDbl(txtsayı2.Text)
End If
If a = 1 Then
txtsonuc = CDbl(txtsayı1.Text) * CDbl(txtsayı2.Text)
End If
If a = 2 Then
txtsonuc = CDbl(txtsayı1.Text) - CDbl(txtsayı2.Text)
End If
If a = 3 Then
txtsonuc = CDbl(txtsayı1.Text) / CDbl(txtsayı2.Text)
End If
End Sub


Private Sub txtsayı1_Change()

If txtsayı1.Text = "" Then
kilit.Enabled = False
Else
kilit.Enabled = True
End If
End Sub
Private Sub txtsayı1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 190 Then
MsgBox ("Nokta yerine (.) Virgül (,) kullanın")
End If
End Sub
Private Sub txtsayı1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lstislemlerim.Selected(lstislemlerim.ListIndex) = False
End Sub
Private Sub txtsayı2_Change()
If txtsayı2.Text = "" Then
lstislemlerim.Enabled = False
Else
lstislemlerim.Enabled = True
End If
End Sub
Private Sub txtsayı2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 190 Then
MsgBox ("Nokta yerine (.) Virgül (,) kullanın")
End If
End Sub

Private Sub txtsayı2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lstislemlerim.Selected(lstislemlerim.ListIndex) = False
End Sub



Private Sub txtsonuc_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lstislemlerim.Selected(lstislemlerim.ListIndex) = False
End Sub

Private Sub cmdtemizle_Click()
lstislemlerim.Selected(lstislemlerim.ListIndex) = False
txtsayı1.Text = ""
txtsayı2.Text = ""
txtsonuc.Text = ""
txtsayı1.SetFocus
End Sub

Ben mi? Ben kullanmıyorum

Arkadaşlar Motorola SB5100 SurfBoard satılıktır. Piyasa değeri 90-100$ olup bende ve donanimmerkezi.com üyelerine 50$'dır. 18 Ay garantisi olmak ile birlikte Tüm aparat ve sarf malzemeleri mevcuttur. ( Bağlantı aparatıları, RJ45 Konnektör ve Kablo, USB Arabirimi, Fatura, Garanti Belgesi...)


Not: Sadece Ankara tercihtir. Sehir dışı teslimatlarda kargo bedeli olarak 2.750.000 TL. Alınacaktır.

Teşekkürler..

MS Blaster solucanı :
Windows NT tabanlı işletim sistemleri olan NT4.0/2000/XP/2003 'de otomatik güncelleme özelliğinden oluşan güvenlik açığı aracılığı ile sisteminize giren solucan yüzünden internet bağlantısı tespit edildiği anda 60 saniye geri sayım yaparak sisteminizi kapatıyor. Bu ileti ile karşılaşırsanız internet bağlantınızı kapatın,Bilgisayarım'a sağ tıklayıp özelliklerin girin ve otomatik güncellemeyi kapatın. Yamaları çekmek ve kurmak için 60sn yetmeyebilir. İkaz çıktıktan sonra Başlat'ı açın ve Çalıştır'a tıklayın. Shutdown -a yazdığınızda 60sn içinde kapanmayacaktır. İmkanınız yoksa bir arkadaşınızdan yada internet kafe'den internete girerek belirteceğim yama ve temizleme araçlarını indirin. Sisteminizi açın ve sistem bilgilerinizin gösterildiği ekrandan itibaren F8'e basın. Karşınıza çıkan seçeneklerden Güvenli Kip'i (Safe Mode) seçin ve sisteminiz açıldığında öncelikle Microsoft'un çıkarttığı MS Blaster solucan temizleme aracını açın. Gerekli temizliği yapacaktır. Bundan hemen sonra Microsoft'un NT tabanlı işletim sistemleri için güvenlik açığı yamasını kurun. Sisteminizi yeniden başlatıp, internet bağlantınızı kurarak normal olarak işletim sistemine giriş yapabilirsiniz.

Gerekli araç ve yamalar:
İngilizce Windows 2000/XP MS Blaster temizleme aracı
Türkçe Windows 2000/XP MS Blaster temizleme aracı

İngilizce Windows Server 2003 32bit Blaster güvenlik yaması
Türkçe Windows Server 2003 32bit Blaster güvenlik yaması
İngilizce Windows Server 2003 64bit Blaster güvenlik yaması
İngilizce Windows XP 32bit Blaster güvenlik yaması
Türkçe Windows XP 32bit Blaster güvenlik yaması
İngilizce Windows XP 64bit Blaster güvenlik yaması
İngilizce Windows 2000 Blaster güvenlik yaması
Türkçe Windows 2000 Blaster güvenlik yaması
İngilizce Windows NT 4.0 Blaster güvenlik yaması
İngilizce Windows Terminal Server NT 4.0 Blaster güvenlik yaması