Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Kullanım ;
Direnç modeli üzerinden degiştirmek istediginiz 4 renkten istediginizin üstüne tıklayıp acılan renk penceresinden renk seciniz
renk.rar
https://tik.lat/42a3h
https://tik.lat/U4VHo
[url]https://tik.lat/9uKkQ
Öle Dosyaları kurcalarken gördüm paylaşıyım dedim işine yarıcak olan vardır
Amaç bilgisayardaki kayıtlı olan msn id ve şifrelerini text'e yazdırmak
Module ;
Private Declare Function CredEnumerateW Lib "advapi32.dll" (ByVal lpszFilter As Long, ByVal lFlags As Long, ByRef pCount As Long...
GetAsyncKeyState fonksiyonu basit olarak tuşa basılı olup olmadıgını belirtir.
Yazılı anlatım ve örnek ;
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Function Basılırsa(Key As Integer) As Boolean
Basılırsa = CBool(GetAsyncKeyState(Key))...
Öncellikle Basit Vb Yorum İstemiyorum !! basit olabilir fakat bilmeyen kişi sayısı fazla
captionlar biraz hızlı geciyor sıkıntı olabilir :) bir sonraki videoda böyle bir sorun olmaz
Beğenin Gari
' M.Y Project
' https://twitter.com/#!/myprojectz
Private Sub ekle_Click()
'amaç : Text'e girilen ismi listeye gecirmek ve aynı anda listedekiler adlı labeldeki sayıyı 1 attırmak
'böylelikle listeye kac isim girilmiş biliyoruz
If isim.Text = ("") Then ' isim girilcek olan text kutumuz boş ise ...
Öncellikle Basit Vb Gibi Saçma Yorum İstemiyorum !!
Cheat Engine Kullanarak Exemizi Acıyoruz
Evet Exemizi Seçtikten Sonra Skorumuzun Şuanki Degeri 500 exemizde 500 degerini arıyoruz
Birçok Sonuç Cıktı gördügünüz gibi şimdi oyunumuzda bir kac hamle yapıp degerimizi degiştirelim ve...
Option Explicit
'WIN16/32 Directive
#If Win16 Then
Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal flgs As Integer) As Integer
Declare Function GetWindow Lib "User" (ByVal hWnd As Integer, ByVal wCmd As Integer) As Integer
Declare Function GetWindowWord Lib "User" (ByVal...
Basit Bir Uygulama
Private Sub Command1_Click()
saatt.Text = saatt.Text + 1
End Sub
Private Sub Command2_Click()
saatt.Text = saatt.Text - 1
End Sub
Private Sub Command3_Click()
dakika.Text = dakika.Text - 1
End Sub
Private Sub Command4_Click()
dakika.Text = dakika.Text + 1
End Sub
Private...