如果妳在線，妳可以和網絡上的時間對比壹下。
這可以防止用戶篡改系統時間來達到“蒙混過關”的目的
在網絡上獲得時間後
DateAdd("yyyy "，18，" 1986-10-29 ")& lt；互聯網上的時間
為18歲獲得真實。
意思是在日期1986 10 10月29日加18。
如果此日期小於當前時間，則為18歲。
但是如果沒有互聯網連接，
那只能判斷當前系統時間。
妳可以得到當前系統時間和日期。
如果DateAdd("yyyy "，18，輸入生日) <日期，則
MsgBox“對不起，內容是hx拍的！”,0
其他
MsgBox“18歲以下不能入！”,0
如果…就會結束
PS:這個和準入無關。
添加視頻和音樂應該加載到其他控件中。
壹個簡單的實現方法是用“組件”->；“控制”
Microsoft Internet控件
加載後，將會多壹個WebBrowser控件。
使用此控件
添加Form_Load事件。
私有子窗體_Load()
WebBrowser1。導航“www.baidu.com”
末端接頭
打開百度首頁。可以更改地址，打開任何帶視頻或音樂的地址。
或者幹脆自己做個網頁。
WebBrowser1。導航“e:\index.html”
那也可以