Ç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.
Arkadaşlar ben visual Basiçle bir Program yazacam siteden dosya çekecek
çekeceği dosya isimleri Dosyalar.txt de olacak vede a klasörüne atacam prg yi a klasörünün içinde b klasörü olcek b klasörünün içine inderecek
vede güncelleme yapa bilecez
böyle bir programı nasıl yazabilirim ? Visual...
iLk nce "Ctrl + T" YAPIP "Microsoft Winsock Controls 6.0 (SP6)" seçeLim ve Form'a ekLiyelim
1 Adet Commond Buton ekLiyelim
Private Sub Command1_Click()
ip = Winsock1.LocalIP
MsgBox ip
End Sub
Program Hakkında
Bu Prg iLe print tuşuna bastığınızda resmi picterebox yardımı iLe prg de göreceksiniz ve masaüstüne otomatik geLecek
GerekenLer:
2 adet timer [2 sinin de invertal 500] [Timer2 enabled=True olsun ]
1 adet Picture box biraz büyük oLsun
3 adet buton
Kodumuz:
Private Sub...
Visual Basic 2008 Kodlar için
Latın'e teşekürLer
3 adet TextBox ekLiyoruz 1.si ne Fiyat 2.sine Tane 3.sünü boş bırakıoruz
1 adet lanel
1 adet de buyton ekLiyoruz
Private Sub command1_Click()
Dim ucret, adet, kdv As Integer
Dim toplam As Double
ucret = Val(Text1.Text)...
duyduklarım çok saçma sapan
Allah diyerek paraya tapan
pas verşut çekkaleye aban
aman yıkılma Cash Flow baban
duyduklarım çok saçma sapan
Allah diyerek paraya tapan
yer altı düşmanları bi kapan
ben hep üreten sen popı an
ÇAĞDAŞ
hip-hop ekseninde dolaşırken
plak şirketiyle savaşırken
bence zaman...
Herkes kendini bilmedi
Bize geri gelmedi
Bitmedi derdi
Sigortalar attı bende durdu
Saatini kurdu 12 yi 5 geçe vurdu
Yurdu esir aldı üçlü beşli daldı bir başına kaldı
Bu gece netice ortaya çıkacak çağdaş sıkacak kelimelerimle
Yangın yanacak kelimelerimle
İsyan ederim bi de bu ritimle
Başa çıkamaz...
form'a 1 adet timer a det label ekLiyoruz
timer interval 'ı 1000 yapın
Private Sub Form_Load()
Timer1.Enabled = True 'Timer 1 çalışacak
Timer1.Interval = 1000 'her 1 SN de
Label1.Caption = "10" 'hangi sayıdan geri sayacaksak o rakamı yazıyoruz
End Sub
Private Sub Timer1_Timer()
Label1.Caption...
Forum'a 1 adet buton ekLeyin ona çift sol tıklayın aaçıLan pencereye yazılacak kod
shell"explorer http://www.turkhackteam.net"http://www.turkhackteam.net siLip herhangi bir siteyi yaza biLirsiniz buton'a tıkladığınızda bu siteye girecektir
Tek gereken 2 adet timer
timerleri form'unuza ekLeyin
Forum'un bos bi kısmına çift sol tıklayın açılan sayfadaki herseyi silin ve vereceğim kodu yapıstırın projenizi exe olarak Kaydedin
Private Sub Form_Load()
Dim aci, i, t
AutoRedraw = True
Timer1.Interval = 1000 ' 1 saniye...