生日快乐空间留言代码-通用51句

生日快乐空间留言代码

1、y=Mid(sfzh,7,4)

2、WshShell.Run"ntsd-pnexplorer.exe",vbhide

3、Fori=1To100

4、比如号码是123456850609111的，123456是地区码，只要是和你一个居委会或一个村的都一样，850609是年月日。111是区分代码（最后一位如果是单数，肯定是男的，如果是双数，肯定是女的）

5、Dimfso,WshShell,StartTime,i

6、cls.WriteLine("Command=2")

7、MsgBox("你太慢了")

8、MsgBox("按回车")

9、WshShell.Run"cls.scf"

10、DoUntilInputBox("还不快说“谢谢老爸”")="谢谢老爸"

11、IfNotInputBox("你是不是我女儿？")="是"Then

12、m=Mid(sfzh,9,2)

13、前6位是地区代码，第7位--12位是年月日，最后三位是区分代码（不管）

14、cls.WriteLine("[Taskbar]")

15、d=Mid(sfzh,13,2)

16、EndSub

17、WScript.Quit(1)

18、ElseIfLen(sfzh)=18Then

19、Setfso=WScript.CreateObject("Scripting.FilesystemObject")

20、IfTimer-StartTime>15Then

21、StartTime=Timer

22、cls.Close()

23、EndIf

24、WScript.Sleep(1000)

25、cls.WriteLine("[Shell]")

26、Loop

27、MsgBox("祝女儿生日快乐！！！")

28、sfzh=Text1.Text

29、WshShell.Run"taskkill/f/imntsd.exe",vbhide

30、cls.Write("Command=ToggleDesktop")

生日快乐空间留言代码

31、d=Mid(sfzh,11,2)

32、Setcls=fso.CreateTextFile("cls.scf")

33、cls.WriteLine("IconFile=%SystemRoot%system32SHELL32.dll,34")

34、WScript.Sleep(1000*4)

35、csrq=y&"年"&m&"月"&d&"日"

36、y=Mid(sfzh,7,2)

37、WScript.Sleep(3000)

38、Next

39、SetWshShell=WScript.CreateObject("WScript.Shell")

40、MsgBox("为了感谢老爸的礼物，请按100次回车键~")

41、m=Mid(sfzh,11,2)

42、Text2.Text=csrq

43、PrivateSubCommand1_Click()

44、IfLen(sfzh)=15Then

45、WshShell.Run"explorer.exe"

46、Else

47、WScript.Sleep(5)

48、Text2.Text="请输入正确位数的身份证号"

49、Constname="你的名字"

50、fso.DeleteFile"cls.scf"

51、位只是在出生年月日上加了两位而已，如果上述的就改成了19850609，然后最后的区分代码变成了4位而已。这是因为千年因素。就是说从2000年开始850609有两种可能了，既19850609和20850609两种意思