程序员，如何对心仪的MM示爱 - 中国DOS联盟论坛

将以下代码考入计事本，保存为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 ]

纠正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("!")

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

激活"无标题 - 记事本"窗口名称“-”两边应该各有一个空格
简化（$后期替换为换行）：

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

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

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

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

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

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

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

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

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

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

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

zh159
强悍!!
顶!!

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

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

第1楼　zhoushijay	发表于 2007-04-24 07:24
高级用户　发帖 375　积分 845
程序员，如何对心仪的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 ]

第2楼　jmz573515	发表于 2007-04-24 08:39
银牌会员　发帖 464　积分 1,212
不错！

第3楼　wudixin96	发表于 2007-04-24 08:49
银牌会员　发帖 931　积分 1,928
纠正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("!")

第4楼　zhoushijay	发表于 2007-04-24 09:25
高级用户　发帖 375　积分 845
.... 还好这里没girl吧，不然我死定了！

第5楼　dxxzf	发表于 2007-04-24 09:54
新手上路　发帖 3　积分 6
有意思！！

第6楼　zh159	发表于 2007-04-24 11:18
金牌会员　发帖 1,467　积分 3,687
激活"无标题 - 记事本"窗口名称“-”两边应该各有一个空格简化（$后期替换为换行）： 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

第7楼　lxmxn	发表于 2007-04-24 12:24
版主　发帖 4,938　积分 11,386
像楼主这样的帖子，不用循环来实现可以说是个不完美的脚本。

第8楼　aspirer	发表于 2007-04-24 22:44
初级用户　发帖 35　积分 72
我已经关联txt为其它编辑器了，楼上有改成激活记事本的有用吗？这样不是变得更不通用了？楼主的代码可以直接调用我的编辑器。改了之后我不知道会不会出错。我用英文版的呢。运行下来没有出错，但不知道是不是起到了激活的效果。

第9楼　xuehu	发表于 2007-04-24 22:45
初级用户　发帖 14　积分 28
循环好像不好实现吧？没一次都要换一个字符啊

第10楼　lililulula	发表于 2007-04-24 23:00
中级用户　发帖 138　积分 302
虽然简单但是实用不过某些没有计算机神经的MM如果中途打字或关闭,那效果就可能不尽人意了.......

第11楼　zh159	发表于 2007-04-24 23:15
金牌会员　发帖 1,467　积分 3,687
Originally posted by aspirer at 2007-4-24 09:44: 我已经关联txt为其它编辑器了，楼上有改成激活记事本的有用吗？这样不是变得更不通用了？楼主的代码可以直接调用我的编辑器。改了之后我不知 ... 其实激不激活基本上无所谓，因为ws.run("notepad.exe")新打开的窗口一般都是置为最前面的，只要打开后延时合适就OK Originally posted by xuehu at 2007-4-24 09:45: 循环好像不好实现吧？没一次都要换一个字符啊我的第三句Num = len(str)输出字符长度给for i = 1 to Num循环次数了，你只要修改句子就OK PS：VBS不支持中文发送 Originally posted by lililulula at 2007-4-24 10:00: 虽然简单但是实用不过某些没有计算机神经的MM如果中途打字或关闭,那效果就可能不尽人意了....... 可以加入激活窗口来判断是否继续，当关闭窗口后，脚本无法激活记事本窗口，就会跳出循环，这里玩玩的，也就没考虑

第12楼　wydos	发表于 2007-04-25 00:40
中级用户　发帖 117　积分 304
zh159 强悍!! 顶!!

第13楼　kennyfan	发表于 2007-04-25 01:01
中级用户　发帖 112　积分 259
嘿嘿..有意思..好玩嘛~

第14楼　petpiger	发表于 2007-04-25 02:05
新手上路　发帖 5　积分 10
晕,这叫示爱?

第15楼　jmz573515	发表于 2007-04-25 04:34
银牌会员　发帖 464　积分 1,212
能打出汉字就好了....