vbs撩妹小程序

Set Seven= WScript.CreateObject("WScript.Shell")

'表示获得当前电脑的用户名
Set wshshell = CreateObject("wscript.network")
hostname=wshshell.username

strDesktop = Seven.SpecialFolders("AllUsersDesktop")

set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url")

Sub ak47

Set oShellLink=Nothing

seven.Run "notepad",3

WScript.Sleep 600

Seven.SendKeys "+"

'str是在记事本输出的文字，不能为中文， ` 这个符号表示换行（注意）
str = "Hello, ` Write what you want to say here."

dim a(200)

Seven.SendKeys "<!--"

Seven.SendKeys "{ENTER}"

WScript.Sleep 300

for i = 1 to len(str)

a(i)=mid(str,i,1)

if a(i)="`" Then

Seven.SendKeys "{ENTER}"

Else

Seven.SendKeys a(i)

WScript.Sleep 200

End if

Seven.SendKeys "{ENTER}"

WScript.Sleep 500

Seven.SendKeys "-->"

Seven.SendKeys "{ENTER}"

WScript.Sleep 1000

Seven.SendKeys "<!DOCTYPE html><html lang='en'><head> <meta charset='UTF-8'> <title>little orange</title> <style> *{{}margin:0; padding:0;{}} body,html{{}width:100{%}; height:100{%};{}} .bg {{} position: absolute; top: 0; left: 0; width: 100{%}; height: 100{%}; {}}"

'以下为中间盒子展示的图，我这边是直接访问了保存在我qq相册的地址，地址中如果有？：！_（） * & 等在平时需要按shift+的特殊字符需要加{}大括号，比如 {&} （注意）

Seven.SendKeys ".bg-box-1{{} background: url{(}'http{:}//m.qpic.cn/psb{?}/V137oF7q3SSc2C/MJLIHWWVKLiEwx5tiQOOii.szRJEyvhX6tjIVkF2bdY{!}/b/dLYAAAAAAAAA{&}bo=AAWCAwAAAAARF6Q{!}{&}rf=viewer{_}4'{)} no-repeat center/cover; {}} "

Seven.SendKeys ".bg-box-2{{} background: url{(}'http{:}//m.qpic.cn/psb{?}/V137oF7q3SSc2C/IuH7PP{*}ngABL2cTPtQlhYDWgUwf9DT7r4l9GfCKETDA{!}/b/dL8AAAAAAAAA{&}bo=wAY4BAAAAAARF9o{!}{&}rf=viewer{_}4'{)} no-repeat center/cover; {}}"

Seven.SendKeys ".bg-box-3{{} background: url{(}'http{:}//m.qpic.cn/psb{?}/V137oF7q3SSc2C/XttoCdeoDAekbHry{*}suJ{*}wyEPLM7{*}H4ZHdX4h{*}aWk{*}U{!}/b/dAgBAAAAAAAA{&}bo=WAJpAQAAAAARFxI{!}{&}rf=viewer{_}4'{)} no-repeat center/cover; {}} "

Seven.SendKeys ".bg-box-4{{} background: url{(}'http{:}//m.qpic.cn/psb{?}/V137oF7q3SSc2C/S{*}nx3NQVTdELWOsftpMDVRnI4yGoZxgXgfzakkLEY9s{!}/b/dDQBAAAAAAAA{&}bo=AAQAAwAAAAARBzc{!}{&}rf=viewer{_}4'{)} no-repeat center/cover; {}}"

Seven.SendKeys "#wrap{{} position: absolute; overflow: hidden; top:0; left:0; right:0; bottom:0; margin:auto; width: 1000px; height: 400px; {}} #wrap > ul{{} width: 120{%}; list-style: none; {}} #wrap > ul > li{{} float: left; width: 100px; height: 400px; cursor: pointer; {}}"

'以下为背景图，（注意）

Seven.SendKeys "#wrap > ul > li:nth-child{(}1{)}{{} background: url{(}'http{:}//m.qpic.cn/psb{?}/V137oF7q3SSc2C/MJLIHWWVKLiEwx5tiQOOii.szRJEyvhX6tjIVkF2bdY{!}/b/dLYAAAAAAAAA{&}bo=AAWCAwAAAAARF6Q{!}{&}rf=viewer{_}4'{)} no-repeat center/cover; {}} "

Seven.SendKeys "#wrap > ul > li:nth-child{(}2{)}{{} background: url{(}'http{:}//m.qpic.cn/psb{?}/V137oF7q3SSc2C/IuH7PP{*}ngABL2cTPtQlhYDWgUwf9DT7r4l9GfCKETDA{!}/b/dL8AAAAAAAAA{&}bo=wAY4BAAAAAARF9o{!}{&}rf=viewer{_}4'{)} no-repeat center/cover; {}}"

Seven.SendKeys "#wrap > ul > li:nth-child{(}3{)}{{} background: url{(}'http{:}//m.qpic.cn/psb{?}/V137oF7q3SSc2C/XttoCdeoDAekbHry{*}suJ{*}wyEPLM7{*}H4ZHdX4h{*}aWk{*}U{!}/b/dAgBAAAAAAAA{&}bo=WAJpAQAAAAARFxI{!}{&}rf=viewer{_}4'{)} no-repeat center/cover; {}}"

Seven.SendKeys "#wrap > ul > li:nth-child{(}4{)}{{} background: url{(}'http{:}//m.qpic.cn/psb{?}/V137oF7q3SSc2C/S{*}nx3NQVTdELWOsftpMDVRnI4yGoZxgXgfzakkLEY9s{!}/b/dDQBAAAAAAAA{&}bo=AAQAAwAAAAARBzc{!}{&}rf=viewer{_}4'{)} no-repeat center/cover; width: 700px; {}}"

Seven.SendKeys "#wrap > ul > li > .text{{} width: 100px; height: 100{%}; background: #000; opacity: .5; {}} #wrap > ul > li > .text p{{} padding: 20px 40px; font-family: 'Microsoft yahei'; color: #fff; {}} </style></head><body>"

Seven.SendKeys "<div class='bg bg-box-1'></div><div class='bg bg-box-2'></div><div class='bg bg-box-3'></div><div class='bg bg-box-4'></div><div id='wrap'><ul> <li> <div class='text'> <p>L o v e</p> </div> </li> <li> <div class='text'> <p>a n d</p> </div> </li> <li> <div class='text'> <p>p e a c e</p> </div> </li> <li class='curr'> <div class='text'> <p>c y c</p> </div> </li> </ul></div>"

Seven.SendKeys "<script src='https://code.jquery.com/jquery-3.0.0.min.js'></script><script type='text/javascript'>{(}function{(}{)}{{} ${(}'#wrap li'{)}.mouseover{(}function{(}{)}{{} if{(}!${(}this{)}.hasClass{(}'curr'{)}{)}{{} ${(}'#wrap li'{)}.removeClass{(}'curr'{)}; ${(}this{)}.addClass{(}'curr'{)}; ${(}'#wrap li'{)}.each{(}function{(}index{)}{{} if{(}${(}this{)}.hasClass{(}'curr'{)}{)}{{} ${(}'.bg'{)}.fadeOut{(}300{)}; ${(}'.bg:eq{(}' {+} index {+} '{)}'{)}.fadeIn{(}500{)}; {}} {}}{)};"

Seven.SendKeys " ${(}'.curr'{)}.stop{(}{)}.animate{(}{{} width: 700 {}}, 500, 'linear'{)}; ${(}'#wrap li'{)}.not{(}'.curr'{)}.stop{(}{)}.animate{(}{{} width: 100 {}}, 500, 'linear'{)}; {}} {}}{)}; {}}{)}{(}{)}</script></body> </html>

猜你喜欢