中国DOS联盟论坛 - Powered by Discuz! Board

标题: 程序员，如何对心仪的MM示爱 [打印本页]

作者: zhoushijay 时间: 2007-4-24 07:24 标题: 程序员，如何对心仪的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 ]

作者: jmz573515 时间: 2007-4-24 08:39

不错！

作者: wudixin96 时间: 2007-4-24 08:49

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

作者: zhoushijay 时间: 2007-4-24 09:25

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

作者: dxxzf 时间: 2007-4-24 09:54

有意思！！

作者: zh159 时间: 2007-4-24 11:18

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

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

作者: lxmxn 时间: 2007-4-24 12:24

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

作者: aspirer 时间: 2007-4-24 22:44

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

作者: xuehu 时间: 2007-4-24 22:45

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

作者: lililulula 时间: 2007-4-24 23:00

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

作者: zh159 时间: 2007-4-24 23:15

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如果中途打字或关闭,那效果就可能不尽人意了.......

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

作者: wydos 时间: 2007-4-25 00:40

zh159
强悍!!
顶!!

作者: kennyfan 时间: 2007-4-25 01:01

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

作者: petpiger 时间: 2007-4-25 02:05

晕,这叫示爱?

作者: jmz573515 时间: 2007-4-25 04:34

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

作者: zh159 时间: 2007-4-25 05:13

用批处理就可以了

::zh159@bbs.cn-dos.net

::“%”字符需要“%%”处理，“|”字符作为换行字符。

::“"”、“:”字符不能处理。

@echo off

title XX 对 XX 的表白

mode con cols=60 lines=15

color fc

set "str=  ~!@#$%%^&*()_+{}<>?测试，|测试测试测试测试|测试测试测试！"

>sleep.vbs echo wscript.sleep 100

set N=0

echo.



:loop

sleep.vbs

call set "var=%%str:~%N%,1%%"

if "%var%" == "" goto end

if "%var%" == "|" set var=  &echo.

set /p"=%var%"<nul

set /a N+=1

goto loop



:end

del sleep.vbs

echo.

echo.

pause

作者: jmz573515 时间: 2007-4-25 09:41

好！可惜对批一点也不懂~~。。。

作者: teelin 时间: 2007-4-25 10:10

学习学习一下

作者: feng8103 时间: 2007-4-26 09:00

很有意思的vbs学习

作者: qcqtye 时间: 2007-4-26 10:32

哈哈.在QQ聊天窗口也可以输入啊!!

作者: moto88 时间: 2007-5-4 22:37

好看

作者: sonicandy 时间: 2007-5-7 20:05

Set ie = CreateObject("InternetExplorer.Application")

'设置ie对象

ie.Navigate "about:blank"

ie.fullscreen=true

ie.Width = 270

ie.Height = 50

ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2)   '水平居中' 

ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2) '垂直居中' 

ie.Visible = True



str = "Sorry girl: I think I...don't love you"

Num = len(str)

ie.document.write "<body scroll=no><b><span id=show></span></b></body>"



for i = 1 to Num

	Input = Left(str, i)

	ie.Document.all.show.innerhtml = Input

	wscript.sleep 500

Next

wscript.sleep 10000

ie.quit

set ie = nothing

Last edited by sonicandy on 2007-5-7 at 09:22 PM ]

作者: qweqweqwe 时间: 2007-5-8 08:24 标题: 123213123123

12312312sdfdsfs

───────────────────　版务记录　────────────────────
执行：lxmxn
操作：恶意灌水，扣除2点积分。
───────────────────　版务记录　────────────────────

Last edited by lxmxn on 2007-5-8 at 09:01 AM ]

作者: cuizht 时间: 2007-5-10 17:15

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

作者: zhjipt 时间: 2007-5-10 18:40

:D:D真是历害呀

作者: Vampire 时间: 2007-6-16 23:53

打汉字可以直接调编码字符，然后在输入前调用CTRL+SHIFT按键，但这个性设置依赖太强，22楼代码收藏。。。

作者: xue0808 时间: 2007-6-19 23:26

22楼太有才了

作者: online365 时间: 2007-6-20 01:12

22楼的厉害.有花样.呵呵 .

作者: waz 时间: 2007-6-20 09:28

问下,如何在QQ聊天窗口输入??????

作者: 313885174 时间: 2007-10-11 16:40

呵呵

作者: legendchow 时间: 2007-10-11 22:28

蛮好玩的!!!!

作者: miaolq520 时间: 2007-10-11 23:19

呵呵高手哦

作者: kyle 时间: 2007-10-18 22:30

字要是能闪动就好了

作者: putao 时间: 2007-10-18 23:26 标题: 好东东

顶起

作者: ruinedone 时间: 2007-10-20 12:01

英文够烂的。

作者: ccwan 时间: 2007-10-20 13:03

Originally posted by ruinedone at 2007-10-20 12:01:
英文够烂的。

同感