|
|
11精币
写一个打开exe，就能修改网页数字的源码
如：我们写好修改数字123的exe，浏览器打开后在运行我们写好的exe
网站的数字就变成123.简单点就是说跟审核元素一样，以前ie浏览器可以改，会写的源码写好发这里
以下是以前的代码
【装逼学习，合法参考，禁止违法】
.版本 2
.常量 常量1, "<文本长度: 65>"
.常量 正则金额, "<文本长度: 29>"
.常量 前, "<文本长度: 12>"
.常量 常量3, "<文本长度: 111>"
.常量 常量2, "<文本长度: 131>"
.常量 常量4, "<文本长度: 80>"
.常量 常量5, "<文本长度: 75>"
.版本 2
.DLL命令 EnumWindows, 逻辑型
.参数 func, 子程序指针
.参数 _in, 整数型
.DLL命令 发送消息_, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ; SendMessageByString是该函数的“类型安全”声明形式 由具体的消息决定
.参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
.参数 信息值, 整数型, , 消息的标识符
.参数 参数一, 整数型, , 具体取决于消息
.参数 参数二, 文本型, , 具体取决于消息;
.DLL命令 EnumChildWindows, 逻辑型
.参数 hWndParent, 整数型
.参数 lpEnumFunc, 子程序指针
.参数 lParam, 整数型
.DLL命令 GetClassName, 整数型, , "GetClassNameA"
.参数 hwd, 整数型
.参数 str, 文本型
.参数 len, 整数型
.DLL命令 RegisterWindowMessage, 整数型, , "RegisterWindowMessageA"
.参数 lpString, 文本型
.DLL命令 SendMessageTimeout, 整数型, , "SendMessageTimeoutA"
.参数 MSG, 整数型
.参数 hwnd, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型
.参数 fuFlags, 整数型
.参数 uTimeout, 整数型
.参数 lpdwResult, 整数型, 传址
.DLL命令 ObjectFromLresult, 整数型, "OLEACC.DLL"
.参数 lResult, 整数型
.参数 riid, 字节集
.参数 wParam, 整数型
.参数 ppvObject, 对象
.DLL命令 CoInitialize, , "ole32", "CoInitialize"
.参数 a
.DLL命令 CoUninitialize, , "ole32", "CoUninitialize"
.DLL命令 Api_GetWindowTextA, 整数型, "user32", "GetWindowTextA"
.参数 hWnd, 整数型
.参数 lp, 文本型
.参数 len, 整数型
.DLL命令 Api_GetParent, 整数型, "user32.dll", "GetParent"
.参数 hWnd, 整数型
.DLL命令 Api_SetForegroundWindow, , "user32.dll", "SetForegroundWindow"
.参数 hwnd, 整数型
.DLL命令 Api_PostMessageA, 整数型, "user32.dll", "PostMessageA"
.参数 句柄, 整数型, , 接受消息的窗口句柄
.参数 状态, 整数型, , 256按，257放
.参数 键代码, 整数型
.参数 虚拟码, 字节型, , 为0
.DLL命令 Api_SendMessageA, 整数型, "user32.dll", "SendMessageA"
.参数 a, 整数型
.参数 报表, 整数型
.参数 程序, 整数型
.参数 d, 文本型, 传址
.DLL命令 Api_ShowWindow, 整数型, "user32.dll", "ShowWindow"
.参数 hwnd, 整数型
.参数 biaozhi, 整数型
.DLL命令 SendMessageA_整数, 整数型, "user32", "SendMessageA", 公开
.参数 hwnd, 整数型
.参数 消息号, 整数型, , 消息的标识符
.参数 参数一, 整数型, , 具体取决于消息
.参数 参数二, 整数型, , 具体取决于消息
.DLL命令 lstrcpynA_文本, 整数型, "kernel32", "lstrcpynA", 公开, _复制字符串
.参数 lpString1, 文本型, 传址
.参数 lpString2, 文本型, 传址
.参数 iMaxLength, 整数型
.DLL命令 SendMessageA_文本, 整数型, "user32", "SendMessageA", 公开
.参数 hwnd, 整数型
.参数 消息号, 整数型, , 消息的标识符
.参数 参数一, 整数型, , 具体取决于消息
.参数 参数二, 文本型, , 具体取决于消息
.DLL命令 SendMessageA, 整数型, , "SendMessageA"
.参数 hWnd
.参数 Msg
.参数 wParam
.参数 lParam
.DLL命令 GetAncestor, 整数型, , "GetAncestor", 公开, 取出指定窗口的最顶级父窗口
.参数 hwnd, 整数型, , 子窗口句柄
.参数 gaFlags, 整数型
.版本 2
.支持库 RegEx
.程序集 窗口程序集1
.程序集变量 pay, 文本型
.程序集变量 begin, 逻辑型
.程序集变量 替换金额, 文本型
.子程序 _启动子程序, 整数型
信息框 (“检测5173端口未开启，请支付一元后后进去充值！”, 32, “温馨提示：”)
pay ＝ “1.00”
begin ＝ 真
main__ ()
返回 (0)
.子程序 main__
.局部变量 ret, 逻辑型
ret ＝ 真
CoInitialize (0)
.循环判断首 ()
get_ie_hwnd_arr__EnumWindows ()
处理事件 ()
延时 (80)
.循环判断尾 (ret)
CoUninitialize ()
.子程序 get_ie_hwnd_arr__EnumWindows
EnumWindows (&EnumWindows_todo, 0)
.子程序 EnumWindows_todo, 逻辑型
.参数 hwnd, 整数型
.参数 _in_, 整数型
.局部变量 ClassName, 文本型
.局部变量 web_class, 对象
.局部变量 url, 文本型
EnumChildWindows (hwnd, &EnumWindows_ChildWindows, 0)
返回 (真)
.子程序 get_class, 对象
.参数 hwnd, 整数型
.局部变量 scrid, 整数型
.局部变量 msgid, 整数型
.局部变量 rt_class, 对象
.局部变量 class_name, 文本型
class_name ＝ 取空白文本 (256)
GetClassName (hwnd, class_name, 256)
.如果真 (class_name ≠ “Internet Explorer_Server”)
返回 (rt_class)
.如果真结束
msgid ＝ RegisterWindowMessage (“WM_HTML_GETOBJECT”)
SendMessageTimeout (hwnd, msgid, 0, 0, 2, 1000, scrid)
ObjectFromLresult (scrid, { 32, 197, 111, 98, 30, 164, 207, 17, 167, 49, 0, 160, 201, 8, 38, 55 }, 0, rt_class)
返回 (rt_class)
.子程序 replace_by_where, 逻辑型
.参数 docment, 对象
.参数 tagname, 文本型
.参数 where, 整数型, 可空
.参数 replace_body, 文本型, 可空
.参数 innerHTML_outerHTML, 整数型, 可空
.参数 keyword, 文本型, 可空
.参数 keyword_notinclude, 文本型, 可空
.参数 debug, 逻辑型, 可空
.参数 once, 逻辑型, 可空
.参数 copy_back_txt, 逻辑型, 可空
.参数 back_txt, 文本型, 参考 可空
.参数 dont_replace, 逻辑型, 可空
.局部变量 class, 对象
.局部变量 class_temp, 对象
.局部变量 i, 整数型
.局部变量 temp, 文本型
.局部变量 type, 文本型
.局部变量 back, 逻辑型
class ＝ docment.对象型方法 (“getElementsByTagName”, tagname)
back ＝ 假
.计次循环首 (class.读数值属性 (“length”, ), i)
.如果真 (where ＝ 0 或 i ＝ where)
class_temp ＝ class.对象型方法 (“item”, i － 1)
type ＝ 选择 (innerHTML_outerHTML ＝ 0, “innerHTML”, “outerHTML”)
temp ＝ class_temp.读文本属性 (type, )
.如果真 ((“” ＝ keyword 或 寻找文本 (temp, keyword, , 假) ≠ -1) 且 (“” ＝ keyword_notinclude 或 寻找文本 (temp, keyword_notinclude, , 假) ＝ -1))
.如果真 (取反 (dont_replace))
back ＝ 真
class_temp.写属性 (type, replace_body)
.如果真结束
.如果真 (copy_back_txt)
back_txt ＝ temp
.如果真结束
.如果真 (once)
返回 (back)
.如果真结束
.如果真结束
.如果真结束
.计次循环尾 ()
返回 (back)
.子程序 replace_by_class, 逻辑型
.参数 docment, 对象
.参数 tagname, 文本型
.参数 m_class, 文本型
.参数 replace_body, 文本型, 可空
.参数 innerHTML_outerHTML, 整数型, 可空
.参数 keyword, 文本型, 可空
.参数 keyword_notinclude, 文本型, 可空
.参数 debug, 逻辑型, 可空
.参数 once, 逻辑型, 可空
.参数 copy_back_txt, 逻辑型, 可空
.参数 back_txt, 文本型, 参考 可空
.参数 dont_replace, 逻辑型, 可空
.局部变量 class, 对象
.局部变量 class_temp, 对象
.局部变量 i, 整数型
.局部变量 temp, 文本型
.局部变量 type, 文本型
.局部变量 back, 逻辑型
class ＝ docment.对象型方法 (“getElementsByTagName”, tagname)
back ＝ 假
.计次循环首 (class.读数值属性 (“length”, ), i)
.如果真 (class.对象型方法 (“item”, i － 1).读文本属性 (“className”, ) ＝ m_class)
class_temp ＝ class.对象型方法 (“item”, i － 1)
type ＝ 选择 (innerHTML_outerHTML ＝ 0, “innerHTML”, “outerHTML”)
temp ＝ class_temp.读文本属性 (type, )
.如果真 ((“” ＝ keyword 或 寻找文本 (temp, keyword, , 假) ≠ -1) 且 (“” ＝ keyword_notinclude 或 寻找文本 (temp, keyword_notinclude, , 假) ＝ -1))
.如果真 (取反 (dont_replace))
back ＝ 真
class_temp.写属性 (type, replace_body)
.如果真结束
.如果真 (copy_back_txt)
back_txt ＝ temp
.如果真结束
.如果真 (once)
返回 (back)
.如果真结束
.如果真结束
.如果真结束
.计次循环尾 ()
返回 (back)
.子程序 EnumWindows_ChildWindows
.参数 hwnd, 整数型
.参数 _in_, 整数型
.局部变量 ClassName, 文本型
.局部变量 Tittle, 文本型
.局部变量 对象, 对象
.局部变量 hParent, 整数型
.局部变量 url, 文本型
.局部变量 temp, 文本型
.局部变量 test, 文本型
.局部变量 文本, 文本型
.局部变量 正则, 正则表达式
.局部变量 框架对象, 对象
.局部变量 对象1, 对象
.局部变量 搜索结果, 搜索结果
.局部变量 文本1, 文本型
.局部变量 替换金额, 文本型
.局部变量 sTag, 文本型, , , 高亮开始标签
.局部变量 eTag, 文本型, , , 高亮结束标签
.局部变量 oBody, 对象
.局部变量 oRange, 对象
.局部变量 bt, 文本型
.局部变量 x, 整数型
.局部变量 sx, 整数型
.局部变量 sy, 整数型
ClassName ＝ 取空白文本 (255)
GetClassName (hwnd, ClassName, 255)
.判断开始 (begin)
.判断开始断 (ClassName ＝ “Edit”)
' bt ＝ 取空白文本 (256)
' ' GetWindowTextA (GetAncestor (hwnd, 3), bt, 256)
.' 如果真 (寻找文本 (bt, “银行”, , 假) ≠ -1)
.' 如果真 (寻找文本 (窗口_取控件内容 (hwnd), “http”, , 假) ≠ -1)
' ' SendMessageA_文本 (hwnd, 12, 0, “javascript;”)
' ' 发送消息_ (hwnd, 256, 13, “0”)
.如果真结束
.如果真结束
.默认
.判断结束
.判断开始 (ClassName ＝ “Internet Explorer_Server”)
对象 ＝ get_class (hwnd)
.如果真 (对象.是否为空 ())
返回 ()
.如果真结束
url ＝ 到小写 (对象.读文本属性 (“url”, ))
temp ＝ 取文本左边 (url, 4)
.如果真 (“http” ＝ temp 或 “file” ＝ temp)
test ＝ “ebank.spdb.com”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “￥”, “</SPAN>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “ebanks.cgbchina.com”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “￥”, “元</SPAN>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “b2c.bank.ecitic.com”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
对象 ＝ 取框架文档 (对象, 1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “<SCRIPT>document.write(orderAmt)</SCRIPT>” ＋ #换行符, “</STRONG>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “ebank.srcb.com”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
文本 ＝ 取文本中间内容 (文本, “支付金额：”, “</TBODY></TABLE>”)
替换金额 ＝ 取文本中间内容 (文本, #引号 ＋ “>”, “</TD></TR>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “ebank.bankofbeijing”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “订单金额：</SPAN><SPAN class=tit2>”, “元</SPAN>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “ebank.cmbc.com”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “人民币</SPAN> <INPUT id=TransAmount value=”, “ ”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “ebank.njcb.com”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “<LI>支付金额：”, “元</LI>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “epay.hxb.com”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “<TD><SPAN class=snum>”, “</SPAN>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “pbank.psbc.com/pweb”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “<TD>￥”, “</TD></TR>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “mybank.nbcb.com”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “</SCRIPT>” ＋ #换行符 ＋ “￥”, “</FONT>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “ibs.bjrcb.com”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “<TD>￥”, “</TD>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “payment.cib.com.cn/payment”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “class=highLightText>”, “</SPAN>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “netpay.pingan.com”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
文本 ＝ 取文本中间内容 (文本, “<TH>支付总金额</TH>”, “</TR>”)
替换金额 ＝ 取文本中间内容 (文本, “<TD>”, “</TD>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “ibsbjstar.ccb.com.cn/app”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
对象1 ＝ 取框架文档 (对象, 1)
.如果 (对象1.是否为空 ())
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
' 调试输出 (取文本中间内容 (文本, #常量4, “')</SCRIPT>”))
.否则
文本 ＝ 对象1.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “Pay_Order_MoneyFont” ＋ #引号 ＋ “>”, “</SPAN>”)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象1.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
对象1 ＝ 取框架文档 (对象, 2)
文本 ＝ 对象1.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “<SPAN class=Pay_Order_MoneyFont>”, “</SPAN>”)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象1.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果真结束
test ＝ “ebank.sdb.com.cn/perbank”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “<TD style=” ＋ #引号 ＋ “COLOR: red” ＋ #引号 ＋ “>”, “元</TD></TR>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “www.cebbank.com/per”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, #常量3, “</SPAN>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “pay.95559.com.cn”
' 调试输出 (url)
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “人民币 ”, “</DIV>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “ebsnew.boc.cn”
' 调试输出 (url)
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
' 调试输出 (文本)
文本 ＝ 取文本中间内容 (文本, “订单总额</LABEL>”, “人民币元”)
替换金额 ＝ 取文本中间内容 (文本, #前, “</SPAN>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “netpay.cmbchina.com/netpayment”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
文本 ＝ 对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, “<SPAN class=billContentAmount>”, “</SPAN>”)
.如果 (替换金额 ＝ “”)
替换金额 ＝ 替换金额
.否则
.计次循环首 (5, sx)
.如果 (sx ＝ 1)
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.否则
对象 ＝ 取框架文档 (对象, sx － 1)
.如果 (对象.是否为空 ())
跳出循环 ()
.否则
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果结束
.如果结束
.计次循环尾 ()
.如果结束
.如果真 (替换金额 ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “easyabc.95599.cn/b2c/”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
对象1 ＝ 对象.对象型方法 (“getElementsByTagName”, “SPAN”)
对象1 ＝ 对象1.对象型方法 (“item”, 0)
.如果真 (对象1.读文本属性 (“innerHTML”, ) ≠ pay)
oBody ＝ 对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 对象1.读文本属性 (“innerHTML”, )))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
框架对象 ＝ 取框架文档 (对象, 2)
文本 ＝ 框架对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
替换金额 ＝ 取文本中间内容 (文本, #常量2, “</SPAN>元”)
.如果真 (替换金额 ≠ pay)
oBody ＝ 框架对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
test ＝ “.icbc.com”
.如果真 (寻找文本 (url, test, , 假) ≠ -1)
框架对象 ＝ 取框架文档 (对象, 1)
框架对象 ＝ 取框架文档 (框架对象, 3)
文本 ＝ 框架对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
.如果真 (寻找文本 (文本, “1.00”, , 假) ＝ -1)
.如果真 (寻找文本 (文本, “IFRAME”, , 假) ≠ -1)
正则.创建 (“<IFRAME” ＋ “(.*?)” ＋ “</IFRAME>”, )
搜索结果 ＝ 正则.搜索 (文本, 1, )
框架对象.读对象型属性 (“body”, ).写属性 (“innerHTML”, 子文本替换 (框架对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, ), 搜索结果.取匹配文本 (文本, ), “<B><FONT>” ＋ pay ＋ “</FONT></B>”, , , 真))
.如果真结束
.如果真结束
框架对象 ＝ 取框架文档 (对象, 1)
框架对象 ＝ 取框架文档 (框架对象, 4)
文本 ＝ 框架对象.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
.如果真 (寻找文本 (文本, “订单金额：</TD>”, , 假) ≠ -1)
替换金额 ＝ 取文本中间内容 (文本, “RMB ”, “</FONT>”)
.如果真 (替换金额 ≠ pay)
oBody ＝ 框架对象.读对象型属性 (“body”, )
' ↓定义高亮样式
sTag ＝ pay
eTag ＝ “”
.如果真 (oBody.是否为空 () ＝ 假)
oRange ＝ oBody.对象型方法 (“createTextRange”, )
.判断循环首 (oRange.逻辑方法 (“FindText”, 替换金额))
处理事件 ()
oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“checked”, ) ＋ eTag)
oRange.方法 (“MoveStart”, “character”, 1)
.判断循环尾 ()
.如果真结束
.如果真结束
.如果真结束
.如果真结束
.如果真结束
.' 判断 (ClassName ＝ “Button”) ' 强制
' Tittle ＝ 取空白文本 (256)
' hParent ＝ Api_GetParent (hwnd)
' Api_GetWindowTextA (hParent, Tittle, 255)
.' 如果真 (Tittle ＝ “来自网页的消息” 或 Tittle ＝ “Microsoft Internet Explorer”)
' Api_GetWindowTextA (hwnd, Tittle, 255)
.' 如果真 (Tittle ＝ “确定”)
' Api_SetForegroundWindow (hParent)
' Api_PostMessageA (hwnd, 256, #空格键, 0)
' Api_PostMessageA (hwnd, 257, #空格键, 0)
.如果真结束
.如果真结束
.判断 (ClassName ＝ “Edit”)
Tittle ＝ 取空白文本 (256)
hParent ＝ Api_GetParent (hwnd)
Api_GetWindowTextA (hParent, Tittle, 255)
' 输出调试文本 (参标题)
.如果真 (Tittle ＝ “中国建设银行网银盾”)
Api_SendMessageA (hwnd, 13, 255, Tittle)
输出调试文本 (Tittle)
.如果真 (寻找文本 (Tittle, “支付金额”, , 假) ≠ -1)
Api_SendMessageA (hwnd, 12, 1, “支付金额：” ＋ pay)
.如果真结束
.如果真结束
.' 判断 (ClassName ＝ “SysListView32”)
' Tittle ＝ 取空白文本 (256)
' hParent ＝ Api_GetParent (hwnd)
' Api_GetWindowTextA (hParent, Tittle, 255)
.' 如果真 (Tittle ＝ “请核对签名信息”)
' Api_ShowWindow (hParent, 0)
' Tittle ＝ 取空白文本 (256)
' Api_SendMessageA (hwnd, 13, 255, Tittle)
.' 如果真 (文件是否存在 (取运行目录 () ＋ “\调试数据.txt”) ＝ 假)
' 写到文件 (取运行目录 () ＋ “\调试数据.txt”, 到字节集 (Tittle))
.如果真结束
.' 如果真 (寻找文本 (Tittle, “商城代码：”, , 假) ≠ -1)
.' 如果真 (取文本中间内容 (Tittle, “订单：”, “元” ＋ #换行符) ≠ pay 且 取文本中间内容 (Tittle, “本期支付金额：”, “元” ＋ #换行符) ≠ pay)
' Tittle ＝ 子文本替换 (Tittle, 取文本中间内容 (Tittle, “订单：”, “元” ＋ #换行符), 金额, , 1, 真)
' Tittle ＝ 子文本替换 (Tittle, 取文本中间内容 (Tittle, “本期支付金额：”, “元” ＋ #换行符), 金额, , 1, 真)
' Api_SendMessageA (hwnd, 12, 1, Tittle)
.如果真结束
.如果真结束
.如果真结束
.默认
.判断结束
.默认
.判断结束
.子程序 窗口_取控件内容, 文本型
.参数 控件句柄, 整数型
.局部变量 控件内容, 文本型
.局部变量 总字符数, 整数型
.局部变量 临时整数, 整数型
总字符数 ＝ SendMessageA_整数 (控件句柄, 14, 0, 0) ＋ 1
.如果 (总字符数 ＞ 50000)
临时整数 ＝ 50000
控件内容 ＝ 取空白文本 (临时整数)
SendMessageA_整数 (控件句柄, 13, 临时整数 ＋ 1, lstrcpynA_文本 (控件内容, 控件内容, 0))
.如果真 (取代码 (取文本右边 (控件内容, 1), ) ＜ 0)
控件内容 ＝ 取文本左边 (控件内容, 取文本长度 (控件内容) － 1)
.如果真结束
控件内容 ＝ 控件内容 ＋ “...后面略掉” ＋ 到文本 (总字符数 － 临时整数) ＋ “个字符...”
.否则
控件内容 ＝ 取空白文本 (总字符数)
SendMessageA_整数 (控件句柄, 13, 总字符数, lstrcpynA_文本 (控件内容, 控件内容, 0))
.如果结束
返回 (控件内容)
.子程序 取框架文档, 对象
.参数 网页文档, 对象, , Document
.参数 框架索引, 整数型, , 第几个框架，1、2、3这样的
.局部变量 框架集, 对象
框架集 ＝ 网页文档.读对象型属性 (“frames”, )
返回 (框架集.对象型方法 (“item”, 框架索引 － 1).读对象型属性 (“document”, ))
.子程序 取文本中间内容, 文本型
.参数 Str, 文本型, , 需处理文本
.参数 FirstKey, 文本型, , 前关键字
.参数 LastKey, 文本型, , 后关键字
.局部变量 i, 整数型
.局部变量 x, 整数型
i ＝ 寻找文本 (Str, FirstKey, , 真)
.如果 (i ≠ -1)
.如果 (取文本长度 (LastKey) ＝ 0)
返回 (取文本中间 (Str, i ＋ 取文本长度 (FirstKey), 取文本长度 (Str) － (i ＋ 取文本长度 (FirstKey))))
.否则
x ＝ 寻找文本 (Str, LastKey, i ＋ 取文本长度 (FirstKey), 真)
.如果 (x ≠ -1)
返回 (取文本中间 (Str, i ＋ 取文本长度 (FirstKey), x － (i ＋ 取文本长度 (FirstKey))))
.否则
返回 (“”)
.如果结束
.如果结束
.否则
返回 (“”)
.如果结束
.子程序 网页_写超文本流, , 公开, 直接在Webbroswer或外部网页框内写入一个完整的网页
.参数 超文本流, 文本型, , 网页HTML代码，最好包含<html>与</html>
' 内部成员_网页文档.方法 (“open”, )
' 内部成员_网页文档.方法 (“write”, 超文本流)
' 内部成员_网页文档.方法 (“Close”, )
|
|
粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173
发表于 2024-9-24 13:54:38
主题置顶卡
沉默卡
变色卡
楼主
扫一扫，关注易界动态