整人小程序：說(shuō)我是豬就不關(guān)機(jī)這個(gè)代碼復(fù)制哪里

復(fù)制到TXT文件 然后把后綴改為.vbs 就可以了 雙擊就可以運(yùn)行

成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),石龍企業(yè)網(wǎng)站建設(shè),石龍品牌網(wǎng)站建設(shè),網(wǎng)站定制,石龍網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷(xiāo),網(wǎng)絡(luò)優(yōu)化,石龍網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力。可充分滿(mǎn)足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專(zhuān)業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶(hù)成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""快說(shuō)“我是豬”，不說(shuō)我是豬就一分鐘關(guān)你機(jī)，不信，試試···"" ",0 ,true

dim a

do while(a "我是豬")

a = inputbox ("說(shuō)我是豬,就不關(guān)機(jī)，快撒，說(shuō) ""我是豬"" ","說(shuō)不說(shuō)","不說(shuō)",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早說(shuō)就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "這樣才乖嘛!~"

完整代碼

運(yùn)用bat寫(xiě)的整人小程序有哪些?

驗(yàn)證完成之后，用戶(hù)需要選擇訂閱號(hào)，然后就進(jìn)入訂閱號(hào)的創(chuàng)建過(guò)

程中。用戶(hù)選擇了訂閱號(hào)之后，就會(huì)進(jìn)入一個(gè)訂閱號(hào)的信息填寫(xiě)界面。

在這個(gè)界面中，用戶(hù)需要選擇運(yùn)營(yíng)主體的類(lèi)型，從政府、企業(yè)、媒體、

其他組織和個(gè)人中進(jìn)行選擇。需要注意的是，在這個(gè)過(guò)程中，訂閱號(hào)相

對(duì)于服務(wù)號(hào)多了一個(gè)“個(gè)人”，也就是說(shuō)個(gè)人也可以申請(qǐng)訂閱號(hào)。用戶(hù)

可以根據(jù)自身具體屬性選擇相應(yīng)的主體類(lèi)型，一旦選擇成功后，便不可

進(jìn)行更改。比如，選擇個(gè)人之后，那么訂閱號(hào)申請(qǐng)就會(huì)進(jìn)入相應(yīng)的個(gè)人

信息錄入頁(yè)面，用戶(hù)需要實(shí)名錄入自己的身份信息、手機(jī)號(hào)碼等。在上

傳身份證圖片時(shí)，也需要個(gè)人手持證件拍照上傳。

錄入這些信息之后，點(diǎn)擊“注冊(cè)”按鈕之后，等待公眾平

臺(tái)的審查，通過(guò)后就可以獲得屬于自己的訂閱號(hào)了。

VBS小程序-彈窗整人（代碼+解析）

VBS可以用來(lái)編寫(xiě)一些整人的小程序，那么如何編寫(xiě)呢？下面我就給大家分享一下。

01

我們首先在桌面上創(chuàng)建一個(gè)VBS的文件，如下圖所示，注意VBS文件雙擊的話(huà)是直接運(yùn)行的

02

然后我們用Sublime打開(kāi)vbs程序文件，在里面借助loop循環(huán)來(lái)不斷的輸出msgbox，如下圖所示

03

接下來(lái)我們雙擊vbs程序文件，運(yùn)行上面編寫(xiě)的整人程序，你會(huì)看到如下圖所示的彈窗效果，我們點(diǎn)擊確定以后會(huì)不斷的彈窗

04

最后如果你想關(guān)閉這個(gè)整人的程序只能通過(guò)在任務(wù)管理器里面右鍵結(jié)束任務(wù)進(jìn)行關(guān)閉了，如下圖所示

如何設(shè)置一個(gè)簡(jiǎn)單的整人小程序嚇嚇小伙伴？

如果想在愚人節(jié)逗逗你的朋友，可以用電腦做個(gè)整人小程序嚇嚇對(duì)方哦，呵呵，下面就來(lái)看看如何設(shè)置。

工具/材料

Win7

01

首先，在桌面右擊鼠標(biāo)，在彈出的命令中點(diǎn)擊新建，在向右彈出的命令中點(diǎn)擊文本文檔。

02

將剛才建立好的文本文檔雙擊打開(kāi)。輸入如下圖的代碼，中文可改成自己想要的文字。

03

點(diǎn)擊關(guān)閉按鈕，點(diǎn)擊保存文件。再對(duì)文件進(jìn)行改名操作，選中擴(kuò)展名txt。

04

改成vbs。點(diǎn)旁邊空白位置確定更改，更改后的文件如圖。

05

雙擊一下文件看看，就運(yùn)行出一個(gè)的提示框，按確定又會(huì)彈出，無(wú)法中止。

06

如果要終止需要按Ctrl+Alt+Delete開(kāi)啟任務(wù)管理器，點(diǎn)擊進(jìn)程，選中wscript.exe，點(diǎn)擊結(jié)束進(jìn)程就可以了。

07

接下來(lái)想辦法將該文件放入到朋友的開(kāi)始菜單啟動(dòng)文件夾里就可以了。

誰(shuí)給我一個(gè)用VB6.0寫(xiě)的整人小程序啊

下面這些代碼是一個(gè)小小的整人程序： Private Sub Form_Load()

Me.Left = -10000

Me.Top = -10000

Do While 1 = 1

Me.Visible = Not Me.Visible

Loop

End Sub

下面是帶解釋的:Private Sub Form_Load() '窗體加載事件

'Me代表 這個(gè)窗體

Me.Left = -10000 '設(shè)置這個(gè)窗體的左邊與屏幕的左邊之間的距離為-10000，其實(shí)也就是使窗體在屏幕的左邊-10000處

Me.Top = -10000 '設(shè)置這個(gè)窗體的頂部與屏幕的頂部之間的距離為-10000，其實(shí)也就是使窗體在屏幕的上邊-10000處

Do While 1 = 1 'Do循環(huán)，條件為 1=1，因?yàn)?1=1 是成立的，即 True ，所以就形成個(gè)死循環(huán)

Me.Visible = Not Me.Visible '使這個(gè)程序的可見(jiàn)性 改變，例如 原來(lái)為可見(jiàn)的，運(yùn)行一次這個(gè)代碼后，就變成不可見(jiàn)的， Not 是用來(lái) 否定 那個(gè)值的

Loop

End Sub

分享文章：整人小程序java源代碼 整人小程序java源代碼有哪些
鏈接地址：http://chinadenli.net/article14/hhgcde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信公眾號(hào)、云服務(wù)器、企業(yè)網(wǎng)站制作、軟件開(kāi)發(fā)、服務(wù)器托管、做網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)