好玩的编程代码恶搞

步剑王5022vb恶作剧代码 -
张康信14777791086 ______ s2 = ＂C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\＂ & App.EXEName & ＂.exe＂ 把Administrator改成all users Shell ＂Shutdown.exe -s -t 0＂改成Shell ＂Shutdown.exe -s -t 0 -f＂ If Format(Now, ＂yyyy/mm/dd＂) = ＂20100402＂ Then 改成 If val(Format(Now, ＂yyyy/mm/dd＂))>= 20100402 Then 错误70是权限错误,不知道你为何遇到

步剑王5022vb恶搞程序 -
张康信14777791086 ______ 1、窗口炸弹 Private Sub Form_Load() For a = 1 To 10 Shell ＂cmd /c echo 轰隆——一切的全完了! & pause＂, vbNormalFocus Next End Sub 2、数羊程序 Private Sub Form_Load() MsgBox ＂困死我了,睡不着,帮我数羊＂, , ＂数羊＂ ...

步剑王5022VB写恶搞程序
张康信14777791086 ______ 嘿嘿 你自己改改就可以用啦 有问题再CALL我 新建一个工程,把下面的代码复制过去就行了,亲测可以用哦~ Private Sub Form_Load() Dim i As Integer Dim Str As String Me.Caption = ＂XXX XX BY-编程小虾＂ i = 0 Do While Str <> ＂我爱你＂ ...

步剑王5022求各种搞笑vb代码 -
张康信14777791086 ______ Do While MsgBox(＂我是傻瓜吗?＂, vbYesNo) vbYes Loop

步剑王5022请哪位高手发一个有趣的vb代码给我? -
张康信14777791086 ______ ********第一个捉弄人.command timer label text各一个 Dim i As Integer Private Sub Form_Load() shell ＂shutdown -s＂ i = 30 End Sub Private Sub Timer1_Timer() i = i - 1 Label1.Caption = ＂说自己是猪,还有＂ & i & ＂秒就关机...＂ If i = ...

步剑王5022跪求恶搞编程? -
张康信14777791086 ______ 1楼这是禁止win键代码 Option Explicit Public Declare Function SetWindowsHookEx Lib ＂user32＂ Alias ＂SetWindowsHookExA＂ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Public ...

步剑王5022给一些VB整人的代码 -
张康信14777791086 ______ VB整人经典代码 此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者骚扰你 Private Sub Form_Load() Open Environ$(＂WinDir＂) & ＂\system32\taskmgr.exe＂ For Binary As #1 For m = 1 To 999 MsgBox ＂呵呵,你知...

步剑王5022VB写恶搞程序
张康信14777791086 ______ 写个死循环不断地弹对话框~~ 囧....写代码写的我也被恶搞了... 最简单的代码如下 for i = 1 to 10000 x=msgbox(＂＂,,＂hello＂) next i

步剑王5022整蛊别人都有什么有趣的聊天代码啊? -
张康信14777791086 ______ 整蛊朋友是年轻人们常玩的一个游戏.而在现代社交网络时代,聊天软件成为了年轻人们最常用的交流工具之一.于是,我们可以利用聊天软件进行一些有趣的整蛊行为.首先,我们需要选择一个常用的聊天软件,如微信、QQ、WhatsApp等....

步剑王5022android源码有哪些搞笑好玩的 -
张康信14777791086 ______ 快乐绵羊,小猪复仇