谁用win7，帮我试验下代码，修改ip的，我的不好用，5555

dearmb

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}")也没反应

xz00311

我的为什么可以啊不知道你为什么不行啊

dearmb

唉……激活这个窗口之后，什么都不灵了……，唉，放弃了
……

gzh888666

装个虚拟机

shenrenba

_WMI_SetNetworkAdapterInfo

xz00311

我写过一个XP的我看看在不在发给你看看

xz00311

 

#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<>1  Then
    Exit 0
EndIf

;*****************************************************************************************
;*****************************************************************************************
WinWait("网络连接")

ControlClick("网络连接","FolderView","[ID:1]","left",2,45,58)
;*****************************************************************************************

;WinWait("网络连接")
;$xiaozhan = ControlGetHandle ( "网络连接", "", "[ID:1]")  ;获取指定控件的内部句柄.

;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)","[ID:1026]","left",2)
WinWait("本地连接 属性")
$xiaozhan = ControlGetHandle ( "本地连接 属性", "", "[ID:16012]")  ;获取指定控件的内部句柄.

;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)...","[ID:1015]");,"left",2)
ControlClick("高级 TCP/IP 设置","添加(&A)...","[ID:1017]")

MsgBox(4096,"请查看ini文件","ini文件里面的IP是不是板子的IP是的点击确定不是的修改后在点击确定") 
$title=IniRead("本地连接添加(删除)附加IP.ini","title","title","")
MsgBox(4096,"确认ini文件IP",$title) 

;*****************************************************************************************
;[title]
;title=192.168.10.113"{TAB}"
;title_1=title这是板子的IP"{TAB}"
;*****************************************************************************************


BlockInput(1) ;屏蔽/启用鼠标与键盘(输入).
$var = ControlGetText("TCP/IP 地址", "", "[ID:1025]") ;获取指定控件上的文本.
ControlClick( "TCP/IP 地址", "", "[ID:1025]") 
Send($title);用快捷方式打开文件 ;sendx的声明(sendx可以输入中文不会乱码)#include <ACN_String.au3> 是声明
ControlClick( "TCP/IP 地址", "添加(&A)", "[ID:1]") 
BlockInput(0)

;*****************************************************************************************

ControlClick("高级 TCP/IP 设置","确定","[ID:1]")
ControlClick("Internet 协议 (TCP/IP) 属性","确定","[ID:1]")
ControlClick("本地连接 属性","确定","[ID:1]")
ControlClick("本地连接 状态","关闭(&C)","[ID:2]")

;*****************************************************************************************
Sleep(6000)
WinClose("网络连接")

这是XP下我写的

kevinch

netsh interface ip add address "本地连接" 10.10.10.10 255.255.255.0 

上面是命令行修改的命令，不知win7下可以用不，“本地连接”改成你的连接名后面两段改成你要设置的ip地址和掩码。

dearmb

上面是命令行修改的命令，不知win7下可以用不，“本地连接”改成你的连接名后面两段改成你要设置的ip地址和 ...
kevinch 发表于 2011-3-29 21:02

vbs,批处理，都试过了，不好用，让我在管理员下运行，但账户只有我一个管理员，我都服了……实在没招了，才想模拟键盘鼠标点击的，结果还是失败了……

kevinch

试一下isadmin，看一下你到底是不是管理员，很多时候只看到你一个用户并不代表你是管理员，管理员帐户是可以隐藏的。

haodd

模拟的方法是 最不可靠的