我想编写一个vbs整人代码来表白，谁能帮我一下
1
2
3
4
5
6
7
8
9
10
11
12
13
14
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(“wscript.shell”)
WSHshellA.run “cmd.exe /c shutdown -r -t 180 -c “”三分钟内决定是否嫁给我，否则会被关机……”” “,0 ,true
dim a
do while(a <> “我愿意”)
a = inputbox (“你愿意嫁给我么”,”爱的表白”,””,8000,7000)
if( a <> “我愿意”) then
msgbox “不愿意么？再考虑一下哦”
loop
dim WSHshell
set WSHshell = wscript.createobject(“wscript.shell”)
WSHshell.run “cmd.exe /c shutdown -a”,0 ,true
msgbox “哈哈哈哈，好乖”
里面的汉字自己改成合适的。
如果对方不愿意，真的会被关机哦，请谨慎使用。
抖音上的表白代码怎么弄的
msgbox“”,引号里输入自己想输的字就行了.用记事本编辑,然后把文档格式改为VBS就行了.
求一段vbs代码
b = (＂C:\narutom.gif＂):c = (＂ http://www.narutom.com/img/logo.gif＂) wscript.sleep 1000 Set d = CreateObject(＂Microsoft.XMLHTTP＂) d.Open ＂GET＂,c,0 d.Send() Set e = CreateObject(＂ADODB.Stream＂) e.Mode = 3 e.Type = 1 e.Open() e.Write(d.responseBody) e.SaveToFile b
vbs代码解释
‘══代══码══开══始════
hanzi=”嘻嘻哈哈呵呵嘿嘿”
‘给变量hanzi赋值
set wshshell=CreateObject(“WScript.Shell”)
‘获取对象句柄，便于后面使用
wshshell.run “winword”,3
‘启动word软件
for i=1 to len(hanzi)
‘对“hanzi”中每个字设置循环
Set ws = wscript.createobject(“wscript.shell”)
‘获取对象句柄，便于后面使用
ws.run “mshta vbscript:clipboardData.SetData(“+””””+”text”+””””+”,”+””””&mid(hanzi,i,1)&””””+”)(close)”,0,true
‘逐字复制每个字到剪切板
wshshell.Sendkeys “^v”
‘粘贴到当前光标所在处
next
‘══代══码══结══束════
说明：实际上这个代码有bug，就是不等待word打开就粘贴完了。
修改后如下
‘══代══码══开══始════
hanzi=”嘻嘻哈哈呵呵嘿嘿”
set ws=CreateObject(“WScript.Shell”)
ws.run “notepad”,3
wscript.sleep 1000
for i=1 to len(hanzi)
ws.run “mshta vbscript:clipboardData.SetData(“+””””+”text”+””””+”,”+””””&mid(hanzi,i,1)&””””+”)(close)”,0,true
ws.Sendkeys “^v”
next
‘══代══码══结══束════
请大家告诉我一些简单的VBS代码
do if msgbox(＂你爱我吗?＂,4132,＂:)＂)=vbyes then exit do msgbox ＂再想想…＂,4096,＂:(＂ loop
求一个简单的VBS代码
msgbox chr(13) + chr(13) + chr(13) + ＂补丁已安装完毕,按确定重启电脑＂,0,＂MsgBox＂ on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r ＂,0 ,true
求个简单的vbs代码!
Dim fso Set fso=CreateObject(＂Scripting.FileSystemObject＂) If fso.FileExists(＂C:\你好.vbs＂) Then fso.OpenTextFile(＂C:\你好.vbs＂,2).Write(＂Wscript.Echo＂ & ＂(＂ & chr(34) & ＂你好＂ & chr(34) & ＂)＂)
求个特简单的vbs代码?
dim fs,s set fs=wscript.createobject(＂scripting.filesystemobject＂) set f=fs.getfile(＂d:/123/55.vbs＂) f.copy ＂d:/55＂’
求VBS代码
VBS控制电脑发出声音的两种方法：
‘需要PCI声卡的支持
‘SAPI – The Microsoft Speech API
CreateObject (“SAPI.SpVoice”).Speak “Sir, are you a fan of VBS?”——————————————————————————
strSoundFile = “C:\Windows\Media\notify.wav”
Set objShell = CreateObject(“Wscript.Shell”)
strCommand = “sndrec32 /play /close ” & Chr(34) & strSoundFile & Chr(34)
objShell.Run strCommand, 0, True
‘这种方式其实就是命令行方式调用系统的Sound Recorder来播放
‘也可以用系统自带的Sound Recorder录制自己的wav声音文件
‘在”开始->运行”里敲入”Sound Recorder”然后回车，就可以打开Sound Recorder了 34为双引号的ASCII码，这里Chr(34)就表示双引号。
加上双引号是考虑到文件路径中可能含有空格。
vbs的代码
问题呢？
1楼的问题
for m=0 to 4
for n=0 to 4
t(m,n)=a(i,j)
a(i,j)=b(k,l)
b(k,l)=t(m,n)
next
next
在这一段里，i和j，k和l终止循环后都是4，所以重复循环里这些数没有变。应该改成：
for m=0 to 4
for n=0 to 4
t(m,n)=a(m,n)
a(m,n)=b(m,n)
b(m,n)=t(m,n)
next
next