1.vbåä¸ä¸ªç®åçå°ç¨åº
2.vb有趣小程序
3.vb游戏代码大全vb小游戏源代码
vbåä¸ä¸ªç®åçå°ç¨åº
Option Explicit
Private Sub Form_Load()
ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"
ShockwaveFlash1.Menu = False
ShockwaveFlash1.Playing = True
End Sub
Private Sub Timer1_Timer()
End
End Sub
建ä¸ä¸ªæ è¾¹æ¡çªä½,小工å¤å¶ä¸é¢ä»£ç è¿å»å°±OKäº
å·¥ç¨æ件ç»ä½ åè¿å»äº ååçæ¯ä¿®æ¹è¿ç å å»äºéè¦ä¿®æ¹è·¯å¾ç麻ç¦
vb有趣小程序
整人的小程序,会弹出对话框提示:快说我是具源具箱猪,不输入的小工话会在1分钟之内自动关机,输入的具源具箱话,当让会被笑话啦,小工呵呵
将以下文字粘贴到记事本上后将后缀名改为:vbe,具源具箱cups源码下载然后双击即可!(里面的那些词语可以自行修改),经测试肯定可以使用。小工
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t -c ""说[我是具源具箱猪],不说[我是小工猪],不信,具源具箱试试···"" ",小工0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说[我是猪],就不关机,快撒,具源具箱说 ""[我是小工chromium 源码 pdf猪]"" ","说不说","不说",,)
msgbox chr() + chr() + chr() + a,0,"MsgBox"
loop
msgbox chr() + chr() + chr() + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr() + chr() + chr() + "承认就好了嘛"
阻止关机的方法:按键盘上的Win键+R键,在出来的具源具箱窗口中输入:shutdown -a 再按回车即可取消关机命令。
vb游戏代码大全vb小游戏源代码
关于vb游戏代码大全,小工vb小游戏源代码这个很多人还不知道,今天来为大家解答以上的问题,现在让我们一起来看看吧!
1、gitbook 源码调试Rem 窗体创建三个单选框按钮,OptionOption2、Option3 Private Sub Form_Activate() Option1.Caption = "石头" Option2.Caption = "剪刀" Option3.Caption = "布" Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Option1_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "对方也出石头!继续!" Case 1: MsgBox "哈哈!你赢了!淘宝查卷源码对方出的是剪刀!奖励你一个苹果!" Case 2: MsgBox "你输了!对方出的是布哦!不好意思,苹果给对方了哈!mahout itemcf源码" End Select Option1.Value = False End Sub Private Sub Option2_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "你输了!对方出的是石头哦!不好意思。
2、苹果给对方了哈!" Case 1: MsgBox "对方也出剪刀!继续!" Case 2: MsgBox "哈哈!你赢了!对方出的是布!奖励你一个苹果!" End Select Option2.Value = False End Sub Private Sub Option3_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "哈哈!你赢了!对方出的是石头!奖励你一个苹果!" Case 1: MsgBox "你输了!对方出的是剪刀哦!不好意思,苹果给对方了哈!" Case 2: MsgBox "对方也出布!继续!" End Select Option3.Value = False End Sub。
砍柴网站源码_砍柴网站源码大全
聯合國官員:燃料短缺正影響援助輸送 加沙民眾生命岌岌可危
金門觀光船遭中國6海警「臨檢30分鐘」 海巡署伴航返港籲和平理性
抉擇的花朵|天下雜誌
strong od源码
太陽能貿易戰開打 小國當心|天下雜誌