Jumat, 21 Juni 2013

Cara Mengganti Huruf pada Partisi HardDisk

Mengganti huruf partisi, Misal Disk(E:) di ganti Hurufnya menjadi Disk(D:) , Atau huruf lainya, asal tidak sama dengan huruf di partisi lain...

1. Start - pada Search ketik "Computer Management" , tanpa tanda petik - klik Enter
2. Klik Computer Management (Local) - klik "Storage" - klik lagi "Disk Management (Local)"
3. Cari partisi yang inggin di ubah Huruf-nya (di kotak2 bawah warna biru)- Klik kanan, Misal pada Disk (E:) 
4. Lalu pilih "Change Drive Latter and Paths..."
5. Dan akan keluar Kotak Dialog "Change Drive Latter and Paths'' - Pilih :E - Klik Change
6. Akan terbuka lagi Kotak Dialog  "Change Drive Latter or Paths" 
7. Di sebelah kanan Dialog, Pilih Huruf yang di Kehendaki - Dan Klik OK
8. Buka My Computer, Maka Huruf di partisi sobat sudah berubah

Semoga Bermanfaat

Rabu, 19 Juni 2013

Memasukan Berbagai File di Resource VB.net

Langkah Memasukan File Resources

1. Buka VB.NET, Buat Project baru

2. Pada Solution Explorer, Letak (pojok kanan atas)

3. Double Klik My Project

4. Klik/Pilih TAB Resources

5. Pilih kategori yang diinginkan (Strings, Images, Icons, Audio, Files, Other)

6. Klik Add Resource untuk membuat resource sendiri
   dan Klik tanda panah di Add Resource, Pilih Add Existing File, Untuk menambah Resource dari          File/Folder Lain

Mengganti Nama pada Aplikasi yang terbuka

Kali ini saya akan posting sedikit kode jail dengan VB.net, Kode ini berfungsi mengganti nama Semua File yang terbuka pada komputer sobat, dengan nama yang sudah di tentukan...

Asset : Timer

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Integer, ByVal wCmd As Integer) As IntegerPrivate Declare Function GetDesktopWindow Lib "user32" () As IntegerPrivate Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String) As Integer
 Dim i As Integer


'ketik pada tombol atau timer
        i = GetWindow(GetDesktopWindow(), 5)
        Do While i <> 0
        SetWindowText(i, "TULIS NAMA DI SINI")
        i = GetWindow(i, 2)
        Loop


Sumber : PutraVB

Mengetahui Ukuran Suatu File

Asset : 4 Button


'KETIK PADA MASING2 TOMBOL UNTUK MENCOBA


'Cek ukuran file dengan satuan Byte
 Dim l As Long
 l = FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\FLV VIDEO.flv")
 MsgBox(l)


'Cek ukuran file dengan satuan Kilo Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\SWF VIDEO.swf") / 1024))
 MsgBox(l & " KB")


'Cek ukuran file dengan satuan Mega Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\WMV VIDEO.wmv") / 1024) / 1024)
 MsgBox(l & " MB")


'Cek ukuran file dengan satuan Giga Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\SWR\OFFICE_PRG_SOFTWARE\OFFICE 2010.rar") / 1024) / 1024 / 1024)
 MsgBox(l & " GB")

Meload File Text tanpa membuka Aplikasi

Fungsi ini sangat penting untuk membuat aplikasi pada VB.net.
Yaitu dimana saat Sobat, misalkan membuat Aplikasi Notepad, Sobat tidak perlu membuka Aplikasi Notepad Sobat dan Klik Open File untuk membaca File Text.
Cukup dengan Klik 2x atau Double Klik pada file Text, Dan otomatis Aplikasi Notepad sobat akan terbuka dan membaca File text yang sobat Klik tadi...mudah-mudahan sobat gak pusing...he..he


Asset : 2 TextBox

'Masukan Kode di bawah di Form Load
      
Try

            If Microsoft.VisualBasic.Command <> "" Then

Membuat BackColor Gradient pada Form

Asset : Form & Module

'Buat modul baru, Dan isikan kode di bawah ini
Dim a As New System.Drawing.Drawing2D.LinearGradientBrush(New RectangleF(0, 0, Frm.Width, Frm.Height), StartColor, EndColor, Mode)
        Dim g As Graphics = Frm.CreateGraphics
        g.FillRectangle(a, New RectangleF(0, 0, Frm.Width, Frm.Height))
        g.Dispose()


'Ketik di form resize atau tombol juga bisa
GradientForm(Me, Color.Red, Color.Blue, 0)

'Ketik di area kosong pada Form
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        GradientForm(Me, Color.Red, Color.Blue, 0)
    End Sub

Ket : Modul berfungsi untuk membuat warna Bacground dan mengatur bentuk Gradient
        Form ReSize, Menentukan warna yang akan di buat dan mengatur ukuran Gradient sesuai skala pada    Form
        Fungsi kode terakhir, yaitu untuk menentukan warna yang akan dijadikan BackColor pada form (bisa di ganti)

Form Berlatar Gambar Background

Mungkin judul di atas cukup membingungkan sobat, Judul di atas maksudnya adalah Latarbelakang atau Background image Form aplikasi sobat akan sama dengan Wallpaper yang sobat pasang di komputer sobat.
Kalau masih pusing , Langsung di coba aja biar ngerti..he..he

Asset : Form

'Tempatkan kode berikut di atas Form Class
Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Integer) As IntegerPrivate Declare Function GetDC Lib "user32" (ByVal hwnd As Integer) As Integer

'Masukan kode di bawah di Timer
PaintDesktop(GetDC(Me.Handle.ToInt32))

Sekarang coba RUN aplikasi sobat , Gimana..Udah ngerti-kan

 Sumber : PutraVB

Drag Drop File Text ke TextBox

Fungsi code ini yaitu, Membaca isi File TXT ke TextBox dengan cara Drag Drop

Asset : 1 TextBox

'Masukan kode ini di Form

Private _DraggingFileName As String

'Masukan Kode ini di TextBox dengan Event DragDrop
 Me.TextBox1.Text = My.Computer.FileSystem.ReadAllText(_DraggingFileName)

'Masukan Kode ini di TextBox dengan Event DragLeave
 _DraggingFileName = String.Empty

MenDisable atau Mematikan Fungsi Key Alt + F4

Fungsi dari kode di bawah adalah, Supaya aplikasi yang sobat buat tidak bisa dimatikan memakai Fungsi tombol Alt + F4.
Fungsi bisa di rubah sesuai keinginan sobat

Aseet : Form

'Masukan kode berikut ke dalam Form (bukan form load)
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        If keyData = (Keys.Alt Or Keys.F4) Then
            Return True
        Else
            Return MyBase.ProcessCmdKey(msg, keyData)
        End If
    End Function


Sekarang RUN aplikasi sobat, Lalu tekan Alt + F4 , Fungsi ini berhasil Jika aplikasi tidak tertutup

Copy File VB.net

Menyalin/MengCopy file dalam satu folder ke folder lain :

Asset : 1 Button

'Masukan code di bawah ini ke Button1
Dim Fs, Fd As String
        Fs = "C:\Users\user\Desktop\FolderA"
        Fd = "D:\FolderB"
        My.Computer.FileSystem.CopyDirectory(Fs, Fd, False)


Ket : Fs : Adalah lokasi dimana tempat/lokasi folder yang ingin di Copy (FolderA)
               File2 di dalam folderA, akan di Copy ke Fd : yaitu di Drive D (FolderB)

Menghapus URL/Situs

Bila sobat ingin menghapus Halaman/Situs yang tidak di sukai pada komputer Sobat,
Mungkin karena situs tersebut berbau Porno atau mengandung unsur SARA, Jadi layak di bersihkan...
Pembersihan/Penghapusan ini tidak menyeluruh, Artinya jika sobat memakai komputer dengan
Jaringan yang berbeda, Halaman tersebut masih bisa di Akses.
Untuk menghapus Situs, Sobat bisa klik link di bawah ini :

https://www.google.com/webmasters/tools/removals










0. Syarat, sobat harus punya Akun Google dulu
1. Klik Create a new  removal request
2. Isikan pada kolom, Situs yang ingin di hapus
3. Klik Continue
4. Masukan situsnya kembali/ pilih URL halamanya
5. Klik Removal


Sekian Terimakasih, Semoga Bermanfaat

Selasa, 18 Juni 2013

CAP Manifest File

Untuk membuat Visual Styles pada Visual Basic 6.0
Supaya Sesuai dengan Visual Styles yang ada pada Komputer
 
   
     1. Pada VB6.0, Pilih menu Project - Properties (paling bawah)
     2. Pilih TAB Make, Pada Version Information - Type
     3. Cari File Description dan isikan selera anda (Misal FD)
     4. Pada Type cari Product Name dan isikan       (Misal PN)
     5. Lalu Ok
                                                      
     >> Pada Aplikasi CAP Manifest File :
      - Isikan PN pada Kolom Product Name"
      - Dan Isikan FD pada Kolom File Description
      - Lalu Save, Dan Nama sesuai nama Aplikasi anda
      - Dan letakan/simpan di satu folder dengan Aplikasi anda

ScreenShot :











Download di sini

CAP Gif Viewer

Aplikasi saya yang satu ini berfungsi untuk menjalankan file yang berExtension (*.gif), Atau file Animasi
Aplikasi ini di khususkan untuk win Vista n Seven karena ke 2 OS tersebut tidak bisa menjalankan File Gif dengan baik,
Alias gambarnya diam tidak bergerak.
Mungkin bisa file Gif di jalankan di OS tersebut, Tapi menggunakan Internet Explorer, Kalau komputernya Cepet tidak apa2, Tapi kalau lambat, Membuka satu file Gif akan makan waktu.
Aplikasi ini hanya berukuran 51 KB , Sangat kecil sekali, Jadi saat meload File juga Cepat.
Tidak usah menginstal, Karena file-nya cuma satu.

Download di sini

Cara Penggunaan :

Jumat, 14 Juni 2013

SERIAL NUMBER WINDOWS SEVEN

Windows 7 Ultimate x86/x64

FJGCP-4DFJD-GJY49-VJBQ7-HYRR2 (ACER/GATEWAY/PACKARD BELL)
2Y4WT-DHTBF-Q6MMK-KYK6X-VKM6G (ASUS)
342DG-6YJR8-X92GV-V7DCV-P4K27 (DELL)
22TKD-F8XX6-YG69F-9M66D-PMJBM (IBM-LENOVO / OLD)
6K2KY-BFH24-PJW6W-9GK29-TMPWP (IBM-LENOVO / NEW)
49PB6-6BJ6Y-KHGCQ-7DDY6-TF7CD (SAMSUNG)
VQ3PY-VRX6D-CBG4J-8C6R2-TCVBD (Alienware)


Windows 7 Professional x86/x64