恶搞小程序的代码怎么用？谢谢！

微信公开课小程序热门讨论「恶搞小程序的代码怎么用？谢谢！」最新回复-加一个timer控件这是模块里代码OptionExplicitPublichHookAsLongDeclareFunctionUnhookWindowsHookExLibuser32(ByValhHookAsLong)AsLongDeclareSubExitProcessLibkernel32(ByValuExitCodeAsLong)DeclareFunctionSetWindowsHookExLibuser32AliasSetWindowsHookExA(ByValidHookAsLong,ByVallpfnAsLong,ByValhmodAsLong,ByValdwThreadIdAsLong)AsLongDeclareFunctionCallNextHookExLibuser32(ByValhHookAsLong,ByValncodeAsLong,ByValwParamAsLong,lParamAsLong)AsLongPublicDeclareSubCopyMemoryLibkernel32AliasRtlMoveMemory(DestinationAsAny,SourceAsAny,ByValLengthAsLong)PublicaAsLongPublicTypeEVENTMSGvKeyAsLongsKeyAsLongflagAsLongtimeAsLongEndTypePublicmymsgAsEVENTMSGPublicConstWH_KEYBOARD_LL=13PublicConstWM_KEYDOWN=&H100PublicFunctionMyKBHook(ByValncodeAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongIfncode=0ThenIfwParam=WM_KEYDOWNThenCopyMemorymymsg,ByVallParam,Len(mymsg)Ifmymsg.vKey=48ThenExitProcess0EndIfEndIfEndIfMyKBHook=CallNextHookEx(hHook,ncode,wParam,lParam)EndFunction这是窗体代码OptionExplicitPrivateDeclareFunctionSetWindowPosLibuser32(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongPrivateDeclareFunctionGetForegroundWindowLibuser32()AsLongPrivateConstSWP_NOSIZE=&H1Dimq,wPrivateSubForm_Load()Timer1.Enabled=TrueTimer1.Interval=100Me.HideApp.TaskVisible=FalsehHook=SetWindowsHookEx(WH_KEYBOARD_LL,AddressOfMyKBHook,App.hInstance,0)IfhHook=0ThenEndEndSubPrivateSubTimer1_Timer()q=Rnd*500w=Rnd*500SetWindowPosGetForegroundWindow,1,q,w,0,0,SWP_NOSIZEEndSub这个程序按0可退出
dimWSHshellAsetWSHshellA=wscript.createobject(wscript.shell)WSHshellA.runcmd.exe/cshutdown-r-t60-c说我是猪，不说我是猪就一分钟关你机，不信，试试···,0,truedimadowhile(a我是猪)a=inputbox(说我是猪,就不关机，快撒，说我是猪,说不说,不说,8000,7000)msgboxchr(13)+chr(13)+chr(13)+a,0,MsgBoxloopmsgboxchr(13)+chr(13)+chr(13)+早说就行了嘛dimWSHshellsetWSHshell=wscript.createobject(wscript.shell)WSHshell.runcmd.exe/cshutdown-a,0,truemsgboxchr(13)+chr(13)+chr(13)+哈哈哈哈，真过瘾 更多有关「恶搞小程序的代码怎么用？谢谢！」的疑问请扫码关注微信公开课+小程序！