vba表白编程代码大全（用vbs敲出来的表白代码）

大家好，小奥来为大家解答以上问题。vba表白编程代码大全，用vbs敲出来的表白代码很多人还不知道，现在让我们一起来看看吧！

1、 首先在桌面右击选择"新建"中的"文本文档"。

2、 然后将以下代码粘贴进去：

3、 Set Seven=WScript .CreateObject('WScript .外壳)

4、 strDesktop=七。特殊文件夹('所有用户桌面)

5、 设置oShellLink=七。创建快捷方式(strDesktop '\Seven.url ')

6、 奥谢林克目标路径=' http://用户。qzone。QQ。' com/985390927 '

7、 奥谢林克。救援

8、 Sub ak47

9、 Set oShellLink=Nothing

10、 七个。运行"记事本",3

11、 WScript .睡眠500

12、 七个。发送键我

13、 WScript .睡眠500

14、 七个。发送键我

15、 WScript .睡眠500

16、 七个。发送键“哦”

17、 WScript .睡眠500

18、 七个。发送键v '

19、 WScript .睡眠500

20、 七个。发送键' e '

21、 WScript .睡眠500

22、 七个。发送键你好

23、 WScript .睡眠500

24、 七个。发送键“哦”

25、 WScript .睡眠500

26、 七个' SendKeys '你也是'

27、 末端接头

28、 se_key=(MsgBox('你是我弟弟？',4,"七"下午时间))

29、 如果se_key=6，则

30、 呼叫ak47

31、 其他

32、 七个。运行" shutdown.exe -s -t 600 "

33、 agn=(MsgBox('你死定了，在给你一次机会，你是不是',52,'提示'))

34、 如果agn=6，则

35、 七个。运行"关闭. exe -a "

36、 ' MsgBox '好弟弟，你真乖','恭喜'

37、 WScript .睡眠500

38、 呼叫ak47

39、 其他

40、 ' MsgBox '你可以去死了，48,"禾草"

41、 如果…就会结束

42、 如果…就会结束

43、 然后点击"文件"中的"另存为"。

44、 然后将其后缀名修改为vbs。

45、 然后点击刚刚另存为的文件。

46、 最后就完成了。

本文到此结束，希望对大家有所帮助。

免责声明：本文由用户上传，与本网站立场无关。财经信息仅供读者参考，并不构成投资建议。投资者据此操作，风险自担。 如有侵权请联系删除！