随笔分类 -  VBS

摘要:'=========================================================================='' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.... 阅读全文
posted @ 2014-08-22 21:06 狂师 阅读(1227) 评论(0) 推荐(0) 编辑
摘要:Dim ws,fso,IESet IE = WScript.createobject("InternetExplorer.Application")Set ws = WScript.CreateObject ("WSCript.shell")Set fso=CreateObject("scripti... 阅读全文
posted @ 2014-08-15 11:06 狂师 阅读(1033) 评论(0) 推荐(0) 编辑
摘要:'=========================================================================='' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.... 阅读全文
posted @ 2014-08-15 00:23 狂师 阅读(678) 评论(0) 推荐(0) 编辑
摘要:getElementById getElementsByName getElementsByTagName 大概介绍 getElementById ,getElementsByName ,getElementsByTagName###adv### 后两个是得到集合,byid只是得到单个对象 g... 阅读全文
posted @ 2014-08-15 00:12 狂师 阅读(1749) 评论(0) 推荐(0) 编辑
摘要:WEB标准下可以通过getElementById(), getElementsByName(), and getElementsByTagName()访问DOCUMENT中的任一个标签。(1)getElementById(): getElementById()可以访问DOCUMENT中的某一特定元素... 阅读全文
posted @ 2014-08-14 23:52 狂师 阅读(759) 评论(0) 推荐(0) 编辑
摘要:=================打开百度,点击百度按钮====================Dim btn,ieSet ie = WScript.CreateObject("InternetExplorer.Application")ie.Visible = true '若为false,则... 阅读全文
posted @ 2014-08-13 23:28 狂师 阅读(4392) 评论(0) 推荐(0) 编辑
摘要:----------------发送alt+v组合按键----------------------Set Wrap = CreateObject("DynamicWrapper") Wrap.Register "USER32.DLL", "keybd_event", "i=ccll", "f=s" ... 阅读全文
posted @ 2014-08-12 20:30 狂师 阅读(1543) 评论(0) 推荐(0) 编辑
摘要:如Beep的API声明为Public Declare Function Beep Lib “kernel32″ Alias “Beep” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long则使用方法如下'创建对象Set Wrap = Cr... 阅读全文
posted @ 2014-08-12 12:13 狂师 阅读(6471) 评论(0) 推荐(0) 编辑
摘要:键盘虚拟键值编码表 使用keybd_Event模拟键盘输入首先要用到一个API函数:keybd_event。 我们是菜鸟,所以不必具体去理解它的详细用法,只要按以下方法使用即可了!呵呵! 模拟按键有两个基本动作,即按下键和放开按键,所以我们每模拟一次按键就要调用两次该API函数,其方法是: 例... 阅读全文
posted @ 2014-08-12 12:12 狂师 阅读(1746) 评论(0) 推荐(0) 编辑
摘要:Option ExplicitPrivate Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)... 阅读全文
posted @ 2014-08-12 12:08 狂师 阅读(1516) 评论(0) 推荐(0) 编辑
摘要:'=========================================================================='' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.... 阅读全文
posted @ 2014-08-11 22:06 狂师 阅读(7677) 评论(0) 推荐(0) 编辑
摘要:PostMessage 向Windows窗口发送Alt组合键关于向Windows窗口发送Alt组合键的问题,这个真是经典问题啊,在网上找了一下,问的人N多,方法差不多,但就是没有很好解决问题。之前找到一个能正确发送的code:(Alt+A)PostMessage(hWnd,WM_SYSKEYDOWN... 阅读全文
posted @ 2014-08-11 22:04 狂师 阅读(1705) 评论(0) 推荐(0) 编辑
摘要:ASSIC码对照表ASCII值控制字符ASCII值控制字符ASCII值控制字符ASCII值控制字符0NUT32(space)64@96、1SOH33!65A97a2STX34”66B98b3ETX35#67C99c4EOT36$68D100d5ENQ37%69E101e6ACK38&70F102f7... 阅读全文
posted @ 2014-08-10 21:56 狂师 阅读(747) 评论(0) 推荐(0) 编辑
摘要:'========================================'WINDOWS特有的消息常量标识符'========================================Public Const WM_NULL = &H0&Public Const WM_CREATE ... 阅读全文
posted @ 2014-08-10 21:54 狂师 阅读(999) 评论(0) 推荐(0) 编辑
摘要:键盘是我们使用计算机的一个很重要的输入设备了,即使在鼠标大行其道的今天,很多程序依然离不开键盘来操作。但是有时候,一些重复性的,很繁琐的键盘操作总会让人疲惫,于是就有了用程序来代替人们按键的方法,这样可以把很多重复性的键盘操作交给程序来模拟,省了很多精力,按键精灵就是这样的一个软件。那么我们怎样才能... 阅读全文
posted @ 2014-08-10 21:46 狂师 阅读(2502) 评论(0) 推荐(0) 编辑
摘要:1 VK_LBUTTON 鼠标左键 2 VK_RBUTTON 鼠标右键 3 VK_CANCEL Ctrl+Break(通常不需要处理) 4 VK_MBUTTON 鼠标中键 8 VK_BACK Backspace 9 VK_TAB Ta... 阅读全文
posted @ 2014-08-10 21:43 狂师 阅读(890) 评论(0) 推荐(0) 编辑
摘要:**********************************************************************************************用vbs调qtp'编写自动执行指定的QTP脚本的VBS:'利用QTP本身的Quicktest.Applicati... 阅读全文
posted @ 2014-08-09 23:00 狂师 阅读(2068) 评论(0) 推荐(0) 编辑
摘要:'=========================================================================='' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.... 阅读全文
posted @ 2014-07-15 13:49 狂师 阅读(1475) 评论(0) 推荐(0) 编辑
摘要:'=========================================================================='' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.... 阅读全文
posted @ 2014-07-12 13:34 狂师 阅读(1173) 评论(0) 推荐(0) 编辑
摘要:读取第三行的内容:Set fso = CreateObject("scripting.filesystemobject")path="A.TXT文件的路径"Set A=fso.OpenTextFile(path,1)For i=1 To 2A.ReadLineNextline=A.ReadLineM... 阅读全文
posted @ 2014-07-10 23:12 狂师 阅读(2602) 评论(0) 推荐(0) 编辑