国产成人精品亚洲777人妖,欧美日韩精品一区视频,最新亚洲国产,国产乱码精品一区二区亚洲

您的位置:首頁技術(shù)文章
文章詳情頁

抖音vbs表白代碼分享 vbs表白代碼制作教程

瀏覽:186日期:2023-06-02 14:47:15

相信很多朋友在刷抖音的時候刷到很多表白程序,很是神奇。想知道這是怎么做的,自己也想弄一個,下面小編為大家?guī)砹硕兑魐bs表白代碼制作教程分享,想學(xué)習(xí)的朋友快來了解一下吧!

抖音vbs表白代碼分享 vbs表白代碼制作教程

抖音vbs表白代碼制作教程

步驟一:

在電腦上新建一個txt文件。

步驟二:

打開txt文件,復(fù)制以下代碼粘貼進去(可以修改中文部分,其它代碼不要動!)。保存并關(guān)閉txt文件。

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

strDesktop = Seven.SpecialFolders('AllUsersDesktop')

set oShellLink = Seven.CreateShortcut(strDesktop & 'Seven.url')

oShellLink.TargetPath = 'http://user.qzone.qq.com/985390927'

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

步驟三:

抖音vbs表白代碼分享 vbs表白代碼制作教程

將txt文件名稱后面的“.txt”改為“.vbs”。

步驟四:

抖音vbs表白代碼分享 vbs表白代碼制作教程

雙擊改名后的vbs文件即可看到和抖音視頻上一樣的效果。

注意事項

若新建的txt文件不顯示“.txt”,可隨便打開一個文件夾,再點擊【查看】,在【文件擴展名】前面打勾即可。

以上就是小編為大家?guī)淼年P(guān)于抖音表白程序怎么做 表白程序制作教程分享的全部內(nèi)容了,希望能幫助到大家。更多精彩資訊盡在好吧啦網(wǎng)。

標(biāo)簽: 抖音
相關(guān)文章:
主站蜘蛛池模板: 横山县| 孟州市| 嘉定区| 庄河市| 辛集市| 施秉县| 辽中县| 泾川县| 玉山县| 通海县| 凌源市| 寿光市| 汝南县| 额敏县| 汤原县| 冀州市| 阿拉尔市| 禹州市| 永靖县| 镇沅| 丘北县| 新晃| 石楼县| 泰安市| 札达县| 漳州市| 陵川县| 台湾省| 张家口市| 扶余县| 兰西县| 调兵山市| 城口县| 桐梓县| 蒙自县| 耿马| 浠水县| 沿河| 顺昌县| 平果县| 元朗区|