有的網站打開界面后，鼠標后會跟隨有一些動態的動畫，比如走動的時間，閃爍的祝福語，變幻的小星星等，這些小動畫可以跟隨鼠標移動而移動，請問哪位大俠知道這是怎么做的？

熱心網友

那些是網頁JS特效，屬于鼠標事件類，很多網站提供有各種效果的JS代碼，只要復制到網頁中，打開網頁就會出現類似的效果。網頁特效大全 建資源網 網頁制作大寶庫 ……類似的網站太多了，還有一些集成有很多特效的軟件，例如：經典網頁特效、有聲有色，也有非常多，你到華軍、電腦之家、太平洋下載站中有關網頁輔助類中找，一大堆，任你選。

熱心網友

而實現這個功能也并不復雜，主要是要用到幾個API函數。新建一個窗體，加入兩個“命令”控件(CommandButton)，一個用來調用動畫鼠標指針，一個用來恢復系統鼠標指針。在窗體中輸入如下代碼：Option ExplicitPrivate Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" ?ByVal lpFileName As String As Long '用來調用動畫鼠標指針Private Declare Function GetCursor Lib "user32" ? As Long '用來獲得鼠標指針句柄Private Declare Function CopyCursor Lib "user32" Alias "CopyIcon" ?ByVal hcur As Long As Long'用來復制鼠標指針句柄Private Declare Function SetSystemCursor Lib "user32" ?ByVal hcur As Long? ByVal id As Long As Long '設置鼠標指針Private Const OCR＿NORMAL = 32512Dim NewCursor As LongDim OldCursor As Long'這部分代碼用來聲明API函數并定義變量Private Sub Command1＿Click?NewCursor = LoadCursorFromFile?"1．ani"'調用1．ani動畫鼠標指針文件OldCursor = GetCursor?'得到鼠標指針的句柄OldCursor = CopyCursor?old＿cursor'保存鼠標指針的句柄SetSystemCursor NewCursor? OCR＿NORMAL '設置新的鼠標指針1．aniEnd SubPrivate Sub Command2＿Click?SetSystemCursor OldCursor? OCR＿NORMAL'恢復原來的系統鼠標指針End Sub去試試看不過需要提醒一下，不要忘了恢復原來的系統鼠標指針，否則即使退出這個程序，鼠標指針也是動畫的，這時就只能重新啟動計算機了！ 。