查看完整版本: 向女友求爱的小程序

就是不告诉你 2008-5-27 12:36

向女友求爱的小程序

向女友求爱的小程序
把这段代码保存为x.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(":")
wscript.sleep 500
ws.sendkeys(chr(10))
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("i")
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("!")

kongny 2008-6-11 16:47

太简单了

xiaocongcong 2008-6-12 09:14

顶上去,好贴要给大家分享

功夫茶0126 2008-6-12 09:49

看贴是分享,回贴是美德

万里无云 2008-6-12 09:49

顶上去,好贴要给大家分享

若有若无 2008-6-12 10:06

谢谢,希望以后多发一些

太辰 2008-6-12 10:56

楼主太有才,太辛苦了!

万里无云 2008-6-12 11:54

看了楼主的帖子,不由得精神为之一振

中文版 2008-6-12 11:54

感谢分享,在下对你的景仰之情有如滔滔长江之水

50330 2008-6-12 12:11

超级精彩,我非常喜歡

caonimaba 2008-6-12 14:18

看了楼主的帖子,不由得精神为之一振

风无纪 2008-6-12 14:34

厉害!强~~~~没的说了!
页: [1]
查看完整版本: 向女友求爱的小程序