Berikut ini adalah kode yang digunakan untuk mengaktifkan atau menonaktifkan Num Lock, Caps Lock, dan Scroll Lock pada keyboard.

Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As Integer
Private Const kNumLock = 144
Private Const kCapsLock = 20
Private Const kScrollLock = 145

Berikut cara penggunaannya untuk Num Lock :

keybd_event kNumLock, &H45, 1 Or 0, 0
keybd_event kNumLock, &H45, 1 Or 2, 0

Untuk Caps Lock :

keybd_event kCapsLock, &H45, 1 Or 0, 0
keybd_event kCapsLock, &H45, 1 Or 2, 0

dan untuk Scroll Lock :

keybd_event kScrollLock, &H45, 1 Or 0, 0
keybd_event kScrollLock, &H45, 1 Or 2, 0

Untuk memeriksa aktif tidaknya, berikut contoh kodenya (untuk Num Lock) :

If CBool(GetKeyState(kNumLock)) = True Then
'jika aktif
Else
'jika non aktif
End If

Semoga Bermanfaat .

Suara atau suara yang akan dimasukkan harus bertype wav .. Menambahkan Suara Pada Aplikasi Visual Basic pada aplikasi yang Anda buat dalam aplikasi yang bertujuan untuk memiliki yang Anda buat akan terlihat lebih menarik. Misalnya suara akan berbunyi ketika tombol perintah diklik, atau Anda juga dapat menyisipkan kode tersebut ke dalam gambar.

Untuk proyek ini kita perlu kontrol, yaitu:
- 1 kotak teks dengan nama text1 dan text2 properti
- 2 namenya tombol perintah properti dengan standar / default tanpa perubahan apapun.
- 3 label dengan nama default properti
- Examplecontoh-contoh file suara wav untuk aplications keluar.
- Timer Mencari Google Artikel sifat nama Timer1 Interval Dan Mencari Google Artikel 100.

Masukkan kode di bawah ini di modul:

Declare Function sndPlaySound Lib "winmm.dll" Alias ​​"sndPlaySoundA" _
(LpszSoundName ByVal As String, ByVal uFlags As Long) As Long
Const SND_SYNC = & H0
Const SND_ASYNC = & H1
Const SND_NODEFAULT = & H2
Const SND_LOOP = & H8
Const SND_NOSTOP = & H10

Sub PlayWaveSoundOkExit_Click ()
soundfile $ = "audio \ rain_tag_water.wav"
wFlags% = SND_ASYNC Atau SND_NODEFAULT
HaHa = sndPlaySound (soundfile $, wFlags%)
End Sub

Sub StopTheSound_Click ()
StopTheSoundNOW = sndPlaySound (soundfile $, wFlags%)
End Sub

Sub PlayWaveSoundIntro_Click ()
soundfile $ = "audio \ a_sparrow.wav"
wFlags% = SND_ASYNC Atau SND_NODEFAULT
HaHa = sndPlaySound (soundfile $, wFlags%)
End Sub

Sub PlayWaveSoundLblTxt_Click ()
soundfile $ = "audio \ e_twigs.wav"
wFlags% = SND_ASYNC Atau SND_NODEFAULT
HaHa = sndPlaySound (soundfile $, wFlags%)
End Sub

Sub PlayWaveSoundAyam_Click ()
soundfile $ = "audio \ Ayam berkokok.wav"
wFlags% = SND_ASYNC Atau SND_NODEFAULT
HaHa = sndPlaySound (soundfile $, wFlags%)
End Sub

Nah ... untuk bagian pada Formulir Anda masukan kode seperti di bawah ini:

Private Sub Command1_Click ()
PlayWaveSoundOkExit_Click
Akhir
End Sub

Private Sub Command2_Click ()
PlayWaveSoundAyam_Click
End Sub

Private Sub Command3_Click ()
StopTheSoundNOW = sndPlaySound (soundfile $, wFlags%)
End Sub

Private Sub Command4_Click ()
PlayWaveSoundOkExit_Click
Timer1.Enabled = False
Command2.Visible = True
Command3.Visible = True
Command4.Visible = False
Command1.Visible = True
End Sub

Private Sub Form_Load ()
PlayWaveSoundIntro_Click
MsgBox "Sound Wav Intro telah berbunyi, Selanjutnya Suara Wav saat menekan Ok", vbOKOnly, "Info"
PlayWaveSoundOkExit_Click
End Sub

Private Sub Text1_Change ()
PlayWaveSoundLblTxt_Click
End Sub

Private Sub Text2_Change ()
PlayWaveSoundLblTxt_Click
End Sub

Private Sub Timer1_Timer ()
Jika Tidak Text1.Text = "" Dan Tidak Text2.Text = "" Lalu
Command4.Visible = True
Lain
Command4.Visible = False
End If
Jika Label3.ForeColor = & HFFFFFF Lalu
Label3.ForeColor = & H80000008
Lain
Label3.ForeColor = & HFFFFFF
End If
End Sub


Semoga bermanfaat .

Counterstrike adalah permainan muti-player yang Anda bisa bermain melalui Internet, untuk informasi lebih lanjut tentang hal ini, lihat http://www.counterstrike.org. Aplikasi ini memungkinkan Anda untuk terhubung ke counterstrike rcon server (rcon adalah antarmuka dilindungi password administrasi untuk server ini) dan mengirim perintah untuk itu. Untuk menggunakan demo, Anda harus mendapatkan password dari server operator counterstrike.

Source code ini saya dapatkan dari web Freevbcode.com, saya hanya mau shared kannya kembali bagi belum tahu tentang ini .
Download

Ini merupakan Sebuah mediaplayer Tujuan Wich Ringan utama adalah untuk bermain DivX (. Avi) film. Hal ini dibuat dengan menggunakan API untuk segala sesuatu kecuali slider untuk mencari dan terdengar. Ia memiliki semua fungsi normal seperti: Play, Pause, Stop, Buka, Seek. Anda dapat meningkatkan / Penurunan film dengan 25% sampai dengan 300 dan turun sampai 50% dari ukuran aslinya, Atau bermain fullscreen. Anda dapat mencari ke titik di film. Anda dapat meningkatkan / Penurunan volume dari 0-100%. Semua fungsi memiliki hotkeys kecuali mencari dan membuka. Drama hotkeys, jeda, berhenti, menambah / mengurangi volume bahkan bekerja dalam mode fullscreen.

Source code ini saya dapatkan dari web Freevbcode.com, saya hanya mau shared kannya kembali bagi belum tahu tentang ini .

               Download