THT DUYURU
"Türk Hack Team'e bağış yaparak destek olabilirsiniz.. https://www.turkhackteam.org/forum-hakkinda/1955386-turk-hack-team-e-bagis-yaparak-destek-olabilirsiniz.html
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

vb6 hakkında

et2
et2 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Mesajlar:
157
Konular:
58
Teşekkür (Etti):
3
Teşekkür (Aldı):
1
Ticaret:
(0) %
15
662
08-11-2012 20:09
#11
bekliyorum
Sizsiz1 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
09/2012
Nereden:
Win32
Mesajlar:
2.025
Konular:
151
Teşekkür (Etti):
7
Teşekkür (Aldı):
242
Ticaret:
(0) %
08-11-2012 20:11
#12
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

If GetAsyncKeyState(vbKeyA) Then Command1_Click


GetAsyncKeyState(vbKeyİSTEDİĞİNTUŞ)

Evet A Tuşuna bastık Command 1'e de şunu yazın

me.hide

böyle bir tane daha yap ama commad1 yerin 2 yaz ona göre ayarla ve commada form1.show yaz ben ayarlı olarak verebilirim yapamazsan
et2
et2 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Mesajlar:
157
Konular:
58
Teşekkür (Etti):
3
Teşekkür (Aldı):
1
Ticaret:
(0) %
08-11-2012 20:16
#13
anlamadım kardeşim .:S
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
164
Teşekkür (Aldı):
606
Ticaret:
(0) %
08-11-2012 20:17
#14
Bunu modül ekle içine koy
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Timer ekle enable true
interval 100 yap

içine
vbkeyf11 değiştirirsin
F11 basarsan gizler birdaha basarsan açılır

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF11) Then
If Me.Visible = True Then
Me.Visible = False
Else
Me.Visible = True
End If
End If
End Sub
Konu CETQ tarafından (08-11-2012 20:23 Saat 20:23 ) değiştirilmiştir.
Sizsiz1 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
09/2012
Nereden:
Win32
Mesajlar:
2.025
Konular:
151
Teşekkür (Etti):
7
Teşekkür (Aldı):
242
Ticaret:
(0) %
08-11-2012 20:21
#15
Kod:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Command1_Click()
Me.Hide
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyA) Then Command1_Click 'vbKey yazan yere A yerine istediğin 'tuşu yaz ben a yaptım aya tıklayınca gizle 
End Sub

Private Sub Timer2_Timer()
If GetAsyncKeyState(vbKeyB) Then Command2_Click'vbKey yazan yere B yerine istediğin 
'yaz ben B yazdım b ye bastımı açılır 
End Sub
Malzemeler 2 timer 2 command timerlerin intervali her ikisininde 100 olsun sonra bütün kodları sil ve üstekini yaz
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
164
Teşekkür (Aldı):
606
Ticaret:
(0) %
08-11-2012 20:22
#16

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler