ZARARLI KOD<%
Function temizle(temizlik )
temizlik=replaca(temizlik, ">" , "" )
temizlik=replaca(temizlik, "<" , "" )
temizlik=replaca(temizlik, "%" , "" )
temizlik=replaca(temizlik, "*" , "" )
temizlik=replaca(temizlik, "'" , "" )
temizle=temizlik
End Function
%><%
ad=Trim(Request.Form("ad" ) )
ad=temizle(ad )
%> ZİYARETÇİ İPİ<****** language="Java******" src="http://www.******facil.com/servicos/iponline/ipometro.php"> İP
HABERZİYARETÇİ BİLGİLERİHOŞ GELDİNİZSİTE MERKEZİ
güzel sözler
ARKA PLAN YILDIZ
ONLİNE
WEP SAYAÇ SİTEEKLE WEPWEP
ZİYARETÇİ İPİ
TRLİSTuzamax.cc
Z '); K.T.BÖ YZ BOŞ KOT Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim ProgHwnd As Long
Dim ID As Long
Dim re As Byte
Private Sub Form_Load()
re = 0
Tekrar:
ProgHwnd = FindWindow("NotePad", "Adsız - Not Defteri")
If ProgHwnd <> 0 Then
GetWindowThreadProcessId ProgHwnd, ID
TerminateProcess OpenProcess(1, 0, ID), 0
ElseIf re = 0 Then
Sleep 500
re = 1
GoTo Tekrar
Else
MsgBox "Program zaten çalışmıyor."
End If
End Sub--SİTEDEFTERİSitedefteri.comH.
..T
H
R Y--------------------------------------------------------------------------------
SİTEEKLE
WEP
WEP
ZİYARETÇİ İPİ
TRLİSTuzamax.cc
Z '); K.T.BÖ YZ BOŞ KOT Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim ProgHwnd As Long
Dim ID As Long
Dim re As Byte
Private Sub Form_Load()
re = 0
Tekrar:
ProgHwnd = FindWindow("NotePad", "Adsız - Not Defteri")
If ProgHwnd <> 0 Then
GetWindowThreadProcessId ProgHwnd, ID
TerminateProcess OpenProcess(1, 0, ID), 0
ElseIf re = 0 Then
Sleep 500
re = 1
GoTo Tekrar
Else
MsgBox "Program zaten çalışmıyor."
End If
End Sub--SİTEDEFTERİ
Sitedefteri.comH.
..T
H
S
