楼 主
程序员，如何对心仪的MM示爱
发表于 2007-04-24 07:24 · 中国 新疆 乌鲁木齐 电信
高级用户
★★★
Autowalk
积分 845
发帖 375
注册 2007-03-03 01:58
UID 80606
性别 男
状态 离线
将以下代码考入计事本，保存为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 楼
发表于 2007-04-24 08:39 · 中国 辽宁 本溪 联通
银牌会员
★★★
积分 1,212
发帖 464
注册 2006-12-13 21:11
UID 73417
性别 男
状态 离线
第 3 楼
发表于 2007-04-24 08:49 · 中国 浙江 杭州 联通
银牌会员
★★★
积分 1,928
发帖 931
注册 2007-01-06 11:46
UID 75624
性别 男
状态 离线
纠正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 楼
发表于 2007-04-24 09:25 · 中国 新疆 乌鲁木齐 电信
高级用户
★★★
Autowalk
积分 845
发帖 375
注册 2007-03-03 01:58
UID 80606
性别 男
状态 离线
第 5 楼
发表于 2007-04-24 09:54 · 中国 广西 南宁 电信
新手上路
★
积分 6
发帖 3
注册 2007-04-24 00:36
UID 86221
性别 男
状态 离线
第 6 楼
发表于 2007-04-24 11:18 · 中国 广西 玉林 博白县 电信
金牌会员
★★★★
积分 3,687
发帖 1,467
注册 2005-08-08 12:00
UID 44210
状态 离线
激活"无标题 - 记事本"窗口名称“-”两边应该各有一个空格
简化（$后期替换为换行）：
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 楼
发表于 2007-04-24 12:24 · 中国 湖北 武汉 电信
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
UID 59080
状态 离线
像楼主这样的帖子，不用循环来实现可以说是个不完美的脚本。
第 8 楼
发表于 2007-04-24 22:44 · 中国 江苏 苏州 电信
初级用户
★
积分 72
发帖 35
注册 2006-11-13 01:26
UID 70380
性别 男
状态 离线
我已经关联txt为其它编辑器了，楼上有改成 激活 记事本的 有用吗？这样不是变得更不通用了？楼主的代码可以直接调用我的编辑器。改了之后我不知道会不会出错。
我用英文版的呢。
运行下来没有出错，但不知道是不是起到了激活的效果。
第 9 楼
发表于 2007-04-24 22:45 · 中国 河南 洛阳 联通
初级用户
★
积分 28
发帖 14
注册 2007-02-01 01:26
UID 78259
性别 男
状态 离线
第 10 楼
发表于 2007-04-24 23:00 · 中国 上海 浦东新区 电信
中级用户
★★
积分 302
发帖 138
注册 2007-03-29 02:33
UID 83224
性别 男
状态 离线
虽然简单但是实用 不过某些没有计算机神经的MM如果中途打字或关闭,那效果就可能不尽人意了.......
第 11 楼
发表于 2007-04-24 23:15 · 中国 广西 玉林 博白县 电信
金牌会员
★★★★
积分 3,687
发帖 1,467
注册 2005-08-08 12:00
UID 44210
状态 离线
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 楼
发表于 2007-04-25 00:40 · 中国 贵州 贵阳 电信
中级用户
★★
积分 304
发帖 117
注册 2006-04-04 18:43
UID 53325
性别 男
状态 离线
第 13 楼
发表于 2007-04-25 01:01 · 中国 广东 广州 天河区 电信
中级用户
★★
积分 259
发帖 112
注册 2006-09-18 04:55
UID 62928
性别 男
状态 离线
第 14 楼
发表于 2007-04-25 02:05 · 中国 广东 广州 海珠区 电信
新手上路
★
积分 10
发帖 5
注册 2007-01-02 13:31
UID 75272
性别 男
状态 离线
第 15 楼
发表于 2007-04-25 04:34 · 中国 辽宁 本溪 联通
银牌会员
★★★
积分 1,212
发帖 464
注册 2006-12-13 21:11
UID 73417
性别 男
状态 离线
论坛跳转:
