怎样利用GetVersion函数来判断当前 *** 作系统是Win9598、Win2000XP、VistaWin7呢？

这个网上搜的，不是用API，用VB的GetObject直接判断 *** 作系统

Private Sub Form_Load()

Dim strComputer, objWMIService, colItems, objItem, strOSversion As String

strComputer = "."

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each objItem In colItems

strOSversion = objItem.Version

Next

Select Case Left(strOSversion, 3)

Case "5.2"

strOSversion = "Windows Server 2003"

Case "5.0"

strOSversion = "Windows 2000"

Case "5.1"

strOSversion = "Windows XP"

Case "6.0"

strOSversion = "windows visita"

Case Else

strOSversion = "i don't know"

End Select

Me.AutoRedraw = True

Me.Cls

Print "你的 *** 作系统是：" &strOSversion

End Sub

win7激活密钥有这些：

1、236TW-X778T-8MV9F-937GT-QVKBB；

2、87VT2-FY2XW-F7K39-W3T8R-XMFGF；

3、TG664-TJ7YK-2VY3K-4YFY6-BCXF4 ；

4、MVG64-RQDVY-KB9RM-MX9WT-MW824 ；

5、TDTY2-6HJ49-46PCK-6HY88-KQXXX ；

6、FKDJ2-RCXKD-TFW4H-2PTGK-MMMH8 ；

7、H67R8-4HCH4-WGVKX-GV888-8D79B ；

8、J4M92-42VH8-M9JWJ-BR7H6-KTFP6 ；

9、76RJX-HDXWD-8BYQJ-GRPPQ-8PP92 ；

10、P3P9R-3DH3Q-KGD38-DWRR4-RF7BC 。

制作win7密钥的步骤：

1、打开你的命令框，步骤是这样的：在开始菜单上点击右键，然后选择命令提示符“管理员”点击打开；

2、复制下面这段代码，Crtl+v到命令框里面，然后回车键即可：

slmgr /ipk VK7JG-NPHTM-C97JM-9MPGT-3V66T

slmgr /skms kms.xspace.in

slmgr /ato

3、按照正常来说，到了这一步你就完成你的win7系统激活步骤了。

我将“通过编程控制网页”理解为可以即时修改显示网页的内容（例如修改文字，更改图片、样式等）。那么可按照以下步骤（所有 *** 作以 Internet Explorer 11为例）

在浏览器窗口右上角点选"工具"图标(或按下键盘上的 Alt+X )

选择 F12开发人员工具

在开发工具栏窗格中，选择 "DOM资源管理器"

按下键盘上的(Ctrl + B)，按下后可松开不用一直按着，然后在网页中选择想要更改的地方。

然后鼠标右键点选相应HTML代码，在d出的上下文关联菜单中选择 编辑为HTML

注意：此方法不会更改服务器上的内容（也就是说你无法通过此方法对页面实现永久更改）。不过此方法可以方便用于删除页面中不要的内容。

---