#转自
最近因为同事工作摸鱼,企业微信那个小电脑标志变黑了,被老板dei了一顿骂。
于是琢磨琢磨怎么去找一个摸鱼脚本。本来想着去自己用C++写一个,后面看到了vb写的脚本,话不多说直接上代码。
第一步:新建txt,并且敲入如下代码
Set objShell = CreateObject("Wscript.Shell")
do
WScript.Sleep 60*1000
objShell.SendKeys "{F5}"
loop
第二步:改txt为vbs
想要时间短一点,把上面的60改了就行,这个意思是60*1000ms。
然后点击运行
开始摸鱼把!
。。。。。。。。。。。
关闭的脚本代码:
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true
操作类似
摸鱼才叫挣钱~