病毒源代碼比較長，可參考新歡樂時光病毒源碼。
下面將幾個例子，每個例子有適用windows版本，其他版本沒試過，不保證適用：
1、日歷（WIN98SE下成功）：
在個人網頁中經常能看到精彩的日歷，其實在”我的電腦”或”資源管理器”中也可看到。壹步壹步照此做：
（1）在“我的電腦”中點擊“查看”菜單，然後將其中的“按Web頁（W）”勾選上；
（2）再次點擊“我的電腦”中的”查看”菜單，然後點擊“文件夾選項”，在彈出的對話框中選擇“查看”標簽，在“高級設置”中選“顯示所有文件”；
（3）記事本打開C:\WINDOWS\WEB\Folder.htt，找到HERE'S A GOOD PLACE TO ADD A FEW LINKS OF YOUR OWN。
（4）加入如下代碼：
<script LANGUAGE=JavaScript>
<!--
setCal()
function getTime() {
var now = new Date()
var hour = now.getHours()
var minute = now.getMinutes()
now = null
var ampm =
if (hour >= 12) {
hour -= 12
ampm = 下午
} else
ampm = 上午
hour = (hour == 0) ? 12 : hour
if (minute < 10)
minute = 0 + minute
return hour + : + minute + + ampm
}
function leapYear(year) {
if (year % 4 == 0)
return true
return false
}
function getDays(month, year) {
var ar = new Array(12)
ar[0] = 31
ar[1] = (leapYear(year)) ? 29 : 28
ar[2] = 31
ar[3] = 30
ar[4] = 31
ar[5] = 30
ar[6] = 31
ar[7] = 31
ar[8] = 30
ar[9] = 31
ar[10] = 30
ar[11] = 31
return ar[month]
}
function getMonthName(month) {
var ar = new Array(12)
ar[0] = 1月
ar[1] = 2月
ar[2] = 3月
ar[3] = 4月
ar[4] = 5月
ar[5] = 6月
ar[6] = 7月
ar[7] = 8月
ar[8] = 9月
ar[9] = 10月
ar[10] = 11月
ar[11] = 12月
return ar[month]
}
function setCal() {
var now = new Date()
var year = now.getYear()
if (year<2000)
year=1900+year;
var month = now.getMonth()
var monthName = getMonthName(month)
var date = now.getDate()
now = null
var firstDayInstance = new Date(year, month, 1)
var firstDay = firstDayInstance.getDay()
firstDayInstance = null
var days = getDays(month, year)
drawCal(firstDay + 1, days, date, monthName, year)
}
function drawCal(firstDay, lastDate, date, monthName, year) {
var headerHeight = 50
var border = 2
var cellspacing = 4
var headerColor = midnightblue
var headerSize = -1
var colWidth = 50
var dayCellHeight = 10
var dayColor = darkblue
var cellHeight = 20
var todayColor = red
var timeColor = purple
var text =
text += '<CENTER>'
text += '<TABLE BORDER=1' + ' CELLSPACING=0' + 'style=font-size: 9pt>'
text += '<TH COLSPAN=7 HEIGHT=' + headerHeight + '>'
text += ''
text += year+'年'+ monthName + '日歷'
text += ''
text += '</TH>'
var openCol = '<TD WIDTH=' + colWidth + ' HEIGHT=' + dayCellHeight + '>'
openCol += '<FONT COLOR=' + dayColor + '>'
var closeCol = '</FONT></TD>'
var weekDay = new Array(7)
weekDay[0] = 星期天
weekDay[1] = 星期壹
weekDay[2] = 星期二
weekDay[3] = 星期三
weekDay[4] = 星期四
weekDay[5] = 星期五
weekDay[6] = 星期六
text += '<TR ALIGN=center VALIGN=center style=font-size: 9pt>'
for (var dayNum = 0; dayNum < 7; ++dayNum) {
text += openCol + weekDay[dayNum] + closeCol
}
text += '</TR>'
var digit = 1
var curCell = 1
for (var row = 1; row <= Math.ceil((lastDate + firstDay - 1) / 7); ++row) {
text += '<TR ALIGN=right VALIGN=top style=font-size: 9pt>'
for (var col = 1; col <= 7; ++col) {
if (digit > lastDate)
break
if (curCell < firstDay) {
text += '<TD></TD>';
curCell++
} else {
if (digit == date) {
text += '<TD HEIGHT=1>'
text += '<FONT COLOR=' + todayColor + '>'
text += digit
text += '</FONT><BR>'
text += '<FONT COLOR=' + timeColor + ' SIZE=2 style=font-size: 9pt>'
text += '<CENTER>' + getTime() + '</CENTER>'
text += '</FONT>'
text += '</TD>'
} else
text += '<TD HEIGHT=' + cellHeight + '>' + digit + '</TD>'
digit++
}
}
text += '</TR>'
}
text += '</TABLE>'
text += '</CENTER>'
document.write(text)
}
//-->
</script>
（4）好了，大功告成！這壹切都是妳自己動手做的哦，盡情的陶醉吧！（9）把剛才改過的Folder.htt拷貝壹份到C盤根目錄下，這就可以壹勞永逸了，打開“資源管理器”看看，哈哈，也有妳的勞動成果！趕快試試吧！
2、自己的照片（winme成功）
在妳的Folder.htt找到URL（wvleft.gif），wvleft.gif（就是上面那張圖）更換成妳所要的路徑和文件名即可，比如美女的照片，例如：d:\PubWeb\Photo\01.bmp改為file://d:/ PubWeb/Photo/01.bmp即可。還有就是src=wvline.gif，同理修改wvline.gif（下面那根線）。天天看她，呵呵，口水流了壹鍵盤。
其他妳在網頁上看到的效果都可以在Folder.htt上實現，只要妳耐心修改代碼。