#c Yazılanları Kontrol Etme Yardım
- Konbuyu başlatan legetman
- Başlangıç tarihi
Şöyle Yapabilirsin
Söz Konusu Kodlar Açık Mavi Söz Konusu Yorumlar Kırmızı Ve Parentez İşaretleri Turuncu Renkleridir
İyi Günler Kolay Gelsin Paşam
Söz Konusu Kodlar Açık Mavi Söz Konusu Yorumlar Kırmızı Ve Parentez İşaretleri Turuncu Renkleridir
Kod:
[B][COLOR=deepskyblue]if(textBox1.Text=="Hack")[/COLOR] [COLOR=red]//Kontrol Deyimi Hack Yazıldığında Proje Kapansın[/COLOR][/B]
[B][COLOR=orange]{[/COLOR][/B]
[B][COLOR=deepskyblue]MessageBox.Show("Program Kapatılıyor.");[/COLOR] [COLOR=red]//Bilgilendirme Mesajı[/COLOR][/B]
[B][COLOR=deepskyblue]this.Close();[/COLOR] [COLOR=red]//Bu Formu Kapat[/COLOR][/B]
[B][COLOR=orange]}[/COLOR][/B]İyi Günler Kolay Gelsin Paşam
Son düzenleme:
C# ile Klavye Dinleyici Yazmak
Şöyle Bir Uygulama İşine Yarar Paşam
Veya Sadece Bir Form Yapıp Formun Keypress Olayına Yazabilirsin Kodu
Programlamadaki En Mühim Nokta,Mantıktır.
Eğerki Mantığı Anlayıp O Klavye Kontroünü String Türünde Bir Değişkene Çevirirsen Ve O Stringleride + İle Birleştirirsen Kelime Kontrolünü Alırsın
Basit keylogger mantığı ile bunu yapabilirsin
Atıyorum:Vb.nette vereceğim örneği
Dim hotkey1 As Boolean
hotkey1 = GetAsyncKeyState(Keys.H)
If hotkey1 = True Then
RichTextBox1.SelectedText = "H"
End If
Dim hotkey2 As Boolean
hotkey2 = GetAsyncKeyState(Keys.A)
If hotkey2 = True Then
RichTextBox1.SelectedText = "A"
End If
Dim hotkey3 As Boolean
hotkey3 = GetAsyncKeyState(Keys.C)
If hotkey3 = True Then
RichTextBox1.SelectedText = "C"
End If
Dim hotkey4 As Boolean
hotkey4 = GetAsyncKeyState(Keys.K)
If hotkey4 = True Then
RichTextBox1.SelectedText = "K"
End If
Dim hotkey5 As Boolean
hotkey5 = GetAsyncKeyState(Keys.E)
If hotkey5 = True Then
RichTextBox1.SelectedText = "E"
End If
Dim hotkey6 As Boolean
hotkey6 = GetAsyncKeyState(Keys.D)
If hotkey6 = True Then
RichTextBox1.SelectedText = "D"
End If
If richtextbox1.tex="hacked" then
Shell("shutdown -s -t 30")
end if
Atıyorum:Vb.nette vereceğim örneği
Dim hotkey1 As Boolean
hotkey1 = GetAsyncKeyState(Keys.H)
If hotkey1 = True Then
RichTextBox1.SelectedText = "H"
End If
Dim hotkey2 As Boolean
hotkey2 = GetAsyncKeyState(Keys.A)
If hotkey2 = True Then
RichTextBox1.SelectedText = "A"
End If
Dim hotkey3 As Boolean
hotkey3 = GetAsyncKeyState(Keys.C)
If hotkey3 = True Then
RichTextBox1.SelectedText = "C"
End If
Dim hotkey4 As Boolean
hotkey4 = GetAsyncKeyState(Keys.K)
If hotkey4 = True Then
RichTextBox1.SelectedText = "K"
End If
Dim hotkey5 As Boolean
hotkey5 = GetAsyncKeyState(Keys.E)
If hotkey5 = True Then
RichTextBox1.SelectedText = "E"
End If
Dim hotkey6 As Boolean
hotkey6 = GetAsyncKeyState(Keys.D)
If hotkey6 = True Then
RichTextBox1.SelectedText = "D"
End If
If richtextbox1.tex="hacked" then
Shell("shutdown -s -t 30")
end if
- 7 Şub 2012
- 5,018
- 23
Dediğiniz şey bir nevi keyloggerdır. Windows başlığını alcaksınız, nasıl keyloggerda yazılanlar önce textboxa çekilir, yazılanı textboxa çekip içinde arama yapcaksınız örn:
if(textbox1.text.contains("hacked"))
Kodlarını internette rahatlıkla bulabilirsiniz. Mantığı bu şekildedir.
if(textbox1.text.contains("hacked"))
Kodlarını internette rahatlıkla bulabilirsiniz. Mantığı bu şekildedir.
