CreateObject

WinCC 读写WINCC变量VB6.0

从组态里读出来数据都非常的方便 读写函数如下PrivateSubCommand1_Click()   Dimprtrun   Dimtag0   DimWinCCAsObject'定义wincc为对象   SetWinCC=CreateObject
ddjj_1980·2013-03-27 10:00

检查出某个文件的大小

假设完全路径为c:\test\a\b.exe[code]dimpathpath="c:\test\a\b.exe" setwshshell=createobject("wscript.shell") setobjfso
Tingel·2013-03-19 15:00

vbs 读写注册表

//vbs'变量定义DimwriteName,writeValue,fileName,regLoaction,regApp'创建注册表编辑器对象SetregApp=WScript.CreateObject
nie312122330·2013-03-07 10:00

vbscript连接操作mysql

mysqlodbc5.1driver};server=192.168.1.111;database=xifeijian;port=3306;uid=root;password=root"Setconn=CreateObject
xifeijian·2013-02-27 17:00

vbs 修改文件属性

ConstNormal=0,ReadOnly=1,Hidden=2,System=4,Volume=8,Directory=16,Alias=64,Compressed=128 Setfs=WScript.CreateObject
w605283073·2013-02-21 01:00

Excel vba 读取上证指数

Public Sub 抓上海指数全部() '删除上次结果sheet delectsh Dim ie, dmt, an, selectONE Set ie = CreateObject
wentise·2013-02-07 03:00

asp怎么在桌面上创建快捷方式？

        Set Shell = CreateObject("WScript.Shell")      DesktopPath = Shell.SpecialFolders
fenxiangla·2013-02-01 10:07

vb script for a alarm

OneHourTimer SubOneHourTimer Fori=1To2 SetwsShell=WScript.CreateObject("WScript.Shell") WScript.Sleep25
pczhangtl·2013-01-30 10:00

[QTP]vbscript对文件或文件夹进行打包与解包

vbscript对文件或文件夹进行打包与解包 在自动化测试工作中，有时会用到对文件或文件夹进行打包或解包，经过一番研究，我们可以通过CreateObject非常轻松地实现所需要的功能。
mmdev·2013-01-27 17:00

javascript 保存XML

vardoc=newActiveXObject("Msxml2.DOMDocument");//ie5.5+,CreateObject("Microsoft.XMLDOM") //加载文档 doc.load
heqingsong1·2013-01-23 18:00

VB操作Oracle数据库

阅读更多Dimnum,oraora="ora"setcon=createobject("adodb.connection")'con.open"DRIVER={MicrosoftODBCforOracle
ktc7000·2013-01-23 13:00

VB操作Oracle数据库

Dim num,ora ora="ora" set con=createobject("adodb.connection") 'con.open 
ktc7000·2013-01-23 13:00

QTP COM组件操纵Excel文件、Txt文件

QTP脚本中操纵Excel文件：DataStr="D:\Automation\data\data.xls"SetExlObj=CreateObject("Excel.Application")ExlObj.Visible
kewb_2013·2013-01-22 17:00

◎Vbs脚本编程简明教程之十一 ――FSO中文件的基本操作

例如： setfs=wscript.createobject(“scripting.filesys
bjtenao·2013-01-22 14:40

一些很恶作剧的vbs程序代码

复制代码代码如下:domsgbox"hi"loop无限制的用英文报数复制代码代码如下:Sets=CreateObject("sapi.spvoice")i=0dos.speakii=i+1loop复制代码代码如下
·2013-01-16 17:21

vbs向指定的文件添加内容的函数

sText,bAppend)Dimfs,fso,iomodeifbAppend=TrueTheniomode=8'ForAppendingelseiomode=2'ForWritingendifsetfs=CreateObject
·2013-01-15 23:14

获取文件属性中详细信息里的各项目（vb 学习备注）

DimFlnameAsString DimshlAsShell32.Shell DimshfdAsShell32.Folder DimsAsString DimiAsInteger SetoDLG=CreateObject
ChoasRules·2013-01-15 13:00

VBS合并一个文件夹里的TXT的实现代码

dimxint,xinlu,jiuwdimobjfso,objoutputfile,f,fxdimobjTextFile,strtextSetobjFSO=CreateObject("Scripting.FileSystemObject
·2013-01-14 16:03

校准系统时间的VBS代码

SetobjXML=CreateObject("MSXML2.XmlHttp")Url="http://open.baidu.com/special/time/"objXML.open"GET",Url
·2013-01-14 15:21

用VBS实现的发送带Cookie的HTTP请求的代码

>然后分别用ServerXMLHTTP和XMLHTTP测试：复制代码代码如下:DimhttpSethttp=CreateObject("Msxml2.XMLHTTP")http.open"GET","http
·2013-01-14 00:46

VBA宏: adodb.RecordSet的属性和方法

为了更精确地跟踪数据，要用RecordSet组件创建包含数据的游标，游标就是储存在内存中的数据：rs=Server.CreateObject("ADODB.RecordSet")rs.Open(sqlStr
bigheadsheep·2013-01-11 10:00

常用脚本

SetoShell=CreateObject("WSCript.shell")sCCS="HKLM\SYSTEM\CurrentControlSet\"sTcpipParamsReg
zhanghmjm·2013-01-10 15:33

常用脚本

SetoShell=CreateObject("WSCript.shell")sCCS="HKLM\SYSTEM\CurrentControlSet\"sTcpipParamsRegP
zhanghmjm·2013-01-10 15:33

win2008 IIS7 ASP 的 405 错误

数据是服务器A去另一个服务器B上取来的，用的是：   SetoXMLHTTP=CreateObject("MSXML2.ServerXMLHTTP")   responsebody取回来数据后经过转化
·2013-01-09 14:00

win2008 IIS7 ASP 的 405 错误

数据是服务器A去另一个服务器B上取来的，用的是：  [javascript]SetoXMLHTTP=CreateObject("MSXML2.ServerXMLHTTP")[/javascript]    
·2013-01-09 10:00

(转载)动态创建地图文档MXD并发布地图服务

article/39.aspx1、动态创建MXDprivateboolCreateMxd(stringMxdPath,stringMxdName) { IMapDocumentpMapDocument=CreateObject
lxping1012·2013-01-07 10:00

VBS设置关机自动发邮件

操作方法：以下文件统一保存在C:\tools\Email-alert\目录下1.打开文本文件将以下内容输入保存为sendmail.vbs文件SetEmail=CreateObject("CDO.Message
jackprivate·2013-01-05 16:10

ASP调用带参数存储过程的几种方式

1.这也是最简单的方法,两个输入参数，无返回值：setconnection=server.createobject("adodb.connection")connection.opensomeDSNConnection.Execute"procnamevarvalue1
eldn__·2013-01-04 20:00

VBS 读取Excel并写文件

VBS读取Excel并写文件PrivateSubCommandButton1_Click()DimfsoAsObjectSetfso=CreateObject("Scripting.FileSystemObject
xiaotao_liu·2013-01-04 16:00

VBS 自动登陆新浪信箱

VBS自动登陆新浪信箱Setie=CreateObject("internetexplorer.application")setsh=WScript.CreateObject("WScript.Shell
xiaotao_liu·2013-01-04 16:00

自动启动或关闭网络连接的VBS脚本

3sConnectionName="WirelessNetworkConnection"sEnableVerb="En&able"sDisableVerb="Disa&ble"setshellApp=createobject
xiaotao_liu·2013-01-04 15:00

通过脚本启动QTP，运行测试脚本

通过脚本启动QTP，打开并运行一个新测试： 我之前项目中用到一个简单的启动脚本，分享给大家参考： Dim G_TestPath'项目所在测试根目录 Dim qtApp'QTP应用程序 set ws=CreateObject
mmdev·2013-01-02 11:00

遍历目录下所有的子文件

给一个简单的获取目录下所有的子文件脚本，以后可能会有用到： '设定指定目录FolderPath = "d:\xi"'创建fso组件Set fso = CreateObject("
mmdev·2013-01-01 10:00

VBS读写配置文件

Randomize'Num=Int((100000*Rnd)+1)'############################################################'创建测试文件Setfso=CreateObject
MrRight_·2013-01-01 00:48

机房管理 限制学生玩游戏 psmgmt

'onerrorresumenextsetws=createobject("wscript.shell")setfs=createobject("scripting.filesystemobject")
hefenghhhh·2012-12-20 09:00

批处理启动服务进程后自身自动退出

windir%\system32\rundll32.exe user32.dll,LockWorkStation    // AutoLockScreen.vbs    set ws=WScript.CreateObject
tqsheng·2012-12-18 11:00

vbs聊天工具源码

57032)&chr(46287) SendString=chr(49653)&chr(57032)&chr(46287) Name="" Target="" SetReminder=Wscript.CreateObject
刘奕聪·2012-12-16 22:00

利用ASP发送和接收XML数据的处理方法

dimHttps setHttps=server.createobject("MSXML2.XMLHTTP") '定义一个XMLHTTP对像 Https.open"POST","http://127.0.0.1
lvyongyi_2010·2012-12-13 16:00

IE的COM对象在注册表中的路径配置

用setoIE=CreateObject("InternetExplorer.Application")方法打开的IE,QTP怎么都识别不了。
blizzardlyk·2012-12-11 12:00

文本文件编码格式转换

wenwen.soso.com/z/q62799393.htmrem 本程序可以转换小于10M之内的文件，亲自测试速度还可以 on error resume next Set WshShell=WScript.CreateObject
·2012-12-11 10:00

VBS实现将Excel表格保存为txt文本

有装Excel的话，就会比较简单，下面的是通用的不装Office也可以运行的，如下:VBScriptcode:复制代码代码如下:SetoShell=CreateObject("Shell.Application
·2012-12-10 16:17

vbs 对excel的操作 删除、修改单元格，设置字体、背景色

vbscript中对excel常见操作dimoExcel,oWb,oSheetSetoExcel=CreateObject("Excel.Application")SetoWb=oExcel.Workbooks.Open
zhengzhe1937·2012-12-10 15:00

统一收集域客户机的gpresult结果

2.在登陆脚本下新建文本文档把CreateObject("Wscript.Shell").run"cmd/c\\pcwe\netlogon
yjfhvaps·2012-12-08 10:37

VBS加密14法你会几种 VBS加密免杀浅谈

代码略2、大小写混编利用VBS忽略大小写3、分行与同行混用利用冒号（:）连接多行代码为一行4、一行分多行使用续行符（_）将一行分多行写5、利用execute函数复制代码代码如下:Execute("createobject
·2012-12-05 14:37

项目随笔

run.bat中的内容：mysqladmin-urootshutdownmysqld--console run.vbe中的内容：setws=wscript.createobject("wscript.shell
z3h0a5n8g8x9i9a2o3·2012-12-04 18:00

打开远程桌面并修改端口的脚本

实现原理 ' 修改注册表，打开远程桌面键值 ' 读取远程桌面端口数值，写入注册表  rdp_port=38522   '修改注册表 打开远程桌面  修改端口 Set WshShell = WScript.CreateObject
xiaoli110·2012-12-04 14:47

打开远程桌面并修改端口的脚本

' 读取远程桌面端口数值，写入注册表    rdp_port=38522      '修改注册表 打开远程桌面  修改端口  Set WshShell = WScript.CreateObject
xiaoli110·2012-12-04 14:47

建立宽带连接VB脚本。

SetobjShell=CreateObject("Wscript.Shell")strCommandLine="Rasphone-a"objShell.Run(strCommandLine)setWshShell
wenhuifu·2012-12-03 21:51

QQ自动发送信息脚本

OnErrorResumeNextDimwsh,yesetwsh=createobject("wscript.shell")fori=1to10wscript.sleep1000wsh.AppActivate
liuchunhe1989·2012-12-02 21:50

ASP 空字符串、IsNull、IsEmpty区别分析

说明:setaa=server.createobject("ddd")isnull说明指针为空，指针指到一个无效的位置，即对象不存在，isempty说明指针指向一个有效位置，但是值为空1、空字符串例:复制代码代码如下
·2012-12-02 12:13
上一页 33 34 35 36 37 38 39 40 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他