QTP登陆百度

沉默自动化

'全局变量 Dim SnBankTimeOut Dim SnBankWindowstitle SnBankTimeOut=60 SnBankWindowstitle="兆尹科技综合理财平台" '返回windows对象 Function GetBrowser() Dim timeCount,displayFlag Dim browserdes Dim browserobj Set browserdes=description.Create() 'browserdes("Class Name").Value = "Browser" browserdes("opentitle").Value = SnBankWindowstitle displayFlag=false:timeCount=0 While (displayFlag=false and timeCount<SnBankTimeOut) set browserobj=desktop.ChildObjects(browserdes) If not browserobj is Nothing AND browserobj.count > 0 Then displayFlag=browserobj(0).Exist(1) End If timeCount=timeCount+1 If displayFlag=false Then wait 1 End If Wend If displayFlag=true Then Set GetBrowser=browserobj(0) Else Set GetBrowser=Nothing End If End Function Function GetPage() Dim timeCount,displayFlag Dim pagedes Dim pageobj Set currBrowser=GetBrowser() If currBrowser is Nothing Then Environment.Value("lastErrorMsg")="启动新理财销售系统失败" Exit Function End If Set pagedes=description.Create() 'pagedes("Class Name").Value = "Browser" pagedes("title").Value = SnBankWindowstitle displayFlag=false:timeCount=0 While (displayFlag=false and timeCount<SnBankTimeOut) set pageobj=currBrowser.ChildObjects(pagedes) If not pageobj is Nothing AND pageobj.count > 0 Then displayFlag=pageobj(0).Exist(1) End If timeCount=timeCount+1 If displayFlag=false Then wait 1 End If Wend If displayFlag=true Then Set GetPage=pageobj(0) Else Set GetPage=Nothing End If End Function '@type common '@category 输入文本 '@shown true '@chineseName 输入文本 '@param cname:程序执行路径 type:string "iexplore.exe" Public Function SetWebEdit(byval labelname, byval labelvalue, byval labelindex, byval fjxx1,byval fjxx2,byval fjxx3,byval fjxx4,byval fjxx5,byval fjxx6,byval fjxx7,byval fjxx8,byval fjxx9,byval fjxx10,byval fjxx11, byval fjxx12) Dim timeCount,displayFlag Dim webeditdes Dim webeditobj Set currpage=GetPage() If currpage is Nothing Then Environment.Value("lastErrorMsg")="启动新理财销售系统失败" Exit Function End If Set webeditdes=description.Create() webeditdes("name").Value = labelname displayFlag=false:timeCount=0 While (displayFlag=false and timeCount<SnBankTimeOut) set webeditobj=currpage.ChildObjects(webeditdes) If not webeditobj is Nothing AND webeditobj.count > 0 Then displayFlag=webeditobj(0).Exist(1) End If timeCount=timeCount+1 If displayFlag=false Then wait 1 End If Wend If displayFlag=true Then If lablename="password" Then webeditobj(0).SetSecure(labelvalue) Else webeditobj(0).Set(labelvalue) End If Else Environment.Value("lastErrorMsg")="取WebEdit文本框失败" Exit Function End If Environment.Value("lastErrorMsg")="000000" End Function '@type common '@category 点击(WebButton)按钮 '@shown true '@chineseName 点击(WebButton)按钮 '@param cname: Public Function ClickWebButton(byval labelname, byval labelvalue, byval labelindex, byval fjxx1,byval fjxx2,byval fjxx3,byval fjxx4,byval fjxx5,byval fjxx6,byval fjxx7,byval fjxx8,byval fjxx9,byval fjxx10,byval fjxx11, byval fjxx12) Dim timeCount,displayFlag Dim webbuttondes Dim webbuttonobj Set currpage=GetPage() If currpage is Nothing Then Environment.Value("lastErrorMsg")="启动新理财销售系统失败" Exit Function End If Set webbuttondes=description.Create() webbuttondes("name").Value = labelvalue displayFlag=false:timeCount=0 While (displayFlag=false and timeCount<SnBankTimeOut) set webbuttonobj=currpage.ChildObjects(webbuttondes) If not webbuttonobj is Nothing AND webbuttonobj.count > 0 Then displayFlag=webbuttonobj(0).Exist(1) End If timeCount=timeCount+1 If displayFlag=false Then wait 1 End If Wend If displayFlag=true Then webbuttonobj(0).click Else Environment.Value("lastErrorMsg")="取WebButton按钮失败" Exit Function End If Environment.Value("lastErrorMsg")="000000" End Function '@type common '@category 启动新理财销售 (Web) '@shown true '@chineseName 启动新理财销售 '@param cname:程序执行路径 type:string "iexplore.exe" Public Function Startxlcxs(byval labelname, byval labelvalue, byval labelindex, byval fjxx1,byval fjxx2,byval fjxx3,byval fjxx4,byval fjxx5,byval fjxx6,byval fjxx7,byval fjxx8,byval fjxx9,byval fjxx10,byval fjxx11, byval fjxx12) SystemUtil.Run "C:\Program Files\internet explorer\iexplore.exe","http://160.161.12.83:9080/fms_web" '"https://www.bilibili.com/" wait 3 Set currBrowser=GetBrowser() If currBrowser is Nothing Then Environment.Value("lastErrorMsg")="启动新理财销售系统失败" Exit Function End If Environment.Value("lastErrorMsg")="000000" End Function '@type common '@category 结束清洗 '@shown true Public Function xlcxsclean(byval labelname, byval labelvalue, byval labelindex, byval fjxx1,byval fjxx2,byval fjxx3,byval fjxx4,byval fjxx5,byval fjxx6,byval fjxx7,byval fjxx8,byval fjxx9,byval fjxx10,byval fjxx11, byval fjxx12) Environment.Value("lastErrorMsg")="000000" End Function Function GetFirstPage() Dim timeCount,displayFlag Dim pageobj displayFlag=false:timeCount=0 While (displayFlag=false and timeCount<SnBankTimeOut) set pageobj=browser("creationtime:=0").page("micclass:=page") If not pageobj is Nothing Then displayFlag=true End If timeCount=timeCount+1 If displayFlag=false Then wait 1 End If Wend If displayFlag=true Then Set GetFirstPage=pageobj Else Set GetFirstPage=Nothing End If End Function '@type common '@category 选择一级菜单 '@shown true '@chineseName 选择一级菜单 '@param cname: Public Function SelectFirstLevelMenu(byval labelname, byval labelvalue, byval labelindex, byval fjxx1,byval fjxx2,byval fjxx3,byval fjxx4,byval fjxx5,byval fjxx6,byval fjxx7,byval fjxx8,byval fjxx9,byval fjxx10,byval fjxx11, byval fjxx12) Dim timeCount,displayFlag Dim firstmenudes Dim firstmenuobj Set currpage=GetFirstPage() If currpage is Nothing Then Environment.Value("lastErrorMsg")="登录失败" Exit Function End If Set firstmenudes=description.Create() firstmenudes("micclass").Value = "WebElement" firstmenudes("html tag").Value = "div" firstmenudes("innertext").Value = labelvalue firstmenudes("class").Value = "panel-title" displayFlag=false:timeCount=0 While (displayFlag=false and timeCount<SnBankTimeOut) set firstmenuobj=currpage.ChildObjects(firstmenudes) If not firstmenuobj is Nothing AND firstmenuobj.count > 0 Then displayFlag=firstmenuobj(0).Exist(1) End If timeCount=timeCount+1 If displayFlag=false Then wait 1 End If Wend If displayFlag=true Then firstmenuobj(0).click Else Environment.Value("lastErrorMsg")="取一级菜单失败" Exit Function End If Environment.Value("lastErrorMsg")="000000" End Function '@type common '@category 选择二级菜单 '@shown true '@chineseName 选择二级菜单 '@param cname: Public Function SelectSecondLevelMenu(byval labelname, byval labelvalue, byval labelindex, byval fjxx1,byval fjxx2,byval fjxx3,byval fjxx4,byval fjxx5,byval fjxx6,byval fjxx7,byval fjxx8,byval fjxx9,byval fjxx10,byval fjxx11, byval fjxx12) Dim timeCount,displayFlag Dim secondmenudes Dim secondmenuobj Set currpage=GetFirstPage() If currpage is Nothing Then Environment.Value("lastErrorMsg")="登录失败" Exit Function End If Set secondmenudes=description.Create() secondmenudes("micclass").Value = "WebElement" secondmenudes("html tag").Value = "SPAN" secondmenudes("innertext").Value = labelvalue secondmenudes("class").Value = "tree-title" displayFlag=false:timeCount=0 While (displayFlag=false and timeCount<SnBankTimeOut) set secondmenuobj=currpage.ChildObjects(secondmenudes) If not secondmenuobj is Nothing AND secondmenuobj.count > 0 Then displayFlag=secondmenuobj(0).Exist(1) End If timeCount=timeCount+1 If displayFlag=false Then wait 1 End If Wend If displayFlag=true Then secondmenuobj(0).click Else Environment.Value("lastErrorMsg")="取二级菜单失败" Exit Function End If Environment.Value("lastErrorMsg")="000000" End Function '@type common '@category 点击(WebElement)按钮 '@shown true '@chineseName 点击(WebElement)按钮 '@param cname: Public Function ClickWebElementButton(byval labelname, byval labelvalue, byval labelindex, byval fjxx1,byval fjxx2,byval fjxx3,byval fjxx4,byval fjxx5,byval fjxx6,byval fjxx7,byval fjxx8,byval fjxx9,byval fjxx10,byval fjxx11, byval fjxx12) Dim timeCount,displayFlag Dim webelementdes Dim webelementobj Dim framedes Dim frameobj Set currpage=GetFirstPage() If currpage is Nothing Then Environment.Value("lastErrorMsg")="登录失败" Exit Function End If Set framedes=description.Create() framedes("micclass").Value = "Frame" framedes("title").Value = labelname displayFlag=false:timeCount=0 While (displayFlag=false and timeCount<SnBankTimeOut) set frameobj=currpage.ChildObjects(framedes) If not frameobj is Nothing AND frameobj.count > 0 Then displayFlag=frameobj(0).Exist(1) End If timeCount=timeCount+1 If displayFlag=false Then wait 1 End If Wend Set webelementdes=description.Create() webelementdes("micclass").Value = "WebElement" webelementdes("html tag").Value = "SPAN" webelementdes("innertext").Value = labelvalue webelementdes("class").Value = "l-btn-text" displayFlag=false:timeCount=0 While (displayFlag=false and timeCount<SnBankTimeOut) set webelementobj=frameobj(0).ChildObjects(webelementdes) If not webelementobj is Nothing AND webelementobj.count > 0 Then displayFlag=webelementobj(0).Exist(1) End If timeCount=timeCount+1 If displayFlag=false Then wait 1 End If Wend If displayFlag=true Then webelementobj(0).click Else Environment.Value("lastErrorMsg")="取页面按钮失败" Exit Function End If Environment.Value("lastErrorMsg")="000000" End Function Startxlcxs 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14 SetWebEdit "username","000661",1,2,3,4,5,6,7,8,9,10,11,12,13 SetWebEdit "password","111111",0,1,2,3,4,5,6,7,8,9,10,11,12 ClickWebButton 0,"登录",1,2,3,4,5,6,7,8,9,10,11,12,13 SelectFirstLevelMenu 0,"产品管理",1,2,3,4,5,6,7,8,9,10,11,12,13 SelectSecondLevelMenu 0,"产品管理",1,2,3,4,5,6,7,8,9,10,11,12,13 ClickWebElementButton "产品管理","查询",1,2,3,4,5,6,7,8,9,10,11,12,13

把大佬的源代码修改为

Dim SnBankTimeOut Dim SnBankWindowstitle SnBankTimeOut=60 SnBankWindowstitle="百度一下，你就知道" Function GetBrowser() Dim timeCount,displayFlag Dim browserdes Dim browserobj Set browserdes=description.Create() browserdes("opentitle").Value = SnBankWindowstitle set browserobj=desktop.ChildObjects(browserdes) Set GetBrowser=browserobj(0) End Function Function GetPage() Dim timeCount,displayFlag Dim pagedes Dim pageobj Set currBrowser=GetBrowser() Set pagedes=description.Create() pagedes("title").Value = SnBankWindowstitle set pageobj=currBrowser.ChildObjects(pagedes) Set GetPage=pageobj(0) End Function Public Function Startxm() SystemUtil.Run "C:\Program Files\internet explorer\iexplore.exe", "https://www.baidu.com/" wait 3 Set currBrowser=GetBrowser() If currBrowser is Nothing Then Environment.Value("lastErrorMsg")="启动IE失败" Exit Function End If Environment.Value("lastErrorMsg")="000000" End Function Public Function SetWebEdit(byval labelname,byval labelpassword) Dim timeCount,displayFlag Dim webeditdes Dim webeditobj Set currpage=GetPage() Set webeditdes=description.Create() webeditdes("name").Value = labelname set webeditobj=currpage.ChildObjects(webeditdes) webeditobj(0).Set(labelvalue) End Function Public Function Webclickbutton(byval labelname,byval labelvalue) Dim timeCount,displayFlag Dim webbuttondes Dim webbuttonobj Set currpage=GetPage() Set webbuttondes=description.Create() webbuttondes("name").Value = labelvalue set webbuttonobj=currpage.ChildObjects(webbuttondes) webbuttonobj(0).click End Function Startxm SetWebEdit "wd","天气" Webclickbutton "1","百度一下" 'SystemUtil.Run "C:\Program Files\internet explorer\iexplore.exe", "https://www.baidu.com/" 'rowser("百度一下，你就知道").page("百度一下，你就知道").webedit("wd").object.value="天气" 'Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set"天气" 'Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").Click

天气参数无法插入；忘指正

欢迎使用Markdown编辑器

你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。

新的改变

我们对Markdown编辑器进行了一些功能拓展与语法支持，除了标准的Markdown编辑器功能，我们增加了如下几点新功能，帮助你用它写博客：

全新的界面设计 ，将会带来全新的写作体验；在创作中心设置你喜爱的代码高亮样式，Markdown 将代码片显示选择的高亮样式 进行展示；增加了 图片拖拽 功能，你可以将本地的图片直接拖拽到编辑区域直接展示；全新的 KaTeX数学公式 语法；增加了支持甘特图的mermaid语法¹ 功能；增加了 多屏幕编辑 Markdown文章功能；增加了 焦点写作模式、预览模式、简洁写作模式、左右区域同步滚轮设置 等功能，功能按钮位于编辑区域与预览区域中间；增加了 检查列表 功能。

功能快捷键

撤销：Ctrl/Command + Z 重做：Ctrl/Command + Y 加粗：Ctrl/Command + B 斜体：Ctrl/Command + I 标题：Ctrl/Command + Shift + H 无序列表：Ctrl/Command + Shift + U 有序列表：Ctrl/Command + Shift + O 检查列表：Ctrl/Command + Shift + C 插入代码：Ctrl/Command + Shift + K 插入链接：Ctrl/Command + Shift + L 插入图片：Ctrl/Command + Shift + G 查找：Ctrl/Command + F 替换：Ctrl/Command + G

合理的创建标题，有助于目录的生成

直接输入1次#，并按下space后，将生成1级标题。 输入2次#，并按下space后，将生成2级标题。 以此类推，我们支持6级标题。有助于使用TOC语法后生成一个完美的目录。

如何改变文本的样式

强调文本 强调文本

加粗文本 加粗文本

标记文本

删除文本

引用文本

H₂O is是液体。

2¹⁰ 运算结果是 1024.

插入链接与图片

链接: link.

图片:

带尺寸的图片:

居中的图片:

居中并且带尺寸的图片:

当然，我们为了让用户更加便捷，我们增加了图片拖拽功能。

如何插入一段漂亮的代码片

去博客设置页面，选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.

// An highlighted block var foo = 'bar';

生成一个适合你的列表

项目 项目 项目 项目1项目2项目3 计划任务 完成任务

创建一个表格

一个简单的表格是这么创建的：

项目Value电脑$1600手机$12导管$1

设定内容居中、居左、居右

使用:---------:居中 使用:----------居左 使用----------:居右

第一列第二列第三列第一列文本居中第二列文本居右第三列文本居左

SmartyPants

SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如：

TYPEASCIIHTMLSingle backticks'Isn't this fun?'‘Isn’t this fun?’Quotes"Isn't this fun?"“Isn’t this fun?”Dashes-- is en-dash, --- is em-dash– is en-dash, — is em-dash

创建一个自定义列表

Markdown Text-to- HTML conversion tool Authors John Luke

如何创建一个注脚

一个具有注脚的文本。²

注释也是必不可少的

Markdown将文本转换为 HTML。

KaTeX数学公式

您可以使用渲染LaTeX数学表达式 KaTeX:

Gamma公式展示 $\Gamma (n)=(n-1)!\forall n\in \mathbb{N}$ 是通过欧拉积分

$$\Gamma (z)={\int }_0^{\infty }{t}^{z-1}{e}^{-t}dt.$$

你可以找到更多关于的信息 LaTeX 数学表达式here.

新的甘特图功能，丰富你的文章

Mon 06 Mon 13 Mon 20 已完成 进行中 计划一 计划二 现有任务 Adding GANTT diagram functionality to mermaid 关于 甘特图 语法，参考 这儿,

UML 图表

可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图：

张三 李四 王五 你好！李四, 最近怎么样? 你最近怎么样，王五？ 我很好，谢谢! 我很好，谢谢! 李四想了很长时间, 文字太长了 不适合放在一行. 打量着王五... 很好... 王五, 你怎么样? 张三 李四 王五

这将产生一个流程图。:

链接 长方形 圆 圆角长方形 菱形 关于 Mermaid 语法，参考 这儿,

FLowchart流程图

我们依旧会支持flowchart的流程图：

Created with Raphaël 2.2.0 开始 我的操作 确认？ 结束 yes no 关于 Flowchart流程图 语法，参考 这儿.

导出与导入

导出

如果你想尝试使用此编辑器, 你可以在此篇文章任意编辑。当你完成了一篇文章的写作, 在上方工具栏找到 文章导出 ，生成一个.md文件或者.html文件进行本地保存。

导入

如果你想加载一篇你写过的.md文件，在上方工具栏可以选择导入功能进行对应扩展名的文件导入， 继续你的创作。

---

mermaid语法说明 ↩︎

注脚的解释 ↩︎