中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 程序员，如何对心仪的MM示爱
« [1] [2] [3] » ›
作者:
标题: 程序员，如何对心仪的MM示爱 上一主题 | 下一主题
zhoushijay
高级用户

Autowalk


积分 845
发帖 375
注册 2007-3-3
状态 离线
『楼 主』:  程序员，如何对心仪的MM示爱

将以下代码考入计事本，保存为VBS，运行即可欣赏效果 ^^!
set fso=createobject("scripting.filesystemobject")
set ws=wscript.createobject("wscript.shell")

fso.createtextfile("love.txt")
ws.run("love.txt")
wscript.sleep 500
ws.sendkeys("S")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("r")
wscript.sleep 500
ws.sendkeys("r")
wscript.sleep 500
ws.sendkeys("y")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("g")
wscript.sleep 500
ws.sendkeys("r")
wscript.sleep 500
ws.sendkeys("i")
wscript.sleep 500
ws.sendkeys("l")
wscript.sleep 500
ws.sendkeys(":")
wscript.sleep 500
ws.sendkeys(chr(10))
wscript.sleep 500
ws.sendkeys("I")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("t")
wscript.sleep 500
ws.sendkeys("h")
wscript.sleep 500
ws.sendkeys("i")
wscript.sleep 500
ws.sendkeys("n")
wscript.sleep 500
ws.sendkeys("k")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("I")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(chr(10))
wscript.sleep 500
ws.sendkeys("d")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("n")
wscript.sleep 500
ws.sendkeys("'")
wscript.sleep 500
ws.sendkeys("t")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("l")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("v")
wscript.sleep 500
ws.sendkeys("e")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("y")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("u")
wscript.sleep 500
ws.sendkeys("!")
[ Last edited by zhoushijay on 2007-4-23 at 06:26 PM ]

2007-4-24 07:24
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 2 楼』:  

不错！

2007-4-24 08:39
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
wudixin96
银牌会员





积分 1928
发帖 931
注册 2007-1-6
状态 离线
『第 3 楼』:  

纠正LZ的一个拼写错误。应该是girl吧？
dim ws
set ws=wscript.createobject("wscript.shell")
ws.run("notepad.exe")
wscript.sleep 200
ws.appactivate "无标题-记事本"
wscript.sleep 500
ws.sendkeys("S")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("r")
wscript.sleep 500
ws.sendkeys("r")
wscript.sleep 500
ws.sendkeys("y")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("g")
wscript.sleep 500
ws.sendkeys("i")
wscript.sleep 500
ws.sendkeys("r")
wscript.sleep 500
ws.sendkeys("l")
wscript.sleep 500
ws.sendkeys(":")
wscript.sleep 500
ws.sendkeys(chr(10))
wscript.sleep 500
ws.sendkeys("I")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("t")
wscript.sleep 500
ws.sendkeys("h")
wscript.sleep 500
ws.sendkeys("i")
wscript.sleep 500
ws.sendkeys("n")
wscript.sleep 500
ws.sendkeys("k")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("I")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(chr(10))
wscript.sleep 500
ws.sendkeys("d")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("n")
wscript.sleep 500
ws.sendkeys("'")
wscript.sleep 500
ws.sendkeys("t")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("l")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("v")
wscript.sleep 500
ws.sendkeys("e")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("y")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("u")
wscript.sleep 500
ws.sendkeys("!")


2007-4-24 08:49
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zhoushijay
高级用户

Autowalk


积分 845
发帖 375
注册 2007-3-3
状态 离线
『第 4 楼』:  

....
还好这里没girl吧，不然我死定了！

2007-4-24 09:25
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
dxxzf
新手上路





积分 6
发帖 3
注册 2007-4-24
状态 离线
『第 5 楼』:  

有意思！！

2007-4-24 09:54
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 6 楼』:  

激活"无标题 - 记事本"窗口名称“-”两边应该各有一个空格
简化（$后期替换为换行）：
dim ws
str = "Sorry girl:$I think I...$don't love you!"
Num = len(str)
set ws=wscript.createobject("wscript.shell")
ws.run("notepad.exe")
wscript.sleep 200
ws.appactivate "无标题 - 记事本"
wscript.sleep 500

for i = 1 to Num
Input = Mid(str, i, 1)
if Input = "$" then Input = vbCr
wscript.sleep 500
ws.sendkeys(Input)
next


   此帖被 +19 点积分      点击查看详情   
评分人：【 lxmxn 】分数： +4  时间：2007-4-24 12:23
评分人：【 everest79 】分数： +15  时间：2007-4-24 22:33


2007-4-24 11:18
查看资料  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 7 楼』:  

像楼主这样的帖子，不用循环来实现可以说是个不完美的脚本。

2007-4-24 12:24
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
aspirer
初级用户





积分 72
发帖 35
注册 2006-11-13
状态 离线
『第 8 楼』:  

我已经关联txt为其它编辑器了，楼上有改成 激活 记事本的 有用吗？这样不是变得更不通用了？楼主的代码可以直接调用我的编辑器。改了之后我不知道会不会出错。
我用英文版的呢。
运行下来没有出错，但不知道是不是起到了激活的效果。



Novell 迷http://novell.me
2007-4-24 22:44
查看资料  发短消息 网志   编辑帖子  回复  引用回复
xuehu
初级用户





积分 28
发帖 14
注册 2007-2-1
状态 离线
『第 9 楼』:  

循环好像不好实现吧？
没一次都要换一个字符啊

2007-4-24 22:45
查看资料  发送邮件  发短消息 网志  OICQ (350858869)  编辑帖子  回复  引用回复
lililulula
中级用户





积分 302
发帖 138
注册 2007-3-29
状态 离线
『第 10 楼』:  

虽然简单但是实用 不过某些没有计算机神经的MM如果中途打字或关闭,那效果就可能不尽人意了.......

2007-4-24 23:00
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 11 楼』:  



  Quote:
Originally posted by aspirer at 2007-4-24 09:44:
我已经关联txt为其它编辑器了，楼上有改成 激活 记事本的 有用吗？这样不是变得更不通用了？楼主的代码可以直接调用我的编辑器。改了之后我不知 ...

其实激不激活基本上无所谓，因为ws.run("notepad.exe")新打开的窗口一般都是置为最前面的，只要打开后延时合适就OK

  Quote:
Originally posted by xuehu at 2007-4-24 09:45:
循环好像不好实现吧？
没一次都要换一个字符啊

我的第三句Num = len(str)输出字符长度给for i = 1 to Num循环次数了，你只要修改句子就OK
PS：VBS不支持中文发送

  Quote:
Originally posted by lililulula at 2007-4-24 10:00:
虽然简单但是实用 不过某些没有计算机神经的MM如果中途打字或关闭,那效果就可能不尽人意了.......

可以加入激活窗口来判断是否继续，当关闭窗口后，脚本无法激活记事本窗口，就会跳出循环，这里玩玩的，也就没考虑

2007-4-24 23:15
查看资料  发短消息 网志   编辑帖子  回复  引用回复
wydos
中级用户





积分 304
发帖 117
注册 2006-4-4
状态 离线
『第 12 楼』:  

zh159
强悍!!
顶!!

2007-4-25 00:40
查看资料  发送邮件  发短消息 网志  OICQ (327337973)  编辑帖子  回复  引用回复
kennyfan
中级用户




积分 259
发帖 112
注册 2006-9-18
状态 离线
『第 13 楼』:  

嘿嘿..有意思..好玩嘛~

2007-4-25 01:01
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
petpiger
新手上路





积分 10
发帖 5
注册 2007-1-2
状态 离线
『第 14 楼』:  

晕,这叫示爱?

2007-4-25 02:05
查看资料  发送邮件  发短消息 网志  OICQ (312590979)  编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 15 楼』:  

能打出汉字就好了....

2007-4-25 04:34
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] [3] » ›
请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023