Ç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.
Uzun Lafın Kısası HAcked By Redinq* Belkı Ar-Ge Team Deyım Ama Hacker Lık Bilmiyorum Anlamına Gelmesın LtfeN;)
SİTE: http://thekingdomweb.com/tmp/index.html
Zone: http://cyber-mirror.org/wiev_mirr0r/?id=42272
AND ( & )
SİTE...
önce form a project/references ten "Microsoft Speech Object Library" eklemelisiniz!!!
Yoksa çalışmaz!!!
Sonra 1 adet text box ve bir adet command buton ekleyin
Hepsi bu Yazıları ingilizce olarak sizlere okuyuversin programınız
Kodlar....
Dim speech As SpVoice '<== SpVoice microsoft speech...
Bunun için:
2 Commandbutton:Bağlanmak ve bağlantı kesmek için
1 Label:bağlantı durumu için
5 tane Textbox:karşı ip,karşı port,veri almak,veri göndermek,verinin boyutu için
1 tane winsock ve 1 tane de timer:winsock durumu için(interval=100)
ayrıca text4’ün multiline=true olmalı
Private Sub...
API ile Disket Formatlamak API kullanarak bir diskete format atmak için aşağıdaki kodu kullanabilirsiniz.
Not: Bu kod harddiske format atabilir, bu nedenle dikkatli olmalısınız. Önce, Bu kodu bir formun General Declarations bölümüne kopyalayın:
Private Declare Function SHFormatDrive Lib...
Option Explicit
Const EyeR = 10#
Const EyeTheta = PI * 0.2
Const EyePhi = PI * 0.1
Const FocusX = 0#
Const FocusY = 0#
Const FocusZ = 0#
Dim Projector(1 To 4, 1 To 4) As Single
Dim ThePicture As objPicture
Dim TheGrid As ObjGrid3D
Dim Running As Integer
' Draw the surface...
'2 tane Command Buton var 1 tane Textbox var
'1 de timer attım oda bağlantı olup olmadığını kontrol ediyor ve
'timer internal 100 olacak
'Bu Terminaller içindir.
Dim i As Long
Dim Con As Long
Private Sub Command1_Click()
Winsock1(0).SendData Text1.Text
End Sub
Private Sub Command2_Click()...
Ülkeler arası saat
Dim a, b, c, d As Integer
Private Sub Form_Load()
Combo1.ListIndex = 0
Label3.ForeColor = vbRed
Label5.ForeColor = vbRed
a = Hour(Time)
b = Minute(Time)
c = Second(Time)
Label2.Caption = Hour(Time)
Label4.Caption = Minute(Time)
Label6.Caption = Second(Time)
End Sub
Private Sub...
Bunun için vb yi açin daha sonra projenize bir text kutusu (Text1) birde timer (Timer1) koyun.ve daha sonrada Timer1 in interval degerini (1) yapin.Ondan sonrada asagidaki kodlari projenize zimbalayin Herkese basarilar
Kod:
Private Declare Function GetForegroundWindow Lib "user32" () As Long...
Basliksiz Formu Hareket Ettirme
Option Explicit
Private Declare Function ReleaseCapture Lib \"user32\" () As Long
Private Declare Function SendMessage Lib \"user32\"Alias _
\"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const...
Dim koya, a, b, f, m, k, ka
Private Sub Command1_Click()
If (f = 0) Then
Text1.Text = " "
f = 1
End If
Text1.Text = Text1.Text + "1"
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 27) Then
End
End If
End Sub
Private Sub Command1_MouseMove(Button As Integer...
İlk Yapılacaklar :
1- Bi tane veritabanı oluşturun, adı sabit.mdb olsun.
2- Bu veritabanında bi tane tablo oluşturun adı tbl_muzikyayini olsun.
3- Bu tabloyada iki tane alan yerleştirin, biri zil_müzikler_toplanmis diğeri zil_müzikler_acilmis olsun.
4- Sonra forma; 2 list kutusu, 4 text...
Registry Veri ekleme, silme, okuma...
Bu makalemde aklımızı kullanırsak işimize çok yarayacak registry işlemlerini göreceğiniz...
Programımızda registry kodlarını kullanabilmemiz için. Kodların en üstüne (General Declaretion)
İmports Microsoft.Win32 Yazıyoruz
Registry da bildiginiz gibi 5...