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 我在网上下载了一个,放到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]