Tutorial Cara Bikin Task Manager Di VB 6

Langkah-langkahnya :
1. Buka VB 6
2. Bikin 2 buah Command (Kill & Refresh) Jangan tanya masangnya gimana ya?
3. Copas Code Ini di Form..... Caranya Klick Kanan => View Code

Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
'Enum the path
Private Const PROCESS_QUERY_INFORMATION As Long = &H400
Private Const PROCESS_VM_READ = &H10
Private Declare Function EnumProcessModules Lib "psapi.dll" ( _
ByVal hProcess As Long, _
ByRef lphModule As Long, _
ByVal cb As Long, _
ByRef cbNeeded As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" ( _
ByVal hProcess As Long, _
ByVal hModule As Long, _
ByVal ModuleName As String, _
ByVal nSize As Long) As Long

Public Function PathByPID(pid As Long) As String
'Fungsi ini berfungsi untuk mendapatkan informasi tentang aplikasi yang sedang
'berjalan dengan menggunakan Process ID masing-masing aplikasi
'----
'Kode ini dapat dilihat di :
'http://support.microsoft.com/default.aspx?scid=kb;en-us;187913
Dim cbNeeded As Long
Dim Modules(1 To 200) As Long
Dim ret As Long
Dim ModuleName As String
Dim nSize As Long
Dim hProcess As Long

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION _
Or PROCESS_VM_READ, 0, pid)

If hProcess <> 0 Then

ret = EnumProcessModules(hProcess, Modules(1), _
200, cbNeeded)

If ret <> 0 Then
ModuleName = Space(MAX_PATH)
nSize = 500
ret = GetModuleFileNameExA(hProcess, _
Modules(1), ModuleName, nSize)
PathByPID = Left(ModuleName, ret)
End If
End If

ret = CloseHandle(hProcess)

If PathByPID = "" Then
PathByPID = ""
End If

If Left(PathByPID, 4) = "\??\" Then
PathByPID = ""
End If


If Left(PathByPID, 12) = "\SystemRoot\" Then
PathByPID = ""
End If
End Function

Private Sub List_Process()
Dim lItem As ListItem
Dim path As String

Dim hSnapShot As Long, uProcess As PROCESSENTRY32

'Memastikan agar semua List Box dalam keadaan kosong agar tidak terjadi penumpukan /duplikasi
ListView1.ListItems.Clear

hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
'Mendapatkan informasi tentang semua proses yang sedang dijalankan
uProcess.dwSize = Len(uProcess)
r = Process32First(hSnapShot, uProcess)
'Mendapatkan informasi tentang proses yang pertama
Do While r
'perulangan selama r <> 0
Set lItem = ListView1.ListItems.Add
With lItem.ListSubItems
.Add , , Left$(uProcess.szExeFile, InStr(1, uProcess.szExeFile, Chr$(0), vbTextCompare) - 1)
.Add , , uProcess.th32ProcessID
path = PathByPID(uProcess.th32ProcessID)
.Add , , IIf(path <> "", path, "[Protected]")
End With
r = Process32Next(hSnapShot, uProcess)
'Mendapatkan informasi dari proses selanjutnya pada windows
Loop
CloseHandle hSnapShot
End Sub


Private Sub cmdMatikan_Click()
Dim processID As Long
processID = CLng(ListView1.SelectedItem.ListSubItems(2).Text)
TerminateProcess OpenProcess(PROCESS_ALL_ACCESS, 1, processID), 0
Call List_Process
End Sub

Private Sub cmdRefresh_Click()
List_Process
End Sub

Private Sub cmdTutup_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim Wellcome As String
Wellcome = MsgBox("Task Manager Sederhana By Hackedbyme")
Wellcome = MsgBox("DC Is Our Forum ^^")
List_Process
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "Om Yakin Mau keluar?", vbQuestion + vbYesNo, "Exit Ah..!!!"
If (vbNo = True) Then
Call Form_Load
End If
End Sub

4. Klick file => Make taskmanager.exe
5. Selesai

Ini Projectnya => My link

Maaf bila tutor kurang jelas..

Read more ...

Membuat Media Player Menggunakan Java

Tentunya anda pernah mendengarkan musik melalui program WinAmp, pernah kan?? Pernah dong...., Pernah ya...., please !!! Pada kesempatan ini, kita akan membuat sebuah aplikasi sangat sederhana menggunakan java, yaitu media player pemutar mp3. Kode program ini sangat tidak bagus dari segi penulisannya, saya harap anda dapat membuatnya lebih baik dari ini.

Untuk memulainya, ada baiknya anda telah memahami java lebih dari sekedar hello world, jangan seperti saya yang hanya bisa menampilkan tulisan hello world di console. Pastikan anda telah menginstal Java serta mengatur PATH & CLASSPATH-nya. Langkah berikutnya anda harus mendownload jmf & mp3plugin di http://java.sun.com. Setelah anda download, kemudian instal hingga selesai dan sukses. Berikut adalah kode program selengkapnya :

package rdp.laboratories;
import java.io.*;
import javax.swing.*;
import javax.media.*;
import java.awt.event.*;
import java.awt.*;

public class RDPMediaPlayer {
public static void main(String[] args) throws Exception {

JFrame frame = new JFrame("RDPMediaPlayer");
final JButton play = new JButton("play");
final JButton stop = new JButton("stop");
JPanel panel = new JPanel();
panel.setLayout(new FlowLayout());
panel.add(play);
panel.add(stop);
frame.setDefaultCloseOperation(frame.EXIT_ON_CLOSE);

// disesuaikan nama file mp3 anda &
// taruh di directory yang sama dengan kode program anda
File file = new File("camelia.mp3");
MediaLocator media = new MediaLocator(file.toURL());
final Player player = Manager.createPlayer(media);

play.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent e) {
player.start();
play.setEnabled(false);
}
});

stop.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent e) {
player.stop();
play.setEnabled(true);
}
});

frame.add(panel);
frame.setSize(200, 200);
frame.setVisible(true);
}
}

Kini saatnya melakukan kompilasi

C:>javac -cp “C:\Program Files\JMF2.1.1e\lib\jmf.jar” RDPMediaPlayer.java
C:>java RDPMediaPlayer

Kini anda punya media player buatan anda sendiri. Walaupun masih sangat tidak bagus dan hebat. Maklum otak saya lemah kalau untuk coding. Dalam kode program yang diatas, kita menggunakan library dari java media framework. Sebenarnya masih banyak kehebatan-kehebatan dari java media framework. Anda dapat membaca dokumentasinya, yang dapat di download dari situs java.
Kiranya cukup sekian, semoga dapat bermanfaat untuk kita semua.

Read more ...

Cara membuat AntiVirus

Sekarang kehadiran para virus maker (–selanjutnya disingkat jadi VM
saja) lokal telah membuat gerah para user komputer tanah air. Bisa
dibayangkan bila dari sekian banyak virus lokal tidak satu-dua yang
menghancurkan data (terutama bagi file office; word, excel, dll…). Bagi
para vendor Anti Virus (–selanjutnya disingkat menjadi AV saja)
fenomena ini adalah lahan bisnis untuk produk mereka. Sebut saja
NORMAN, yang kini men-support perusahaan konsultan virus lokal
(–VAKSIN.COM) , Symantec, McAffe, NOD32, dan sebagainya. Dengan
menawarkan update definisi software AV tercepat, engine scanner paling
sensitif, dan lain-lain merupakan kiat untuk memancing para korban
virus membeli dan menggunakan software AV mereka. Bagi penulis sendiri
hal ini memang agak memberatkan mengingat update file definisi atau
engine AV tsb haruslah melalui koneksi internet. Lalu bagaimana yang
tidak mempunyai akses sama sekali? Konsekuensinya iyalah tertinggal
dalam hal pengenalan varian virus baru yang pada ujung-ujungnya membuat
AV yang sudah terinstall bagai 'Macan Ompong'. Kalau kita membuat AV
sendiri bagaimana? dengan database definisi yang bisa diupdate oleh
kita bahkan dapat saling tukar dengan teman? Bisa saja, dengan syarat
mau mempelajari sedikit teknik pemograman.

Pertama kita harus mengerti bagaimana cara kerja
sebuah AV sederhana, pada dasarnya sebuah software AV mempunyai
komponen-komponen :


1. Engine scanner, ini merupakan komponen utama AV
dalam mengenali sebuah pattern virus. Engine ini dapat dikelompokkan
menjadi statis dan dinamis. Statis dalam hal ini dapat disebut menjadi
spesifik terhadap pattern tertentu dari sebuah file virus. Checksum
merupakan salah satu contoh dari engine statis ini. Dinamis dalam
artian dia mengenali perilaku 'umum' sebuah virus. Heuristic menjadi
salah satu contohnya.

2. Database definition, menjadi sebuah referensi dari sebuah pattern
file virus. Engine statis sangat bergantung kepada komponen ini.

3. Decompress atau unpacking engine, khusus untuk pengecekan file-file
yang terkompresi (*.rar, *.zip, dll) atau kompresi atau packing untuk
file PE seperti UPX, MeW , dll.

Tidak jarang hasil dari pengecekan terhadap file
suspect virus menghasilkan false-positive bahkan false-negative (–
false-positive berarti file yang bersih dianggap thread oleh AV, dan
false-negative berarti file yang 100% thread akan dianggap bersih).
Semua itu dapat diakibatkan oleh ketidak-sempurnaan dari engine scanner
itu sendiri. Misal

pada contoh kasus Engine String scanner (–Engine scanner yang
menyeleksi string-string dari file text-based), bila diterapkan rule 3
out of 5 (– bila AV menemukan 3 dari daftar 5 string kategori
malicious) maka AV akan memberikan bahwa file terindikasi sebuah thread
yang positif. Padahal file tsb nyatanya tidak menimbulkan efek
berbahaya bila dijalankan atau dieksekusi. Kesalahan scanning macam ini
lazim ditemukan untuk file-file *.VBS, *.HTML, dll. Untuk penggunaan
engine checksum sangat banyak ditemui di beberapa software AV lokal.
Checksum yang lazim digunakan diantaranya CRC16, CRC32, MD5, dll.
Dikarenakan mudah untuk diimplementasikan. Engine ini sendiri bukannya
tanpa cacat, Checksum bekerja dengan memproses byte demi byte dari
sebuah file dengan sebuah algoritma tertenu (– tergantung dari jenis
checksum yang digunakan) sehingga menghasilkan sebuah format tertentu
dari file tsb. Contoh checksum menggunakan CRC32 dan MD5 :

* calCrc = CRC32(file_name_and_path)

* calMD5 = MD5(file_name_and_path)

Maka isi dari string calCrc adalah 7AF9E376,
sedangkan untuk MD5nya adalah 529CA8050A00180790CF88B63468826A. Perlu
diketahui bila virus menerapkan rutin yang mengubah byte tertentu dari
badan virus tsb setiap kali maka penggunaan engine checksum ini akan
kurang optimal karena bila 1 byte berubah dari file maka checksum juga
akan berubah.

Mari kita belajar membuat sebuah AV sederhana, yang diperlukan :


1. Software Visual Basic 6.0

2. Sedikit pemahaman akan pemograman Visual Basic 6.0

3. Sampel file bersih atau virus (– opsional)

First#

Sekarang kita akan belajar membuat sebuah rutin sederhana untuk :

- Memilih file yang akan dicek

- Membuka file tersebut dalam mode binary

- Memproses byte demi byte untuk menghasilkan Checksum

Buka MS-Visual Basic 6.0 anda, lalu buatlah sebuah
class module dan Form dengan menambahkan sebuah objek Textbox,
CommonDialog dan Command Button. (Objek CommonDialog dapat ditambahkan
dengan memilih Project -> COmponent atau Ctrl-T dan memilih
Microsoft Common Dialog Control 6.0) Ketikkan kode berikut pada class
module (kita beri nama class module tsb clsCrc) :


================= START HERE ====================

Private crcTable(0 To 255) As Long 'crc32

Public Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long

'bArrayIn adalah array byte dari file yang dibaca, lLen adalah ukuran atau size file

Dim lCurPos As Long 'Current position untuk iterasi proses array bArrayIn

Dim lTemp As Long 'variabel temp hasil perhitungan

If lLen = 0 Then Exit Function 'keluar fungsi apabila ukuran file = 0

lTemp = lcrc Xor &HFFFFFFFF


For lCurPos = 0 To lLen

lTemp = (((lTemp And &HFFFFFF00) \\ &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))

Next lCurPos

CRC32 = lTemp Xor &HFFFFFFFF

End Function

Private Function BuildTable() As Boolean

Dim i As Long, x As Long, crc As Long


Const Limit = &HEDB88320

For i = 0 To 255

crc = i

For x = 0 To 7

If crc And 1 Then

crc = (((crc And &HFFFFFFFE) \\ 2) And &H7FFFFFFF) Xor Limit

Else


crc = ((crc And &HFFFFFFFE) \\ 2) And &H7FFFFFFF

End If

Next x

crcTable(i) = crc

Next i

End Function

Private Sub Class_Initialize()

BuildTable


End Sub

================= END HERE ====================

Lalu ketikkan kode berikut dalam event Command1_Click :

================= START HERE ====================

Dim namaFileBuka As String, HasilCrc As String

Dim CCrc As New clsCrc 'bikin objek baru dari class ClsCrc

Dim calCrc As Long

Dim tmp() As Byte 'array buat file yang dibaca

Private Sub Command1_Click()


CommonDialog1.CancelError = True 'error bila user mengklik cancel pada CommonDialog

CommonDialog1.DialogTitle = "Baca File" 'Caption commondialog

On Error GoTo erorhandle 'label error handle

CommonDialog1.ShowOpen

namafilbuka = CommonDialog1.FileName

Open namafilbuka For Binary Access Read As #1 'buka file yang dipilih dengan akses baca pada mode binary

ReDim tmp(LOF(1) - 1) As Byte 'deklarasi ulang untuk array, # Bugs Fixed #

Get #1, , tmp()

Close #1


calCrc = UBound(tmp) 'mengambil ukuran file dari array

calCrc = CCrc.CRC32(tmp, calCrc) 'hitung CRC

HasilCrc = Hex(calCrc) 'diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric

Text1.Text = HasilCrc 'tampilkan hasilnya

Exit Sub

erorhandle:

If Err.Number <> 32755 Then MsgBox Err.Description 'error number
32755 dalah bila user mengklik tombol cancel pada saat memilih file

================= END HERE ====================


COba anda jalankan program diatas dengan memencet
tombol F5, lalu klik Command1 untuk memilih dan membuka file. Maka
program akan menampilkan CRC32nya.

Second#

Kode diatas dapat kita buat menjadi sebuah rutin pengecekan file
suspect virus dengan antara membandingkan hasil CRC32nya dan database
CRC kita sendiri. Algoritmanya adalah :

- Memilih file yang akan dicek

- Membuka file tersebut dalam mode binary

- Memproses byte demi byte untuk menghasilkan Checksum

- Buka file database

- Ambil isi file baris demi baris

- Samakan Checksum hasil perhitungan dengan checksum dari file


Format file database dapat kita tentukan sendiri, misal :

- FluBurung.A=ABCDEFGH

- Diary.A=12345678

Dimana FluBurung.A adalah nama virus dan ABCDEFGH dalah Crc32nya. Jika
kita mempunyai format file seperti diatas, maka kita perlu membaca file
secara sekuensial per baris serta memisahkan antara nama virus dan
Crc32nya. Dalam hal ini yang menjadi pemisah adalah karakter '='.

Buat 1 module baru (– diberi nama module1) lalu isi dengan kode :

================= START HERE ====================

Public namaVirus As String, CrcVirus As String
'deklarasi variabel global untuk nama dan CRC virus Public pathExe as
String 'deklarasi variabel penyimpan lokasi file EXE AV kita

Public Function cariDatabase(Crc As String, namaFileDB As String) As Boolean

Dim lineStr As String, tmp() As String 'variabel penampung untuk isi file


Open namaFileDB For Input As #1 'buka file dengan mode input

Do

Line Input #1, lineStr

tmp = Split(lineStr, "=") 'pisahkan isi file bedasarkan pemisah karakter '='

namaVirus = tmp(0) 'masukkan namavirus ke variabel dari array

CrcVirus = tmp(1) 'masukkan Crcvirus ke variabel dari array

If CrcVirus = Crc Then 'bila CRC perhitungan cocok/match dengan database

cariDatabase = True 'kembalikan nilai TRUE

Exit Do 'keluar dari perulangan


End If

Loop Until EOF(1)

Close #1

End Function

================= END HERE ====================

Lalu tambahkan 1 objek baru kedalam Form, yaitu
Command button2. lalu ketikkan listing kode berikut kedalam event
Command2_Click :

================= START HERE ====================

If Len(App.Path) <= 3 Then 'bila direktori kita adalah root direktori


pathEXE = App.Path

Else

pathEXE = App.Path & "\\"

End If

CommonDialog1.CancelError = True 'error bila user mengklik cancel pada CommonDialog

CommonDialog1.DialogTitle = "Baca File" 'Caption commondialog

On Error GoTo erorhandle 'label error handle

CommonDialog1.ShowOpen


namafilbuka = CommonDialog1.FileName

Open namafilbuka For Binary Access Read As #1 'buka file yang dipilih dengan akses baca pada mode binary

ReDim tmp(LOF(1) - 1) As Byte 'deklarasi ulang untuk array # Bugs Fixed #

Get #1, , tmp()

Close #1

calCrc = UBound(tmp) 'mengambil ukuran file dari array

calCrc = CCrc.CRC32(tmp, calCrc) 'hitung CRC

HasilCrc = Hex(calCrc) 'diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric

If cariDatabase(HasilCrc, pathEXE & "DB.txt") Then 'bila fungsi bernilai TRUE


MsgBox "Virus ditemukan : " & namaVirus 'tampilkan message Box

End If

Exit Sub

erorhandle:

If Err.Number <> 32755 Then MsgBox Err.Description 'error number
32755 dalah bila user mengklik tombol cancel pada saat memilih file

================= END HERE ====================

Fitur AV sederhana ini dapat ditambahkan dengan
fitur process scanner, akses registry, real-time protection (RTP) dan
lain lain. Untuk process scanner pada dasarnya adalah teknik enumerasi
seluruh proses yang sedang berjalan pada Sistem Operasi, lalu mencari
letak atau lokasi file dan melakukan proses scanning. Fitur akses
registry memungkinkan kita untuk mengedit secara langsung registry
windows apabila akses terhadap registry (–Regedit) diblok oleh virus.
Sedangkan fitur RTP memungkinkan AV kita berjalan secara simultan
dengan windows explorer untuk mengscan direktori atau file yang sedang
kita browse atau lihat. Untuk ketiga fitur lanjutan ini akan dibahas
pada artikel selanjutnya.


Kesimpulan#

Tidak harus membeli software AV yang mahal untuk menjaga komputer kita
dari ancaman virus, kita bisa membuatnya sendiri dengan fitur-fitur
yang tak kalah bagusnya. Memang terdapat ketidaksempurnaan dalam AV
buatan sendiri ini, tetapi setidaknya dapat dijadikan pencegah dari
infeksi virus komputer yang semakin merajalela. Software AV sederhana
ini dilengkapi oleh engine scanner statis dan database definisi. Tidak
tertutup kemungkinan software AV ini ditingkatkan lebih advanced dalam
hal engine scannernya.

Read more ...

Gambar compositing: Jauhkan Kota Anda

Ini merupakan pelajaran yang mudah dan cepat tentang cara membuat komposisi yang menarik untuk topik sosial menggunakan beberapa gambar clip art.

Pertama-tama, kita perlu menemukan beberapa gambar yang tepat dari tangan, langit dan kota. Untuk tujuan ini kita dapat menggunakan Gambar Google atau cari di situs foto stok. Jadi letâ € ™ s start! Buat dokumen baru dengan ukuran 300 × 500 px dan membawa ada gambar pertama kami dari langit dalam cara yang sama seperti yang Anda lihat pada gambar dibawah. Anda dapat menggunakan gambar Anda sendiri atau hanya menggunakan tambang.

Kemudian kita menambahkan clip art kanan tangan. Juga anda dapat menggunakan clip art sendiri atau merasa bebas untuk menggunakan tambang. Cari itu seperti pada gambar saya di bawah ini:

Sekarang diperlukan untuk membuat koreksi warna untuk tangan untuk mendapatkan tampilan yang harmonis dengan warna latar belakang. Gunakan Image> Adjustments> Levels (Crrl + L) dengan pilihan berikut:

Anda dapat melihat perbedaan setelah koreksi:

Sekarang kita perlu menambahkan gambar yang tepat yang kami akan menempatkan di tangan. Buka clipart dipilih dan membawanya ke kanvas Anda. Anda dapat menggunakan clip art saya juga. Kemudian gunakan Elliptical Marquee Tool dan membuat seleksi tahap dengan Shift mendorong untuk mendapatkan pemilihan putaran yang tepat.

Kemudian tekan Ctrl + Shift + J untuk memotong bagian yang dipilih dari gambar untuk lapisan baru dan menghapus lapisan sebelumnya, itu tidak berguna sekarang. Kembali ke layer dengan bagian dipotong dari gambar dan membuatnya lebih kecil sekitar 35%.

Ok, lalu pilih isi menggunakan Select > Load Selection dan menerapkan Filter> Distort> Spherize dengan pengaturan yang serupa dengan ini:

Anda akan terlihat sebagai hasil tambang:

Hapus gambar ini bagian dengan Ctrl + D. Kemudian gunakan Sharpen Tool dan fokus ketajaman:

Setelah itu menggunakan Blending Options berikut ini untuk lapisan ini:
â € ¢ Drop Shadow
â € ¢ Inner Shadow
â € ¢ Inner Glow

Kita harus mendapatkan gambar berikut sebagai hasilnya:

Kemudian gunakan Burn Tool (Brush: 80 px, Range: Midtones, Exposure: 30%) dan menambahkan beberapa kegelapan bagian bawah lingkaran. Anda dapat melihat efek ini pada gambar di bawah ini:

Setelah penggunaan bahwa Elliptical Marquee Tool, membuat pilihan seperti yang Anda lihat pada gambar saya di bawah, membuat layer baru dan mengisinya dengan putih gradien transparan.

Sekarang, buat pilihan baru dan tekan Hapus untuk membersihkan bagian atau gambar yang dipilih.

Hapus daerah dipilih dengan Ctrl + D dan hasil Anda akan terlihat sebagai tambang:

Pada titik ini pelajaran kita selesai! Kami memiliki sangat bagus menulis, bukan? Anda juga dapat membuat lain menulis untuk topik yang berbeda. Have fun!

Read more ...

Kaca Transparan Bentuk Musik

Ini tutorial tentang cara membuat efek kaca transparan yang tidak biasa yang dapat anda gunakan dalam desain Anda.

Buat dokumen baru sekitar lebar 500 piksel dan 500 piksel tinggi dan mengisinya dengan warna apa pun, doesnâ € ™ t meter untuk saat ini.

Kemudian menerapkan style Gradient Overlay untuk layer layer ini:

Setelah itu saya ingin menambahkan gambar mikrofon yang dapat memancarkan catatan musik. Anda dapat menemukan foto yang cocok atau saham tambang digunakan. Buka gambar dan menggunakan Polygonal Lasso Tool untuk memisahkan mikrofon dari latar belakang.

Tekan Ctrl + C untuk menyalin area yang dipilih, kemudian kembali ke kanvas utama dan gunakan Ctrl + V untuk membawa bagian disalin dari gambar ke sini. Gerakkan ke kiri dan ke bawah.

Ok, sekarang menerapkan Color Overlay Tampilan Blending Option ke lapisan ini.

Lihat hasil di bawah ini:

Ok, lanjutkan tutorial berikutnya kita. Setelah itu pilih Custom Shape Tool dan menggambar bentuk selanjutnya apa yang dapat Anda lihat di screenshot saya di bawah ini. Ini adalah salah satu bentuk adat Photoshop standar.

Gunakan warna putih untuk bentuk. Kemudian tekan Ctrl + T untuk memutarnya sedikit.

Ok, setelah itu berlaku berikut gaya lapisan ke lapisan ini:
â € ¢ Drop Shadow
â € ¢ Inner Shadow
â € ¢ Outer Glow
â € ¢ Inner Glow
â € ¢ Bevel dan Emboss
â € ¢ Contour
â € ¢ Satin
â € ¢ Gradient Overlay
â € ¢ Stroke

Dan hasilnya harus berikutnya:

Kemudian pilih kontur bentuk dengan Select Load> Load Selection Pilih, setelah itu membuat layer baru di atas dan mengisi area yang dipilih dengan warna putih untuk gradien transparan.

Hapus seleksi dengan Ctrl + D dan mengubah layer mode ke Overlay.

Kita hampir selesai dengan efek ini. Tambahkan bentuk sedikit lebih ke latar belakang

Terlihat bagus, kan? Dan di sana Anda memiliki produk jadi:

Read more ...

Cara Membuat balok Laser di Tubuh Dari Photoshop

Dalam tutorial ini saya akan mengajarkan u cara membuat sinar laser yang luar biasa berdasarkan menerangi efek dan cara meletakkannya di tubuh orang.

Mulailah dengan mencari foto yang cocok untuk bekerja dengan. Untuk ini, Anda akan ingin menggunakan Foto Google atau merasa bebas untuk menggunakan gambar saya wanita muda. Buka gambar dan memulai tutorial. Saya ingin menambahkan beberapa rona biru dingin untuk gambar. Untuk ini, Anda dapat menggunakan Image> Adjustments> Levels dengan preset yang sama seperti yang Anda lihat di bawah ini:

Hasilnya harus sama dengan saya:

Ok, pindah ke langkah berikutnya. Waktu untuk menambahkan sinar pertama. Hal ini benar-benar sangat mudah. Mari saya tunjukkan. Tapi sebelum kita bisa mulai membuat balok, saya ingin untuk dicatat Anda bahwa Anda harus keluar Brush Tool sebelum dan mengatur dengan pengaturan sebagai berikut:

Juga menetapkan warna foreground ke # 00ccff. Setelah itu pilih Pen Tool (Anda perlu memastikan bahwa Anda bekerja dengan Paths bukan Shape Layers). Menarik keluar garis kurva menggunakan path. Jangan lupa bahwa tubuh wanita memiliki beberapa relief, sehingga dalam kasus ini, baris tersebut harus lega juga karena sinar dibiaskan pada tubuh dan pakaian.

Kemudian klik kanan dan pilih Stroke Path.

Sebuah kotak dialog kecil akan muncul seperti di layar. Pilih sumber daya Brush dan tekan Ok.

Selanjutnya klik kanan lagi dan pilih Delete Path. Jadi, gambar Anda menggunakan untuk melihat seperti saya:

Ok, awal yang baik! Setelah itu menerapkan gaya Outer Glow lapisan ke lapisan saat ini:

Dan hasilnya harus berikutnya:

Kemudian, pilih Eraser Tool dan sikat bulat yang lembut untuk garis yang jelas di tempat-tempat garis fraktur yang tajam.

Setelah itu keluar Smudge Tool (Strength: 100%) dan untuk sumber daya sikat memilih salah satu kuas Photoshop standar dan mengurangi dengan ukuran sampai 15 piksel.

Kemudian membuat beberapa stroke seperti pada gambar saya di bawah ini:

Ok, cari yang baik, bukan? Membuat hal yang sama dua kali lagi:

Bagus, tiga sinar laser akan cukup untuk saat ini. Kemudian pindah ke bagian kedua dari tutorial ini. Saya berpikir bahwa kita harus menambahkan menyoroti beberapa dari balok pada tubuh wanita dan pakaian. Keluar Polygonal Lasso Tool dan pilih area wajah. Setelah itu buat layer baru dan modus mengubah lapisan ke Overlay untuk lapisan ini. Kemudian pilih Brush Tool (sikat Soft sekitar 80 piksel, Opacity: 20%) dan menambahkan beberapa tempat biru menggunakan warna # 00ccff seperti pada gambar saya di bawah ini.

Sekarang, mengurangi ukuran kuas sampai 8 piksel dan garis bawah garis bibir.

Ok, kita selesai dengan area wajah. Setelah itu invert seleksi dengan Select> Inverse dan proses tangan dan daerah leher dengan cara yang sama juga.

Dan daerah yang terakhir yang kita perlu menambahkan warna biru pakaian.

Ok, sekarang menghapus pilihan dengan Ctrl + D. Jadi, pada langkah ini kita selesai dengan tutorial!

Read more ...