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

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

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

dim WSHshellA

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

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

dim a

do while(a "我是豬")

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

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

loop

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

dim WSHshell

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

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

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

完整代碼

運用bat寫的整人小程序有哪些?

驗證完成之后，用戶需要選擇訂閱號，然后就進入訂閱號的創(chuàng)建過

程中。用戶選擇了訂閱號之后，就會進入一個訂閱號的信息填寫界面。

在這個界面中，用戶需要選擇運營主體的類型，從政府、企業(yè)、媒體、

其他組織和個人中進行選擇。需要注意的是，在這個過程中，訂閱號相

對于服務(wù)號多了一個“個人”，也就是說個人也可以申請訂閱號。用戶

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

進行更改。比如，選擇個人之后，那么訂閱號申請就會進入相應(yīng)的個人

信息錄入頁面，用戶需要實名錄入自己的身份信息、手機號碼等。在上

傳身份證圖片時，也需要個人手持證件拍照上傳。

錄入這些信息之后，點擊“注冊”按鈕之后，等待公眾平

臺的審查，通過后就可以獲得屬于自己的訂閱號了。

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

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

01

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

02

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

03

接下來我們雙擊vbs程序文件，運行上面編寫的整人程序，你會看到如下圖所示的彈窗效果，我們點擊確定以后會不斷的彈窗

04

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

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

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

工具/材料

Win7

01

首先，在桌面右擊鼠標，在彈出的命令中點擊新建，在向右彈出的命令中點擊文本文檔。

02

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

03

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

04

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

05

雙擊一下文件看看，就運行出一個的提示框，按確定又會彈出，無法中止。

06

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

07

接下來想辦法將該文件放入到朋友的開始菜單啟動文件夾里就可以了。

誰給我一個用VB6.0寫的整人小程序啊

下面這些代碼是一個小小的整人程序： 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代表 這個窗體

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

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

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

Me.Visible = Not Me.Visible '使這個程序的可見性 改變，例如 原來為可見的，運行一次這個代碼后，就變成不可見的， Not 是用來 否定 那個值的

Loop

End Sub