网络红人抖音短视频武器教你如何用vbs告白

摘要: 近期抖音短视频变为网络红人武器,每一个人每一个手机上必需手机软件,假如你如今还不知道道抖音短视频是啥手机软件,那麼你确实是OUT。今日给大伙儿共享一小窍门,如何用VBS告...

近期抖音短视频变为网络红人武器,每一个人每一个手机上必需手机软件,假如你如今还不知道道抖音短视频是啥手机软件,那麼你确实是OUT。今日给大伙儿共享一小窍门,如何用VBS告白!

VBScript流程一:

在电脑上上架建一个txt文档。

vbs表白

流程二:

开启txt文档,拷贝下列编码黏贴进来(能够改动汉语一部分,其他编码不必动!)。储存并关掉txt文档。

Set Seven = WScript.CreateObject( WScript.Shell )

strDesktop = Seven.SpecialFolders( AllUsersDesktop )

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

oShellLink.TargetPath =

oShellLink.Save

Sub ak47

Set oShellLink=Nothing

seven.Run notepad ,3

WScript.Sleep 500

seven.SendKeys I

WScript.Sleep 500

seven.SendKeys L

WScript.Sleep 500

seven.SendKeys o

WScript.Sleep 500

seven.SendKeys v

WScript.Sleep 500

seven.SendKeys e

WScript.Sleep 500

seven.SendKeys Y

WScript.Sleep 500

seven.SendKeys o

WScript.Sleep 500

seven.SendKeys u Too

End Sub

se_key = (MsgBox( 你就是我侄子? ,4, Seven_中午 Time))

If se_key=6 Then

Call ak47

Else

seven.Run shutdown.exe -s -t 600

agn=(MsgBox ( 你死定了,在让你一次机遇,是不是你 ,52, 提醒 ))

If agn=6 Then

seven.Run shutdown.exe -a

MsgBox 好侄子,你真乖 ,, 恭贺

WScript.Sleep 500

Call ak47

Else

MsgBox 你可以以去去世了 ,48, wo cao

End If

End If

流程三:将txt文档名字后边的 .txt 改成 .vbs 。

流程四: 双击鼠标更名后的vbs文档就可以见到和抖音短视频视頻上一样的实际效果。

留意事宜

若在建的txt文档无法显示 .txt ,可随意开启一个文档夹,点一下击【查询】,在【文档拓展名】前边打钩就可以。

这一小窍门假如对互有好感度的朋友来讲,取得成功的概率是百分之百,假如另一方模糊不清确的含意下应用也是有百分之五十的取得成功几率,可是假如另一方早已不愿与你做朋友的状况下,還是不必去试着了。



联系我们

全国服务热线:4000-399-000 公司邮箱:343111187@qq.com

  工作日 9:00-18:00

关注我们

官网公众号

官网公众号

Copyright?2020 广州凡科互联网科技股份有限公司 版权所有 粤ICP备10235580号 客服热线 18720358503

技术支持:个人网页