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ı

W32.Sasser.Worm :
Microsoft NT tabanlı işletim sistemlerinin yeni bir güvenlik açığı bulundu. Microsoft Windows LSASS (Local Security Authority Subsystem Service) kullanıcı yetki ve güvenliğinden sorumludur. Bu servisin güvenlik açığı yüzünden Sasser solucanı sisteminize girdikten sonra işletim sisteminiz güvenlik sebebi ile sisteminizi 60 saniye içerisinden kapatıyor. 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.

Gerekli yamalar ve silme araçları:

W32.Sasser.A-F.Worm silme aracı (Microsoft)
W32.Sasser.A-E.Worm silme aracı (Symantec)

Microsoft Windows 2000 için güvenlik yaması (İngilizce)
Microsoft Windows 2000 için güvenlik yaması (Türkçe)
Microsoft Windows XP 32bit için güvenlik yaması (İngilizce)
Microsoft Windows XP 32bit için güvenlik yaması (Türkçe)
Microsoft Windows XP 64bit ve Microsoft Windows Server 2003 64bit için güvenlik yaması (İngilizce)
Microsoft Windows XP 64bit SP1 için güvenlik yaması (İngilizce)
Microsoft Windows Server 2003 için güvenlik yaması (İngilizce)
Microsoft Windows Server 2003 için güvenlik yaması (Türkçe)

Windows XP CD'sine Service Pack 2 entegre etmek:

XP isminde bir klasör yaratin (örnekte C sürücüsü kullanılmış)...Yaklaşık 800MB'lık sabit disk alanının önceden bulunduguna emin olun. Bu XP klasörünün içine CD-ROOT, XP-BOOT ve XP-SP2 adında üç klasör daha oluşturun...

Windows XP CD'sinin tüm dosyalarını (veya ISO dosyasini) CD-ROOT klasörüne kopyalayın.

Service Pack 2 dosyasını C:\XP'ye kopyalayıp ismini XP-SP2.exe olarak değiştirin.

Service Pack 2 dosyasının içeriğini aşşağıdaki Çalıştır komutu ile XP-SP2 klasörüne kopyalayın.
- C:\XP\XP-SP2.EXE -U -X:C:\XP\XP-SP2

Service Pack 2'yi CD-ROOT klasörüne kopyalamak i.in aşşağıdaki Çalıştır komutunu kullanın.
- C:\XP\XP-SP2\i386\UPDATE\UPDATE.EXE -S:C:\XP\CD-ROOT

CD'yi başlatılabilir yapmak için boot dosyasını Windows XP CD'sinden çıkartmak gerekiyor. IsoBuster bunun için en iyi çözüm. Windows XP CD'sini takın ve IsoBuster'ı açın. Yan panelde Bootable CDye tıklayın ve karşınıza çıkan Microsoft Corporation.img dosyasına sağ tıklayıp Extract Microsoft Corporation.img'a basın XP-BOOT klasörünün içine açın.
Nero'da boot için bu dosyayı kullanacaksınız.

Sira Nero ile CD'yi olusturmaya geldi.Nero'yu acin ve File > New'a basın. Eger Nero Wizard baslarsa, Close Wizard'a basarak onu kapatın.

1.) CD-ROM (Boot)'u secin
2.) Boot image dosyasini burdan sececegiz...
3.) No Emulation'i secin
4.) Load segment of sectors (hex!): 07C0 olarak ayralayin
5.) Number of loaded sectors: 4 yazin.
6.) Browse'a basin ve...

File of type'dan All Files (*.*)'i secin

C:\XP\XP-BOOT klasöründeki Microsoft Corporation.img dosyasını seçin.

File-/Directory length: ISO Level 2 (Max. of 31 chars)

Format : Mode 1

Character Set: ISO 9660'i secin

Relax ISO Restrictions: üç kutuyuda işaretleyin.

ISO9660.

Volume Label: WXPVOL_EN

System Identifier: WXPVOL_EN

Volume Set: WXPVOL_EN

Publisher: MICROSOFT_CORPORATION

Data Preparer: MICROSOFT_CORPORATION

Application: WXPVOL_EN

* Windows XP Professional OEM için WXPVOL_EN olarak ayarlanan yerleri WXPOEM_EN olarak değiştirin.
* Windows XP Home OEM icin WXPVOL_EN olarak ayarlanan yerleri WXHOEM_EN olarak değiştirin.

Use the date and time from the original file'i seçin.

*Write

*Finalize CD (No further writing possible!)

*Disk-At-Once ayarlarını yapın.

C:\XP\CD-ROOT klasörünün içindekilerinin tümünü seçerek ISO compilation panel'e sürükleyin.

Write CD'ye basın.
Tekrar karşınıza çıkacak olan panelde Boot sekmesini yine kontrol edin çünkü her defasında Expert Settings kayboluyor. Buradaki ayarlar olmazsa boot edilebilir bir cd yaratamazsınız.

*Write'a basabilirsiniz.

nForce 5.10 - 2000/XP

nForce 4.27 - 98/ME

Via Hyperion 4.53 (Via, ME/NT/2000/XP için öneriyor)

Via 4in1 4.35 (Via, 9x için öneriyor)

Intel Chipset Software Utility - 98 SE, Me, 2000, Server 2003, XP Home Edition, XP Professional

Intel Application Accelerator - 98 SE, Me, 2000, Server 2003, XP Home Edition, XP Professional

nVIDIA 66.93 Forceware - 2000/XP

nVIDIA 61.76 Forceware - 9x/ME

ATI Catalyst 4.11 / Control Panel 4.11 / WDM 4.11 - 2000/XP

ATI Catalyst 4.11 / Catalyst Control Center 4.11 / Control Panel 4.11 / WDM 4.11 - 2000/XP

ATI Catalyst 4.11 - 2000/XP

ATI Catalyst Control Center 4.11 - 2000/XP (Microsoft .NET Framework 1.1 kurulu olmalı; İngilizce, Türkçe.

ATI Control Panel 4.11 - 2000/XP

ATI WDM Capture Driver 4.11 - 2000/XP (AIW kartı olanlar için sürücü içeriyor)

ATI Catalyst 4.10 / Control Panel 4.10 - 98/ME

ATI WDM Capture Driver 4.10 - 98/ME (AIW kartı olanlar için sürücü içeriyor)

Windows XP Service Pack 2 İngilizce (266mb)

Windows XP Service Pack 2 Türkçe (265mb)

DirectX 9.0c Redist - 98 SE, Me, 2000, XP Home Edition, XP Professional (Tam yükleme paketi)

DirectX 9.0b NTSC olmayan kartlar için TV Tuner Yaması - Windows 2000, Windows XP, Windows Server 2003 (Briçok NTSC-J, PAL,SECAM Tv kartı için)

Logitech MouseWare 9.79 - XP, ME, 2000, NT, 98 (Logitech Mx 300/500 mouselarınızı 2000/XP'de 800DPI kullanmak için bu konuyu okuyunuz).

Logitech MouseWare 9.80 (Mx510 için) - XP, ME, 2000, NT, 98

Logitech Gaming Software 4.40 - 98/ME/2000/XP/2003 (Gamepad ve Joystick sürücüleri)

Avermedia TV Studio 5.0.3.4 - XP, ME, 2000, NT, 98

Realtek AC'97 Ses yongası A3.64 - XP, ME, 2000, NT, 98Gold, 98SE, (Realtek, gelişmiş özelliklerin etkin olması için 98 işletim sisteminde en düşük DirectX 8 olmasını şart koşmuş)

Plantronics DSP PerSono 2.4.200 - 98SE/ME/2000/XP

Plantronics DSP PerSono Yazılımı için gerekli ek dosyalar - 98SE/ME/2000/XP (2.4.200 sürümünü yüklerken gerekli olacak INF paketi)

Plantronics DSP Firmware Güncellemesi - 98SE/ME/2000/XP (Windows XP'de DSP kullanıcılarının ses kontrol sorunlarını düzelten donanımsal güncelleme)