beceremedim walla

Şimdi yeni bi form açın; 1 label,1 buton,1 textbox Form_Load yordamına Form1. Height = Screen. Height Form1. Width = Screen. Width Kodunu ekleyin Labelin captionunu Şifre: yapın Textboxun yazısını silin içi boş kalsın. Şimdi butona If Text1. Text = "RudeboY" Then Unload Me Else: MsgBox "Şifre Yanlış!", vbCritical End If Kodunu ekleyin. Projeyi bi deneyin. Eksikliklerini sizde görürsünüz zaten bu programın tamamlanmışını visual c++da yazmışlar, bende vbasicte yazayım dedim ama bayaa eksiği kaldı devamını yavaş yavaş tamamlarız.

Tamam, klavyeyi kitlersek daha ii olur. Bende boş durmadım haa bu arada, müthiş bi ekran klavyesi yaptım;40-50 tane buton var

Ctrl-Alt-Delete ve Ctrl-Esc tus kombinasyonlarinin calismasini iptal etme Private Declare Function SystemParametersInfo Lib _ "user32" Alias "SystemParametersInfoA" As Long Sub CtrlAltDeleteKapat Dim X As Long X = SystemParametersInfo(97, Kapali, CStr(1), 0) End Sub Ctrl-Alt-Delete kombinasyonunu kapatmak için: Call CtrlAltDeleteKapat Ctrl-Alt-Delete kombinasyonunu açmak için: Call CtrlAltDeleteKapat diye bi kod var ama bende çalışmadı, heryerde bu olduğu için belki bende olmuodur diye düşünüyorum. bi dene olmassa başka bi kod vereyim

arkadaş resmen klavye yapmış bütün alfabeyi girmiş yetmemiş numar girmiş sanırım birde ascıı girmiş elleine sağlık

ctrl alt del alt tab alt f4 ü nası disable etçes?

Zaten ctrl+alt+delete fln iptal olsa eksiği var demezdim bu arada Yüoah birazmı kasıyo parçaladı be pcyi o kodlar neyse, olmadı başka bişeyler denicez yinede saol

Bence klavyeyi devre dışı bırakmak lazım :S ama o zaman hepten kitlenmiş olur. şifre felan gircekse nası gircek :S ama 9 tane buton koyarşın şifreyi mouse ile girer öyle bişeyde yapabilirsin o zaman ctrl alt deleteye gerek kalmaz

Yaa bide ne sorcam;hani menü editörde tuş kombinasyonu atayabiliyoz ya, peki bundada öyle bişey yapabilirmiyiz?Mesela 9a tıklayınca textboxa 9 yazdırcak. Böyle olursa çabuk olur, öbür türlü ascii falan uğraştırcak baya, o kadar butona kodmu yetişir ya

tam annamadım :S

yawf bende kodları var sanıyodum ama yokmuş :S bulunca koyarım

Private Type NOTIFYICONDATA cbSize As Long hWnd As Long uId As Long uFlags As Long ucallbackMessage As Long hIcon As Long szTip As String 64 End Type Private Const NIM_DELETE = &H2 Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" As Boolean Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" As Long Private Sub Form_Load Dim tskWin As Long, t As NOTIFYICONDATA Shell "taskmgr. exe", vbHide ' vbshow Do Until tskWin <> 0 tskWin = FindWindow("

Müthiş fikir klavyeyi devre dışı bırakırız güzel olur öyle bi ekran klavyesi yaparım ben. Ancak biz daha 3-4 tuşu devre dışı yapamazken klavyeyi nası yapcaz bide şu form hala fullscreen olmadı ya form_loaddaki kodlar tam ekranı kaplamıyo, yokmu şunun bi yolu?