QTP加载第三方DLL（C#）实现清除IE缓存（转）

由于QTP的默认编程语言是VBS， 而VBS是一种相对来说功能比较局限的脚本语言，因此我们在编写自动化测试脚本时会有很多功能无法很好的实现。 相对来说c#是一种高级编程语言， 可以实现大多数windows环境下的功能。 所以我们可以借助C#来实现在VBS下无法实现或者实现起来麻烦的功能。

本篇文章以清除IE缓存为例， 介绍QTP如何与.Net framework集成。

1， 创建c# dll.

在Visual studio 中新建项目， 选择Class library. 命名为： Automation

2， 在项目中新建一个类， 命名为：BrowserManager ， 在这个类中定义了2个方法分别实现清理IE cache和cookie 。以下是具体代码：

[csharp] view plaincopyprint?

1. using System;
2. using System.Collections.Generic;
3. using System.Linq;
4. using System.Text;
5. using System.IO;
6. using System.Diagnostics;
7. namespace Automation
8. {
9. public class BrowserManager
10. {
11. /*
12. Temporary Internet Files  （Internet临时文件）
13. RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8
14. Cookies
15. RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2
16. History (历史记录)
17. RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1
18. Form. Data （表单数据）
19. RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16
20. Passwords (密码）
21. RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32
22. Delete All  （全部删除）
23. RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255
24. Delete All - "Also delete files and settings stored by add-ons"
25. RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351
26. */
27. public void ClearIECookie()
28. {
29. Process process = new Process();
30. process.StartInfo.FileName = "RunDll32.exe";
31. process.StartInfo.Arguments = "InetCpl.cpl,ClearMyTracksByProcess 2";
32. process.StartInfo.UseShellExecute = false;
33. process.StartInfo.RedirectStandardInput = true;
34. process.StartInfo.RedirectStandardOutput = true;
35. process.StartInfo.RedirectStandardError = true;
36. process.StartInfo.CreateNoWindow = true;
37. process.Start();
38. process.WaitForExit();
39. }
40. public void ClearIECache()
41. {
42. Process process = new Process();
43. process.StartInfo.FileName = "RunDll32.exe";
44. process.StartInfo.Arguments = "InetCpl.cpl,ClearMyTracksByProcess 8";
45. process.StartInfo.UseShellExecute = false;
46. process.StartInfo.RedirectStandardInput = true;
47. process.StartInfo.RedirectStandardOutput = true;
48. process.StartInfo.RedirectStandardError = true;
49. process.StartInfo.CreateNoWindow = true;
50. process.Start();
51. process.WaitForExit();
52. }
53. }
54. }

3， 将类通过编译， 并在项目工程文件夹 bin\debug目录下找到Automation.dll. 将这个文件复制到你想要存放的目录下。 例如c:\automation.dll

4， 打开QTP，实现调用：

[vb] view plaincopyprint?

1. Function CleanIE_Cache_and_Cookie
2. Dim BrowserManager
3. set BrowserManager = Dotnetfactory.CreateInstance("Automation.BrowserManager","c:\Automation.dll")
4. BrowserManager.ClearIECache()
5. BrowserManager.ClearIECookie()
6. Set BrowserManager = nothing
7. End Function