Source Share network - Đoạn code example hữu hiệu cho các phần mềm phát wifi

Tungtata · 15/12/15

Lần trước mình có hứa sẽ hoàn thiện tool phát wifi nhưng do bận quá nên chưa kịp hoàn thiện
Nay mình xin chia sẻ function share network, thứ mà mình thấy một vài bạn làm soft phát wifi còn thiếu

Mã (AutoIt):

#RequireAdmin
#include <Array.au3>
Func EnableDisableICS($sPublicConnectionName, $ssPrivateConnectionName, $bEnable)
Local $bFound = False
Dim $oNetSharingManager, $oConnectionCollection, $oItem, $EveryConnection, $objNCProps
$oNetSharingManager = ObjCreate("HNetCfg.HNetShare.1")
$oConnectionCollection = $oNetSharingManager.EnumEveryConnection

For $oItem In $oConnectionCollection
$EveryConnection = $oNetSharingManager.INetSharingConfigurationForINetConnection($oItem)
$objNCProps = $oNetSharingManager.NetConnectionProps($oItem)
MsgBox(0, '', $objNCProps.name)
If $objNCProps.name = $ssPrivateConnectionName Then
$bFound = True
;~ MsgBox(0,"","Starting Internet Sharing For: " & $objNCProps.name)
If $bEnable Then
$EveryConnection.EnableSharing(1)
Else
$EveryConnection.DisableSharing()
EndIf
EndIf
Next
$oConnectionCollection = $oNetSharingManager.EnumEveryConnection
For $oItem In $oConnectionCollection
$EveryConnection = $oNetSharingManager.INetSharingConfigurationForINetConnection($oItem)
$objNCProps = $oNetSharingManager.NetConnectionProps($oItem)
If $objNCProps.name = $sPublicConnectionName Then
$bFound = True
;~ MsgBox(0,"","Internet Sharing Success For: " & $objNCProps.name)
If $bEnable Then
$EveryConnection.EnableSharing(0)
Else
$EveryConnection.DisableSharing()
EndIf
EndIf
Next
Return $bFound
EndFunc ;==>EnableDisableICS

MsgBox(0, "", EnableDisableICS("Ethernet 2", "Local Area Connection* 4", True))

Đoạn mã này sử dụng Obj HNetCfg.HNetShare.1
Cần lưu ý code cẩn thận vì nếu không khai báo đúng sẽ không thể share thậm chí force close soft không báo lỗi dẫn đến bug nếu bạn phát hành soft

Thêm cái ảnh project đang dở của mình mà chưa có time hoàn thiện

Nguồn: autoitscript forum