网络红人抖音短视频武器教你如何用vbs告白
摘要： 近期抖音短视频变为网络红人武器，每一个人每一个手机上必需手机软件，假如你如今还不知道道抖音短视频是啥手机软件，那麼你确实是OUT。今日给大伙儿共享一小窍门，如何用VBS告...
VBScript流程一:
在电脑上上架建一个txt文档。
流程二:
开启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 ，可随意开启一个文档夹，点一下击【查询】，在【文档拓展名】前边打钩就可以。
这一小窍门假如对互有好感度的朋友来讲，取得成功的概率是百分之百，假如另一方模糊不清确的含意下应用也是有百分之五十的取得成功几率，可是假如另一方早已不愿与你做朋友的状况下，還是不必去试着了。
