|
本帖最后由 liushenchi 于 2015-12-2 17:10 编辑
公司替换邮箱后缀,如下图 需要把 @shentongxm.com 替换成 @shentong.com 要求如下。
如何判断后缀是不是
@shentongxm.com
如果 是 往下执行,否 则退出。
“是”就把后缀替换成
@shentong.com
我只会利用按键去删除。需要判断语句。
Run("D:\Program Files\Foxmail 7.0\Foxmail.exe")
WinWait("Foxmail","工具栏")
Send("!tc")
WinWaitactive("帐号管理","更改(&E)")
ControlClick("帐号管理","更改(&E)","[CLASS:TTntEdit.UnicodeClass]")
Send("{tab},{tab}")
Send("{Right}")
Send("{LEFT 6}")
Send("{DEL 2}")
ControlClick("帐号管理","更改(&E)","[CLASS:TTntTabControl.UnicodeClass]")
Send("{Right 3}")
Send("{tab}")
Send("{Right}")
Send("{LEFT 6}")
Send("{DEL 2}")
Send("{tab}")
$hWnd=WinGetHandle("[ACTIVE]");$hWnd 为目标窗口句柄,这里设置的是当前活动窗口
$ret=DllCall("user32.dll","long","LoadKeyboardLayout","str","08040804","int",1+0)
DllCall("user32.dll","ptr","SendMessage","hwnd",$hWnd,"int",0x50,"int",1,"int",$ret[0])
Send('nh')
Send("mail.shentong.com")
Send("{tab}")
Send("smtp.shentong.com")
Send("{tab}")
Send("pop3.shentong.com")
ControlClick("帐号管理","每隔(&C)","[CLASS:TTntTabControl.UnicodeClass]")
Send("{Right 2}")
Send("{tab}")
Send("{Right}")
Send("{LEFT 6}")
Send("{DEL 2}")
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入
×
|