VBS代码点滴
文章平均质量分 51
blizzardlyk
这个作者很懒,什么都没留下…
展开
-
通过vbs获取本机IP地址和MAC地址
<br /> <br />1,方法代码:<br />Function GetIPMAC(ComputerName) <br />Dim objWMIService,colItems,objItem,objAddress<br />Set objWMIService = GetObject("winmgmts://" & ComputerName & "/root/cimv2")<br />Set colItems = objWMIService.ExecQuery("Select * From Win32_原创 2010-08-24 15:02:00 · 3579 阅读 · 0 评论 -
QTP通过命令行打开IE
Dim oShellDim CommondSet oShell = Wscript.CreateObject ("Wscript.shell")Commond = Chr(34) & "C:\Program Files\Internet Explorer\IEXPLORE.EXE" & Chr(34) & " -new -nomerge -nohome www.baidu.com"原创 2012-01-05 14:13:25 · 3004 阅读 · 0 评论 -
用VBS获取外部VBS函数库中所有的方法名
filename = "C:\getfunctionname.vbs"Set fso = CreateObject("Scripting.FileSystemObject")Set textFile = fso.OpenTextFile(filename, 1,false,-1 )Do While not textFile.AtEndOfStream tmptxt = trim(te原创 2012-11-08 11:24:32 · 1640 阅读 · 0 评论 -
使用VBS通过3种方式浏览本地文件,获取完整路径。
XP下:Function BrowseForFile( )' Select File dialog based on a script by Mayayana' Known issues:' * Tree view always opens Desktop folder' * In Win7/IE8 only the file NAME is returned correctl原创 2011-12-27 09:46:57 · 4900 阅读 · 0 评论 -
vbs 类的使用示例
Class Myclass ' Class_Initialize Private Sub Class_Initialize MsgBox "Class is initialized" End Sub ' Class_Terminate Private Sub Class_Terminate MsgBox "Class is termin转载 2011-12-06 10:30:00 · 938 阅读 · 0 评论 -
VBS中的Singleton类(单例模式)的代码示例
VBS中的Singleton 代码示例 Class Class_FSO Private FSO_ Public Property Get FSO print "Get FSO" On Error Resume Next If Typename(FSO_) = "FileSystemObject" Then S翻译 2011-12-06 10:08:42 · 799 阅读 · 0 评论 -
通过VBS定时启动特定被测程序
有时候我们在测试执行的过程中,需要指定被测程序的启动时间。本文通过Win32_ScheduledJob对象来实现定时启动功能。以启动QQ为例,代码如下:Dim strComputerDim strCommandstrComputer = "."strCommand = chr(34)&"C:/Program Files/Tencent/QQ/Bin/QQ.exe"&chr(34原创 2011-01-24 11:19:00 · 2948 阅读 · 1 评论 -
QTP调用.NET framework类库来实现关于时间的计算和格式转换
通过DotNetFactory来调用.net framework的类库,可以调用一些VBScript所不具备的一些关于时间的计算和格式转换,并且代码量很少。'create new DataTime object by DotNetFactory.CreateInstanceset oDate = DotNetFactory.CreateInstance("System.DateTime").Pa原创 2013-02-18 16:07:26 · 1162 阅读 · 0 评论 -
QTP使用异步VBS进程并通过系统环境变量传值
在脚本执行过程中,有些程序会启动一些额外的进程来辅助完成一些特殊的功能,例如启动打印机。而某些进程会导致QTP的死锁。因此,我们需要通过一个异步的VBS文件扫描系统进程并结束。另外, 通过创建一个临时的系统环境变量来完成QTP向外部VBS传值。在QTP中的代码如下:'Set a new variable in system environment and start external VB原创 2013-04-26 12:30:09 · 1494 阅读 · 0 评论 -
VBS获取当前登录的用户全名和邮件地址
Function GetEmail(strAccountName, strDomainName) Dim adoLDAPCon, _ adoLDAPRS, _ strLDAP Set adoLDAPCon = CreateObject("ADODB.Connection") adoLDAPCon.Provider = "ADsDSOObject" adoLDAPCon.Open "原创 2013-08-12 11:23:38 · 4117 阅读 · 0 评论 -
VBS 通过注册表修改ie的安全级别,允许本地文件的脚本运行
Set oWscript = CreateObject("WScript.shell")oWscript.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN\iexplore.exe","00000000","REG_原创 2012-07-19 16:49:48 · 1445 阅读 · 0 评论 -
推荐一个比较好的VBS编辑器
QTP 本身的IDE环境, 有诸多缺陷。所以,一般中级以上的自动化测试工程师都会采用外部其他编辑器来编辑VBS脚本。通常情况下,一般都 notepad++。 但是,notepad++也是有很多不足之处。 因此推荐一款新的编辑工具: Sublime Text 2Sublime Text 最近版本下载地址:http://www.sublimetext.com/VBS插件的下载地址:htt原创 2013-02-06 15:31:42 · 39205 阅读 · 7 评论 -
通过VBS 获取系统所有服务信息
<br />通过访问WMI 可以获取系统的所有后台服务信息<br />以下代码获取Win32_Service信息,并显示在一个Excel窗口中:<br /> <br />Set excel = CreateObject( "Excel.Application" )<br />With excel <br /> .Visible = True <br /> .Workbooks.Add<br />End With<br />x = 1<br />Set wmiService = GetObject(翻译 2010-08-24 15:33:00 · 1532 阅读 · 0 评论 -
通过VBS合并2个文本文件
合并C:/file1.txt与C:/file2.txt,并另存为C:/output.txt示例代码:Const ForReading = 1Set fso = CreateObject( "Scripting.FileSystemObject" )Set outputFile = fso.CreateTextFile( "C:/output.txt",true )Set textFile = fso.OpenTextFile("C:/file1.txt", ForReading )strText = tex转载 2010-08-24 15:42:00 · 1484 阅读 · 0 评论 -
通过VBS访问WMI,获取当前所有进程信息
<br />获取本机当前所有进程信息:<br /> <br /> <br />strComputer ="."Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")Set colProcess = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_PerfProc_Process",,48)For Each objItem转载 2010-08-24 16:03:00 · 4266 阅读 · 0 评论 -
关于Shell.Application对象的一些简单尝试
<br />Set shellapp = CreateObject("Shell.Application")<br /> <br />'获取所有桌面的窗口:<br />Set oWindows = shellapp.Windows<br /> <br />'执行文件:<br />shellapp.ShellExecute("ipconfig.exe","/all") <br />shellapp.ShellExecute("notepad.exe")<br /> <br />'创建子文件夹:<br />原创 2010-09-07 15:00:00 · 12004 阅读 · 0 评论 -
VBS 获取当前所在时区信息
code: Set wmiService = GetObject( "Winmgmts:root/cimv2" )Set items = wmiService.ExecQuery( "Select * from Win32_TimeZone" )For Each item in items Print "Description: " & item.Description Print转载 2010-08-24 15:51:00 · 1222 阅读 · 0 评论 -
QTP关闭除了ALM/QC以外的所有IE窗口
1:function Close_IE_Except_ALMSet obj = CreateObject("Shell.Application")Set obj1 = obj.WindowsFor Each objIE in obj1 If objIE.name = "Windows Internet Explorer" Then If Not Instr(Ucas原创 2010-09-07 13:52:00 · 1648 阅读 · 0 评论 -
IntelliSense for your Custom QTP Class in 6 Steps
by Anshoo Arora on June 30, 2011 I have been using classes in my frameworks for a long time now, and my biggest gripe about QTP is its lack of Intellisense for custom classes. It also happens转载 2012-12-03 21:50:32 · 1117 阅读 · 0 评论 -
VBS 将UI获取的乱码转换成GB2312格式的中文
Str is the source Str2 is the targetStr = "Öк½¼ÎÐÅÉÌÎñÂÃÐйÜÀíÓÐÏÞ¹«Ë¾"Dim fso, MyFileSet fso = CreateObject("Scripting.FileSystemObject")Set MyFile = fso.CreateTextFile("c:\testfile.tx原创 2012-08-28 12:51:20 · 4055 阅读 · 1 评论 -
通过VBS获取磁盘剩余空间
get disk free space strComputer = "."Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where De原创 2011-12-05 17:41:48 · 2889 阅读 · 0 评论 -
VBS使用SMTP协议发送邮件
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message")Email.From = "sender@xx.com"Email.To = "receiver@xx.com"Email.CC = "cclist@xx.com"Email.Subject原创 2013-08-16 12:21:56 · 5043 阅读 · 2 评论