本程序是利用vb讀寫文件來實現的，再通過調用計算機中的explorer運行新建的文件，程序思想是通過dos命令建立虛擬無線熱點，因此你的計算機必須要求帶無線網卡，如果你的計算機有無線網卡但不能運行，請嘗試升級網卡驅動。由于運行當中會調用explorer程序，和某些計算機病毒的投放方法有所相同，所以程序在運行時會引起一些安全軟件的誤判。程序運行時會在C:\Users\Administrator\Documents目錄下生成文件。

還有許多不足，希望大家指出改進！

程序源碼如下：

Public a As Integer, e As Integer, f As Integer, b As String, c As String, d As String

Private Sub Command2_Click()

b = Text1.Text

c = Text2.Text

d = "netsh wlan set hostednetwork mode=allow"

If b = "" Or c = "" Then

MsgBox "請填寫新建無線網絡名稱或密碼！", 48, "錯誤!"

Else

If Len(c) = 8 Then

Open "C:\Users\Administrator\Documents\wifibuild.bat" For Output As #1

Print #1, "netsh wlan set hostednetwork mode=allow", "ssid="; b, "key="; c

Print #1, "netsh wlan start hostednetwork"

Close #1

Shell "explorer.exe " & "C:\Users\Administrator\Documents\wifibuild.bat", 1

Label5.Caption = "已連接"

Timer1.Enabled = True

Else

MsgBox "密碼長度應為8位！", 48, "錯誤!"

End If

End If

End Sub

Private Sub Command3_Click()

If Dir("C:\Users\Administrator\Documents\wifibuild.bat") <> "" Then

Open "C:\Users\Administrator\Documents\wifiend.bat" For Output As #1

Print #1, "netsh wlan set hostednetwork mode=disallow"

Shell "explorer.exe " & "C:\Users\Administrator\Documents\wifiend.bat", 1

Close #1

Timer1.Enabled = False

Else

MsgBox "您還沒有創建wifi熱點！", 48, "錯誤!"

End If

End Sub

Private Sub Form_Load()

a = 0

e = 0

f = 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

If Dir("C:\Users\Administrator\Documents\wifibuild.bat") <> "" Then

Kill "C:\Users\Administrator\Documents\wifibuild.bat"

End If

If Dir("C:\Users\Administrator\Documents\wifiend.bat") <> "" Then

Kill "C:\Users\Administrator\Documents\wifiend.bat"

End If

End Sub

Private Sub Option1_Click()

Text2.PasswordChar = ""

End Sub

Private Sub Option2_Click()

Text2.PasswordChar = "*"

End Sub

Private Sub Timer1_Timer()

r: a = a + 1

If a = 60 Then

e = e + 1

a = -1

GoTo r

End If

If e = 60 Then

f = f + 1

e = 0

End If

Label6.Caption = f & "小時" & e & "分鐘" & a & "秒"

End Sub

附圖：

1.未連接

2.已連接

3.

4.打開網絡和共享中心——》更改適配器設置，會發現多了個無線網絡連接2

5.設置寬帶共享

之后你就可以用你的手機連接你的電腦共享網絡上網，再也不怕月末流量報警了有木有！

注意：

程序運行點擊創建wifi時會出現如下情況

點允許執行就行了，我試過用cmd.exe直接打開新建的文件，好像不行，所以只能用explorer了。

完整的Word格式文檔51黑下載地址：
vb建無線wifi熱點(附圖).doc (224.5 KB, 下載次數: 16)

2018-11-1 14:24 上傳

點擊文件名下載附件