iori2882 发表于 2012-5-8 17:37:57

ACN_NET.au3 这个文件丢失 谁能给我传一个

本帖最后由 iori2882 于 2012-5-8 17:47 编辑

我现在的版本是3.3.90 上一个版本是3.3.7X 在上一个版本程序是能正常运行的,最近更新完,用_NetworkAdapterInfo()函数 就提示下面的错误,可能是我安装的时候把原来的删掉了,装的新的,所以这个ACN_NET.au3不是自己带的文件,是我后下的我忘了
"H:\autoit3\UserInclude\ACN_NET.au3" (236) : ==> ?????????? ')'.:
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled != 0", "WQL", 0x10 + 0x20)
$colItems = ^ ERROR

iori2882 发表于 2012-5-8 17:57:22

我在网上下载了一个,放到Include里 还是提示一样的错误 谁能给我一个啊!用到的时候他真不好用啊!

#include-once
#include <ACN_HASH.au3>
; #INDEX# =======================================================================================================================
; Title .........: ACN_NET
; AutoIt Version: 3.2.13++
; Language:       English
; Description:    Functions that assist with network.
; ===============================================================================================================================



; #VARIABLES# ===================================================================================================================
; ==============================================================================================================================
; #CURRENT# =====================================================================================================================
; _Thunder
; _Flashget
; _CMD_SetLocalIP
; _API_Get_NetworkAdapterMAC
; _NetworkGetInternetIP
; _InetIsOffline()
; _NetworkAdapterInfo
; _WMI_SetNetworkAdapterInfo


;==============================================================================================================================

; #INTERNAL_USE_ONLY#============================================================================================================
;==============================================================================================================================

; #FUNCTION# ====================================================================================================================
; Name...........: _Thunder
; Description ...: 调用迅雷下载
; Syntax.........: _Thunder($url[, $Filename[, $Path[, $comment[, $ReferUrl[, $startmode[, $Orgin[, $OrginThread]]]]]]])
; Parameters ....:         $url          - 下载地址
;                                         $Filename:          - 保存的文件名
;                                         $Path:                  - 保存的路径
;                                         $comment:          - 下载任务注释
;                                         $ReferUrl:          - 引用的URL
;                                         $startmode:          - 开始模式,True(立即)/False(手动)
;                                         $Orgin:                  - 只从原始地址下载(True/False)
;                                         $OrginThread: - 从原始地址下载线程数
; Return values .: 成功- 返回1
;                  失败- 返回0
; Author ........: thesnoW(rundll32@126.com)
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......; Yes
; ===============================================================================================================================
Func _Thunder($Url, $Filename = "", $Path = "", $comment = "", $ReferUrl = "", $startmode = True, $Orgin = False, $OrginThread = 10)
        Local $obj = ObjCreate("ThunderAgent.Agent")
        If IsObj($obj) = 0 Then Return 0
        $obj.AddTask($Url, $Filename, $Path, $comment, $ReferUrl, $startmode, $Orgin, $OrginThread);添加下载任务
        $obj.CommitTasks() ;提交任务.
        Return 1
EndFunc   ;==>_Thunder

; #FUNCTION# ====================================================================================================================
; Name...........: _Flashget
; Description ...: 调用网际快车下载
; Syntax.........: _Flashget($url[, $Path[, $flashgetpath]])
; Parameters ....:         $url          - 下载地址
;                                         $Path:                  - 保存的路径
;                                         $flashgetpath:- 网际快车的路径
; Return values .: 成功- 返回1
;                  失败- 返回0,网际快车未安装
; Author ........: thesnoW(rundll32@126.com)
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......; Yes
; ===============================================================================================================================
Func _Flashget($url, $Path = "", $flashgetpath = "")
        If $flashgetpath = "" Then
                $flashgetpath = RegRead("HKEY_CURRENT_USER\Software\FlashGetX\General", "AppPath")
                If $flashgetpath = "" Then
                        $flashgetpath = RegRead("HKEY_CURRENT_USER\Software\FlashGet\General", "AppPath")
                EndIf
                If $flashgetpath = "" Then Return 0
        EndIf
        ShellExecute($flashgetpath, $Url & " " & $Path)
        Return 1
EndFunc   ;==>_Flashget

; #FUNCTION# ====================================================================================================================
; Name...........: _CMD_SetLocalIP
; Description ...: 设置IP地址.
; Syntax.........: _CMD_SetLocalIP("连接名称","IP地址",["子网掩码"[, "默认网关"[, "DNS"]]])
; Parameters ....:         $ConName          - 连接名称
;                                         $IpADD:          IP地址
;                                         $SubMask:      子网掩码
;                                         $GateWay:      默认网关
;                                         $ConDNS:         DNS(域名解析)
; Return values .: none
; Author ........: thesnoW(rundll32@126.com)
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......; Yes
; ===============================================================================================================================

Func _CMD_SetLocalIP($ConName, $IpADD, $SubMask, $GateWay, $ConDNS)
        If $SubMask = "" Then $SubMask = "255.255.255.0"
        If $ConName = "" And $IpADD <> "" Then
                RunWait(@ComSpec & ' /C netsh -c interface ip set address "本地连接" static ' & $IpADD & " " & $SubMask & " " & $GateWay, "", @SW_HIDE)
        EndIf
        If $ConName <> "" And $IpADD <> "" Then
                RunWait(@ComSpec & ' /C netsh -c interface ip set address ' & '"' & $ConName & '"' & ' static ' & $IpADD & " " & $SubMask & " " & $GateWay, "", @SW_HIDE)
        EndIf
        If $ConDNS <> "" Then
                RunWait(@ComSpec & ' /C netsh -c interface ip set dns ' & '"' & $ConName & '"' & ' static ' & $ConDNS & ' primary', "", @SW_HIDE)
        EndIf
EndFunc   ;==>_CMD_SetLocalIP

; #FUNCTION# ====================================================================================================================
; Name...........: _NetworkGetInternetIP
; Description ...: 得到公网IP地址.
; Syntax.........: _NetworkGetInternetIP()
; Parameters ....:
; Return values .:         成功 - 返回公网IP
;                                        失败 - 返回 0.0.0.0 ,可能是无法连接外网或者取得IP的地址已挂.
; Author ........: Sxd
; Modified.......:
; Remarks .......: 此函数是采用http://www.aamailsoft.com/getip.php的数据,不保证长期有效.
; Related .......:
; Link ..........;
; Example .......; Yes
; ===============================================================================================================================
Func _NetworkGetInternetIP()
        Local $ip
       $ip=InetRead("http://www.aamailsoft.com/getip.php",1)
        If        StringStripWS($ip,8) <> "" Then
                Return $ip
        Else
                Return "0.0.0.0"
        EndIf
EndFunc   ;==>_NetworkGetInternetIP

; #FUNCTION# ====================================================================================================================
; Name...........: _API_Get_NetworkAdapterMAC
; Description ...: 根据API得到MAC.
; Syntax.........: _API_Get_NetworkAdapterMAC($sIP)
; Parameters ....:         $sIP          - IP地址
; Return values .:         成功 - 返回MAC地址
;                                        失败 - 返回 00:00:00:00:00:00
; Author ........: jiexunpc
; Modified.......:
; Remarks .......: 此函数是采用发送ARP方式,如果有错误的路由绑定或交换机绑定.可能得到错误的MAC.
; Related .......:
; Link ..........;
; Example .......; Yes
; ===============================================================================================================================
Func _API_Get_NetworkAdapterMAC($sIP)
        Local $MAC, $MACSize
        Local $i, $s, $r, $iIP

        $MAC = DllStructCreate("byte")
        $MACSize = DllStructCreate("int")

        DllStructSetData($MACSize, 1, 6)
        $r = DllCall("Ws2_32.dll", "int", "inet_addr", "str", $sIP)
        $iIP = $r
        $r = DllCall("iphlpapi.dll", "int", "SendARP", "int", $iIP, "int", 0, "ptr", DllStructGetPtr($MAC), "ptr", DllStructGetPtr($MACSize))
        $s = ""
        For $i = 0 To 5
                If $i Then $s = $s & ":"
                $s = $s & Hex(DllStructGetData($MAC, 1, $i + 1), 2)
        Next
        Return $s
EndFunc   ;==>_API_Get_NetworkAdapterMAC



; #FUNCTION# ====================================================================================================================
; Name...........: _InetIsOffline
; Description ...: 检测机器是否离线
; Syntax.........: _InetIsOffline()
; Parameters ....:
; Return values .:         成功 - 返回 1
;                                        失败 - 返回 0
; Author ........: thesnoW(rundll32@126.com)
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........; http://msdn.microsoft.com/en-us/library/bb776460(VS.85).aspx
; Example .......; Yes
; ===============================================================================================================================
Func _InetIsOffline()
                Return DllCall("url.dll","bool","InetIsOffline","DWORD",0)
EndFunc

;======================================================
;
; 函数名称:      _NetworkAdapterInfo()
; 详细信息:      获得网卡信息
; 返回值说明:
; 以二维数组方式返回.例如 $info=_NetworkAdapterInfo()
; $info=网卡数量
; $info第一块网卡的标志1
; $info第二块网卡的标志2
; $info第一块网卡的网卡名称
; $info第二块网卡的网卡名称
; $info第一块网卡的默认网关
; $info第一块网卡的DNS主机名称(本机名称)
; $info第一块网卡的IP地址
; $info第一块网卡的主DNS
; $info第一块网卡的次DNS
; $info第一块网卡的子网掩码
; $info第一块网卡的MAC地址
; $info第一块网卡的连接名称
; 注意,此UDF不会获取已经禁用的网卡。
; 如果有需要,请删除' WHERE IPEnabled != 0'和' WHERE NetConnectionStatus >0'
; 作者:            thesnow(rundll32@126.com)
;
;======================================================
Func _NetworkAdapterInfo()
        Local $colItems = ""
        Local $objWMIService
        Local $NetworkAdapterID = 0
        Local $NetworkAdapterName = ""
        Local $NetworkAdapterGateway = ""
        Local $NetworkAdapterHostName = ""
        Local $NetworkAdapterIPaddress = ""
        Local $NetworkAdapterDNS1 = ""
        Local $NetworkAdapterDNS2 = ""
        Local $NetworkAdapterSubnet = ""
        Local $NetworkAdapterMAC = ""
        Local $NetworkAdapterNetConnectionID = ""
        Local $NetworkAdapterInfo ;最高10块网卡.
        $NetworkAdapterInfo = 0
        $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled != 0", "WQL", 0x10 + 0x20)
        Local $colItem2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionStatus >0', "WQL", 0x10 + 0x20)
        If IsObj($colItems) Then
                For $objItem In $colItems
                        $NetworkAdapterName = $objItem.Description
                        $NetworkAdapterGateway = $objItem.DefaultIPGateway(0)
                        $NetworkAdapterHostName = $objItem.DNSHostName
                        $NetworkAdapterIPaddress = $objItem.IPAddress(0)
                        $NetworkAdapterDNS1 = $objItem.DNSServerSearchOrder(0)
                        $NetworkAdapterDNS2 = $objItem.DNSServerSearchOrder(1)
                        $NetworkAdapterSubnet = $objItem.IPSubnet(0)
                        $NetworkAdapterMAC = $objItem.MACAddress
                        $NetworkAdapterID += 1
                        $NetworkAdapterInfo = $NetworkAdapterID
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterID
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterName
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterGateway
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterHostName
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterIPaddress
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterDNS1
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterDNS2
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterSubnet
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterMAC
                Next
        Else
                Return $NetworkAdapterInfo
        EndIf

        If IsObj($colItem2) Then
                $NetworkAdapterID = 0
                For $objItem2s In $colItem2
                        $NetworkAdapterNetConnectionID = $objItem2s.NetConnectionID
                        $NetworkAdapterID += 1
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterNetConnectionID
                Next
                Return $NetworkAdapterInfo
        Else
                Return $NetworkAdapterInfo
        EndIf
EndFunc   ;==>_NetworkAdapterInfo

;======================================================
;
; 函数名称:                _WMI_SetNetworkAdapterInfo($HostName, $IpAdd, $SubMask, $GateWay, $DNS1, $DNS2, $IPX)
; 详细信息:                设置IP地址.
; $HostName:        计算机名称
; $IpAdd:                IP地址
; $SubMask:                子网掩码
; $GateWay:                默认网关
; $DNS1:                主DNS(域名解析)
; $DNS2:                次DNS(域名解析)
; $IPX:                        IPX虚拟网络号
; 作者:                        thesnow(rundll32@126.com)
;
;======================================================

Func _WMI_SetNetworkAdapterInfo($HostName, $IpADD, $SubMask, $GateWay, $DNS1, $DNS2, $IPX)
        Dim $SetDns, $SetIPAddress, $SetSubnetmask, $SetGateway
        $SetDns = $DNS1
        $SetDns = $DNS2
        $SetIPAddress = $IpADD
        $SetSubnetmask = $SubMask
        $SetGateway = $GateWay
        Local $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
        Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", 0x10 + 0x20)
        Local $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
        Local $objNetworkSettings = $objWMIService.Get("Win32_NetworkAdapterConfiguration")
        For $objNetAdapter In $colComputers
                $objNetAdapter.Rename($HostName)
        Next
        If IsObj($colItems) Then
                For $objNetAdapter In $colItems
                        $objNetAdapter.EnableStatic($SetIPAddress, $SetSubnetmask)
                        $objNetAdapter.SetGateways($SetGateway)
                        $objNetAdapter.SetDNSServerSearchOrder($SetDns)
                Next
        EndIf
        $objNetworkSettings.SetIPXVirtualNetworkNumber($IPX)
EndFunc   ;==>_WMI_SetNetworkAdapterInfo


Func ThunderLinkEnc($Url)
        Local $Encrypt = _Base64Encode("AA" & $Url & "ZZ")
        Return 'thunder://' & $Encrypt
EndFunc

Func ThunderLinkDec($Url)
        $Url = StringReplace($Url,'thunder://','')
        $Url = _Base64Decode($Url)
        $Url = BinaryToString($Url)
        $Url = StringTrimLeft($Url,2)
        $Url = StringTrimRight($Url,2)
        Return $Url
EndFunc

Func FlashGetLinkEnc($Url)
        Local $Encrypt = _Base64Encode("" & $Url & "")
        Return 'FlashGet://' & $Encrypt & '&'
EndFunc

Func FlashGetLinkDec($Url)
        $Url = StringReplace($Url,'FlashGet://','')
        $Url = StringTrimRight($Url,(StringLen($Url)-StringInStr($Url,'&',-1)))
        $Url = _Base64Decode($Url)
        $Url = BinaryToString($Url)
        $Url = StringTrimLeft($Url,10)
        $Url = StringTrimRight($Url,10)
        Return $Url
EndFunc

Func QQdlLinkEnc($Url)
        Local $Encrypt = _Base64Encode($Url)
        Return 'qqdl://' & $Encrypt
EndFunc

Func QQdlLinkDec($Url)
        $Url = StringReplace($Url,'qqdl://','')
        $Url = _Base64Decode($Url)
        $Url = BinaryToString($Url)
        Return $Url
EndFunc
EndFunc   ;==>_NetworkAdapterInfo
页: [1]
查看完整版本: ACN_NET.au3 这个文件丢失 谁能给我传一个