Berikut ini adalah Fungsi untuk Mendapatkan Posisi direktory system Windows :
--- Letakkan di module Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) As Long '--- Akhir Letakkan di module
12 March 2009 ,
Webmaster , Category :
Pemrograman VB
Berikut ini adalah fungsi untuk mendapatkan Computer Name / Nama Komputer
Public Function GetMyComputerName() As String Dim Bufstr$, sComputerName$ Bufstr = Space$(50) If GetComputerName(Bufstr, 50) > 0 Then sComputerName = Bufstr sComputerName = RTrim(sComputerName) sComputerName = StrStripTerminator(sComputerName)
12 March 2009 ,
Webmaster , Category :
Pemrograman VB
Yang namanya Virus bisa datang kapan pun terutama pada ssat Komputer kita terhubung dengan media eksternal. Salah satu ancamannya adalah menyembunyikan menu RUN. Bagi orang awam, tentu saja ini bisa membuat panik. Kalau sudah tidak bisa diatasi sendiri, pasti bertanya bagaimana mengembalikan menu RUN yang hilang.
Berikut ini adalah Cara Pintas menggunakan Keyboard bagi Pengguna OS Windows :
General Shortcut * CTRL + C (Copy) * CTRL + X (Potong) * CTRL + V (Tempel) * CTRL + Z (Batal) * DELETE (Hapus) * SHIFT + DELETE (Menghapus item yang dipilih secara permanen tanpa meletakkan item dalam Recycle Bin) * CTRL sambil menyeret item (Menyalin item yang dipilih)