12 12
发新话题
打印

[软件技术] 向女友求爱的小程序

本主题由 风云浪子 于 2008-6-3 22:57 分类
把本帖网址贴到网络上任何地方,同样可以获得推广币和用户等级提升 详情点击这里
http://www.770921.com/viewthread.php? tid=93608&fromuid=0 复制本帖地址
8月活动:积分获大礼活动(实物奖励)
联盟论坛管理人员大招募!

向女友求爱的小程序

向女友求爱的小程序
把这段代码保存为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("!")

TOP

太简单了

TOP

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

TOP

看贴是分享,回贴是美德

TOP

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

TOP

谢谢,希望以后多发一些

TOP

楼主太有才,太辛苦了!

TOP

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

TOP

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

TOP

超级精彩,我非常喜歡

TOP

 12 12
发新话题