谁用win7，帮我试验下代码，修改ip的，我的不好用，5555
本帖最后由 dearmb 于 2011-3-28 14:41 编辑Opt ("MouseCoordMode", 0)
Run(@ComSpec & " /c " & 'NCPA.CPL', "", @SW_HIDE)
Sleep(10)
If Not WinExists ("本地 属性","") Then
winwait("网络连接","")
WinActivate ("网络连接","")
MouseClick ("right",115, 145)
Send("r")
EndIf
Sleep(1000)
Send("{down}")
Send("{down}")
Send("{down}")
Send("{down}")
我想在本地属性那里点4次下，选择IPv4的地址，但是就是下不去啊，我怎么看都没写错啊，5555
激活本地 属性窗口双击也不好用，返回值提示已经点了，但是我看不到鼠标在动，也没有点到
等到Send("r")之后，添加MouseMove ( 500, 500 )移动鼠标的动作也没有
现在就是，在下面这个窗口出现之前，移动和点击都好用，出现之后，鼠标就不动了，Send("{down}")也没反应
我的为什么可以啊不知道你为什么不行啊 唉……激活这个窗口之后，什么都不灵了……，唉，放弃了
…… 装个虚拟机 _WMI_SetNetworkAdapterInfo 我写过一个XP的我看看在不在发给你看看
#Include <GuiListView.au3>
#Include<Winapi.au3>
Local $xiaozhan ,$xiaoxiao, $count ,$aList, $x
;*****************************************************************************************
ShellExecute("rundll32.exe", "shell32.dll,Control_RunDLL ncpa.cpl")
Sleep(800)
Dim $h=MsgBox(1, "请注意", "必须把本地连接的名字改成'本地连接'")
if$h<>1Then
Exit 0
EndIf
;*****************************************************************************************
;*****************************************************************************************
WinWait("网络连接")
ControlClick("网络连接","FolderView","","left",2,45,58)
;*****************************************************************************************
;WinWait("网络连接")
;$xiaozhan = ControlGetHandle ( "网络连接", "", "");获取指定控件的内部句柄.
;MsgBox(4096, "测试",$xiaozhan)
;$xiaoxiao = _GUICtrlListView_GetISearchString($xiaozhan) ;获取控件的增字搜索字符串
;$count = _GUICtrlListView_GetItemCount($xiaozhan) ;获取列表视图控件的项目数
;$aList = _GUICtrlListView_GetItemText($xiaozhan,0);获取项目或子项目的文本
;MsgBox(4160, "Information", "Item Count: " & _GUICtrlListView_GetItemCount($xiaozhan))
;For $x = 0 To $count-1
;$aList = _GUICtrlListView_GetItemText($xiaozhan,$x) ;获取项目或子项目的文本
;if $aList = "本地连接" Then
;_GUICtrlListView_ClickItem( $xiaozhan, $x ,"left","",3);点击一个项目
;ConsoleWrite( $aList & @CRLF );写入数据到 STDOUT 流.一些文本编辑器可以读取这个流作为其它程序可接受的数据.
;EndIf
;Next
;*****************************************************************************************
WinWait("本地连接 状态")
ControlClick("本地连接 状态","属性(&P)","","left",2)
WinWait("本地连接 属性")
$xiaozhan = ControlGetHandle ( "本地连接 属性", "", "");获取指定控件的内部句柄.
;MsgBox(4096, "测试",$xiaozhan)
$xiaoxiao = _GUICtrlListView_GetISearchString($xiaozhan) ;获取控件的增字搜索字符串
$count = _GUICtrlListView_GetItemCount($xiaozhan) ;获取列表视图控件的项目数
$aList = _GUICtrlListView_GetItemText($xiaozhan,0);获取项目或子项目的文本
;MsgBox(4160, "Information", "Item Count: " & _GUICtrlListView_GetItemCount($xiaozhan))
For $x = 0 To $count-1
$aList = _GUICtrlListView_GetItemText($xiaozhan,$x) ;获取项目或子项目的文本
if $aList = "Internet 协议 (TCP/IP)" Then
_GUICtrlListView_ClickItem( $xiaozhan, $x ,"left","",3);点击一个项目
ConsoleWrite( $aList & @CRLF );写入数据到 STDOUT 流.一些文本编辑器可以读取这个流作为其它程序可接受的数据.
EndIf
Next
;*****************************************************************************************
ControlClick("Internet 协议 (TCP/IP) 属性","高级(&V)...","");,"left",2)
ControlClick("高级 TCP/IP 设置","添加(&A)...","")
MsgBox(4096,"请查看ini文件","ini文件里面的IP是不是板子的IP是的点击确定不是的修改后在点击确定")
$title=IniRead("本地连接添加(删除)附加IP.ini","title","title","")
MsgBox(4096,"确认ini文件IP",$title)
;*****************************************************************************************
;
;title=192.168.10.113"{TAB}"
;title_1=title这是板子的IP"{TAB}"
;*****************************************************************************************
BlockInput(1) ;屏蔽/启用鼠标与键盘(输入).
$var = ControlGetText("TCP/IP 地址", "", "") ;获取指定控件上的文本.
ControlClick( "TCP/IP 地址", "", "")
Send($title);用快捷方式打开文件 ;sendx的声明(sendx可以输入中文不会乱码)#include <ACN_String.au3> 是声明
ControlClick( "TCP/IP 地址", "添加(&A)", "")
BlockInput(0)
;*****************************************************************************************
ControlClick("高级 TCP/IP 设置","确定","")
ControlClick("Internet 协议 (TCP/IP) 属性","确定","")
ControlClick("本地连接 属性","确定","")
ControlClick("本地连接 状态","关闭(&C)","")
;*****************************************************************************************
Sleep(6000)
WinClose("网络连接")
这是XP下我写的 netsh interface ip add address "本地连接" 10.10.10.10 255.255.255.0 上面是命令行修改的命令，不知win7下可以用不，“本地连接”改成你的连接名后面两段改成你要设置的ip地址和掩码。 上面是命令行修改的命令，不知win7下可以用不，“本地连接”改成你的连接名后面两段改成你要设置的ip地址和 ...
kevinch 发表于 2011-3-29 21:02 http://autoitx.com/images/common/back.gif
vbs,批处理，都试过了，不好用，让我在管理员下运行，但账户只有我一个管理员，我都服了……实在没招了，才想模拟键盘鼠标点击的，结果还是失败了…… 试一下isadmin，看一下你到底是不是管理员，很多时候只看到你一个用户并不代表你是管理员，管理员帐户是可以隐藏的。 模拟的方法是 最不可靠的
页:
[1]