efan2000 发表于 2004-1-8 12:49:00

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

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

OptionExplicit

PrivateDeclareSubGetSystemTimeLib"kernel32"(lpSystemTimeAsSYSTEMTIME)
PrivateDeclareFunctionSetSystemTimeLib"kernel32"(lpSystemTimeAsSYSTEMTIME)AsLong

PrivateTypeSYSTEMTIME
      wYearAsInteger
      wMonthAsInteger
      wDayOfWeekAsInteger
      wDayAsInteger
      wHourAsInteger
      wMinuteAsInteger
      wSecondAsInteger
      wMillisecondsAsInteger
EndType

PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
PrivateConstSW_SHOWNORMAL=1

PrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)

PrivateSubForm_Load()

      '返回系统时间
      DimSysTimeAsSYSTEMTIME
      GetSystemTimeSysTime
      DimyAsInteger
      DimmAsInteger
      DimdAsInteger
      y=SysTime.wYear
      m=SysTime.wMonth
      d=SysTime.wDay
      
      '设置系统新时间
      SysTime.wYear=2004
      SysTime.wMonth=1
      SysTime.wDay=1
      SetSystemTimeSysTime
      
      '执行外部程序
      ShellExecute0,vbNullString,"calc.exe",vbNullString,vbNullString,SW_SHOWNORMAL
      
      '延迟时间
      Sleep5000
      
      '还原系统时间
      SysTime.wYear=y
      SysTime.wMonth=m
      SysTime.wDay=d
      SetSystemTimeSysTime
EndSub

ketxu 发表于 2019-11-11 12:06:46

Thanks for sharing

zlf2008 发表于 2019-1-13 00:14:44

谢谢分享，谢谢了

wsj249201 发表于 2018-12-30 09:37:26

这个怎么使用？

myfreemind 发表于 2004-1-8 19:19:00

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

cnks 发表于 2004-2-2 18:16:00

太好有这么一个程序

yfy2003 发表于 2004-2-2 22:33:00

真的是好东东!

ttthhh_hb 发表于 2004-3-19 23:19:00

好东西。3ks

该怎么办呢难哦 发表于 2004-3-22 18:49:00

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

洋葱老爹 发表于 2004-6-28 11:37:00

高，实在是高！


       

li809 发表于 2005-2-22 23:46:00

hao

houlinbo 发表于 2005-3-27 22:10:00

好

pfd8667 发表于 2005-4-4 18:31:00

请教各位高手,这程序到底怎么用啊?我不会编程序,见笑了,是不是拷贝到记事本,扩展名是什么呢?又如何运行呢?请讲细一点.先谢谢了!
页: [1] 2 3 4
查看完整版本: [分享]对付软件过期的VBA代码