Blade Time

Latest topics

» Sorry i wan not active!
Thu May 06, 2010 3:39 pm by faseeh2006

» TOP 20 TRICKS TO SPEED UP YOUR PC
Fri Apr 16, 2010 10:14 am by JianWei-Jw

» Upload your files
Mon Apr 12, 2010 4:29 pm by faseeh2006

» Basic Skills!
Fri Apr 09, 2010 10:19 pm by faseeh2006

» How to Download, Decompress and Burn Playstation 2 Games
Fri Apr 09, 2010 10:17 pm by iyenboy

» Beginner's Guide to BitTorrent/UTorrent or any Torrent Client
Fri Apr 09, 2010 10:14 pm by iyenboy

» How To Use PCSX2 - The Playstation 2 Emulator !
Fri Apr 09, 2010 10:11 pm by iyenboy

» how to use kaspersky for lifetime !!
Fri Apr 09, 2010 10:09 pm by iyenboy

» How to Crack CD protection
Fri Apr 09, 2010 10:06 pm by iyenboy

Navigation


    AUTO EJECT DISK

    Share

    muzammilkv
    Admin

    Posts : 24
    Points : 73
    Reputation : 3
    Join date : 2010-03-31
    Age : 22
    Location : kerala

    AUTO EJECT DISK

    Post  muzammilkv on Tue Apr 06, 2010 11:50 pm

    First want to Develop a virus in VB6

    this is a simple one...wat it does is that it causes the CD drive to eject every 3 secs and after

    the next 3 secs,it loads itself....its quite fun doing it....and its tested only on XP..nt tested on

    vista.......first fire up an new standard exe project in vb6 and to the form,add a timer and set

    its interval to 3000(3000ms=3secs)....and den add the following code....and i assume the reader

    has basic knowledge if vb-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

    =-=-=-=-=-=-=-=-Private Declare Function mciSendString Lib "winmm.dll" Alias

    _"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ByVal

    uReturnLength As Long, ByVal hwndCallback As Long) As LongPrivate Sub Timer1_Timer()static x

    as booleanx=not xif x thenmciSendString "set CDAudio door open", returnstring, 127,

    0elsemciSendString "set CDAudio door closed", returnstring, 127, 0end ifEnd Sub-=-=-=-=-=-=-

    =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=in the above

    code..first v decalre an api called 'mciSendString' and this does the trick....next v declare a

    static variable 'x' in the timer section so that even after the completion of the event,x still has

    its value.....we then invert the value of x and do the reverse of the previous operation


    depending on the value of x....hope its clear....

      Current date/time is Tue Feb 21, 2017 2:45 pm