《vb建无线wifi热点(附图).doc》由会员分享,可在线阅读,更多相关《vb建无线wifi热点(附图).doc(4页珍藏版)》请在金锄头文库上搜索。
1、vb建无线wifi热点(附图)本程序是利用vb读写文件来实现的,再通过调用计算机中的explorer运行新建的文件,程序思想是通过dos命令建立虚拟无线热点,因此你的计算机必须要求带无线网卡,如果你的计算机有无线网卡但不能运行,请尝试升级网卡驱动。由于运行当中会调用explorer程序,和某些计算机病毒的投放方法有所相同,所以程序在运行时会引起一些安全软件的误判。程序运行时会在C:UsersAdministratorDocuments目录下生成文件。原程序已上传到我的百度网盘上http:/ 程序源码如下:Public a As Integer, e As Integer, f As Integ
2、er, 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
3、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:UsersAdministrato
4、rDocumentswifibuild.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_
5、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
6、 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.设置宽带共享之后你就可以用你的手机连接你的电脑共享网络上网,再也不怕月末流量报警了有木有!注意:程序运行点击创建wifi时会出现如下情况点允许执行就行了,我试过用cmd.exe直接打开新建的文件,好像不行,所以只能用explorer了。