vb建无线wifi热点(附图)

《vb建无线wifi热点(附图)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、vb建无线wifi热点（附图）本程序是利用vb读写文件来实现的，再通过调用计算机中的explorer运行新建的文件，程序思想是通过dos命令建立虚拟无线热点，因此你的计算机必须要求带无线网卡，如果你的计算机有无线网卡但不能运行，请尝试升级网卡驱动。由于运行当中会调用explorer程序，和某些计算机病毒的投放方法有所相同，所以程序在运行时会引起一些安全软件的误判。程序运行时会在C:UsersAdministratorDocuments目录下生成文件。原程序已上传到我的百度网盘上http:/

2、/pan.baidu.com/netdisk/singlepublic?fid=52019_1022037011还有许多不足，希望大家指出改进！程序源码如下：PublicaAsInteger,eAsInteger,fAsInteger,bAsString,cAsString,dAsStringPrivateSubCommand2_Click()b=Text1.Textc=Text2.Textd="netshwlansethostednetworkmode=allow"Ifb=""Orc=""Th

3、enMsgBox"请填写新建无线网络名称或密码！",48,"错误!"ElseIfLen(c)=8ThenOpen"C:UsersAdministratorDocumentswifibuild.bat"ForOutputAs#1Print#1,"netshwlansethostednetworkmode=allow","ssid=";b,"key=";cPrint#1,"netshwlanstarthostednetwork"Close#1Shell"explorer.exe"&"C:U

4、sersAdministratorDocumentswifibuild.bat",1Label5.Caption="已连接"Timer1.Enabled=TrueElseMsgBox"密码长度应为8位！",48,"错误!"EndIfEndIfEndSubPrivateSubCommand3_Click()IfDir("C:UsersAdministratorDocumentswifibuild.bat")<>""ThenOpen"C:UsersAdministratorDoc

5、umentswifiend.bat"ForOutputAs#1Print#1,"netshwlansethostednetworkmode=disallow"Shell"explorer.exe"&"C:UsersAdministratorDocumentswifiend.bat",1Close#1Timer1.Enabled=FalseElseMsgBox"您还没有创建wifi热点！",48,"错误!"EndIfEndSubPrivateSubForm_Load()a=0e=0f=0

6、EndSubPrivateSubForm_Unload(CancelAsInteger)IfDir("C:UsersAdministratorDocumentswifibuild.bat")<>""ThenKill"C:UsersAdministratorDocumentswifibuild.bat"EndIfIfDir("C:UsersAdministratorDocumentswifiend.bat")<>""ThenKill"C:UsersAdministrat

7、orDocumentswifiend.bat"EndIfEndSubPrivateSubOption1_Click()Text2.PasswordChar=""EndSubPrivateSubOption2_Click()Text2.PasswordChar="*"EndSubPrivateSubTimer1_Timer()r:a=a+1Ifa=60Thene=e+1a=-1GoTorEndIfIfe=60Thenf=f+1e=0EndIfLabel6.Caption=f&"小时"&e&"分

8、钟"&a&"秒"EndSub附图：1.未连接2.已连接3.4.打开网络和共享中心——》更改适配器设置，会发现多了个无线网络连接25.设置宽带共享之后你就可以用你的手机连接你的电脑共享网络上网，再也不怕月末流量报警了有木有！注意：程序运行点击创建wifi时会出现如下情况点允许执行就行了，我试过用cmd.exe直接打开新建的文件，好像不行，所以只能用explorer了。