资源描述：
《vb建无线wifi热点(附图)》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方vb建无线wifi热点（附图）本程序是利用vb读写文件来实现的，再通过调用计算机中的explorer运行新建的文件，程序思想是通过dos命令建立虚拟无线热点，因此你的计算机必须要求带无线网卡，如果你的计算机有无线网卡但不能运行，请尝试升级网卡驱动。由于运行当中会调用explorer程序，和某些计算机病毒的投放方法有所相同，所以程序在运行时会引起一些安全软件的误判。程序运行时会在C:UsersAdministrator
2、Documents目录下生成文件。原程序已上传到我的百度网盘上http://pan.baidu.com/netdisk/singlepublic?fid=52019_1022037011还有许多不足，希望大家指出改进！程序源码如下：PublicaAsInteger,eAsInteger,fAsInteger,bAsString,cAsString,dAsStringPrivateSubCommand2_Click()b=Text1.Textc=Text2.Textd="netshwlansethostednetworkmode
3、=allow"Ifb=""Orc=""ThenMsgBox"请填写新建无线网络名称或密码！",48,"错误!"ElseIfLen(c)=8ThenOpen"C:UsersAdministratorDocumentswifibuild.bat"ForOutputAs#1Print#1,"netshwlansethostednetworkmode=allow","ssid=";b,"key=";cPrint#1,"netshwlanstarthostednetwork"Close#1Shell"explorer.exe"&"
4、C:UsersAdministratorDocumentswifibuild.bat",1Label5.Caption="已连接"Timer1.Enabled=TrueElseMsgBox"密码长度应为8位！",48,"错误!"EndIfEndIfEndSubPrivateSubCommand3_Click()IfDir("C:UsersAdministratorDocumentswifibuild.bat")<>""ThenOpen"C:UsersAdministratorDocumentswifien
5、d.bat"ForOutputAs#1Print#1,"netshwlansethostednetworkmode=disallow"Shell"explorer.exe"&"C:UsersAdministratorDocumentswifiend.bat",1Close#1Timer1.Enabled=FalseElseMsgBox"您还没有创建wifi热点！",48,"错误!"EndIf----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方----------专
6、业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方EndSubPrivateSubForm_Load()a=0e=0f=0EndSubPrivateSubForm_Unload(CancelAsInteger)IfDir("C:UsersAdministratorDocumentswifibuild.bat")<>""ThenKill"C:UsersAdministratorDocumentswifibuild.bat"EndIfIfDir("C:UsersAdminis
7、tratorDocumentswifiend.bat")<>""ThenKill"C:UsersAdministratorDocumentswifiend.bat"EndIfEndSubPrivateSubOption1_Click()Text2.PasswordChar=""EndSubPrivateSubOption2_Click()Text2.PasswordChar="*"EndSubPrivateSubTimer1_Timer()r:a=a+1Ifa=60Thene=e+1a=-1GoTorEndIfIfe
8、=60Thenf=f+1e=0EndIfLabel6.Caption=f&"小时"&e&"分钟"&a&"秒"EndSub----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方----------专业最好文档
