分类目录归档：AutoIt

AutoIt v3 is a freeware BASIC-like scripting language designed for automating the Windows GUI and general scripting

[原]用AutoIt完成CCProxy的代理切换

南大的VPN，进校以后访问外网就必须用代理。
这样各个软件切换代理特别麻烦，比如浏览器、QQ、MSN、旺旺、BT、FlashGet得改代理吧。
我用AutoIt3写了一个软件，能自动切换CCProxy的代理（就是使不使用二级代理）。这样，把其他软件的代理都设为127.0.0.1:8080，就是用CCProxy作为其他软件的代理服务器，然后用程序切换CCProxy的二级代理状态即可。
不用VPN的时候不使用二级代理，用了VPN的时候只要运行一下程序，把CCProxy的二级代理状态打开，其他软件就不需要切换代理了。反之也一样。非常方便。
下面是源码：

#cs ------------------------------------------------

 AutoIt Version: 3.2.8.1
 Author:         http://bianbian.sunshow.net

 Script Function:
	切换CCProxy的代理（是否使用二级代理）.

#ce ------------------------------------------------

$PATH = @ProgramFilesDir & "\CCProxy"
$EXE = $PATH & "\" & "CCProxy.exe"
$INI = $PATH & "\" & "CCProxy.ini"
$TT = "CCProxy 6."
$TX = "Youngzsoft"

; check running
If Not ProcessExists("CCProxy.exe") Then
	MsgBox(0, "Error", "CCProxy未运行!")
	Exit
EndIf

; run it! so activate the already-running one!
RunWait($EXE, $PATH)

; try kill it!
WinClose($TT, $TX)
WinWait("CCProxy", "是否真的关闭代理服务器")
ControlClick("CCProxy", "是否真的关闭代理服务器", "Button1")

; change PROXY setting
$set = IniRead($INI, "system", "CascadingProxy", 0)
If $set = 0 Then
	$set = 1
Else
	$set = 0
EndIf
IniWrite($INI, "system", "CascadingProxy", $set)

; done! restart it!
Run($EXE, $PATH)

#cs ------------------------------------------------

AutoIt Version: 3.2.8.1

Author: http://bianbian.sunshow.net

Script Function:

切换CCProxy的代理（是否使用二级代理）.

#ce ------------------------------------------------

$PATH = @ProgramFilesDir & "\CCProxy"

$EXE = $PATH & "\" & "CCProxy.exe"

$INI = $PATH & "\" & "CCProxy.ini"

$TT = "CCProxy 6."

$TX = "Youngzsoft"

; check running

If Not ProcessExists("CCProxy.exe") Then

MsgBox(0, "Error", "CCProxy未运行!")

Exit

EndIf

; run it! so activate the already-running one!

RunWait($EXE, $PATH)

; try kill it!

WinClose($TT, $TX)

WinWait("CCProxy", "是否真的关闭代理服务器")

ControlClick("CCProxy", "是否真的关闭代理服务器", "Button1")

; change PROXY setting

$set = IniRead($INI, "system", "CascadingProxy", 0)

If $set = 0 Then

$set = 1

Else

$set = 0

EndIf

IniWrite($INI, "system", "CascadingProxy", $set)

; done! restart it!

Run($EXE, $PATH)

标签: AutoIt, CCProxy

遵守创作共用协议，转载请链接形式注明来自https://blog.bbdd.ltd 做人要厚道

[原] 用AutoIt3控制其他程序控件的一些经验

发表评论

这些经验是我实践中经过N次测试发现的，希望对大家有帮助。
控制ComboBox：
如果要更改选择，仅仅”SetCurrentSelection”是不够的。虽然UI上能看到选择项进行了变化，但并不会在功能上生效。正确的做法是先下拉，再选择，然后点击，最后隐藏下拉，即：

;对combobox的控制，必须: ShowDropDown, Select, Click, HideDropDown
ControlCommand($WIN_TITLE, $WIN_TEXT, $Combo, "ShowDropDown")
ControlCommand($WIN_TITLE, $WIN_TEXT, $Combo, "SetCurrentSelection", $idx)
ControlClick($WIN_TITLE, $WIN_TEXT, $Combo)
ControlCommand($WIN_TITLE, $WIN_TEXT, $Combo, "HideDropDown")

;对combobox的控制，必须: ShowDropDown, Select, Click, HideDropDown

ControlCommand($WIN_TITLE, $WIN_TEXT, $Combo, "ShowDropDown")

ControlCommand($WIN_TITLE, $WIN_TEXT, $Combo, "SetCurrentSelection", $idx)

ControlClick($WIN_TITLE, $WIN_TEXT, $Combo)

ControlCommand($WIN_TITLE, $WIN_TEXT, $Combo, "HideDropDown")

控制鼠标点击：
除了ControlClick方法处理鼠标点击外，有时候必须要用到SendMessage，因为鼠标点击事件其实是有坐标位置关系的，用简单的ControlClick并不能完成类似要点击某块区域内某个点的功能。

;;;;;;; https://blog.bbdd.ltd ;;;;;;
#include <misc.au3>

$handle = ControlGetHandle(...)
$WM_LBUTTONDOWN = 0x0201
$WM_LBUTTONUP = 0x0202
_SendMessage($handle, $WM_LBUTTONDOWN, 0, MyPoint(8, 51))
_SendMessage($handle, $WM_LBUTTONUP, 0, MyPoint(8, 51))

;得到鼠标x，y转换后的数值：高位表示y，低位表示x
Func MyPoint($x, $y)
    Return ($x + BitShift($y, -8))
EndFunc

;;;;;;; https://blog.bbdd.ltd ;;;;;;

#include <misc.au3>

$handle = ControlGetHandle(...)

$WM_LBUTTONDOWN = 0x0201

$WM_LBUTTONUP = 0x0202

_SendMessage($handle, $WM_LBUTTONDOWN, 0, MyPoint(8, 51))

_SendMessage($handle, $WM_LBUTTONUP, 0, MyPoint(8, 51))

;得到鼠标x，y转换后的数值：高位表示y，低位表示x

Func MyPoint($x, $y)

Return ($x + BitShift($y, -8))

EndFunc

标签: AutoIt, 经验

遵守创作共用协议，转载请链接形式注明来自https://blog.bbdd.ltd 做人要厚道

[原]用AutoIt3写了个自动刻盘程序(调用Nero)

8条回复

由于我实验室的电脑每小时都要接收一百多兆的卫星数据，刻DVD成了我郁闷不勘的体力活。
前阵子用Delphi写了监听目录，一旦有卫星数据传送完毕，就自动调用RAR压缩，省下几天时间（数据嘛，压缩一下小很多的）。
不过还是挺麻烦，像我这种懒人，最烦体力活了。于是，用AutoIt3写了个自动调用Nero 6 Express刻盘的。原理是：上面说的那个Delphi监听目录程序过一段时间检查数据目录，一旦超过一张盘片的容量了，就调用Nero 6 Express，将目录里所有文件全选进来，然后从底部一个一个删除超过容量的，然后就可以刻录了。刻完以后盘片会弹出来，再将Nero 6关掉，等待下一次刻盘。
唯一的麻烦是虽然自动刻盘了，还得人工去换盘……
我想了几天，没想到什么可行的办法实现自动换盘，现在暂时是刻完一张盘就自动给小师弟发短信，让他来换盘……

标签: AutoIt, 刻盘, 自动

遵守创作共用协议，转载请链接形式注明来自https://blog.bbdd.ltd 做人要厚道

[原]AutoIt 3中文在线帮助文档

1条回复

感谢yonken的前期翻译工作和对我的信任。
我最近有些忙，现在只是整理了目录结构，把删掉的部分补齐（未翻译）。抽空的时候我会继续翻译。

文档在此：AutoIt 3中文在线帮助文档

标签: AutoIt, 文档

遵守创作共用协议，转载请链接形式注明来自https://blog.bbdd.ltd 做人要厚道

[译]Koda 1.6.0.0发布

发表评论

原帖地址：http://www.autoitscript.com/fileman/users/lookfar/formdesign.html
我翻译了一下，做了简体中文的语言文件。见：AutoIt 3的GUI生成工具Koda。繁体中文可以参考这里：Koda 1.6.0.0 正體中文化

After long period of development and testing, new release 1.6.0.0 is finally here! Thanks to all who support us and help done this work!

Most significant changes from previous release:
New, more fast and reliable form read/write routines.
Rewritten form list handling code
Menus support (with visual editor)
Obj support (with visual browser)
Templates-based code generation
Generating event-based code
Help file (unfinished)

标签: AutoIt, Koda

遵守创作共用协议，转载请链接形式注明来自https://blog.bbdd.ltd 做人要厚道

[原]AutoIt 3的GUI生成工具Koda

2条回复

原来已经有这样的GUI工具了，界面跟我设想的居然一模一样：http://www.autoitscript.com/fileman/users/lookfar/formdesign.html
5555，真是郁闷，这个可能也参考了Handel，Handel真是牛X。
只好花了一点点时间把Koda汉化了一下(下载后存成lang_zhcn.xml到Koda的Language目录)。第一次翻译，大家见笑。
不过我用JavaScript做了把HHC文件（微软生成chm帮助文档时的目录结构文件）直接生成树状目录结构的网页，这样AutoIt3的在线文档就不会那么丑了。等完善一下再贴上来。

标签: AutoIt, GUI, JavaScript, Koda

遵守创作共用协议，转载请链接形式注明来自https://blog.bbdd.ltd 做人要厚道

[原]AutoIt 3简介，决定翻译并开发GUI工具

发表评论

http://www.autoitscript.com/autoit3/
用AutoIt 3花了4个小时，写了一个游戏的自动登录脚本（包括服务器端设置用户名/密码和客户端读取并解析用户名密码并自动登录）。第一次接触，感觉还不错，大部分时间花在GUI的位置调整上（感觉回到了调用WinAPI的年代，呵呵）。决定翻译并开发GUI工具。先开始翻译吧。^_^

AutoIt v3 is a freeware BASIC-like scripting language designed for automating the Windows GUI and general scripting. It uses a combination of simulated keystrokes, mouse movement and window/control manipulation in order to automate tasks in a way not possible or reliable with other languages (e.g. VBScript and SendKeys). AutoIt is also very small, self-contained and will run on 95, 98, ME, NT4, 2000, XP, 2003 out of the box with no annoying “runtimes” required! You can even make compiled executable scripts that can run without AutoIt being installed!

AutoIt was initially designed for PC “roll out” situations to reliably configure thousands of PCs, but with the arrival of v3 it has become a powerful language able to cope with most scripting needs.

AutoIt can:

Provide a general-purpose scripting language for all Windows versions

Simulate keystrokes (supports most keyboard layouts)

Simulate mouse movements and clicks

Move, resize and manipulate windows

Interact directly with “controls” on a window (set/get text from edit controls, check boxes and radio buttons, select items in drop-down lists, etc.)

Create complex user interfaces (GUIs)

Work with the clipboard to cut/paste text items

Provide a scriptable RunAs function for Windows 2000/XP/2003

标签: AutoIt, GUI

遵守创作共用协议，转载请链接形式注明来自https://blog.bbdd.ltd 做人要厚道

bianbian coding life

关注技术, 偶尔动动手

分类目录归档：AutoIt

[原]用AutoIt完成CCProxy的代理切换

[原] 用AutoIt3控制其他程序控件的一些经验

[原]用AutoIt3写了个自动刻盘程序(调用Nero)

[原]AutoIt 3中文在线帮助文档

[译]Koda 1.6.0.0发布

[原]AutoIt 3的GUI生成工具Koda

[原]AutoIt 3简介，决定翻译并开发GUI工具