|
|
楼主 |
发表于 2015-12-11 16:10:35
|
显示全部楼层
变量 线程ID
功能 执行()
控件是否有效("开始翻译",假)
变量 句柄=窗口获取自我句柄()
变量 标题=窗口获取标题(句柄)
窗口设置标题(句柄,"此软件,纯属娱乐,各位忽喷!")
控件关闭子窗口("翻译",123)
等待(500)
变量 控件句柄=控件打开子窗口("翻译")
等待(10)
窗口设置位置(控件句柄,-2000,-2000)
等待(10)
变量 翻译前 = 编辑框获取文本("翻译前")
编辑框设置文本("翻译后","")
变量 待翻译 = 下拉框获取选项("待翻译")
变量 翻译 = 下拉框获取选项("翻译")
选择(待翻译)
条件 0
待翻译 = "auto"
条件 1
待翻译 = "ara"
条件 2
待翻译 = "est"
条件 3
待翻译 = "bul"
条件 4
待翻译 = "pl"
条件 5
待翻译 = "dan"
条件 6
待翻译 = "de"
条件 7
待翻译 = "ru"
条件 8
待翻译 = "fra"
条件 9
待翻译 = "fin"
条件 10
待翻译 = "kor"
条件 11
待翻译 = "nl"
条件 12
待翻译 = "cs"
条件 13
待翻译 = "rom"
条件 14
待翻译 = "pt"
条件 15
待翻译 = "jp"
条件 16
待翻译 = "swe"
条件 17
待翻译 = "slo"
条件 18
待翻译 = "th"
条件 19
待翻译 = "wyw"
条件 20
待翻译 = "spa"
条件 21
待翻译 = "el"
条件 22
待翻译 = "hu"
条件 23
待翻译 = "zh"
条件 24
待翻译 = "en"
条件 25
待翻译 = "it"
条件 26
待翻译 = "yue"
条件 27
待翻译 = "cht"
结束
选择(翻译)
条件 0
翻译 = "ara"
条件 1
翻译 = "est"
条件 2
翻译 = "bul"
条件 3
翻译 = "pl"
条件 4
翻译 = "dan"
条件 5
翻译 = "de"
条件 6
翻译 = "ru"
条件 7
翻译 = "fra"
条件 8
翻译 = "fin"
条件 9
翻译 = "kor"
条件 10
翻译 = "nl"
条件 11
翻译 = "cs"
条件 12
翻译 = "rom"
条件 13
翻译 = "pt"
条件 14
翻译 = "jp"
条件 15
翻译 = "swe"
条件 16
翻译 = "slo"
条件 17
翻译 = "th"
条件 18
翻译 = "wyw"
条件 19
翻译 = "spa"
条件 20
翻译 = "el"
条件 21
翻译 = "hu"
条件 22
翻译 = "zh"
条件 23
翻译 = "en"
条件 24
翻译 = "it"
条件 25
翻译 = "yue"
条件 26
翻译 = "cht"
结束
网页跳转("浏览器0","http://fanyi.baidu.com/?aldtype=16047#"&待翻译&"/"&翻译&"/","翻译")
等待(1000)
网页元素输入("浏览器0",翻译前,"tag:TEXTAREA&id:baidu_translate_input&type:textarea&index:0&class:textarea","翻译")
等待(1000)
网页元素点击("浏览器0","tag:A&id:translate-button&index:18&class:trans-btn trans-btn-zh","翻译")
等待(1000)
变量 翻译后=网页元素获取("浏览器0","text","tag:P&index:12&class:ordinary-output target-output","翻译")
编辑框设置文本("翻译后",翻译后)
窗口设置标题(句柄,"翻译完成")
等待(100)
// 窗口设置标题(句柄,"定做辅助,请加QQ:312120292")
控件是否有效("开始翻译",真)
结束 |
|
/2 
发表于 2015-12-11 16:06:47
源文件传不上去 坑到了