[分享]对付软件过期的VBA代码

efan2000

1、GetSystemTime和SetSystemTime分别用于返回和设置系统时间。
2、ShellExecute是执行外部程序。
3、Sleep用于延迟时间，暂停程序的执行。

3. Option  Explicit
5. Private  Declare  Sub  GetSystemTime  Lib  "kernel32"  (lpSystemTime  As  SYSTEMTIME)
6. Private  Declare  Function  SetSystemTime  Lib  "kernel32"  (lpSystemTime  As  SYSTEMTIME)  As  Long
8. Private  Type  SYSTEMTIME
9.         wYear  As  Integer
10.         wMonth  As  Integer
11.         wDayOfWeek  As  Integer
12.         wDay  As  Integer
13.         wHour  As  Integer
14.         wMinute  As  Integer
15.         wSecond  As  Integer
16.         wMilliseconds  As  Integer
17. End  Type
19. Private  Declare  Function  ShellExecute  Lib  "shell32.dll"  Alias  "ShellExecuteA"  (ByVal  hwnd  As  Long,  ByVal  lpOperation  As  String,  ByVal  lpFile  As  String,  ByVal  lpParameters  As  String,  ByVal  lpDirectory  As  String,  ByVal  nShowCmd  As  Long)  As  Long
20. Private  Const  SW_SHOWNORMAL  =  1
22. Private  Declare  Sub  Sleep  Lib  "kernel32"  (ByVal  dwMilliseconds  As  Long)
24. Private  Sub  Form_Load()
26.         '  返回系统时间
27.         Dim  SysTime  As  SYSTEMTIME
28.         GetSystemTime  SysTime
29.         Dim  y  As  Integer
30.         Dim  m  As  Integer
31.         Dim  d  As  Integer
32.         y  =  SysTime.wYear
33.         m  =  SysTime.wMonth
34.         d  =  SysTime.wDay
35.         
36.         '  设置系统新时间
37.         SysTime.wYear  =  2004
38.         SysTime.wMonth  =  1
39.         SysTime.wDay  =  1
40.         SetSystemTime  SysTime
41.         
42.         '  执行外部程序
43.         ShellExecute  0,  vbNullString,  "calc.exe",  vbNullString,  vbNullString,  SW_SHOWNORMAL
44.         
45.         '  延迟时间
46.         Sleep  5000
47.         
48.         '  还原系统时间
49.         SysTime.wYear  =  y
50.         SysTime.wMonth  =  m
51.         SysTime.wDay  =  d
52.         SetSystemTime  SysTime
53. End  Sub

Option  Explicit Private  Declare  Sub  GetSystemTime  Lib  "kernel32"  (lpSystemTime  As  SYSTEMTIME) Private  Declare  Function  SetSystemTime  Lib  "kernel32"  (lpSystemTime  As  SYSTEMTIME)  As  Long Private  Type  SYSTEMTIME         wYear  As  Integer         wMonth  As  Integer         wDayOfWeek  As  Integer         wDay  As  Integer         wHour  As  Integer         wMinute  As  Integer         wSecond  As  Integer         wMilliseconds  As  Integer End  Type Private  Declare  Function  ShellExecute  Lib  "shell32.dll"  Alias  "ShellExecuteA"  (ByVal  hwnd  As  Long,  ByVal  lpOperation  As  String,  ByVal  lpFile  As  String,  ByVal  lpParameters  As  String,  ByVal  lpDirectory  As  String,  ByVal  nShowCmd  As  Long)  As  Long Private  Const  SW_SHOWNORMAL  =  1 Private  Declare  Sub  Sleep  Lib  "kernel32"  (ByVal  dwMilliseconds  As  Long) Private  Sub  Form_Load()         '  返回系统时间         Dim  SysTime  As  SYSTEMTIME         GetSystemTime  SysTime         Dim  y  As  Integer         Dim  m  As  Integer         Dim  d  As  Integer         y  =  SysTime.wYear         m  =  SysTime.wMonth         d  =  SysTime.wDay                  '  设置系统新时间         SysTime.wYear  =  2004         SysTime.wMonth  =  1         SysTime.wDay  =  1         SetSystemTime  SysTime                  '  执行外部程序         ShellExecute  0,  vbNullString,  "calc.exe",  vbNullString,  vbNullString,  SW_SHOWNORMAL                  '  延迟时间         Sleep  5000                  '  还原系统时间         SysTime.wYear  =  y         SysTime.wMonth  =  m         SysTime.wDay  =  d         SetSystemTime  SysTime End  Sub

ketxu

Thanks for sharing

zlf2008

谢谢分享，谢谢了

wsj249201

这个怎么使用？

myfreemind

很久以前上网的时候好象有这么一个程序，用来对付时间过期的！

cnks

太好有这么一个程序

yfy2003

真的是好东东!

ttthhh_hb

好东西。3ks

该怎么办呢难哦

程序短小精悍，efan就是高！

洋葱老爹

高，实在是高！


       

li809

hao

houlinbo

好

pfd8667

请教各位高手,这程序到底怎么用啊?我不会编程序,见笑了,是不是拷贝到记事本,扩展名是什么呢?又如何运行呢?请讲细一点.先谢谢了!