Cara Membuat Antivirus Dengan Visual Basic 6

CARA MEMBUAT ANTIVIRUS DENGAN VISUAL BASIC 6

1.Buka program microsoft visual basic 6.0 -> Standard EXE -> OK maka akan tampil form baru sesuai dengan gambar di bawah,desain form sesuai keinginan anda




Beri nama form tersebut : frmUtama

2.Setelah form selesai di rubah namanya tambahkan component Mscomctl.Ocx dengan cara
Klik Project -> Components -> Microsoft Windows Common Controls 6.0 -> lalu klik OK
Contoh seperti gambar di bawah





3.Setelah component sukses di tambahkan langkah selanjutnya adalah menambah Command Button,Textbox,Listview,Picture Box
disini saya menggunakan desain yang sangat sederhana,desain bisa anda rubah sendiri sesuai kreatifitas anda ^^

- Tambahkan Listview kedalam form dan beri nama lvScan




yang saya lingkari merah adalah listview yang telah di tambahkan ke dalam form.

setelah itu setting listview dengan cara
Klik Listview -> Disebelah kanan bawah ada kotak properties -> Custom
lalu ikuti settingan seperti pada gambar di bawah ini



Lalu pada tab Column Headers klik insert column
- Column 1 beri nama : Virus Name
- Column 2 beri nama : Path
- Column 3 beri nama : Checksum Virus
- Column 4 beri nama : Status Virus
lalu klik Ok

Tambahkan picture box buat picture box itu sekecil mungkin dan beri nama sIcon
Setting :
Appearance : Flat
Auto Redraw : True
Border Style : None
Visible : False

Tambahkan Textbox ke dalam form dengan nama txtPath
Setting :
Appearance : Flat
Border Style : None

Tambahkan Command Button dengan nama cmdBrowse di samping Textbox yang telah di buat tadi
Setting :
Caption : ...

Masukan Code ini ke dalam cmdBrowse

Spoiler:
Code:
Dim Pathnya As String
Pathnya = ""
Pathnya = BrowseFolder("Pilih folder yang akan di Scan:", Me)
If Pathnya <> "" Then
txtPath.Text = Pathnya
End If

Code di atas berfungsi untuk membuka kotak dialog yang berisi path" yang ada di dalam komputer lalu mencetaknya ke dalam textbox yang bernama txtPath

Tambahkan label dengan nama default
Setting :
Caption : Dir Scanned

Tambahkan label dengan nama lblDirScan
Setting :
Caption : 0

Tambahkan label dengan nama default
Setting :
Caption : Detected

Tambahkan label dengan nama lblFileDet
Setting :
Caption : 0

Tambahkan label dengan nama default
Setting :
Caption : File Scanned

Tambahkan label dengan nama lblFileScan
Setting :
Caption : 0

Tambahkan Textbox dengan nama txtFileScan
Setting :
Multiline : True
Scroll Bar : 2-Vertical

Tambahkan Command Button dengan nama cmdScan
Setting :
Caption : &Scan

Spoiler:
'Code:
If cmdScan.Caption = "Scan" Then
Pathnya = txtPath.Text
If Mid(Pathnya, 2, 1) <> ":" Or Pathnya = "" Then
MsgBox "Direktori Tidak Ditemukan", vbCritical, "Error"
Exit Sub
Else
lvScan.Enabled = False
cmdEnable False, False, False
clear_log
cmdScan.Caption = "Stop"
StopScan = False
FindFilesEx txtPath.Text, CBool(chkSubDir.Value)
MsgBox "Scan finished !" & vbNewLine & vbNewLine & "Total Dir Scanned = " & lblDirScan.Caption & _
vbNewLine & "Total File Scanned = " & lblFileScan.Caption & vbNewLine & "Total File Detected = " & lblFileDet.Caption, vbInformation, "Finish"
If lblFileDet.Caption <> "0" Then
cmdEnable True, True, True
Else
cmdEnable False, False, True
End If
lvScan.Enabled = True
cmdScan.Caption = "Scan"
End If
Else
cmdScan.Caption = "Scan"
StopScan = True
End If

fungsi kode di atas adalah untuk memulai scan pada antivirus

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Delete

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Quarantine

Tambahkan Command Button dengan nama cmdViewQ
Setting :
Caption : &View Quarantine File

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Delete

Tambahkan kode ini di dalamnya

Spoiler:
'Code:
Dim DftrFile As String
DftrFile = GetSelected(lvScan)
If DftrFile = "" Then
MsgBox "No Detected File(s) Selected", vbCritical, ""
Exit Sub
End If
Select Case Index
Case 0
clean = Action(DftrFile, lvScan, "D")
MsgBox clean & " File(s) has been deleted"
Case 1
clean = Action(DftrFile, lvScan, "Q")
MsgBox clean & " File(s) has been quarantine"
End Select

Fungsi di atas adalah fungsi untuk menghapus/mengkarantina file yang terdeteksi

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Quarantine

Tambahkan Command Button dengan nama cmdViewQ
Setting :
Caption : &View Quarantine File

Lalu masukan code ini ke dalamnya
Spoiler:
Me.hide
frmquarantine.show

Code di atas berfungsi untuk memunculkan form quarantine dan meng enabled form utama

nah selesai untuk memasukan control ke dalam formnya
contoh form yang telah selesai.



lalu klik kanan pada form masukan kode di bawah ini

Spoiler:
/Code:
Private Sub lvScan_ItemCheck(ByVal Item As MSComctlLib.ListItem)
UnSelect lvScan, "Di Karantina"
UnSelect lvScan, "Di Hapus"
End Sub

Private Function cmdEnable(hapus As Boolean, Quarantine As Boolean, openQuarantine As Boolean)
cmdAction(0).Enabled = hapus
cmdAction(1).Enabled = Quarantine
cmdViewQ.Enabled = openQuarantine
End Function

Private Function clear_log()
lblDirScan.Caption = 0
lblFileScan.Caption = 0
lblFileDet.Caption = 0
lvScan.ListItems.Clear
jumlahDir = 0
jumlahFile = 0
jumlahVirus = 0
End Function

lalu di Form_load() masukan kode ini
Spoiler:
'Code:
On Error Resume Next
MkDir "Quarantine"
BuildDatabase

Lalu buatlah 1 module dengan nama modAPI

Lalu tambahkan code di bawah ini
Spoiler:
'Code:
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Public Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long
Public Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Public Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Public Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Public Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hDC As Long) As Long
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Public Declare Function VirtualAlloc Lib "kernel32" (lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Public Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
Public Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
Public Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Public Declare Function SetEndOfFile Lib "kernel32" (ByVal hFile As Long) As Long

Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const INVALID_HANDLE_VALUE = -1
Public Const FILE_END = 2
Public Const FILE_BEGIN = 0
Public Const FILE_CURRENT = 1
Public Const LWA_COLORKEY = &H1
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000
Public Const MAX_PATH = 260
Public Const SW_SHOWNORMAL = 1

Public Type FileTime
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FileTime
ftLastAccessTime As FileTime
ftLastWriteTime As FileTime
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

'untuk browse folder
Public Function BrowseFolder(ByVal aTitle As String, ByVal aForm As Form) As String
Dim bInfo As BROWSEINFO
Dim rtn&, pidl&, path$, pos%
Dim BrowsePath As String
bInfo.hOwner = aForm.hWnd
bInfo.lpszTitle = aTitle
bInfo.ulFlags = &H1
pidl& = SHBrowseForFolder(bInfo)
path = Space(512)
t = SHGetPathFromIDList(ByVal pidl&, ByVal path)
pos% = InStr(path$, Chr$(0))
BrowseFolder = Left(path$, pos - 1)
If Right$(Browse, 1) = "\" Then
BrowseFolder = BrowseFolder
Else
BrowseFolder = BrowseFolder + "\"
End If
If Right(BrowseFolder, 2) = "\\" Then BrowseFolder = Left(BrowseFolder, Len(BrowseFolder) - 1)
If BrowseFolder = "\" Then BrowseFolder = ""
End Function

Public Function StripNulls(ByVal OriginalStr As String) As String
If (InStr(OriginalStr, Chr$(0)) > 0) Then
OriginalStr = Left$(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
End If
StripNulls = OriginalStr
End Function

'fungsi untuk menentukan file script atau bukan
Public Function IsScript(Filename As String) As Boolean
IsScript = False
ext = Split("|vbs|vbe", "|")
For i = 1 To UBound(ext)
If LCase(Right(Filename, 3)) = LCase(ext(i)) Then IsScript = True
Next
End Function
Code di atas adalah Fungsi API yang di butuhkan untuk antivirus

Buat 1 module dengan nama modChecksum
masukan code di bawah ini.

Spoiler:
'Code:
Public Function GetChecksum(FilePath As String) As String
Dim CheckSum(1 To 2) As String
CheckSum(1) = CalcBinary(FilePath, 499, 4500)
CheckSum(2) = CalcBinary(FilePath, 499, 4000)
GetChecksum = CheckSum(1) & CheckSum(2)
End Function
Public Function CalcBinary(ByVal lpFileName As String, ByVal lpByteCount As Long, Optional ByVal StartByte As Long = 0) As String
On Error GoTo err
Dim Bin() As Byte
Dim ByteSum As Long
Dim i As Long
ReDim Bin(lpByteCount) As Byte
Open lpFileName For Binary As #1
If StartByte = 0 Then
Get #1, , Bin
Else
Get #1, StartByte, Bin
End If
Close #1
For i = 0 To lpByteCount
ByteSum = ByteSum + Bin(i) ^ 2
Next i
CalcBinary = Hex$(ByteSum)
Exit Function
err:
CalcBinary = "00"
End Function
potongan code di atas di gunakan untuk meng kalkulasi checksum

buat 1 module lagi dengan nama modDatabase
lalu tambahkan code di bawah ini.

Spoiler:
'Code:
Public VirusDB(5), IconDB(48), Bahaya(5) As String
Public Sub BuildDatabase()
Call Checksum_DB
Call IconCompare_DB
Call Script_DB
End Sub
Private Sub Checksum_DB()
VirusDB(1) = "Alman.A|8911D290F723"
VirusDB(2) = "Malingsi.A|A6292EA60230"
VirusDB(3) = "Conficker.A|9EC112ABB2F3"
VirusDB(4) = "N4B3.A|B5CCD36CDB98"
VirusDB(5) = "N4B3.B|A1FE6D6DBE07"
End Sub
Public Sub IconCompare_DB()
On Error Resume Next
IconDB(1) = "20938B2"
IconDB(2) = "19F4ED6"
IconDB(3) = "133BE0B"
IconDB(4) = "18EDEAE"
IconDB(5) = "1EF89C2"
IconDB(6) = "1C915FF"
IconDB(7) = "24563C4"
IconDB(8) = "1B2DB74"
IconDB(9) = "208EA72"
IconDB(10) = "22A064D"
IconDB(11) = "19B64EE"
IconDB(12) = "1D4B7E1"
IconDB(13) = "2087762"
IconDB(14) = "29C7258"
IconDB(15) = "1B18705"
IconDB(16) = "1B5FCAB"
IconDB(17) = "126D4CF"
IconDB(18) = "1C58E5C"
IconDB(19) = "15D7730"
IconDB(20) = "1FB82B7"
IconDB(21) = "112763E"
IconDB(22) = "2165AF9"
IconDB(23) = "25F46BE"
IconDB(24) = "206556B"
IconDB(25) = "22A8D69"
IconDB(26) = "19237F8"
IconDB(27) = "15022B4"
IconDB(28) = "1D8B4EB"
IconDB(29) = "1DBC1EA"
IconDB(30) = "2333F5D"
IconDB(31) = "1F37C2F"
IconDB(32) = "1C9CCA4"
IconDB(33) = "1DFDFB4"
IconDB(34) = "1C1283E"
IconDB(35) = "1F6598C"
IconDB(36) = "27F4C1A"
IconDB(37) = "22F92E0"
IconDB(38) = "191DBDC"
IconDB(39) = "27BFE4A"
IconDB(40) = "20E0907"
IconDB(46) = "2FA4C88"
IconDB(47) = "25AA630"
IconDB(48) = "1DE28E2"
End Sub
Public Sub Script_DB()
On Error Resume Next
Bahaya(1) = "Scripting.FileSystemObject|Wscript.ScriptFullName|WScript.Shell|.regwrite|.copy"
Bahaya(2) = "Wscript.ScriptFullName|createobject|strreverse|.regwrite"
Bahaya(3) = "createobject|Wscript.ScriptFullName|.regwrite|[autorun]"
Bahaya(4) = "createobject|Wscript.ScriptFullName|specialfolder|.regwrite"
Bahaya(5) = "chr(asc(mid(|createobject|Wscript.ScriptFullName|.GetFolder|.RegWrite"
End Sub
potongan code di atas adalah database pada antivirusnya

buat lagi 1 buah module dengan nama modQuar
masukan code yang ada di bawah ini
Spoiler:

Code:
Option Explicit
Public Function EncodeFile(SourceFile As String, DestFile As String)
Dim ByteArray() As Byte, Filenr As Integer
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Call Coder(ByteArray())
If (PathFileExists(DestFile)) <> 0 Then DeleteFile DestFile
Open DestFile For Binary As #Filenr
Put #Filenr, , ByteArray()
Close #Filenr
End Function
Public Function DecodeFile(SourceFile As String, DestFile As String)
Dim ByteArray() As Byte, Filenr As Integer
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Call DeCoder(ByteArray())
If (PathFileExists(DestFile)) <> 0 Then DeleteFile DestFile
Open DestFile For Binary As #Filenr
Put #Filenr, , ByteArray()
Close #Filenr
End Function
Private Sub Coder(ByteArray() As Byte)
Dim x As Long
Dim Value As Integer
Value = 0
For x = 0 To UBound(ByteArray)
Value = Value + ByteArray(x)
If Value > 255 Then Value = Value - 256
ByteArray(x) = Value
Next
End Sub
Private Sub DeCoder(ByteArray() As Byte)
Dim x As Long
Dim Value As Integer
Dim newValue As Integer
newValue = 0
For x = 0 To UBound(ByteArray)
Value = newValue
newValue = ByteArray(x)
Value = ByteArray(x) - Value
If Value < 0 Then Value = Value + 256 ByteArray(x) = Value Next End Sub
Code di atas adalah code untuk enkripsi/dekripsi pada virus yang akan di karantina

Buat lagi 1 module dengan nama modHeuristic
lalu masukan code di bawah ini
Spoiler:
'Code:
Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, ByRef phiconLarge As Long, ByRef phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DestroyIcon Lib "user32.dll" (ByVal hIcon As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Boolean
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExefileName As String, ByVal nIconIndex As Long) As Long
Private Const DI_MASK = &H1
Private Const DI_IMAGE = &H2
Private Const DI_NORMAL = &H3
Private Const DI_COMPAT = &H4
Private Const DI_DEFAULTSIZE = &H8
Private Const SHGFI_DISPLAYNAME = &H200
Private Const SHGFI_EXETYPE = &H2000
Private Const SHGFI_SYSICONINDEX = &H4000
Private Const SHGFI_LARGEICON = &H0
Private Const SHGFI_SMALLICON = &H1
Private Const ILD_TRANSPARENT = &H1
Private Const SHGFI_SHELLICONSIZE = &H4
Private Const SHGFI_TYPENAME = &H400
Private Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Private SIconInfo As SHFILEINFO
Private SectionHeaders() As IMAGE_SECTION_HEADER
Dim i As Integer
Dim j As Integer
Public Function CekHeuristic(Filename As String)
CekHeuristic = ""
On Error GoTo hError
Dim hFile As Long, bRW As Long
Dim DOSheader As IMAGE_DOS_HEADER
Dim NTHeaders As IMAGE_NT_HEADERS
Dim Filedata As String
DOS_HEADER_INFO = ""
NT_HEADERS_INFO = ""
hFile = CreateFile(Filename, ByVal (GENERIC_READ Or GENERIC_WRITE), FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, ByVal 0)
ReadFile hFile, DOSheader, Len(DOSheader), bRW, ByVal 0&
SetFilePointer hFile, DOSheader.e_lfanew, 0, 0
ReadFile hFile, NTHeaders, Len(NTHeaders), bRW, ByVal 0&
If NTHeaders.Signature <> IMAGE_NT_SIGNATURE Then
If IsScript(Filename) = True Then
Open Filename For Binary As #1
Filedata = Space$(LOF(1))
Get #1, , Filedata
Close #1
CekHeuristic = CekHeur(Filedata)
End If
Exit Function
End If
CekHeuristic = CekIconBinary(Filename)
hError:
End Function
Private Function CekHeur(Data As String)
Dim hsl, asl As Integer
strasli = LCase(Replace(Data, vbNewLine, "$"))
For i = 1 To UBound(Bahaya)
hsl = 0
strData = Split(Bahaya(i), "|")
asl = 0
For k = 0 To UBound(strData)
xxx = LCase(strData(k))
If InStr(strasli, xxx) > 0 Then hsl = hsl + 1
asl = asl + 1
Next
If hsl = asl Then
CekHeur = "Malicious-Script"
Exit Function
End If
Next
CekHeur = ""
End Function
Private Function CekIconBinary(PathFile As String)
Dim q As Integer
Dim IconIDNow As String
CekIconBinary = ""
IconIDNow = CalcIcon(PathFile)
If IconIDNow = "" Then Exit Function
For q = 1 To UBound(IconDB)
If IconDB(q) = IconIDNow Then
CekIconBinary = "Malicious-Icon"
Exit Function
End If
Next q
End Function
Private Function CalcBinary(ByVal lpFileName As String, ByVal lpByteCount As Long, Optional ByVal StartByte As Long = 0) As String
Dim Bin() As Byte
Dim ByteSum As Long
Dim i As Long
ReDim Bin(lpByteCount) As Byte
Open lpFileName For Binary As #1
If StartByte = 0 Then
Get #1, , Bin
Else
Get #1, StartByte, Bin
End If
Close #1
For i = 0 To lpByteCount
ByteSum = ByteSum + Bin(i) ^ 2
Next i
CalcBinary = Hex$(ByteSum)
End Function
Private Function CalcIcon(ByVal lpFileName As String) As String
Dim PicPath As String
Dim ByteSum As String
Dim IconExist As Long
Dim hIcon As Long
IconExist = ExtractIconEx(lpFileName, 0, ByVal 0&, hIcon, 1)
If IconExist <= 0 Then IconExist = ExtractIconEx(lpFileName, 0, hIcon, ByVal 0&, 1) If IconExist <= 0 Then Exit Function End If frmUtama.sIcon.BackColor = vbWhite DrawIconEx frmUtama.sIcon.hDC, 0, 0, hIcon, 0, 0, 0, 0, DI_NORMAL DestroyIcon hIcon PicPath = Environ$("windir") & "\tmp.tmp" SavePicture frmUtama.sIcon.Image, PicPath ByteSum = CalcBinary(PicPath, FileLen(PicPath)) DeleteFile PicPath CalcIcon = ByteSum End Function
Fungsi di atas adalah fungsi untuk mengecek suatu file dengan metode heuristic icon + heuristic untuk virus VBS

Buat 1 module dengan nama modIconCompare
lalu masukan code di bawah ini
Spoiler:
'Code:
Option Explicit
Private Const SHGFI_DISPLAYNAME = &H200, SHGFI_EXETYPE = &H2000, SHGFI_SYSICONINDEX = &H4000, SHGFI_LARGEICON = &H0, SHGFI_SMALLICON = &H1, SHGFI_SHELLICONSIZE = &H4, SHGFI_TYPENAME = &H400, ILD_TRANSPARENT = &H1, BASIC_SHGFI_FLAGS = SHGFI_TYPENAME Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Public Type SHFILEINFO
hIcon As Long: iIcon As Long: dwAttributes As Long: szDisplayName As String * MAX_PATH: szTypeName As String * 80
End Type
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbSizeFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function ImageList_Draw Lib "comctl32.dll" (ByVal himl As Long, ByVal i As Long, ByVal hdcDest As Long, ByVal x As Long, ByVal y As Long, ByVal flags As Long) As Long
Private shinfo As SHFILEINFO, sshinfo As SHFILEINFO
Private Declare Function DrawIconEx Lib "user32.dll" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private SIconInfo As SHFILEINFO

Public Enum IconRetrieve
ricnLarge = 32
ricnSmall = 16
End Enum

Public Sub RetrieveIcon(fName As String, DC As PictureBox, icnSize As IconRetrieve)
Dim hImgSmall, hImgLarge As Long
Debug.Print fName
Select Case icnSize
Case ricnSmall
hImgSmall = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_SMALLICON)
Call ImageList_Draw(hImgSmall, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
Case ricnLarge
hImgLarge& = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
Call ImageList_Draw(hImgLarge, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
End Select
End Sub
Public Function ExtractIcon(Filename As String, AddtoImageList As ImageList, PictureBox As PictureBox, PixelsXY As IconRetrieve, iKey As String) As Long
Dim SmallIcon As Long
Dim NewImage As ListImage
Dim IconIndex As Integer
On Error GoTo Load_New_Icon
If iKey <> "Application" And iKey <> "Shortcut" Then
ExtractIcon = AddtoImageList.ListImages(iKey).Index
Exit Function
End If
Load_New_Icon:
On Error GoTo Reset_Key
RetrieveIcon Filename, PictureBox, PixelsXY
IconIndex = AddtoImageList.ListImages.Count + 1
Set NewImage = AddtoImageList.ListImages.Add(IconIndex, iKey, PictureBox.Image)
ExtractIcon = IconIndex
Exit Function
Reset_Key:
iKey = ""
Resume
End Function
Public Sub GetLargeIcon(icPath$, pDisp As PictureBox)
Dim hImgLrg&: hImgLrg = SHGetFileInfo(icPath$, 0&, SIconInfo, Len(SIconInfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
ImageList_Draw hImgLrg, SIconInfo.iIcon, pDisp.hDC, 0, 0, ILD_TRANSPARENT
End Sub
kode di atas di butuhkan untuk metode heuristic icon pada antivirus

Buat 1 module dengan nama modLV
lalu masukan code di bawah ini
Spoiler:
'Code:
Public Function GetSelected(TheLV As ListView)
Dim Sel As String
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).Checked = True Then
Sel = Sel & "|" & TheLV.ListItems.Item(i).SubItems(1)
End If
Next
GetSelected = Sel
End Function

Public Function SelectedAll(TheLV As ListView)
For i = 1 To TheLV.ListItems.Count
TheLV.ListItems.Item(i).Checked = True
Next
End Function

Public Function SelectedNone(TheLV As ListView)
For i = 1 To TheLV.ListItems.Count
TheLV.ListItems.Item(i).Checked = False
Next
End Function

Public Function GetIndex(TheLV As ListView, Data As String) As Integer
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).SubItems(1) = Data Then
GetIndex = i
End If
Next
End Function

Public Function UnSelect(TheLV As ListView, Data As String)
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).SubItems(3) = Data Then
TheLV.ListItems.Item(i).Checked = False
End If
Next
End Function

Public Function AddDetect(TheLV As ListView, FilePath As String, VirData As String)
With TheLV
If Left(VirData, 9) <> "Malicious" Then
Set lvItm = .ListItems.Add(, , Split(VirData, "|")(0), , frmUtama.ImgSmall.ListImages(1).Index)
lvItm.SubItems(1) = FilePath
lvItm.SubItems(2) = Split(VirData, "|")(1)
lvItm.SubItems(3) = "Virus File"
Else
Set lvItm = .ListItems.Add(, , VirData, , frmUtama.ImgSmall.ListImages(1).Index)
lvItm.SubItems(1) = FilePath
lvItm.SubItems(2) = GetChecksum(FilePath)
lvItm.SubItems(3) = "Virus File"
End If
End With
End Function
Code di atas berguna untuk dengatur Listview pada saat virus terdeteksi

Buat 1 module dengan nama modPE
lalu masukan code di bawah ini
Spoiler:
'Code:
Public Type IMAGE_DOS_HEADER
e_magic As Integer
e_cblp As Integer
e_cp As Integer
e_crlc As Integer
e_cparhdr As Integer
e_minalloc As Integer
e_maxalloc As Integer
e_ss As Integer
e_sp As Integer
e_csum As Integer
e_ip As Integer
e_cs As Integer
e_lfarlc As Integer
e_ovno As Integer
e_res(1 To 4) As Integer
e_oemid As Integer
e_oeminfo As Integer
e_res2(1 To 10) As Integer
e_lfanew As Long
End Type

Public Type IMAGE_SECTION_HEADER
nameSec As String * 6
PhisicalAddress As Integer

VirtualSize As Long
VirtualAddress As Long
SizeOfRawData As Long
PointerToRawData As Long
PointerToRelocations As Long
PointerToLinenumbers As Long
NumberOfRelocations As Integer
NumberOfLinenumbers As Integer
Characteristics As Long

End Type

Public Type IMAGE_DATA_DIRECTORY
VirtualAddress As Long
size As Long
End Type

Public Type IMAGE_OPTIONAL_HEADER
Magic As Integer
MajorLinkerVersion As Byte
MinorLinkerVersion As Byte
SizeOfCode As Long
SizeOfInitializedData As Long
SizeOfUninitializedData As Long
AddressOfEntryPoint As Long
BaseOfCode As Long
BaseOfData As Long
ImageBase As Long
SectionAlignment As Long
FileAlignment As Long
MajorOperatingSystemVersion As Integer
MinorOperatingSystemVersion As Integer
MajorImageVersion As Integer
MinorImageVersion As Integer
MajorSubsystemVersion As Integer
MinorSubsystemVersion As Integer
Win32VersionValue As Long
SizeOfImage As Long
SizeOfHeaders As Long
CheckSum As Long
Subsystem As Integer
DllCharacteristics As Integer
SizeOfStackReserve As Long
SizeOfStackCommit As Long
SizeOfHeapReserve As Long
SizeOfHeapCommit As Long
LoaderFlags As Long
NumberOfRvaAndSizes As Long
DataDirectory(0 To 15) As IMAGE_DATA_DIRECTORY
End Type

Public Type IMAGE_FILE_HEADER
Machine As Integer
NumberOfSections As Integer
TimeDateStamp As Long
PointerToSymbolTable As Long
NumberOfSymbols As Long
SizeOfOptionalHeader As Integer
Characteristics As Integer
End Type

Public Type IMAGE_NT_HEADERS
Signature As Long
FileHeader As IMAGE_FILE_HEADER
OptionalHeader As IMAGE_OPTIONAL_HEADER
End Type

Public Type IMAGE_EXPORT_DIRECTORY
Characteristics As Long
TimeDateStamp As Long
MajorVersion As Integer
MinorVersion As Integer
Name As Long
Base As Long
NumberOfFunctions As Long
NumberOfNames As Long
AddressOfFunctions As Long
AddressOfNames As Long
AddressOfNameOrdinals As Long
End Type

Public Type IMAGE_IMPORT_DESCRIPTOR
OriginalFirstThunk As Long
TimeDateStamp As Long
ForwarderChain As Long
Name As Long
FirstThunk As Long
End Type

Public Type IMAGE_IMPORT_BY_NAME
Hint As Integer
Name As String * 255
End Type

Public Const IMAGE_SIZEOF_SECTION_HEADER = 40
Public Const IMAGE_DOS_SIGNATURE = &H5A4D
Public Const IMAGE_NT_SIGNATURE = &H4550
Public Const IMAGE_ORDINAL_FLAG = &H80000000

Public Enum SECTION_CHARACTERISTICS
IMAGE_SCN_LNK_NRELOC_OVFL = &H1000000 'Section contains extended relocations.
IMAGE_SCN_MEM_DISCARDABLE = &H2000000 'Section can be discarded.
IMAGE_SCN_MEM_NOT_CACHED = &H4000000 'Section is not cachable.
IMAGE_SCN_MEM_NOT_PAGED = &H8000000 'Section is not pageable.
IMAGE_SCN_MEM_SHARED = &H10000000 'Section is shareable.
IMAGE_SCN_MEM_EXECUTE = &H20000000 'Section is executable.
IMAGE_SCN_MEM_READ = &H40000000 'Section is readable.
IMAGE_SCN_MEM_WRITE = &H80000000 'Section is writeable.
End Enum

Public Enum IMAGE_DIRECTORY
IMAGE_DIRECTORY_ENTRY_EXPORT = 0 ' Export Directory
IMAGE_DIRECTORY_ENTRY_IMPORT = 1 ' Import Directory
IMAGE_DIRECTORY_ENTRY_RESOURCE = 2 ' Resource Directory
IMAGE_DIRECTORY_ENTRY_EXCEPTION = 3 ' Exception Directory
IMAGE_DIRECTORY_ENTRY_SECURITY = 4 ' Security Directory
IMAGE_DIRECTORY_ENTRY_BASERELOC = 5 ' Base Relocation Table
IMAGE_DIRECTORY_ENTRY_DEBUG = 6 ' Debug Directory
IMAGE_DIRECTORY_ENTRY_ARCHITECTURE = 7 ' Architecture Specific Data
IMAGE_DIRECTORY_ENTRY_GLOBALPTR = 8 ' RVA of GP
IMAGE_DIRECTORY_ENTRY_TLS = 9 ' TLS Directory
IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG = 10 ' Load Configuration Directory
IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT = 11 ' Bound Import Directory in headers
IMAGE_DIRECTORY_ENTRY_IAT = 12 ' Import Address Table
IMAGE_DIRECTORY_ENTRY_DELAY_IMPORT = 13 ' Delay Load Import Descriptors
IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR = 14 ' COM Runtime descriptor
End Enum
code di atas berfungsi untuk pengecekan PE HEADER

buat 1 module dengan nama modScanning
lalu tambahkan code di bawah ini
Spoiler:
'Code:
Public jumlahDir As Long, jumlahFile As Long, jumlahVirus As Long
Public StopScan As Boolean

Public Function CekVirus(FilePath As String) As String
CekVirus = ""
For i = 1 To UBound(VirusDB)
If GetChecksum(FilePath) = Split(VirusDB(i), "|")(1) Then
CekVirus = VirusDB(i)
Exit Function
End If
Next
If FileLen(FilePath) / 1024 <= 512 Then CekVirus = CekHeuristic(FilePath) End If End Function Public Sub FindFilesEx(ByVal lpFolderName As String, ByVal SubDirs As Boolean) Dim i As Long Dim hSearch As Long, WFD As WIN32_FIND_DATA Dim Result As Long, CurItem As String Dim tempDir() As String, dirCount As Long Dim RealPath As String, GetViri As String GetViri = "" dirCount = -1 ScanInfo = "Scan File" If Right$(lpFolderName, 1) = "\" Then RealPath = lpFolderName Else RealPath = lpFolderName & "\" End If hSearch = FindFirstFile(RealPath & "*", WFD) If Not hSearch = INVALID_HANDLE_VALUE Then Result = True Do While Result DoEvents If StopScan = True Then Exit Do CurItem = StripNulls(WFD.cFileName) If Not CurItem = "." And Not CurItem = ".." Then If PathIsDirectory(RealPath & CurItem) <> 0 Then
jumlahDir = jumlahDir + 1
frmUtama.lblDirScan.Caption = jumlahDir
If SubDirs = True Then
dirCount = dirCount + 1
ReDim Preserve tempDir(dirCount) As String
tempDir(dirCount) = RealPath & CurItem
End If
Else
jumlahFile = jumlahFile + 1
frmUtama.lblFileScan.Caption = jumlahFile
frmUtama.txtFileScan.Text = RealPath & CurItem
frmUtama.txtFileScan.SelStart = Len(frmUtama.txtFileScan.Text)
If WFD.nFileSizeLow > 5120 Or WFD.nFileSizeHigh > 5120 Then
GetViri = CekVirus(RealPath & CurItem)
If GetViri <> "" Then
AddDetect frmUtama.lvScan, RealPath & CurItem, GetViri
jumlahVirus = jumlahVirus + 1
frmUtama.lblFileDet.Caption = jumlahVirus
End If
End If
End If
End If
Result = FindNextFile(hSearch, WFD)
Loop
FindClose hSearch

If SubDirs = True Then
If dirCount <> -1 Then
For i = 0 To dirCount
FindFilesEx tempDir(i), True
Next i
End If
End If
End If
End Sub
Code di atas adalah code untuk scan file & folder pada antivirus

buat 1 module dengan nama modEtc
masukan code di bawah ini
Spoiler:
'Code:
Public Function Action(Data As String, TheLV As ListView, Mode As String)
Dim Filedata() As String
Dim fName, tmp, Status As String
Dim y As Integer
Filedata = Split(Data, "|")
For i = 1 To UBound(Filedata)
a = a + 1
If Mode = "Q" Then
fName = GetFileName(Filedata(i))
EncodeFile Filedata(i), AppPath & "Quarantine\" & Left$(fName, Len(fName) - Len(GetExt(Filedata(i)))) & ".avq"
AddQList TheLV, Filedata(i), Left$(fName, Len(fName) - Len(GetExt(Filedata(i)))) & ".avq"
DeleteFile Filedata(i)
Status = "Di Karantina"
ElseIf Mode = "D" Then
DeleteFile Filedata(i)
Status = "Di Hapus"
End If
y = GetIndex(TheLV, Filedata(i))
With TheLV.ListItems.Item(y)
.SubItems(3) = Status
.Checked = False
.SmallIcon = frmUtama.ImgSmall.ListImages(2).Index
End With
Next
Action = a
End Function

Public Function AddQList(TheLV As ListView, FilePath As String, Source As String)
Dim Dat As String
Dat = AppPath & "Quarantine\HN.dat"
If PathFileExists(Dat) <> 0 Then
Open Dat For Input As #1
Input #1, isi
Close #1
DeleteFile Dat
Else
isi = ""
End If
namavir = TheLV.ListItems(GetIndex(TheLV, FilePath))
If InStrRev(isi, Source, , vbTextCompare) = 0 Then
Open Dat For Output As #2
Print #2, isi & "|" & namavir & "?" & FilePath & "?" & Source
Close #2
Else
Open Dat For Output As #3
Print #3, isi
Close #3
End If
End Function

Public Function GetFileName(PathFile As String) As String
Dim i As Long
Dim DirString As Long
For i = 1 To Len(PathFile)
If Mid$(PathFile, i, 1) = "\" Then DirString = i
Next i
GetFileName = Right$(PathFile, Len(PathFile) - DirString)
End Function

Public Function GetExt(ByVal lpFileName As String)
Dim sTemp As String
Dim i As Long
sTemp = GetFileName(lpFileName)
If InStr(lpFileName, ".") Then
For i = 0 To Len(sTemp) - 1
If Mid$(sTemp, Len(sTemp) - i, 1) = "." Then
GetExt = Mid$(sTemp, Len(sTemp) - i, i)
Exit Function
End If
Next i
End If
End Function
Code di atas adalah kumpulan fungsi etc untuk scanning,karantina,delete

Ini adalah tampilan antivirus setelah di berikan module



sekarang tinggal cara membuat form quarantinenya,

caranya adalah sebagai berikut pada gambar berikut









setelah form baru sudah di buat,lalu rubah nama formnya menjadi frmQuarantine

Tambah 1 buah listview dengan nama lvQ
lalu setting listview tersebut sesuai dengan gambar di bawah ini,cara setting listview sudah tertera diatas.






Tambahkan 3 buah Command button dengan nama

- cmdDelete
- cmdRestore
- cmdRestore(1)

Tambahkan code di bawah ini ke dalam Command [ cmdDelete ]

Spoiler:
'Code:
If lvQ.ListItems.Count = 0 Then Exit Sub
Dim Data() As String
If PathFileExists(Dat) <> 0 Then
Open Dat For Input As #1
Input #1, isi
Close #1
DeleteFile Dat
Else
isi = ""
End If
Data = Split(isi, "|")
For i = 1 To UBound(Data)
namafile = lvQ.SelectedItem.SubItems(2)
If namafile <> Split(Data(i), "?")(1) Then
nyu = nyu & "|" & Data(i)
End If
Next
DeleteFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1)
Open Dat For Output As #2
Print #2, nyu
Close #2
MsgBox "Success Deleting File !!!", vbInformation, ""
UpdateQ
code di atas berfungsi untuk menghapus file yang telah di karantina

Masukan code di bawah ini ke Command [ cmdRestore ]
Spoiler:
'Code:
If lvQ.ListItems.Count = 0 Then Exit Sub
Select Case Index
Case 0
DecodeFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1), lvQ.SelectedItem.SubItems(2)
MsgBox "File Restored to " & Chr(34) & lvQ.SelectedItem.SubItems(2) & Chr(34) & " !!!", vbInformation, ""
Case 1
sTitle = "Select path:" & vbNewLine & "Select path to restore file."
ThePath = BrowseFolder(sTitle, Me)
If ThePath <> "" Then
DecodeFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1), ThePath & GetFileName(lvQ.SelectedItem.SubItems(2))
MsgBox "File Restored to " & Chr(34) & ThePath & GetFileName(lvQ.SelectedItem.SubItems(2)) & Chr(34) & " !!!", vbInformation, ""
End If
End Select
Fungsi code di atas berguna untuk me restore file kembali ke asalnya.

lalu pada Form_Load() tambahkan code di bawah ini.
Spoiler:
'Code:
frmUtama.Enabled = False
Dat = AppPath & "Quarantine\HN.dat"
UpdateQ

Masukan code di bawah ini ke dalam frmQuarantine yang telah anda buat tadi.
Spoiler:
'Code:
Dim Dat As String
Private Sub UpdateQ()
lvQ.ListItems.Clear
Dim Data() As String
If PathFileExists(Dat) = 0 Then Exit Sub
Open Dat For Input As #1
Input #1, isi
Close #1
Data = Split(isi, "|")
For i = 1 To UBound(Data)
With lvQ.ListItems.Add(, , Split(Data(i), "?")(0))
.SubItems(1) = Split(Data(i), "?")(2)
.SubItems(2) = Split(Data(i), "?")(1)
End With
Next
Me.Caption = "Quarantine (" & lvQ.ListItems.Count & ")"
End Sub
Berfungsi untuk memanggil data yang ada di folder karantina.

Hanya itu ilmu yang bisa saya bagikan. sekarang kita bukan hanya sebagai pemakai atau user sekrang kita sudah bisa mmembuat antivirus.

dan ini adalah Screenshot antivirus yang kita buat tadi saat melakukan scanning.



Note : Jika anda membaca dan mencoba dengan teliti dan seksama anda pasti berhasil.

Orang yang berhasil adalah orang yang banyak mecoba.

Untuk masalah source code anda bisa meminta kepada saya tapi dengan satu syarat, yaitu anda harus menyertakan bukti bahwa anda telah mencoba entah itu dalam bentuk screenshot atau yang lainnya.

cara membuat Toko Online Diblog

Cara Membuat Toko Online dengan Blogspot apakah bisa? tentu saja sob, jika sebelumnya saya menulis tentang Belajar Membuat Toko Online Profesional dengan WordPress itu kan masuk akal, karna wordpress yang saya bicarain wordpress berbayar atau self hosted, trus bagaimana dengan blogspot? kan blogspot gretongan alias gratis ga banyak fiturnya? nah ini dia kehebatan sebuah coding, berarti harus jago coding dong ya? kaga juga, seperti sebelumnya Belajar Membuat Toko Online Profesional dengan WordPress yang benar-benar mudah, di blogspot pun sangatlah mudah, sobat ga perlu ahli dalam pembuatan kode-kode yang membuat kepala pusing, cukup beberapa step dan semuanya selesai. apakah akan terlihat seprofesional layaknya pake wordpress (self hosted)? nah disini baru sobat membutuhkan sebuah keahlian khusus dalam mengolah suatu gambar dan komposisi tatanan grafik untuk toko online sobat, tips dari saya jangan pake bayak warna, maksimal 5 sampai 8 aja cukup dengan warna-warna yang soft agar tampilan sebuah web berkesan profesional yang pada akhirnya tidak memusingkan kepala si pengunjung untuk membeli.
Cara Membuat Toko Online dengan Blogspot
Apa yang harus sobat siapkan?
dasarnya hanya 1, yaitu email di gmail.com, yang kemudian di daftarkan di blogger.com. dan membuat sebuah blog standar yang nantinya akan di sulap menjadi sebuah toko online profesional.
setelah itu apa lagi?
Seperti kemaren pada wordpress, saya tidak bilang sobat harus pintar meracik coding seperti html, css, php dan bahasa pemograman lain, kunci utamanya hanyalah sebuah themes, kalo di blogger di sebutnya template biar pun sama aja.
kenapa template menjadi kunci utama untuk membuat toko online dengan blogspot? jawaban nya “karna kaga mau ribet!” bener kaga?
yang harus di siapin lagi tentunya material buat toko online nya sobat, seperti gambar grafik, gambar product, logo, data-data product, profile, how to order, dan lain sebagainya. pengalaman saya ini harus di siapin terlebih dahulu sebelum melangkah lebih jauh, karna kenapa? jika kita punya material yang jelas dan lengkap, akan semakin mudah dan cepat tentu saja dalam membuat toko online dengan blogspot, dan jika gambar-gambar berikut logo sudah siap jadi kita bisa nentuin apa warna dasar buat si toko online yang bakalan di kerjakan. dan kenapa materi ini begitu penting? toko online memang banyak sekarang ini, setiap hari terus saja bertambah, pertanyaan nya. bagaimana konsumen bisa percaya untuk membeli produk di toko online kita? jawabannya pasti service kita kan? tapi sebelum jauh kesana, yang mesti kita perhatikan adalah “pandangan pertama” dari si pembeli, dengan konsep menarik di balut tataan tempale yang profesional dan di iringi data-data yang lengkap, bukan mustahil toko online kita bisa di percaya sama konsumen, biarpun pake sub domain si blogspot, hhehe.. menurut saya itu gakan jadi kelemahan jika service dari toko online sobat sangat profesional. jika menurut sobat itu adalah suatu kelemahan, mulainya bermodal, minimal membeli domain dan di tanam di blogger yang artinya tanpa membeli hosting.
langsung aja ya, cekidot..
BLOGGER STORE V2

DEMO | DOWNLOAD
Cara Membuat Toko Online dengan Blogspot
Berikut fitur-fitur nya:
1.    SimpleCart.js v2.2.2, sudah menggunakan shopping cart yang tentu saja bisa mempermudah pembelian dan pembayaran. support paypal juga, jadi bisa langsung bayar lewat paypal. dan untuk mata uang (Rp) bisa di edit di dalam tempalte nya.
2.    Animated ShoppingCart , ngerti kan? ada yang unik di shopping cartnya yang berbentuk animasi.
3.    Superfish Menu, ini memberikan efect soft dari menu navigasi nya, bisa juga pake dropdown.
4.    Automatic Featured Content with jQuery Carousel Fred, ada slide otomatis untuk produk terbaru, bentuknya Carousel, asik dah.
5.    Grid and List Style post integrated with jQuery Plugin, nah yang ini yang susah di dapetin di tempalte blogger lainnya, bahkan di wordpress pun jarang. adalah grid system, theme ini udah support grid jadi product nya ngegrid atau ke samping, biasanya blog kan ke bawah. juga bisa pake list kebawah, jika sobat gak suka sama grid.
6.    Advanced Blogger Template Designer Support, sobat bisa kostum warna background dan kawan-kawan nya, juga jenis font nya.
7.    Social Bookmark Icon, untuk like jeraring sosial udah ada.
8.    Search Form, juga yang bakalan memudahkan pembeli mencari produk yang akan di beli.
9.    Ads Space, bisa meletakan iklan juga loh.
10.    Animated Sponsors Logo
11.    Pattern Background
Pertanyaan nya? bagaimana cara memposting produk nya? nah disini sebenarnya yang membedakan sama wordpress, jika di wordpress kita memakai plugin yang bakalan otomatis dengan form untuk melengkapi data produk dambar dan lain sebagai nya, di blogger ini kita harus manual di “copas” dengan struktur html yang sudah di siapkan, gampang ko sob.
nah sekian aja ya, tulisan yang membete kan ini, hhehe..
selamat mencoba, semoga berhasil untuk mengeksekusi Cara Membuat Toko Online dengan Blogspot

Cara MENGATASI Komputer CMOS CHECKSUM ERROR-DEFAULT

Cara MENGATASI Komputer CMOS CHECKSUM ERROR-DEFAULT – Anda pernah mengalami komputer muncul pesan error yang berupa CMOS CHECKSUM ERROR-DEFAULT ? Secara tidak langsung kita bisa saja menjumpai pesan error pada komputer yang seperti itu. Pesan Error pada komputer memang bermacam-macam. Sebelumnya saya telah membahas tentang pesan error sederhana dan sering muncul pada Windows, bisa kembali membaca tulisan saya disini.
Cmos Checksum Error-Default adalah pesan error yang diakibatkan karena kesalahan pada pengaturan bios pada komputer anda, bukan dari Operating System yang anda gunakan. Untuk cara mengatasi pesan tersebut, gunakan trik dibawah ini :

1. restart komputer
2. tekan tombol dellet atau F2 di tombol keyboardnya
3. setelah masuk ke pengaturan biosnya
4. kita masuk ke CMOS SETUP UTILITY AWARD SOFTWARE
5. LOAD OPTIMIZED DEFAULT
6. kemudian OK
7. kembali ke STANDARD CMOS FEATURE
8. DRIVE A harus di “NONE”

Untuk nomer 8 memang dibuat NONE karena inilah penyebab masalah munculnya pesan Komputer CMOS CHECKSUM ERROR-DEFAULT. Semoga bermanfaat dan jangan lupa untuk memberikan LIKE pada postingan ini atau meninggalkan komentar dibawah artikel agar teman anda yang mengalami masalah seperti ini bisa mengatasinya juga. Trik unik tentang Cara MENGATASI Komputer CMOS CHECKSUM ERROR-DEFAULT

Memperbaiki Motherboard yang rusak

Memperbaiki Motherboard yang Rusak (Gejalanya)

Papan induk (motherboard) adalah papan sirkuit tempat berbagai komponen elektronik saling terhubung seperti microprocessor dan memory (RAM, ROM, BIOS) beserta chip kontroler lainnya dan biasa disingkat dengan kata mobo.
Oke Langsung aza ya! gejala dan cara mengatasi motherboard yang rusak :
Mati Total
Periksa power supply: Dalam keadaan kabel power di lepas dari power supply, lepaskan socket kabel Atx1 yang terpasang pada Mainboard. Setelah terlepas, pasangkan kembali kabel power, sambungkan/shortkan kabel berwarna hijau dengan kabel berwarna hitam, periksa apakah kipas di power supply berputar? Kalau berputar berarti power supply bagus. Lepas kembali kabel sambungan tadi dan pasang kembali kabel Atx1 ke motherboard.
Periksa Jumper Clear CMOS, apakah di posisi Clear atau Free, biasanya kalau motherboard baru, posisi jumper CMOS ada pada posisi Clear.
Periksa IC Chipset dalam keadaan tersambung dan di Switch On, apakah panasnya berlebih atau tidak, over heat berarti Chipset tersebut sudah rusak. Untuk part IC CMOS sampai saat ini tidak dijual bebas.
Periksa juga apakah switch on nya berfungsi.
Bongkar Motherboard tersebut secara hati-hati, coba anda bersihkan pakai tiner, kalau bisa gunakan tiner botol jangan yang di kaleng. Setelah bersih anda keringkan.
Ganti IC regulator yang terletak disekitar soket Power Atx di motherboard.
Ganti Elko yang kapasitasnya 1000 s/d 3300 uf / 10 Volt yang terletak disekitar soket power Atx di motherboard. Hati-hati untuk bongkar pasang komponen pastikan kabel power jangan tersambung ke listrik.
Nyala Tapi Tidak Tampil
Coba anda perhatikan dan dengarkan apakah ada bunyi atau suara bip. Kalau ada, kerusakan biasanya ada di processor, memory dan VGA.
Periksa Processor, coba anda pegang pendinginnya apakah panasnya berlebih atau dingin? Kalau panas berlebih berarti kipas processor tidak bekerja dengan baik maka anda ganti, tapi kalau dingin berarti processor tidak bekerja alias rusak.
Periksa memory, biasanya kalau memory rusak terdengar suara bip pada speaker sebanyak 3 kali. Dalam keadaan mati, cabut memory bersihkan pinnya menggunakan penghapus pensil sampai bersih, kemudian pasang kembali. Kalau masih rusak berarti ada salah satu IC nya yang rusak.
Periksa VGA Card, cabut VGA Card, dalam keadaan mati / off coba anda tekan, ada kemungkinan kurang masuk atau coba anda bersihkan kaki / pin nya. Jika VGA card menggunakan kipas, bersihkan kipas tersebut.
Kalau masih tidak tampil coba anda periksa jangan-jangan monitornya yang tidak nyala, untuk memastikannya yang rusak monitor atau CPU, coba anda tekan tuts Numlock pada keyboard, apakah lampu Numlock-nya nyala atau tidak. Kalau nyala berarti kerusakan pada CPU.
Yang menjadi standar saya kalau memperbaiki Komputer, saya selalu membersihkannya dari debu, apakah itu motherboard, memory, cdrom, floppy disk, dll, karena hal tersebut sangat berpengaruh apa lagi kalau komputernya dalam keadaan kotor / lama tidak dibersihkan. Tapi anda harus hati-hati dalam pengerjaannya dan jangan terburu-buru.

Hang Dan Sering Mati / Merestart (Reset) Sendiri
Periksa Power Supply, coba pakai power supply yang lain apakah masih me-restart sendiri atau hang. Kalau setelah diganti power supply ternyata normal/ bagus, berarti power supply ada masalah. Ganti saja karena kalaupun bisa diperbaiki saya sendiri kurang yakin apakah masih bisa berfungsi dengan baik, karena power supply merupakan komponen yang sangat vital. Apalagi untuk saat ini harga power supply sanggat murah, saya sarankan ganti saja.
Periksa apakah ada virusnya, program anti virus harus selalu terpasang dan aktifkan auto protect nya. Saya biasa memakai Norton Anti virus. Anda harus sering meng-update antivirus anda karena bila ada virus varian baru, anti virus anda akan mendetect sekaligus menghilangkan virusnya.
Pada saat hang dan ada pesan blue screen seperti “eror vxd at address…”, biasanya ada masalah di memory. Bersihkan memory tersebut seperti langkah diatas.
Coba anda install ulang Windows.
Kalau masih hang / me-restart sendiri coba anda periksa di motherboard, anda perhatikan perubahan fisik komponen terutama elko/kapasitor, yang bentuknya bulat hitam ada tulisan kapasitasnya antara 1000 uf/10Volt s/d 3300 uf/10 volt, biasanya terlihat, kalau yang rusak terlihat kembung / bengkak dan mengeluarkan cairan atau karat.
CMOS Checksum Failure (Baterai Low)
Gejala kerusakan & Solusinya :
Muncul pesan CMOS failure (Kerusakan pada baterai CMOS, ganti baterai tersebut)
Seting tanggal, time dan konfigurasi lain di BIOS berubah (Setelah baterai diganti, lakukan setting ulang pada BIOS).

cara mengatasi hardisk yang rusak

 

Ada yang yang punya harddisk rusak? Jangan buru-buru membawanya ke tukang service atau bahkan dibuang. Lihat dulu tips dibawah, mungkin anda tidak akan menyesal nanti.

 

Level 1

Pada level ini bisanya disebabkan oleh Bad sector. Untuk menanganinya ada beberapa cara. Namun harus disesuaikan dengan merk harddisk dan banyaknya bad sector.

1. Untuk penangan awal bisa gunakan perintah FORMAT C:/C (sesuaikan dengan drive yang akan diformat). /C gunanya untuk mebersihkan cluster yang rusak.
2. Jika belum berhasil bisa gunakan program Disk Manager dari masing-masing pabrik pembuat Harddisk tersebut.
3. Jika masih tetep juga sobat bisa gunakan software HDDREG , silahkan nanya ke si mbah dan download programnya.
4. Jika tetep bandel coba dengan cara Low Level Format atau Zero File.
5. Terakhir, jika masih membangkang sobat bisa lakukan pemotongan sector harddisk yang rusak, dengan cara membaginya dan tidak menggunakan sector yang rusak.

Level 2

Kerusakan pada ini adalah kehilangan Partisi Harddisk dan Data . Ini bisa disebabkan oleh jailnya virus atau kesalahan menggunakan program utility. Yang perlu sobat perhatikan dalam mengembalikan Partisi harddisk yang hilang, yaitu kapasitas harddisk dan Jenis File Systemnya. Partisi dengan File System FAT lebih mudah dikembalikan dibanding NTFS atau File System Linux.

1. Cek terlebih dahulu partisi harddisk dengan menggunakan FDISK atau Disk Manager
2. Untuk mengembalikannya bisa gunakan software seperti Acronis Disk Director, Handy Recovery, Stellar Phoniex dll.

Level 3

Kerusakan yang menyebabkan harddisk terdeteksi di BIOS tetapi tidak bisa digunakan, selalu muncul pesan error pada saat komputer melakukan POST. Biasanya ini disebabkan FIRMWARE dari harddisk tersebut yang bermasalah. Untuk gejala ini biasaya banyak terjadi pada harddisk merk Maxtor dengan seri nama-nama Dewa. Untuk memperbaikinya, sobat bisa download program Firmware dari website merk harddisk tersebut.

Level 4

Kerusakan yang menyebabkan Harddisk benar tidak terdeteksi oleh BIOS dan tidak bisa digunakan lagi. Ini level yang tersulit (menurut saya). Karena untuk perbaikannya kita butuh sedikit utak atik perangkat elektronika dan komponen dalamnya. Menganggulangi harddisk yang tidak terdeteksi oleh BIOS banyak cara.

1. Mengecek arus listrik yang mengalir ke harddisk
2. Mengganti IC pada mainboard Harddisk
3. Buka Penutup Cover harddisk dan cek posisi Head harddisk
4. Cara yang extreme harddisk yang rusak bisa dikanibal dengan harddisk yang lain yang keruskan berbeda, bisa dengan cara mengganti maiboardnya atau mengambil IC nya.

cara menangani printer yang tintanya putus-putus

Cara Memperbaiki Cartridge Printer

 

 

 

 

 

 

12 Votes

Setelah Berulang-ulang kali mengelamai kerusakan carthridge, saya mencoba memperlajari kerusakan yang terjadi, dan malah menjadi tambah rusak, tapi karena tidak putus asa saya akhirnya menemukan sesuatu solusinya,dari berbagai kasus kerusakan printer, mulai berkedip akibat low ink, seakan tinta habis, padahal kondisi cartdrige penuh, kalo setelah berulang kali di coba tetap gagal, coba langkah berikut, hal ini perlu ketelitian dan sedikit kesabaran, hitung-hintung melatih kesabaran

Ingat Langkah-langkah di bawah ini hanya untuk printer canon, dan jangan lalukan kalo anda masih ragu.

1. Rendam Cartridge dengan air yang sedikit panas, kurang lebih 15 – 30 Menit
2. buka bagian atas penutup cartridge dengan cara mencongkelnya memakai alat sejenis obeng (min) yang lancip.
3. Setelah Terbuka, ana akan menemukan busa didalam cartridge, lepaskan busa secara perlahan, cuci hingga bersih, hal ini dikarenakan banyaknya tinta yang mengering hingga menyumbat bagian dari serat busa.
4. Keringkan Busa dengan tenaga matahari
5. Bersihkan juga tank (bak) cartridge dengan menggunakan tissue atau bahan kain yang lembut.
6. Setelah Semua Proses Selesai pengeringan dll, pasang lembali busa.
7. Tutup tank (bak) dengan lem perekat sejenis power glue.
8. Pada saat pengeleman yang perlu di perhatikan, jangan sampe kena contact chip atau kuningannya.
9. Setelah Semua Proses Selesai tambahkan/suntukan tinta kira-kira 30% dari tank. biarkan tinta meresap, tunggu 15 menit.
10. Sebenarnnya Beres, tapi akan lebih baik, Setting di cleaning, pada properties printer anda, lakukan berulang kali.

Begitulah  beragam kendala yang bisa terjadi pada printer karena rentan yang di sebabkan tinta printer yang membeku.

Sedikit Tips* Kerusakan printer hampir 80% karena cartridge, hal ini kebanyakan terjadi karena lalainya kita saat pengisian, penekanan udara jarum suntik pada cartrigde ternyata sangat berpengaruh untuk terjadi kerusakan pada cartgride,  sedikit pelan untuk menekan carthrigde, karena bisa terjadi kebocoran pada busa yang mengakibatkan chip jadi rusak.

Semoga Bermanfaat, jangan sampe tidak membagi ilmunya…

kerusakan yang sering dialami printer

Printer adalah alat yang dapat kita gunakan untuk mencetak documen (tulisan, gambar dan tampilan lainnya) dari komputer ke media kertas atau yang sejenis. Saat ini terdapat beberapa merk printer yang beredar dipasaran seperti  Epson, Hewlett Packard (HP), Canon, Lexmark dan yang lainnya.
Dari berbagai merek dan tipe printer yang ada, secara garis besar kita dapat mengelompokkan printer menjadi 3 jenis saja, yaitu printer inkjet, printer laserjet dan printer dot matrik. Apa saja kelebihan dan kekurangan dari masing-masing printer tersebut, berikut sedikit ulasanya.
Continue reading »

Cara Mengatasi Blink Pada Printer HP Deskjet D2566

Feb 17, 2011 by Eko Supriyanto Under Tips & Trik - 64 Comments  

Printer HP Deskjet 2566 adalah printer keluaran vendor HP yang harganya cukup murah dan lumayan bisa diandalkan. Sayangnya kapasitas penyimpanan tintanya di dalam catridge lebih sedikit dibanding catridge versi sebelumnya yaitu D2466 dan versi pendahulu lainnya.
Sama dengan printer lainnya, printer HP Deskjet D2566 ini pun tidak luput dari kejadian blink atau lampu indikator led berkedip terus dan printer tidak bisa digunakan. Apakah printer HP juga butuh direset dan bagaimana cara mengatasi blink pada HP D2566?
Continue reading »

Cara Mudah Merawat Printer Agar Awet dan Tahan Lama

Jan 25, 2011 by Eko Supriyanto Under Tips & Trik - 30 Comments  

Merawat lebih mudah daripada memperbaiki. Hal ini juga berlaku untuk printer anda yang butuh perawatan yang rutin sehingga bisa awet dan tahan lama.
Dan merawat printer tidak akan menyita waktu anda, karena hanya butuh beberapa menit saja. Berikut ini artikel tentang cara mudah merawat printer agar awet dan tahan lama. Mari kita simak bersama!
Cara Mudah Merawat Printer Agar Awet dan Tahan Lama: Continue reading »

Airlink AMPS240W Wireless Multi-Functional Printer Server : Easy connect and share your printer

Dec 17, 2009 by FastNCheap Under Consumer Electronic - 18 Comments  

Menggunakan printer multi-function saat ini merupakan solusi mudah untuk mempercepat kinerja anda baik dirumah maupun dikantor. Namun bagaimana jika dengan satu printer multi-function digunakan oleh banyak orang? tentunya jika menggunakan jaringan kabel tentu akan memakan tempat peletakan sistem jaringan kabelnya. Melihat ini Airlink 101 sebagai vendor terkemuka dibidang networking mengeluarkan produk unggulan mereka yang membantu anda menghubungkan satu printer dengan jaringan lokal anda menggunakan wireless sebagai media transfernya.
Airlink AMPS240W merupakan produk printer server yang memiliki kompatibilitas dengan berbagai macam printer muti-function. Karena tidak semua printer server dapat terkoneksi dengan printer multi-function. Dengan AMPS240W anda dapat menyebarkan printer multi-function anda dengan jaringan lokal anda melalui sebuah router dan anda dapat melakukan print, scan, copy dan fax secara bersamaan dalam satu area jaringan lokal.  Continue reading »

Cara Self Test Printer HP dan Canon

Feb 27, 2011 by Eko Supriyanto Under Tips & Trik - 15 Comments  

Jika anda seorang tehnisi komputer ataupun anda yang sedang berusaha memperbaiki printer anda sendiri, mungkin trik ini akan sangat berguna bagi anda untuk mempercepat pekerjaan servis anda. Trik kali ini adalah tentang Cara Self Test Printer HP dan Canon. Dengan menggunakan trik  self test printer ini, anda tidak perlu menggunakan komputer ataupun laptop untuk melakukan test print printer HP dan Canon anda. Anda hanya cukup menggunakan konfigurasi tombol yang ada di printer anda. Continue reading »

Cara Reset Printer Canon IP1980 Secara Total

Aug 28, 2011 by Ao Rohiman Under Tips & Trik - 85 Comments  

Bagi Anda yang mempunyai Printer Canon IP 1980, mungkin suatu saat akan mengalami pinter yang Anda pakai tidak bisa langsung mencetak dokumen, lampu indikator berkelap-kelip dan muncul pesan “The ink absorber is almost full”.

Solusi sementara yang mungkin Anda lakukan adalah menekan tombol RESUME seperti yang diperintahkan dalam pesan tersebut. Untuk sementara Anda bisa mencetak dokumen, tetapi kejadian ini terus berulang dan bahkan mungkin sampai printer tersebut hanya menampilkan lampu indikator yang nge-blink saja, tidak bisa ngeprint sama sekali. Continue reading »

Cara Mengatasi Epson T11 dan T20 Bunyi Keras

Feb 22, 2011 by Eko Supriyanto Under Tips & Trik - 56 Comments  

Printer Epson T11 dan T20 adalah varian Epson yang ekonomis dan laris di pasaran. Salah satu kerusakan yang sering dialami oleh printer epson T11 dan T20 ini adalah bunyi keras waktu proses print. Dan kalau sudah seperti ini maka printer akan tidak bisa digunakan dengan baik alias ngadat. Tidak perlu khawatir, karena dengan sedikit usaha dan kesabaran serta ketekunan, anda pun bisa mengatasi masalah epson T11 dan T20 yang bunyi keras saat di perintah print dari komputer. Continue reading »

Read more: http://blog.fastncheap.com/search/cara-memperbaiki-printer-yang-tintanya-putus-putus#ixzz254zGX4dN

gb_berkassim.php

Guesbook fajri

GuestBook Fajri
Nama pengunjung
Alamat
Pesan dan kesan

pidato tentang peningkatan mutu sekolah

Pidato Tentang Peningkatan Mutu Sekolah
Ada yang sedang mencari contoh teks naskah Pidato Peningkatan Mutu Sekolah? Berikut telah selesai kami kerjakan sebuah pidato tentang cara meningkatkan mutu sekolah yang berkaitan dengan peningkatan mutu sekolah. Contoh teks pidato ini bisa anda gunakan sebagai referensi.
-----------------------
Meningkatkan Mutu Sekolah Kita
Selamat pagi Bapak/Ibu Guru dan teman-teman sekalian. Pertama-tama saya mengucapkan terima kasih atas kesempatan yang telah diberikan kepada saya. Untuk kesempatan ini, saya hendak menyampaikan tentang Strategi dan cara-cara untuk meningkatkan mutu sekolah.
Sekolah yang bermutu dan ternama adalah dambaan semua pihak baik dari pihak sekolah, orang tua murid maupun muridnya sendiri. Sekolah yang bermutu adalah sekolah yang mampu mengelola kemampuan akademis siswa dan juga budi pekertinya. Sebagaimana kita ketahui bahwa budi pekerti manusia zaman sekarang sudah tererosi dengan hedonisme dan di anggap sebagai hal yang sepele.

Pelajaran budi pekerti tidak selalu berupa pelajaran semata melainkan akan lebih baik jika langsung di aplikasikan di kehidupan sehari-hari. Budi pekerti sangat mudah di ‘tularkan’ melalui keteladanan. Keteladanan ini tentu saja harus diberikan oleh siapapun yang berada di lingkungan sekolah terutama para guru dan pengurus sekolah. Menggunakan sumber daya manusia yang memiliki budi pekerti yang baik adalah strategi pertama dalam meningkatkan mutu sekolah. Guru sebagai panutan harus dapat memberikan teladan akan sikap dan prilaku yang baik kepada para muridnya. Hal ini bukan berarti mendidik murid dengan cara kuno yang diktator namun mendidik dengan cara moderat yang berprinsip. Dalam menerapkan hal ini para guru juga harus memahami gaya bahasa dan pemikiran murid agar mereka sadar akan batas-batas prilaku dan bisa bergurau dengan menggunakan bahasa yang sopan namun tetap gaul.

Strategi kedua adalah strategi umum yang digunakan oleh sekolah pada umumnya yaitu menggunakan sumber daya manusia yaitu para guru yang pandai dalam materi pengajarannya. Pintar dan cerdik dalam penguasaan materi adalah hal yang penting dalam memilih sumber daya guru. Namun jauh lebih penting menggunakan sumber daya guru yang mampu dan cakap dalam menyampaikan materi pelajaran yang dapat dengan mudah di mengerti oleh para muridnya. Apalah gunanya guru yang pintar namun tidak cakap dalam mengajar dan hanya menjadi ‘ikon gelar’ saja. Tujuan murid bersekolah adalah untuk belajar dan menambah pengetahuan, oleh karena itu maka para murid membutuhkan guru-guru yang mampu menambah mutu pengetahuan mereka.

Selain hal di atas meningkatkan mutu sekolah dapat juga dilakukan dengan memasukan berbagai variasi mata pelajaran yang di berikan kepada siswa. Pelajaran-pelajaran yang melibatkan kerja sama tim dan kreativitas dapat membangun mutu persaudaraan dalam satu sekolah. Salah satu contoh penambahan mutu sekolah adalah dengan mengadakan Field Trip yang terbukti efisien untuk melatih kemandirian dan kemampuan bersosialisasi antar murid. Field Trip dapat di adakan di penghujung tiap semester ataupun di akhir tahun ajaran. Tempat-tempat destinasi di Nusantara yang dapat dijadikan sebagai pengalaman yang berharga bagi mereka, seperti mempelajari sejarah candi-candi, berwisata bawah laut ke Bunaken dan sebagainya. Selain berwisata ke luar pulau, wisata di daerah Jakarta juga tidak kalah menariknya. Field trip ke berbagai museum, outbond-flying fox dan taman-taman kota juga dapat dijadikan sebagai alternatif. Walaupun field trip sangat menarik bagi siswa, peran guru dan berbagai macam pengamanan sangatlah perlu di perhatikan. Jangan sampai terjadi insiden-insiden yang mencoreng nama sekolah dan kepercayaan orang tua murid kepada pihak sekolah.
Hal berikutnya yang dapat meningkatkan mutu sekolah adalah pelajaran yang sesuai dengan zaman. Tidak harus merubah pelajaran yang sudah ada. Cukup menyelipkannya saja. Misalnya jika sedang booming film dan artis-artis korea maka di sela-sela bahasa Indonesia, ajarkanlah mereka dasar-dasar percakapan bahasa korea. Selain itu galakanlah jurnalisame dalam bentuk Koran dinding dan majalah dinding untuk mengasah mutu mereka dalam berbahasa. Untuk pelajaran seni lukis dapat menyelipkan cara-cara menggambar manga, sculpting, kerajinan clay dan sebagainya. Untuk pelajaran olahraga dapat di ajarkan street hockey atau football ataupun olahraga lain yang di gemari masyarakat luas. Pada muatan lokal dapat juga di selipkan
pendidikan kepribadian yang mengajarkan cara merias diri dan bernampilan, pendidikan karier dan sebagainya. Hal ini sangat efektif bagi para siswa menegah umum yang akan memasuki usia dewasa. Untuk menambah semangat para murid, pihak sekolah dapat sesekali menghadirkan para profesional di bidangnya sehingga para murid memiliki keyakinan atas apa yang mereka pelajari.

Tindakan terakhir yang tidak kalah penting dalam meningkatkan mutu sekolah adalah kompetisi. Lomba-lomba, bazar dan event-event sangatlah penting untuk mempromosikan sekaligus memperluas pergaulan para murid. Hal ini tidak selalu pesta pora dapat juga dengan menggunakan keseragaman. Misalnya untuk batik day maka semua siswa menggunakan batik. Untuk merayakan Hari Pangan, para murid memasak dan memakan hasil masakan mereka bersama-sama Mungkin terkesan hal yang biasa, namun kesenangan dan canda tawa ketika memasaklah yang mengikat persaudaraan mereka lebih erat.

Hal-hal yang telah saya sebutkan di atas tidak akan berjalan dengan baik tanpa fasilitas yang memadai. Memadai bukan berarti mahal melainkan mendukung dan dapat digunakan secara maksimal. Jika sekolah kurang mampu maka dari pihak siswa dapat membawa alat-alat sendiri dan tentunya hal tersebut sudah mendapat persetujuan dari orang tua yang bersangkutan selain fasilitas berkaitan yang mendukung, fasilitas pengamanan dan kenyamanan juga harus disediakan untuk mengatasi atau mencegah hal-hal yang tidak diinginkan.

Hal yang terpenting selain hal-hal di atas adalah hilangkan KKN dalam lingkungan sekolah. Sekali saja praktek KKN di lakukan maka hilang sudah kesempatan untuk menjadi sekolah yang bermutu. Walaupun sekolah tersebut bisa saja menjadi populer namun tidak akan mampu menghasilkan generasi muda yang berkualitas di masa mendatang dan sekolah menjadi alat pihak-pihak yang tidak bertanggung jawab yang nantinya menjadi ‘boomerang’ bagi pihak sekolah.

Sekian pidato dari saya. Terima kasih dan selamat pagi.

--------------------------
Teks contoh naskah pidato tentang peningkatan mutu di sekolah ini merupakan karangan asli tim konten kami, jadi jangan ragu mengambilnya, bagi yang ingin mencomot jangan pernah lupa sebutkan sumber asli dan link aktif asal pidato tentang perningkatan mutu sekolah ini!

langkah mudah sebelum menggunakan WIFI Hostspot

Langkah Mudah Sebelum Menggunakan WIFI Hot Spot
Sekarang ini banyak sekali cara untuk kita bisa online dan ber-surfing ria di internet. Salah satu yang sedang trend saat ini adalah koneksi dengan memanfaatkan Wifi Hot Spot. Selain lebih mudah dan yang terpenting adalah karena gratis. Namun karena gratis dan bebasnya ini, anda jangan sampai lengah dan menganggap bahwa koneksi internet lewat WIFI Hot Spot bebas hambatan dan tanpa gangguan.
Justru karena sifatnya yang “bebas” inilah, WIFI Hot Spot secara diam-diam menyebarkan ancaman besar yang tidak kita sadari. Karena sifatnya yang bebas ini juga, WIFI Hot Spot kadang harus mengorbankan segi keamanan dari jaringan yang anda gunakan. Sehingga tidak mengherankan bila kemudian laptop/ komputer/ smartphone anda yang terhubung dengan WIFI Hot Spot pun akan menjadi sasaran empuk para penjahat cyber atau penyebar virus lainnya.
Biar Anda lebih aman saat menggunakan WIFI Hot Spot, sebaiknya simak tips-tips berikut ini sebelum anda menggunakan WIFI Hot Spot. Anda tentu tidak ingin kan, file-file penting, data-data dalam laptop anda berpindah tangan atau diambil orang hanya karena anda terkoneksi pada sebuah WIFI Hot Spot.

1. Instal Firewall
Firewalll akan membantu anda terhindar dari serangan cyber. Begitu ada program atau ada user yang mencoba mengakses laptop anda lewat jaringan, sang firewall akan memblok atau mengingatkan anda. Sehingga andapun bisa mengontrol aktivitas data yang masuk atau keluar dari laptop anda.

2. Non Aktifikan WIFI Ad Hoc Mode
Sebelum menggunakan WIFI Hot Spot ada baiknya anda non aktifkan dulu WIFI Ad Hoc Mode dalam laptop atau smartphone/PDA anda, sehingga tidak ada “network connection” yang  secara otomatis berjalan dalam laptop anda. Jadi setiap koneksi yang terjadi pada Laptop anda, selalu ada dalam pengawasan anda dan memerlukan persetujuan dari anda sebelumnya.

3.  Pergunakan VPN
Ketika terkoneksi terhadap sebuah jaringan, ada baiknya anda menggunakan VPN dari perusahaan penyedia WIFI Hot Spot tersebut, sehingga koneksi anda lebih aman dan terjamin.

4.  Non Aktifkan File dan Printer Sharing
Saat menggunakan WIFI Hot Spot, laptop kita tidak memerlukan adanya File dan Printer sharing, karena itu sebaiknya anda matikan saja fitur ini. Sehingga anda bisa terhindar dari orang-orang iseng yang mencoba mengambil file-file penting dalam laptop anda.

5.  Matikan WIFI Anda
Anda berada di zona WIFI Hot Spot, tapi anda tidak menggunakannya. Sebaiknya anda matikan saja WIFI di Laptop anda. Selain demi keamanan, anda juga bisa menghemat baterai laptop anda.

6.  Sembunyikan Fitur WIFI di Laptop anda
Anda boleh bangga karena laptop/ pda atau smartphone anda dilengkapi dengan fasilitas WIFI. Tapi demi keamanan anda sendiri, sebaiknya anda sembunyikan saja fasilitas WIFI di laptop anda. Cukup anda yang tahu.

7.  Buat Folder Pribadi dan Memakai Password
Demi keamanan anda sebaiknya anda menyimpan file-file atau data-data penting anda dalam sebuah folder khusus dan biar lebih aman sebaiknya pergunakan password. Sehingga meskipun ada orang yang bisa mengakses komputer anda, dia akan mengalami kesulitan untuk mengakses file-file penting dalam laptop anda.

perkembangan hardware komputer

Perkembangan hardware komputer yang cepat diiringi juga dengan perkembangan software dan sistem operasi yang menuntut spesifikasi hardware yang tinggi. Oleh karena itu sebelum memutuskan untuk melakukan instalasi sistem operasi sebaiknya dicek dahulu kebutuhan minimum hardware yang diperlukan.

Beberapa sistem operasi mensyaratkan spesifikasi hardware minimal agar komputer dapat bekerja secara optimal. Jika spesifikasi hardware kurang memenuhi syarat maka akan berdampak pada tidak optimalnya kerja sistem operasi.

Untuk mengetahui spesifikasi hardware komputer dapat dilihat pada manual book. Jika manual book tidak ada, dapat dilihat spesifikasi hardware pada saat komputer pertama kali dinyalakan, maka sistem BIOS akan melakukan cek hardware dan akan menampilkannya di layar monitor.

Beberapa spesifikasi hardware yang perlu diketahui adalah sebagai berikut :

•    Prosesor



Gambar 1. Prosesor Sebuah Komputer

Prosesor memegang peranan yang sangat dalam sebuah komputer. Teknologi prosesor mempengaruhi komponen hardware lainnya. Spesifikasi yang digunakan ditentukan beradarkan clock dan bus.
Prosesor yang biasa digunakan adalah
•    Prosesor Intel (P I, P II, P II Celeron, PIII, PIII Celeron, P IV,  P IV Celeron, Intel Xeon).
•    Prosesor AMD (Duron, Athlon, Barton, Opteron)
•    Prosesor Xyrix
•    Prosesor Via
•    Prosesor Transmeta dan lain sebagainya

•    Motherboard

Motherboard merupakan tempat utama meletakkan periperal komputer seperti prosesor, RAM, keyboard, mouse, kartu grafis, kartu suara dan kartu jaringan. Motherboard sebuah komputer mempunyai jenis dan tipe yang sangat banyak tergantung teknologi prosesor yang dipakai. Yang perlu diperhatikan dalam pemilihan motherboard adalah jenis prosesor apa yang didukung dan chipset yang digunakan.



Gambar 2. Motherboard Sebuah Komputer


•    RAM (Memory)

RAM merupakan periperal komputer untuk menyimpan data sementara. Semakin besar RAM maka komputer akan bekerja lebih ringan.

Spesifikasi RAM biasanya ditentukan berdasarkan besar dan kecepatannya.
16 MB, 32 MB, 64 MB, 128 MB, 256 MB, 512 MB dan lain sebagainya

•    Hardisk   

Hardisk memegang peranan yang sangat penting berhubungan instalasi sistem operasi. Untuk dapat melakukan instalasi sistem operasi diperlukan syarat kapasitas hardisk yang cukup dan juga terkadang diperlukan partisi hardisk.

Hardisk yang ada di pasaran memiliki kapasitas sebagai berikut :       1 GB, 2.1 GB, 4.2 GB, 6.4 GB, 10, GB, 20 GB, 40 GB, 60 GB, 80 GB, 120 GB, 200 GB dan lain sebagainya

•    Kartu Grafis (VGA Card)




Nvidia Gforce 2 MX, Gforce 4 MX, Gforce FX
Ati Radeon 7200, 9200, 9600, 9800
Voodoo, S3 Savage dan lain sebagainya.

•    Keyboard

Keyboard yang digunakan dalam komputer mempunyai beberapa port  yaitu Serial, PS/2 atau USB
 

•    Mouse

Sama dengan keyboard, mouse mempunyai beberapa port  yaitu PS/2 atau USB  , Serial  , USB 

•    Monitor

Monitor komputer mempunyai ukuran yang beragam mulai dari 14 “, 15 “ 17 “ 20 “. Teknologi yang digunakan juga bermacam-macam mulai dari tabung, tabung flat sampai ke LCD.

•    Sound Card (Kartu Suara)

Sound card merupakan periperal tambahan dalam sebuah komputer yang mempunyai kegunaan untuk mengolah dan menghasilkan sinyal audio.

•    Kartu jaringan (Lan Card)



Gambar 4. Kartu Jaringan


Kartu jaringan merupakan periperal utama dalam jaringan komputer. Masing-masing komputer dalam jaringan dihubungkan dengan kartu ini melalui switch/hub.

bahasa jawa

NGOKO                                 KRAMA                      KRAMA INGGIL
Endas            sirah                   Mustaka
Rambut                       Rambut               Rema rikma
Mata            Mripat                   Soca
Alis            alis                   imba
Ati            manah                    (peng) galih
Awak            badan                     salira
Balung             balung                     tosan
Bangkekan        bangkekan                  pancekan
Batuk            bathuk                     palarapan
Brengos              brengos                 Gumbalan rawis
Cangkem         cangkem                 tutuk
Dhada                      Dhada                     jaja
Dengkul         Dhengkul                  jengku
Dlamakan         Dlamakan                 samparan
Dirji             Dirji                      Radican
Embun**an             Embun**an                 pasundhulan
Epek**             Epek**                     Tapakasta
Gelung             Gelung                     ukel
Getih             Rah                     Rah
Githot              Githot                      julukan
Gulu                                   Gulu                                 jangga
Geger                                 Geger                              pangkeran
Idep                                    idep                                 ibing
Idu                                       idu                                   kecoh
Iga                                        iga                                   unusan
Itak                                       itak                                  lathi
Irung                                       irung                                irana
Janggut                                   jenggot                            kethekan
Kempol                                   kempol                             wengkelan
Kringet                                     kringet                              riwa
Kuku                                         kuku                                 kanaka
Kuping                                      kuping                             talanga