谁能教我鼠标的图案

Posted 2023-03-18

就是进入别人的网页或空间里面 鼠标的箭头变成心形图案..鼠标移动到那里..那里就有星星闪来闪去的...
我是想在有动画画面出现的...

百度空间首先打开你的空间
设置——模版设置——自定义模版 ——编辑
在上方空白处插入
bodybackground:#FFFFF;CURSOR: url('http://webme.bokee.com/inc/mouse028.cur')
a:hoverCURSOR: url('http://webme.bokee.com/inc/mouse031.ani')
你试着把这两行东西放在CSS编辑情况下 并替换掉第一 二行
你要你的那个URL的鼠标 就把上面的地址替换掉一个

第一个URL的代码是空间鼠标 第二个则是点击内容时变化的鼠标
下面地址中收集了许多鼠标样式，只要用鼠标地址替换上面的地址即可：
http://myok.blogchina.com/3429184.html
QQ空间
QQ空间代码网上有免费的 不过大多都被QQ封了
百度一下就有一大堆
http://www.baidu.com/s?cl=3&wd=QQ%BF%D5%BC%E4+%CA%F3%B1%EA&t=51

参考资料：JoViSn

参考技术A 进入空间，在-装扮空间-小饰物-鼠标就可以选择你所喜欢的鼠标样式了。但是这样是要花钱的，如果你是黄钻用户就一切免费。

谁能教我怎么用VBS获取网卡的MAC地址，还有主板的

谁能教我怎么用VBS获取网卡的MAC地址，还有主板的

参考技术A 程序已经做好了，ok~希望你够阳光~（不想要的信息可以自己去掉啦)
Dim WshShell, fso
Const ForReading = 1, ForWriting = 2
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next

Set WshNetwork = WScript.CreateObject("WScript.Network")
a = WshNetwork.UserName
b = WshNetwork.ComputerName

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
j = IPConfig.Index(i)
k = IPConfig.IPAddress(i)
If Len(k) > 0 Then Exit For
Next
End If
Next

Set colNetworkAdapters = objWMIService.InstancesOf("Win32_NetworkAdapter")
For Each objNetworkAdapter In colNetworkAdapters
If j = objNetworkAdapter.Index Then c = Replace(objNetworkAdapter.MACAddress,":","-")
Next

Set colProcessors = objWMIService.InstancesOf("Win32_Processor")
For Each objProcessor In colProcessors
t1 = objProcessor.Name
t1 = t1 & " " & objProcessor.CurrentClockSpeed & " MHz"
If Len(Trim(t1)) > 0 Then Exit For
Next

Set colLogicalMemoryConfigurations = objWMIService.InstancesOf("Win32_LogicalMemoryConfiguration")
For Each objLogicalMemoryConfiguration In colLogicalMemoryConfigurations
t2 = CInt(objLogicalMemoryConfiguration.TotalPhysicalMemory / 1024) & " MB"
Next

Set colDiskDrives = objWMIService.ExecQuery _
("Select * from Win32_DiskDrive where Index=0")
For each objDiskDrive in colDiskDrives
t3 = objDiskDrive.Model
Next

Set colDiskDrives = objWMIService.ExecQuery _
("Select * from Win32_DiskDrive where Index=1")
For each objDiskDrive in colDiskDrives
t4 = objDiskDrive.Model
Next

Set colDiskDrives = objWMIService.ExecQuery _
("Select * from Win32_DiskDrive where Index=2")
For each objDiskDrive in colDiskDrives
t5 = objDiskDrive.Model
Next

Set colDiskDrives = objWMIService.ExecQuery _
("Select * from Win32_DiskDrive where Index=3")
For each objDiskDrive in colDiskDrives
t6 = objDiskDrive.Model
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive where SCSITargetId=0")
For Each objItem in colItems
t7 = objItem.Name
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive where SCSITargetId<>0")
For Each objItem in colItems
t8 = objItem.Name
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_DisplayControllerConfiguration")
For Each objItem in colItems
t9 = objItem.Name
Next

MyFile = "\\server2\financial\info\"
MyFile = MyFile & Mid(k,13) & ".csv"
a = "登录用户：" & a
b = "计算机名：" & b
c = "MAC 参数：" & c
k = " IP 地址：" & k
t1 = "CPU 型号：" & t1
t2 = "内存容量：" & t2
t3 = "硬盘 - 1：" & t3
t4 = "硬盘 - 2：" & t4
t5 = "硬盘 - 3：" & t5
t6 = "硬盘 - 4：" & t6
t7 = "光驱 - 1：" & t7
t8 = "光驱 - 2：" & t8
t9 = "显卡参数：" & t9
all = a & vbCrLf & b & vbCrLf & k & vbCrLf & c & vbCrLf & t1 & vbCrLf & t2 & vbCrLf & t3 & vbCrLf & t4 & vbCrLf & t5 & vbCrLf & t6 & vbCrLf & t7 & vbCrLf & t8 & vbCrLf & t9
MsgBox all,4096+64,"信息收集" 参考技术B mac地址 不是可以在运行或者CMD里面打 ipconfig/all 命令吗本回答被提问者采纳