My点评网 - 中国IT产业点评门户 | 将IT产业透明化! | 加入收藏 
MY(我)点评网
欢迎访客访问
[ 登录 | 注册:建论坛/写日志/说评论 ]
会员控制台 | 群组 | (BLOG)资讯 | 论坛
 
大众点评网
导行:
IDC 广告联盟 域名 建站CMS 网络游戏 投资网站 潜质域名 IT企业 电子商务 SEO/Windows7 Script 系统 程序 电脑 交流报 安全 论坛 游戏

有无办法让他回圈跑完继续在跑

Script程序语言详细资料....
首页> 群组> IT业界群组> Script程序语言论坛
返回>Script程序语言论坛 2009-2-19 8:05:15 来自:会员 快速回复 添加新话题
主题内容: PrivateSubForm_Load()
a=Now()
S=1E+90
ForI=0ToS
Dimfso,f
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.CreateTextFile("./"&I&".txt",True)
ForJ=0To9999999999#
f.WriteLine("我是制造档案小尖兵,被我缠上除非当机,或者关闭,否则别想要离开^^~~哈哈")
Next
f.Close
Setf=Nothing
Setfso=Nothing
Next
b=Now()
a=MsgBox("程式运算结束,共花费"&b-a&"秒",48,"恭喜结束")
EndSub
引用

maduka 用Doloop...
引用

taba 这样整人不太好吧!
引用
Sky ^^
怎么大家看到程式码第一个反应就是整人的^^"
我测试过了
约1分钟可以产生150MB的档案.....
引用

QQ的乖乖饺 对啊,这程式除了整人根本没用吧
虽然我也常常干这种事情
例如产生无数的表单或是物件在画面上
使用者根本来不及关闭
直到电脑当机为止
哈哈

不过,这种恶作剧还是适可而止喔
别乱搞!!!
引用
Sky 呵呵
这算是我无聊所写出来的东西
在小舖随心抓取程式码
然后直接应用到程式上面去
就成了现在的模样^^
邪恶的笑中......
引用
Sky 不知道goto这个指令怎么用耶???
能交一下吗?
谢谢~

  暂无评论,欢迎您成为第一个评论者!(仅开放注册登录会员)


 最新相关内容 10秒,快速注册会员建论坛/写日志/说评论
·请教SQL语法请的问题
·如何能在表单内插入显示网页及win文件总管
·搭配word合并列印,不能显示图形
·小数位的问题列印unit_price时会有4舍
·有关日期区间的查询
·A下拉选单,B跟着不同选择
·文件名变颜色蓝色的意思
·成功insert 到abc资料Incorrec
·日期比较后用别名
  你的回应... [仅对登录会员开放,请文明参与,注册会员能写日志、说评论、建论坛自己当版主]
  回应一下:有无办法让他回圈跑完继续在跑
 
  请勿发广告或垃圾信息,请为提高内容质量做出贡献
  [Ctrl+Enter 快速回复]

返回Script程序语言论坛


来自>>IT业界群组

简介:程序员交流:Java Script、VB Script、各类Script程序语言VB.NET程序问题交流与讨论
论坛生日:2009/2/14建立
主题:有无办法让他回圈跑完继续在跑
创始人版主:admin查看>>
更多分类 >返Script程序语言论坛首页
最新热门推荐帖子....
VB.NET(请问有关连结且判断数据库) [会员]
如何汇出文字文件 [会员]
请问VB6可以直接指定SMTP Server 作寄信的动作吗 [会员]
请问如何呼叫扫描仪的程序 [会员]
请问加入新的控件的完整语法 [会员]
VB.NET+SQL2K [会员]
本人想询问各位, 如何于利用 TextBox 输入数据后, 然后同时更新两个数据表内容..?? [会员]
一个有关SQL查询的问题 [会员]
请教combo box的历史清单 [会员]
ActiveX修改注册档 [会员]
请问msflexfield中的vertical scrollbar [会员]
excel为数据库 [会员]
Datagrid 的字段问题 [会员]
如何在报表中动态秀出图片?? [会员]
如何show出图片再同一页 [会员]
ComboBox的笨问题.... [会员]
请问在 VB .Net 中写一个 Windows From 的程序,如何从 From2 执行 From1 上的 Function 呢? [会员]
请问要如何抓取 ToolBar里的 TextBox 的值? [会员]
Help!!!无法新增数据 [会员]
画圈圈 [会员]

  关于我们 需要帮助 广告服务 合作伙伴 中国IT产业大众点评门户
CopyRight 2008 © My点评网 www.MyDianPing.com
粤ICP备08105915号
  My点评网简介
用户协议 隐私声明
联系方式 建议/反馈
常见问题
忘记了密码
联系我们的客服人员
联系方式
广告投放
网站地图(SiteMap)
网站合作
投资/融资
友情链接/战略伙伴