试试工具转换的高亮代码

lsb968 · 发表于 2013-8-14 15:41:59

#include <IE.au3>     Local $http = InputBox('表单信息查找', '请输入网址') ;~ Local $Form ;~ $Http="https://passport.csdn.net/account/login" $oIE = _IECreate ($Http) $oForms = _IEFormGetCollection ($oIE) $oFormshu= "这个页面上共有" & @extended & "个表单" MsgBox(0, "表单信息", "这个页面上共有" & @extended & "个表单") ;~ FileWriteLine("表单信息.txt", 'http://mail.163.com/') FileWriteLine("表单信息.txt", '_______________________________________________________________________________') FileWriteLine("表单信息.txt", $Http& @CRLF& @CRLF) FileWriteLine("表单信息.txt", $oFormshu& @CRLF& @CRLF) ;~ $oInputs = _IETagNameGetCollection($oIE, "INPUT") ;~ For $oInput In $oInputs ;~ FileWriteLine("表单信息.txt", 'Input === '&$oInput.name) ;~ FileWriteLine("表单信息.txt", " id === "&$oInput.id) ;~ FileWriteLine("表单信息.txt", " type === "&$oInput.type& @CRLF& @CRLF)     Next For $Form In $oForms ;~ For $oInput In $oInputs ;~ FileWriteLine("表单信息.txt", 'Form === '&$oInput.name& @CRLF& @CRLF) ;~ FileWriteLine("表单信息.txt", "type === "&$oInput.type& @CRLF& @CRLF) ;~ Next ;~ MsgBox(0, "表单名称", $Form.name) FileWriteLine("表单信息.txt", 'Form === '&$Form.id) FileWriteLine("表单信息.txt", 'Form === '&$Form.name& @CRLF& @CRLF) $oQuerys = _IEFormElementGetCollection ($Form) For $Query In $oQuerys ;~ MsgBox(0, "表单控件信息", "名称:"&$Query.name & " 类型:"&$Query.type) FileWriteLine("表单信息.txt", "控件 === "&$Query.name) FileWriteLine("表单信息.txt", "  id === "&$Query.id) FileWriteLine("表单信息.txt", "type === "&$Query.type& @CRLF& @CRLF) Next Next FileWriteLine("表单信息.txt", '_______________________________________________________________________________'& @CRLF& @CRLF) ;~ FileOpen('E:\文本\AU3自学手册[附件]\8-2\表单信息.txt') ;~ Run("notepad.exe")

lsb968 · 发表于 2013-8-14 15:42:45

本帖最后由 lsb968 于 2013-8-14 15:51 编辑

无效代码无效代码无效代码无效代码

llllllxllllll · 发表于 2013-8-15 08:54:08

怎么会这样？

木头人 · 发表于 2013-8-17 23:14:58

全是乱码啊，

sunkiss · 发表于 2013-8-19 22:13:59

这是什么啊?看不了啊

zhaoyun · 发表于 2013-9-6 09:39:11

看不了....

		自动登录	找回密码
密码			加入