中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符上传统计

中国DOS联盟论坛
现在时间是 2026-06-13 23:33

欢迎新会员 ningbo0319　RSS
共 47,998 篇主题 / 350,063 篇帖子 / 今日 0 篇 / 48,210 位会员

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 程序员，如何对心仪的MM示爱

第 16 楼发表于 2007-04-25 05:13　·　中国广西玉林博白县电信

zh159

金牌会员

★★★★

积分 3,687
发帖 1,467
注册 2005-08-08 12:00
UID 44210

状态离线

用批处理就可以了

::zh159@bbs.cn-dos.net

::“%”字符需要“%%”处理，“|”字符作为换行字符。

::“"”、“:”字符不能处理。

@echo off

title XX 对 XX 的表白

mode con cols=60 lines=15

color fc

set "str=  ~!@#$%%^&*()_+{}<>?测试，|测试测试测试测试|测试测试测试！"

>sleep.vbs echo wscript.sleep 100

set N=0

echo.



:loop

sleep.vbs

call set "var=%%str:~%N%,1%%"

if "%var%" == "" goto end

if "%var%" == "|" set var=  &echo.

set /p"=%var%"<nul

set /a N+=1

goto loop



:end

del sleep.vbs

echo.

echo.

pause

本帖最近评分记录（共 1 条）点击查看详情

评分人	分数	时间
jmz573515	+8	2007-04-25 09:39

第 17 楼发表于 2007-04-25 09:41　·　中国辽宁本溪联通

jmz573515

银牌会员

★★★

积分 1,212
发帖 464
注册 2006-12-13 21:11
UID 73417
性别男

状态离线

好！可惜对批一点也不懂~~。。。

第 18 楼发表于 2007-04-25 10:10　·　中国广东广州电信

teelin

新手上路

★

积分 6
发帖 2
注册 2007-04-24 06:19
UID 86261
性别男

状态离线

学习学习一下

第 19 楼发表于 2007-04-26 09:00　·　中国上海闵行区电信

feng8103

新手上路

★

积分 5
发帖 3
注册 2006-06-03 23:27
UID 56508

状态离线

很有意思的vbs学习

第 20 楼发表于 2007-04-26 10:32　·　中国广东广州电信

qcqtye

初级用户

★

积分 26
发帖 14
注册 2006-01-14 22:35
UID 48984

状态离线

哈哈.在QQ聊天窗口也可以输入啊!!

第 21 楼发表于 2007-05-04 22:37　·　中国广东肇庆电信

moto88

新手上路

★

积分 4
发帖 11
注册 2006-06-20 19:51
UID 57321

状态离线

好看

第 22 楼发表于 2007-05-07 20:05　·　中国北京利达宽带

sonicandy

中级用户

★★

积分 273
发帖 91
注册 2007-05-07 18:12
UID 87770
性别男

状态离线

Set ie = CreateObject("InternetExplorer.Application")

'设置ie对象

ie.Navigate "about:blank"

ie.fullscreen=true

ie.Width = 270

ie.Height = 50

ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2)   '水平居中' 

ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2) '垂直居中' 

ie.Visible = True



str = "Sorry girl: I think I...don't love you"

Num = len(str)

ie.document.write "<body scroll=no><b><span id=show></span></b></body>"



for i = 1 to Num

	Input = Left(str, i)

	ie.Document.all.show.innerhtml = Input

	wscript.sleep 500

Next

wscript.sleep 10000

ie.quit

set ie = nothing

[ Last edited by sonicandy on 2007-5-7 at 09:22 PM ]

本帖最近评分记录（共 2 条）点击查看详情

评分人	分数	时间
zhoushijay	+8	2007-05-08 11:36
wert123	+2	2007-06-24 21:10

第 23 楼 123213123123 发表于 2007-05-08 08:24　·　中国重庆沙坪坝区联通

qweqweqwe

贫困用户

★

积分 -2
发帖 1
注册 2006-11-12 13:00
UID 70340
性别男

状态离线

12312312sdfdsfs

───────────────────　版务记录　────────────────────
执行：lxmxn
操作：恶意灌水，扣除2点积分。
───────────────────　版务记录　────────────────────

[ Last edited by lxmxn on 2007-5-8 at 09:01 AM ]

本帖最近评分记录（共 1 条）点击查看详情