win7 方式设置无线虚拟wifi

《win7 方式设置无线虚拟wifi》由会员分享，可在线阅读，更多相关《win7 方式设置无线虚拟wifi（8页珍藏版）》请在装配图网上搜索。

1、win7 cmd 方式设置无线虚拟 wifi1、确认你的win7系统是双网卡，最好有线网卡和无线网卡都有，并且 无线网卡是支持承载网络的。#查看是否支持承载网络，否，非老版网卡，就是网卡驱动有问题，自 己想法子去更新n etsh wlan show hosted network如果无线网卡不支持承载网络，下面的就不用看了！ ！#设置wifi热点(这里只设置下，没必要启动)n etsh wla n set hosted network mode=allow ssid=wifi key=1234567890注意：上面的1234567890就是连接用的密码执行后 你的网络属性里会多出一个无线网络连接

2、2的虚拟连接，这个无线网 络连接2在后面cmd命令行启动网络连接共享时会用到2、确认win7的系统服务已经开启查看 Internet Connection Sharing (ICS)和 Windows Firewall 两个服务是否 开启， 如果没开启请开启，并设置自动启动或通过命令行方式启动。(连接网络共享需 要)# 开启 In ter net Co nn ection Shari ng (ICS)服务net start sharedaccess#开启 Windows Firewall 服务net start MpsSvc#设置ics服务自启动sc config sharedaccess s

3、tart= auto#设置Windows Firewall服务自启动sc config MpsSvc start= auto停止服务就把st art改为st op，不多说了，不会就百度吧3、确认你的网络连接的名称下面是我的网络有线网络名称：本地连接无线网络连接名称：无线网络连接虚拟的无线网络连接名称：无线网络连接2J4、用下面的代码建立vbs脚本文件icsvbs或者点击ics.vbs脚本用记事本打开并 保存为icsvbs。（此vbs从网络获取，对付出劳动的前辈说声谢谢），有的从 网上下载下来报错，原因是elseif写成了 else if多了个空格，注意就是了。（运行命令/cscript /no

4、logo icsvbs 无线网络连接 本地连接 off将以上代码保存为*.bat文件运行，三个参数分别为，供别人连接的网卡名字、 提供共享的网卡名称、开启（on）关闭（off） VBScript source codeOPTION EXPLICITDIM ICSSC_DEFAULT, CONNECTION_PUBLIC, CONNECTION_PRIVATE, CONNECTION_ALLDIM NetSharingManagerDIM PublicConnection, PrivateConnectionDIM EveryConnectionCollectionDIM objArgsDIM

5、priv_con, publ_condim switchICSSC_DEFAULT=0CONNECTION_PUBLIC=0CONNECTION_PRIVATE=1CONNECTION_ALL=2Main()sub Main( )Set objArgs = WScriptArgumentsif objArgsCount = 3 thenpriv_con = objArgs(0) 内网连接名 publ_con = objArgs(1) 外网连接名 switch = objArgs(2)状态切换开关on为打开ics off相反 if Initialize() = TRUE thenGetConne

6、ctionObjects() FirewallTestByName priv_con,publ_con end ifelseDIM szMsgif Initialize() = TRUE thenGetConnectionObjects() FirewallTestByName list,list end ifszMsg = To share your internet connection, please provide the name of the private and public connections as the argument. & vbCRLF & vbCRLF & _U

7、sage: & vbCRLF & _ & WScript.scriptname & & chr(34) & Private Connection Name & chr(34) & & chr(34) & Public Connection Name & chr(34)WScript.Echo( szMsg & vbCRLF & vbCRLF)end ifend subsub FirewallTestByName(con1,con2)on error resume nextDIM ItemDIM EveryConnectionDIM objNCPropsDIM szMsgDIM bFound1,

8、bFound2WScript.echo(vbCRLF & vbCRLF)bFound1 = falsebFound2 = false for each Item in EveryConnectionCollection set EveryConnection =NetSharingManager.INetSharingConfigurationForINetConnection(Item) set objNCProps = NetSharingManager.NetConnectionProps(Item) szMsg = Name: & objNCProps.Name & vbCRLF &

9、_Guid: & objNCProps.Guid & vbCRLF & _DeviceName: & objNCProps.DeviceName & vbCRLF & _ Status: & objNCProps.Status & vbCRLF & _ MediaType: & objNCProps.MediaType if EveryConnection.SharingEnabled thenszMsg = szMsg & vbCRLF & _SharingEnabled & vbCRLF & _ SharingType: &ConvertConnectionTypeToString(Eve

10、ryConnection.SharingConnectionType) end ifif objNCProps.Name = con1 thenbFound1 = trueif EveryConnection.SharingEnabled = False and switch=on thenszMsg = szMsg & vbCRLF & Not Shared. Enabling private connection share.WScript.Echo(szMsg)EveryConnection.EnableSharing CONNECTION_PRIVATE szMsg = Shared!

11、elseif(switch = off) thenszMsg = szMsg & vbCRLF & Shared. DisEnabling private connection share.WScript.Echo(szMsg)EveryConnection.EnableSharing CONNECTION_ALLend ifend ifif objNCProps.Name = con2 thenbFound2 = trueif EveryConnection.SharingEnabled = False and switch=on thenszMsg = szMsg & vbCRLF & N

12、ot Shared. Enabling public connection share.WScript.Echo(szMsg)EveryConnection.EnableSharing CONNECTION_PUBLIC szMsg = Shared!elseif(switch = off) thenszMsg = szMsg & vbCRLF & Shared.DisEnabling public connection share.WScript.Echo(szMsg)EveryConnection.EnableSharing CONNECTION_ALLend ifend ifWScrip

13、t.Echo(szMsg & vbCRLF & vbCRLF)nextif( con1 list ) thenif( bFound1 = false ) then WScript.Echo( Connection & chr(34) & con1 & chr(34) & was not found )end ifif( bFound2 = false ) then WScript.Echo( Connection & chr(34) & con2 & chr(34) & was not found )end ifend ifend subfunction Initialize()DIM bRe

14、turnbReturn = FALSEset NetSharingManager = Wscript.CreateObject(HNetCfg.HNetShare.1)if (IsObject(NetSharingManager) = FALSE then Wscript.Echo(Unable to get the HNetCfg.HnetShare.1 object) elseif (IsNull(NetSharingManager.SharingInstalled) = TRUE) then Wscript.Echo(Sharing isnt available on this plat

15、form.) elsebReturn = TRUEend ifend ifInitialize = bReturnend functionfunction GetConnectionObjects()DIM bReturnDIM ItembReturn = TRUEif GetConnection(CONNECTION_PUBLIC) = FALSE then bReturn = FALSEend ifif GetConnection(CONNECTION_PRIVATE) = FALSE then bReturn = FALSEend ifif GetConnection(CONNECTIO

16、N_ALL) = FALSE thenbReturn = FALSEend ifGetConnectionObjects = bReturnend functionfunction GetConnection(CONNECTION_TYPE)DIM bReturnDIM ConnectionDIM ItembReturn = TRUEif (CONNECTION_PUBLIC = CONNECTION_TYPE) thenset Connection = NetSharingManager.EnumPublicConnections(ICSSC_DEFAULT)if (Connection.C

17、ount 0) and (Connection.Count 0) and (Connection.Count 0) thenset EveryConnectionCollection = ConnectionelsebReturn = FALSEend ifelsebReturn = FALSEend ifif (TRUE = bReturn) thenif (Connection.Count = 0) thenWscript.Echo(No + CStr(ConvertConnectionTypeToString(CONNECTION_TYPE) + connections exist (C

18、onnection.Count gave us 0)bReturn = FALSEvalid to have more than 1 connection returned from EnumEveryConnectionelseif (Connection.Count 1) and (CONNECTION_ALL CONNECTION_TYPE) thenWscript.Echo(ERROR: There was more than one + ConvertConnectionTypeToString(CONNECTION_TYPE) + connection ( + CStr(Conne

19、ction.Count) + )bReturn = FALSEend ifend if Wscript.Echo(CStr(Connection.Count) + objects for connection type + ConvertConnectionTypeToString(CONNECTION_TYPE)GetConnection = bReturnend functionfunction ConvertConnectionTypeToString(ConnectionID)DIM ConnectionStringif (ConnectionID = CONNECTION_PUBLI

20、C) then ConnectionString = publicelseif (ConnectionID = CONNECTION_PRIVATE) then ConnectionString = privateelseif (ConnectionID = CONNECTION_ALL) then ConnectionString = allelseConnectionString = Unknown: + CStr(ConnectionID) end ifConvertConnectionTypeToString = ConnectionString end function5、用下面的代

21、码建立批处理文件wifi.bat rem 1、禁用网络连接共享（有线网卡）cscript /nologo ics.vbs 无线网络连接 2本地连接offrem 2、禁用网卡（无线网卡）netsh in terface set in terface name=无线网络连接admi n=DISABLEDrem 3、启用网卡（无线网卡）netsh in terface set in terface name=无线网络连接admi n=ENABLEDrem 4、设置wifi热点并使其可用（无线网卡）n etsh wla n set hosted network mode=allowrem 5、启动wi

22、fi热点（无线网卡）n etsh wlan start hosted networkrem 6、启用网络连接共享（有线网卡）cscript /nologo ics.vbs 无线网络连接2本地连接onrem 4、设置wifi热点（无线网卡）netsh wlan set hostednetwork mode二allow此处这么用是因为上面已经在1里面执行过n etsh wla n set hosted network mode=allow ssid=wifikey=1234567890系统会记住你设置的，重启也不会丢失。最开始我用网上的方法设置了虚拟wifi，但重启系统或待机激活后出现不能连 接，后来通过多次测试，得出了上面上网设置1-6条，这个顺序很重要，切记！6、把 wifi.bat 和 ics.vbs 放在同一目录下运行wifi.bat等待批处理执行完毕，你的手机或其他电脑就可以连接wifi上网 了。重启电脑或待机激活电脑后只要再次运行wifi.bat就可以了，希望大家玩的愉 快！