中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

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

English/Chinese Fix Translation

作者:

标题: 程序员，如何对心仪的MM示爱

上一主题 | 下一主题

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 16 楼』: 使用 LLM 解释/回答一下

用批处理就可以了

::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

Just use batch processing

::zh159@bbs.cn-dos.net

::The "%" character needs to be processed with "%%", and the "|" character is used as a line break character.

::The characters "" and ":" cannot be processed.

@echo off

title XX's confession to XX

mode con cols=60 lines=15

color fc

set "str=  ~!@#$%%^&*()_+{}<>?Test,|Test Test Test Test|Test Test Test!"

>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

此帖被 +8 点积分

点击查看详情

2007-4-25 05:13

查看资料发短消息网志

编辑帖子回复引用回复

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 17 楼』: 使用 LLM 解释/回答一下

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

2007-4-25 09:41

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

teelin
新手上路

积分 6
发帖 2
注册 2007-4-24
状态离线

『第 18 楼』: 使用 LLM 解释/回答一下

学习学习一下

2007-4-25 10:10

查看资料发送邮件访问主页发短消息网志 OICQ

(551630300)

编辑帖子回复引用回复

feng8103
新手上路

积分 5
发帖 3
注册 2006-6-3
状态离线

『第 19 楼』: 使用 LLM 解释/回答一下

很有意思的vbs学习

2007-4-26 09:00

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

qcqtye
初级用户

积分 26
发帖 14
注册 2006-1-14
状态离线

『第 20 楼』: 使用 LLM 解释/回答一下

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

2007-4-26 10:32

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

moto88
新手上路

积分 4
发帖 11
注册 2006-6-20
状态离线

『第 21 楼』: 使用 LLM 解释/回答一下

好看

2007-5-4 22:37

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

sonicandy
中级用户

积分 273
发帖 91
注册 2007-5-7
状态离线

『第 22 楼』: 使用 LLM 解释/回答一下

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 ]

Set ie = CreateObject("InternetExplorer.Application")

' Set IE object

ie.Navigate "about:blank"

ie.fullscreen = true

ie.Width = 270

ie.Height = 50

ie.left = fix((ie.document.parentwindow.screen.availwidth - ie.width) / 2)   'Center horizontally' 

ie.top = fix((ie.document.parentwindow.screen.availheight - ie.height) / 2) 'Center vertically' 

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 ]

此帖被 +10 点积分

点击查看详情

2007-5-7 20:05

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

qweqweqwe
贫困用户

积分 -2
发帖 1
注册 2006-11-12
状态离线

『第 23 楼』: 123213123123 使用 LLM 解释/回答一下

12312312sdfdsfs

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

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