'=========================================================================='' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4....
                            
                            
                                分类:
Windows程序   时间:
2014-08-12 00:24:03   
                                阅读次数:
1060
                             
                    
                        
                            
                            
                                这两天在折腾给一个项目打安装包,第一次接触软件打包,用的Advanced Installer(以下简称AI),应该说如果安装过程没有特殊动作(常规动作指释放文件、写注册表、建快捷方式等)的话,倒挺傻瓜的,按照向导和界面操作就能打好一个包。但我的安装动作包括:- 提供一个ComboBox列出已安装打印...
                            
                            
                                分类:
其他好文   时间:
2014-08-11 14:44:02   
                                阅读次数:
247
                             
                    
                        
                            
                            
                                1 VK_LBUTTON 鼠标左键 2 VK_RBUTTON 鼠标右键 3 VK_CANCEL Ctrl+Break(通常不需要处理) 4 VK_MBUTTON 鼠标中键 8 VK_BACK Backspace 9 VK_TAB Ta...
                            
                            
                                分类:
其他好文   时间:
2014-08-10 23:52:10   
                                阅读次数:
329
                             
                    
                        
                            
                            
                                IIS FTP 将21端口更改为xx123端口;更改数据端口:cd c:/Inetpub/AdminScriptscscript.exe adsutil.vbs set /MSFTPSVC/PassivePortRange "55100-55150"这里是开放了 55100-55150 为被动模式的...
                            
                            
                         
                    
                        
                            
                            
                                Dim wShell, oShortcut 'Dim strDesktop$ ' 为了与VBS兼容, Dim strDesktop ' 这里改写一下,测试通过。。。 Set wShell = CreateObject("Wscript.shell") strDesktop = wShell.Spe....
                            
                            
                         
                    
                        
                            
                            
                                vbs读取文件内的信息将对应数据拷贝到其他路径公司的人数众多,使用的是domino8.5+Exchange邮箱系统。我们知道microsoft已经推出windowsazure服务,所谓的公有云,我们已经在前面的几篇文档内介绍了,具体信息我就不多介绍了;自从公司购买了windowsazure服务后,领导建议开始..
                            
                            
                                分类:
其他好文   时间:
2014-08-04 14:40:58   
                                阅读次数:
233
                             
                    
                        
                            
                            
                                一、添加固定注释新建一TXT文档,将要添加的注释写在文档中将文档名改为:ActionTemplate.mst将文件放到QTP安装目录的dat文件夹中设置好后,在QTP中每次新建一个测试就会自动添加固定的注释 二、调用外部vbs文件方法 1.将通用函数写在一个vbs文件中,以供其他脚本调用 2.调用....
                            
                            
                                分类:
其他好文   时间:
2014-08-02 12:24:23   
                                阅读次数:
229
                             
                    
                        
                            
                            
                                今天写了一个VBS脚本,用于将指定的文本文件按行数拆成多个文件,如源文件为20万行,按5万行进行拆分,则通过该脚本可将其拆成4个文件。其中实现了分级日志的功能,即可以设置不同的日志级别,在运行过程中向用户展现不同的提示信息。代码如下:123456789101112131415161718192021...
                            
                            
                                分类:
其他好文   时间:
2014-08-01 12:51:42   
                                阅读次数:
340
                             
                    
                        
                            
                            
                                function setClipBoard(str) Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("clip") Set oIn = oExec.stdIn oIn.WriteL...
                            
                            
                                分类:
其他好文   时间:
2014-07-31 16:11:36   
                                阅读次数:
216
                             
                    
                        
                            
                            
                                NameSpace?=?"http://schemas.microsoft.com/cdo/configuration/"
Set?Email?=?CreateObject("CDO.Message")
Email.From?=?"xxxx@xxxx.com"
Email.To?=?"yue.yang@xxxx.com,yangkeping@xxxx.co...