vb建无线wifi热点(附图).doc

vb建无线wifi热点（附图）本程序是利用vb读写文件来实现的，再通过调用计算机中的explorer运行新建的文件，程序思想是通过dos命令建立虚拟无线热点，因此你的计算机必须要求带无线网卡，如果你的计算机有无线网卡但不能运行，请尝试升级网卡驱动。由于运行当中会调用explorer程序，和某些计算机病毒的投放方法有所相同，所以程序在运行时会引起一些安全软件的误判。程序运行时会在C:UsersAdministratorDocuments目录下生成文件。原程序已上传到我的百度网盘上/netdisk/singlepublic?fid=52019_1022037011还有许多不足，希望大家指出改进！ 程序源码如下：Public a As Integer, e As Integer, f As Integer, b As String, c As String, d As StringPrivate Sub Command2_Click()b = Text1.Textc = Text2.Textd = netsh wlan set hostednetwork mode=allowIf b = Or c = ThenMsgBox 请填写新建无线网络名称或密码！, 48, 错误!ElseIf Len(c) = 8 ThenOpen C:UsersAdministratorDocumentswifibuild.bat For Output As #1Print #1, netsh wlan set hostednetwork mode=allow, ssid=; b, key=; cPrint #1, netsh wlan start hostednetworkClose #1Shell explorer.exe & C:UsersAdministratorDocumentswifibuild.bat, 1Label5.Caption = 已连接Timer1.Enabled = TrueElseMsgBox 密码长度应为8位！, 48, 错误!End IfEnd IfEnd SubPrivate Sub Command3_Click()If Dir(C:UsersAdministratorDocumentswifibuild.bat) ThenOpen C:UsersAdministratorDocumentswifiend.bat For Output As #1Print #1, netsh wlan set hostednetwork mode=disallowShell explorer.exe & C:UsersAdministratorDocumentswifiend.bat, 1Close #1Timer1.Enabled = FalseElseMsgBox 您还没有创建wifi热点！, 48, 错误!End IfEnd SubPrivate Sub Form_Load()a = 0e = 0f = 0End SubPrivate Sub Form_Unload(Cancel As Integer)If Dir(C:UsersAdministratorDocumentswifibuild.bat) ThenKill C:UsersAdministratorDocumentswifibuild.batEnd IfIf Dir(C:UsersAdministratorDocumentswifiend.bat) ThenKill C:UsersAdministratorDocumentswifiend.batEnd IfEnd SubPrivate Sub Option1_Click()Text2.PasswordChar = End SubPrivate Sub Option2_Click()Text2.PasswordChar = *End SubPrivate Sub Timer1_Timer()r: a = a + 1If a = 60 Thene = e + 1a = -1GoTo rEnd IfIf e = 60 Thenf = f + 1e = 0End IfLabel6.Caption = f & 小时 & e & 分钟 & a & 秒End Sub附图：1.未连接2.已连接3.4.打开网络和共享中心更改适配器设置，会发现多了个无线网络连接25.设置宽带共享之后你就可以用你的手机连接