久久久久亚洲AV片无码下载蜜桃,国产精品久久久久久久久久免费,久久精品a亚洲国产v高清不卡

用C实现的一个基本COM接口IFoo�Q�来自COM Programmer's Cookbook�Q�——C实现COM接口�p�d��2

��葱蘔R�� — Mon, 11 May 2009 08:28:00 GMT

�?a href="http://www.shnenglu.com/gracelee/archive/2009/04/29/81414.html">C实现COM接口�p�d��1中实现的com接口IFoo与��用它的客戯��合在一��P��没有实现在各自分��ȝ��模块�Q�因此不�W�合模块化编�E�思想。本期添加类厂支持，以��接口的实��C��接口的��用相分离�?/p>

---------------------------------------------------
�c�d��的作用到底是什么？
��接口的实现与客户��用分��d��来吗�Q?/p>

不尽然。��用CoCreateInstance�Q�客户可以完全不必知道类厂的存在�Q�而创建组�Ӟ��获取�l��g实现的接口�ƈ使用�?/p>

即COM库可以完全抛开�c�d��的概念，而是提供一个这��L��函数原型�Q?br>CoCreateObject(REFID rclsid,...,REFID riid,void **ppItf);
用户在调用的时候可以对riid提供IID_Unknown或者特定于该对象的一个接口，直接获取该对象的IUnknown或特定的接口指针�?/p>

可以看到�Q�这正是CoCreateInstance所作的事情�?/p>

1 �c�d��提供了间接创建类对象的方式：用户可以先获取�ƈ持有�c�d��接口指针�Q�通过该指针所指向的类厂接口创建类对象。适用于需要创建多个（或重复创建）�c�d��象的地方�Q�减��了每次都要定位对象库�ƈ把对象库装入内存的开销�?br>2 �c�d��提供了保证组件库留在内存不被卸蝲出去的另一�U�方法：�c�d��接口函数LockServer。组件库�l�护一个库范围计数器，只有该计数器�?�Ӟ��l��g库才允许自己被卸载出内存。（与此相对�Q�引用计数是�c�d��象范围的�Q�通过该类实现的各个接口来�l�护。如果一个类对象的引用计数达�?�Q�那么该对象占有的内存就被释放，该对象上的接口指针也不再有效。）
除了调用LockServer锁定�l��g库以外，当创建的�l��g个数大于0�Ӟ��l��g库也不能被卸载。也可以��_��调用一�ơLockServer()的作用相当于创徏了一个组件�?/p>

-----------------------------------------------------------------------
客户一侧：
1 使用一个接口需要知道哪些信息？
备选：
接口IID
�c�d��象（�c�d��Q�CLSID�Q�或ProgID�Q?br>接口函数原型�Q�参��C��敎ͼ��c�d��Q�返回��|��
实现接口�l��g的线�E�模型（�q�程内、进�E�外、远�E�）�Q?br>�c�d��库typelib信息�Q?/p>

服务一侧：
2 实现一个组件和接口以供客户调用�Q�需要提供哪些东西？
备选：
所有客户��用组件和接口所需的内�?br>额外的还有：

--------------------------------------------------------------------
为dll��d��.def文�g与直接在需要导出的函数定义处指定_declspec( dllexport )有区别吗�Q�如果有是什么区别？

我发现在outdll.c中这��h��定：
__declspec( dllexport ) HRESULT DllGetClassObject (REFCLSID rclsid, REFIID riid, void **ppv)
会��生编译错误：
1>------ Build started: Project: outside, Configuration: Debug Win32 ------
1>Compiling...
1>outdll.c
1>d:\outside-cf\outside\outdll.c(19) : error C2375: 'DllGetClassObject' : redefinition; different linkage
1> c:\program files\microsoft visual studio 8\vc\platformsdk\include\objbase.h(833) : see declaration of 'DllGetClassObject'
1>Build log was saved at "file://d:\outside-cf\outside\Debug\BuildLog.htm"
1>outside - 1 error(s), 0 warning(s)
========== Build: 0 succeeded, 1 failed, 1 up-to-date, 0 skipped ==========

c2375的解释意思是出错的函��C��用的链接指示�W�与之前声明的不同�?br>Compiler Error C2375
'function' : redefinition; different linkage

The function is already declared with a different linkage specifier.

objbase.h中声明了DllGetClassObject()函数�Q?br>STDAPI DllGetClassObject(IN REFCLSID rclsid, IN REFIID riid, OUT LPVOID FAR* ppv);

而��?def文�g��没有问题�?/p>

-----------------------------------------------------------------------------
初次执行�l�果�Q?/p>

问题��是��L��一个分配的内存没有释放�Q?/p>

�Ҏ��打印出来的内存地址可以判断�Q�应该是先创建的�c�d��对象的内存没有释放�?br>��查代码，main()中�ƈ没有忘记调用Release(pCF)释放�c�d��对象。打印Release(pCF)的返回��|��发现�?�Q�即在类厂接口指针上��调用了一�ơRelease�Q�那么，�I�竟是哪里少的呢�Q?/p>

main()函数中有关类厂对象引用计数的地方��是CoGetClassObject和Release�Q�CreateInstance跟类厂自��q��引用计数无关�Q�，�q�是一对增加引用计数和减少引用计数的对应操作，所�?main()中应该没有问题�?/p>

那么�Q�就只有创徏�c�d��对象的时候了。下面看一下类厂对象是如何创徏的�?br>首先�Q�main调用CoGetClassObject�Q�该函数��p��用dll中的DllGetClassObject。由于是�W�一�ơ调用（不考虑其他客户使用该dll的情况）�Q�程序执行到CreateClassFactory(...),该函数执行完后，�c�d��对象的引用计数是1�?/p>

�׃��创徏成功�Q�因此��l�向下执行到QueryInterface,此时�Q�类厂对象的引用计数变成�?。然后，DllGetClassObject�q�回�Q�com库函数CoGetClassObject也应该返回。注意，此时的类厂对象引用计数已�l�是2了！

因此�Q�问题就出在�q�里。main调用一�ơCoGetClassObject后，�c�d��对象的引用计数是2�Q�而不是我惛_��中的1。于是，后面调用一�ơRelease也就当然无法释放掉类场对象了�?/p>

扑ֈ�了原因，�Ҏ��很�Ҏ��了。这里我觉得需要把DllGetClassObject作如下修改：

1 HRESULT DllGetClassObject (REFCLSID rclsid, REFIID riid, void **ppv)
2 {
3     *ppv = 0;
4     if (IsEqualCLSID (rclsid, &CLSID_Outside))
5     {
6
7         if (!vpcfOutside)
8
9         {
10
11             HRESULT hr = CreateClassFactory (&CLSID_Outside, CreateOutside,
12                                              &IID_IClassFactory, &vpcfOutside);
13
14                 if (hr != NOERROR)
15
16                     return hr;
17
18     if(IsEqualIID(riid,&IID_IClassFactory))
19     {
20      *ppv = vpcfOutside;// Set *ppv to vpcfOutside directly instead of QueryInterface if first time creation
21      return NOERROR;
22     }
23     else
24     {
25      Release(vpcfOutside);// Any interface requested (riid) other than IID_ClassFactory and IID_Unknown not support by class factory,
26                           // call Release to free the memory.
27      return E_FAIL;
28     }
29
30         }
31
32         return QueryInterface (vpcfOutside, riid, ppv);
33
34     }
35
36     return E_FAIL;
37 }

修改后在执行�Q�内存都正常释放了�?/p>

-------------------------------------------------------------------------------------------
CreateClassFactory代码说明

1 HRESULT CreateClassFactory (REFCLSID rclsid,
2     HRESULT (*pfnCreate)(IUnknown *, REFIID, void **),
3     REFIID riid, void **ppv)
4 {
5     ClassFactory *this;
6     HRESULT hr;
7
8     *ppv = 0;
9     if (hr = Alloc (sizeof (ClassFactory), &this))
10     return hr;
11
12     this->icf.lpVtbl = &vtblClassFactory;
13     this->cRef = 1;  // After this call, cRef==1
14
15     this->pfnCreate = pfnCreate;
16
17     hr = QueryInterface (&this->icf, riid, ppv);  // After this call, cRef==2
18     Release (&this->icf);  // Corresponds to "this->cRef = 1", ater this call, cRef==1
19
20     return hr;
21 }

可以看到�Q�两行代码的效果是对引用计数�?及减1�Q�这两行代码执行后，对引用计数的影响互相抉|��Q�等于没有改变引用计数。那么，把这两行同时注释掉，是不是可以呢�Q?br>我的回答是：在本例中可以。因��两行代码之间的QueryInterface��L��可以执行成功的（因�ؓ是用IDD_ClassFactory来调用该函数的）。所以，即便把这两行代码同时注释掉，CreateClassFactory执行�l�束后，�c�d��对象的引用计��C��增了1�Q�以后调用Release��可以释放掉�c�d��对象占用的内存�?br>但是�Q�如果CFQueryInterface的代码编写中除了错误�Q�比如，像这样写�Q?br>

1 static HRESULT CFQueryInterface (IClassFactory *pcf, REFIID riid, void **ppv)
2 {
3     ClassFactory *this = IMPL (ClassFactory, icf, pcf);
4
5     if (IsEqualIID (riid, &IID_IUnknown) ||
6 //            IsEqualIID (riid, &IID_IClassFactory))   // Comment out this condition to create an error
7         *ppv = &this->icf;
8     else
9     {
10         *ppv = 0;
11         return E_NOINTERFACE;
12     }
13
14     AddRef ((IClassFactory *)*ppv);
15
16     return NOERROR;
17 }

那么�Q�这两行代码之间的QueryInterface��׃��执行出错�Q�那么类厂对象占用的内存��永�q�没有机会释放了�?br>也就是说�Q�AddRef和Release虽然在作用上对引用计数来说相互抵消，但Release函数提供了释攑֯�象内存的��Z��Q�当引用计数�?�Ӟ��Q�如果不成对的调用他们，也就失去了管理对象内存（释放对象占用的内存）的机会�?/p>

---------------------------------------------------------------------------
�l��g库outside文�g说明�Q?br> IFoo.h      IFoo接口声明
outside.c   �l��g对象、IFoo接口实现
cf.c        �c�d��对象、IClassFactory接口实现
outdll.c    �l��g库导出函数实�?br> outside.def �l��g库模块定义文�Ӟ��导出函数声明
outside.reg �l��g库注册文�?/p> ----------------------------------------------------------------------------
源码�Q?outside-cf

��葱蘔R�� 2009-05-11 16:28 发表评论

用C实现的一个基本COM接口IFoo�Q�来自COM Programmer's Cookbook�Q�——C实现COM接口�p�d��1

��葱蘔R�� — Wed, 29 Apr 2009 04:08:00 GMT

用C实现的一个基本COM接口IFoo�Q�来自COM Programmer's Cookbook�Q?/p>

把该文中实现的代码整理汇��d��一个项目中。目前只是实现到一个中间阶�D�，重点在说明COM接口的实现原理，�q�没有包含类厂的部分。以后还需陆箋��d��c�d��{�高�U�功能�?/p>

文�g�l�成�Q?br>ifoo.h COM接口IFoo,接口ID IID_IFoo 声明文�g�?br>outside.c COM接口实现。这里实现IFoo的是一个结构体COutside.
util.h 一些宏定义、全局函数、变量声明文件�?br>main.c �W�者�ؓ实现��目��d��的文件。提供main函数、内存管理函数Alloc,Free的实玎ͼ��装C�q�行库函数malloc和free.�Q�、接口ID定义�?/p>

COM接口到底是什么？
COM接口是一个指向虚函数表的指针。通过�q�个指针可以讉K��内存中某处的各个功能块，执行预定义的功能�Q�完成用��L��d��。这些功能块以函数的形式存在�Q�想不出�q�有其他形式:)�Q��ƈ被调用。它们有一个共同点�Q�都包含一个指针参敎ͼ�指向�q�些功能要操作的数据地址。在C++中，�q�个地址��是对象的首地址�Q�也��是�c�L��员函��C��隐含的this指针。在C函数中�ƈ没有�q�种现成的便利，因此代码实现中在接口定义时仍使用了接口指针（HRESULT (__stdcall * QueryInterface) (IFoo * This, const IID * const, void **)�Q�，而在接口函数实现时根据结构体布局�l�构�Q�从�q�个接口指针推算得到对象实例指针�?/p>

typedef struct IFoo
{
struct IFooVtbl * lpVtbl;
} IFoo;
typedef struct IFooVtbl IFooVtbl;
struct IFooVtbl
{

HRESULT (__stdcall * QueryInterface)   (IFoo * This, const IID * const, void **) ;
ULONG (__stdcall * AddRef)    (IFoo * This) ;
ULONG (__stdcall * Release)   (IFoo * This) ;

HRESULT (__stdcall * SetValue) (IFoo * This, int) ;
HRESULT (__stdcall * GetValue) (IFoo * This, int *) ;
};

COM接口的要求：

每一个COM接口�Q�指向的虚函数表�Q�的头三个函数必��L��IUnknown接口的函敎ͼ�QueryInterface,AddRef和Release。在C++中，�U�Cؓ从IUnknown接口�l�承�?br>对于调用QueryInterface响应查询IID_IUnknwon得到的接口指针��|��同一个对象实现的所有接口必��ȝ��同。这是判断两个COM对象是否是同一个对象的标准�?/p>

宏定�?#8220;#define IUNK_VTABLE_OF(x) ((IUnknownVtbl *)((x)->lpVtbl))“说明

在预处理输出文�gmain.i中可以找到IUnknownVtbl和IFooVtbl的声明：
    typedef struct IUnknownVtbl
    {


        HRESULT ( __stdcall *QueryInterface )(
            IUnknown * This,
             const IID * const riid,
             void **ppvObject);

        ULONG ( __stdcall *AddRef )(
            IUnknown * This);

        ULONG ( __stdcall *Release )(
            IUnknown * This);


    } IUnknownVtbl;

    struct IUnknown
    {
         struct IUnknownVtbl *lpVtbl;
    };

struct IFooVtbl
{

HRESULT (__stdcall * QueryInterface)   (IFoo * This, const IID * const, void **) ;
ULONG (__stdcall * AddRef)    (IFoo * This) ;
ULONG (__stdcall * Release)   (IFoo * This) ;

HRESULT (__stdcall * SetValue) (IFoo * This, int) ;
HRESULT (__stdcall * GetValue) (IFoo * This, int *) ;
};

该宏定义的作用就是把IFoo接口中的IFooVtbl�c�d��的指针拿出来�Q?x)->lpVtbl)�Q�，�q�强制�{换（(IUnknownVtbl *)�Q�成IUnknownVtbl�?br>“强制转换”的结果是什么呢�Q�是怎么做到的呢�Q?br>很明显，�l�果��是得到的指针不再是IFooVtbl *�c�d��Q�而是变成了IUnknownVtbl *�c�d��。至于做法，�pȝ��应该记录每一个变量、表辑ּ�的类型。当�q�行强制�c�d��转换�Ӟ��（临时圎ͼ�修改其类型�ؓ转换到的�c�d��?br>同理�Q�QueryInterface, AddRef, Release宏定义中�?IUnknown *)也是�q�种用法�?/p>

可以看到�Q�宏“IUNK_VTABLE_OF“的作用是供宏QueryInterface,宏AddRef�Q�宏Release引用�Q�把IFooVtbl *�c�d��转换为IUnknownVtbl *�c�d��Q�最�l�达到调用IUnknownVtbl中定义的三个QueryInterface,AddRef,Release函数�?/p>

那么�Q�这�U�大费周章的目的是什么呢�Q��ؓ什么不以IFooVtbl中三个函数的定义形式�Q�不通过强制转换来�{换成必须的类型）�Q�直接调用IFooVtbl中定义的函数呢？虽然强制转换在参数��g��q�不会造成改变�Q�最�l�调用的也是IFooVtbl定义的函敎ͼ�FooQueryInterface,FooAddRef,FooRelease�Q��?/p>

��Z��么一定要通过IUnknown接口指针调用�q�三个函数呢�Q�修改QueryInterface宏定义如下：
#define QueryInterface(pif, iid, pintf) \
(((pif)->lpVtbl)->QueryInterface(pif, iid, (void **)(pintf)))
即通过IFoo接口指针来调用由IUnknown引入的函敎ͼ�有什么不对的地方吗？

试验表明�Q�将QueryInterface宏定义如下也可以�~�译通过�Q�执行�v来也没有出现��M��异常�?br>#define QueryInterface(pif, iid, pintf) \
(((pif)->lpVtbl)->QueryInterface(pif, iid, (void **)(pintf)))

对于IUnknown接口的三个函敎ͼ�调用时传递的参数是IUnknown *�c�d��Q�见QueryInterface, AddRef, Release宏定义）�Q�而函数定义中�Q�FooQueryInterface, FooAddRef, FooRelease�Q�声明的参数是IFoo *�c�d��Q�这�U�不一致的情况是怎么出现的？�q�种不一致不会有问题吗？

�q�种不一致的产生是由于从不同的角度看待引��L��。如果从IUnknown接口来看�Q�那么接口函��C��的第一个参数类型就是IUnknown *;如果从IFoo来看�Q�那么第一个参数的�c�d��是IFoo *�?/p>

�q�种不一致性只是针对于�~�译器对于类型的�~�译要求有意义的�Q�在接口实现及��用时�Q�传递给lpVtbl->QueryInterface, lpVtbl->AddRef,lpVtbl->Release的第一个参数在��g��都是相同的，都是实现该接口的内存地址�Q�在本例中是COutside对象的首地址�Q��?/p>

一些语法现象回��?/p>

函数指针变量定义、赋值及调用�?br>HRESULT (__stdcall * pQI) (IFoo * This, const IID * const, void **) ;
定义一个函数指针变量pQI,该变量指�?#8220;�q�回HRESULT,�?个参数分别�ؓ�c�d��IFoo *,const IID * const, void **”的函数�?/p>

typedef HRESULT (__stdcall * QIType) (IFoo * This, const IID * const, void **) ;
定义一个函数指针类型，该类型的指针指向“�q�回HRESULT,�?个参数分别�ؓ�c�d��IFoo *,const IID * const, void **”的函数�?/p>

HRESULT __stdcall QueryInterface(IFoo * This, const IID * const, void **) ;//函数声明�C�Z��
pQI = 0; // 函数指针赋��|��0表示不指向�Q何函数�?br>pQI = QueryInterface; // 函数指针赋��|��pQI指向QueryInterface�?br>pQI = &QueryInterface; // 与上面等仗��?/p>

QueryInterface(&this->ifoo, riid, ppv); // 使用函数名直接调�?br>pQI(&this->ifoo, riid, ppv); // 函数指针调用
(*pQI)(&this->ifoo, riid, ppv); // �W�二�U�函数指针调用方�?/p>

宏定义、展开规则
对于宏，一直有一�U�雾里看��q��感觉�Q�似乎很随意�Q�怎么来都行，比如�Q?br>#define AddRef(pif) \
(IUNK_VTABLE_OF(pif)->AddRef((IUnknown *)(pif)))

宏定义应该是可以嵌套的，卛_��定义�?#8220;内容“中还可以包含�Q�嵌套）宏，如本例，“IUNK_VTABLE_OF”��是嵌套宏。在展开的时候，��嵌套的宏也一�q�展开�Q�替换成定义的内容）�Q�直��C��再有宏�ؓ止�?br>那么��有两个疑问�Q?br>1。如果被嵌套的宏包含�Q�直接或间接�Q�定义的宏，那么展开��没完没了，��d�@环了�?br>2。如果定义的内容中有跟定义的宏同名的字符�Ԍ��比如上面的例子IUNK_VTABLE_OF�Q�，那么怎么区分�q�同名的东东是嵌套的宏（需要展开�Q�，�q�是一般的字符�Ԍ��不需要展开�Q�？

函数调用规范�U�定、main函数调用规范�?/p>

一开始把几个文�g汇��d��目里时�Q�编译通不�q�，错误提示大致意思是�Q�不能把一�U�调用规范的函数指针转换成另一�U�调用规范的函数指针。后来把调用规范改�ؓ /Gz(__stdcall),�~�译为（Compile As�Q�改�?TC(Compile As C Code)��好了�?/p>

��x��是对�?c文�g�Q�编译器�~�省使用的是__cdecl�Q�而IFoo中的接口宏定义在win32下展开成了__stdcall�Q�所以出��C��矛盾。而��?Gz强制未声明调用规范的函数使用__stdcall�Q�实现就与声明一致了�?/p>

(size_t)&(((s *)0)->m)

c++�E�序员也讔R��知道�Q�访问地址“0”处的成员是一大忌�Q�会造成GP。然而，取地址“0”处的成员的地址�Q�却是个合法的操作。虽然地址“0”处�ƈ没有什么内容，但是�Q�如果在地址0处存放一个内容，那么该内容中的成员也是有地址的。本例中正是巧妙地利用这�U�方法，从接口地址计算得出实现该接口的实例地址�Q�进而访问实例的内部变量�?br>
------------------------------------------------------------------------------------
2009�q?�?�?br>附上源码�Q?a href="http://www.shnenglu.com/Files/gracelee/outside.zip">/Files/gracelee/outside.zip

代码执行�l�果�Q?br>

��葱蘔R�� 2009-04-29 12:08 发表评论

自动�c�d��转换——操作符重蝲

��葱蘔R�� — Fri, 16 Jan 2009 07:51:00 GMT

用户自定义类(class)�c�d��可以当作�pȝ��内徏�c�d��(build-in type)来处理，对这一�Ҏ��一直很惊奇�Q�也很迷惑，特别是在�c�d��义、��承关�p�d��复杂的时候，要找到来龙去脉真的很抓头。最�q�工作中��到�q�一块的东西�Q�顺便借这个机会澄清一些概��c�?br>
看下面代码：

1 class CBase {
2 public:
3     CBase()
4     {
5         cout << "CBase constructor()" << endl;
6     }
7     virtual ~CBase()
8     {
9         cout << "CBase destructor()" << endl;
10     }
11
12     operator long()
13     {
14         cout << "CBase::operator long()" << endl;
15         return 0;
16     }
17
18     operator char()
19     {
20         cout << "CBase::operator char()" << endl;
21         return 'a';
22     }
23 }
24 ;
25 class CDerived:public CBase
26 {
27 public:
28     CDerived()
29     {
30          cout << "CDerived constructor()" << endl;
31     }
32
33     virtual ~CDerived()
34     {
35         cout << "CDerived destructor()" << endl;
36     }
37
38     operator long()
39     {
40         cout << "CDerived::operator long()" << endl;
41         //return CBase::operator long();
           return *((CBase *)this);//change the above code to this looks better
42     }
43
44 };
45
46 void main()
47 {
48     CDerived d;
49     long lTmp = d;
50     cout << "lTmp=" << lTmp << endl;
51     char cTmp = d;
52     cout << "cTmp=" << cTmp << endl;
53
54 }

�׃��定义了操作符重蝲CDerived::operator long() 和CBase::operator long()�Q?9行得以编译通过。同理，定义了CBase::operator char()�Q?1行可以编译�?br>
执行�l�果为：
CBase constructor()
CDerived constructor()
CDerived::operator long()
CBase::operator long()
lTmp=0
CBase::operator char()
cTmp=a
CDerived destructor()
CBase destructor()

�q�里涉及到的概念主要有：
1 �c�L��员操作符重蝲�Q��得用户定义类型�{换�ؓ内徏�c�d��成�ؓ可能。对于用户定义类型之间的转换�Q�还可以通过构造函数的方式�q�行�Q?br>2 自动�c�d��转换。自动类型�{换发生的情况有以下几�U�：
函数调用时传递的实参�c�d��与函数声明中指定的参数类型不匚w��
函数�q�回的对象类型与函数声明中指定的�q�回�c�d��不匹�?br>表达式中操作数的�c�d��不一��_��q�正是上面例子中的情况）

有意思的是，即��不定义CBase::operator char()�Q�上面的51行仍能通过�Q�真得感叹编译器的聪明才��Z��Q�或许只是编译器source中多了一些的if{}else{}呢？

��葱蘔R�� 2009-01-16 15:51 发表评论

VBScript写的计算异或的一个小工具

��葱蘔R�� — Fri, 03 Aug 2007 05:05:00 GMT

工作中经�怼�需要计��一大串字节的异或，用计��器手工一个一个的输入太篏��Z��Q�碰巧这两天在关注VBScript�Q�于是就惛_��写了�q�个工具。这是我�W�一�ơ用VB�Q�代码很��单，希望能对你有用�?br>

'==========================================================================
'
'
' NAME: calc_xor.vbs
'
' COMMENT: Calculates the result of 'xor' all elements in the input
'
'==========================================================================

Option Explicit

Dim strInput

'Promt for string to search for in log files
strInput = InputBox("Enter data to calc on.","calc xor","")

if strInput = "" then
    wscript.quit
end If

'MsgBox(Len(strInput))

Dim arrayBytes()
ReDim arrayBytes(Len(strInput)/2)

Dim i,nBytes
Dim chHalf1,chHalf2,chWhole
i = 1
nBytes = 0

Do While (i < Len(strInput))
'Skip spaces between elements
Do While Asc(Mid(strInput,i,1)) = 32 'space
    i = i + 1
Loop

    chHalf1 = Asc(Mid(strInput,i,1))
    chHalf2 = Asc(Mid(strInput,i+1,1))
    'Check and convert first half

    If chHalf1 >= 48 And chHalf1 <= 57 Then
        chHalf1 = chHalf1 - 48
    ElseIf chHalf1 >= 65 And chHalf1 <= 70 Then
        chHalf1 = chHalf1 - 65 + 10
    ElseIf chhalf1 >= 97 And chHalf1 <= 104 Then
        chHalf1 = chHalf1 - 97 + 10
    Else
        MsgBox("invalid character")
        wscript.quit
    End If

    ' Check and convert the second half
    If chHalf2 >= 48 And chHalf2 <= 57 Then
        chHalf2 = chHalf2 - 48
    ElseIf chHalf2 >= 65 And chHalf2 <= 70 Then
        chHalf2 = chHalf2 - 65 + 10
    ElseIf chHalf2 >= 97 And chHalf2 <= 104 Then
        chHalf2 = chHalf2 - 97 + 10
    Else
        MsgBox("invalid character")
        wscript.quit
    End If

    ' Combine the first and second halves together to form a whole byte
    chWhole = chHalf1 * 16 + chHalf2
    arrayBytes(nBytes) = chWhole
    i = i + 2
    nBytes = nBytes + 1
Loop

'MsgBox(CStr(nBytes) + " bytes all together")

Dim WshSHell
set WshShell = CreateObject("WScript.Shell")
WshShell.Run("calc")
WScript.Sleep(100)
WshShell.AppActivate("Calculator")
WScript.Sleep(100)

WshShell.SendKeys("{F6}") 'Change to Decimal
'WshShell.SendKeys("{F4}") 'Change to single byte
WScript.Sleep(100)
WshShell.SendKeys("0")
For i =1 to nBytes
    WshShell.SendKeys("{^}")
    WScript.Sleep(100)
    WshShell.SendKeys(arrayBytes(i-1))
    WScript.Sleep(100)
    WshShell.SendKeys("{=}")
    WScript.Sleep(100)
Next

WshShell.SendKeys("{F5}") 'Change to Hex for easy recognition

��葱蘔R�� 2007-08-03 13:05 发表评论

用sprintf格式化字�W�串

��葱蘔R�� — Tue, 31 Jul 2007 08:43:00 GMT

写代码时�l�常会用到用sprintf格式化某个字�W�串�Q�比如：
sprintf(mess,"This is field 1,Field 2,Field 3\n");

当这��L��域很多的时候，一行放不下�Q��ؓ了便于阅读，需要把它们分成几行�Q?br>sprintf(mess,"This is filed 1,\
    Field 2,\
    Field 3,\
    ...
    Field n\n");

但是�Q�这样带来个问题�Q�就是格式化后的mess的各个域之间��׃�生了不想要的字符�Q�如�I�格�{�，使用UE可以清楚的看刎ͼ��Q�原因是�׃��使用了箋行符"\"�Q�line-continuation character�Q�，而不用箋行符又无法通过�~�译�Q�C2001�Q��?br>
�q�时可以用双引号来把各个域分隔开�Q�这样就既解决了可读性的问题�Q�又解决了编译问题：
sprintf(mess,"This is filed 1,"
    "Field 2,"
    "Field 3,"
    ...
    "Field n\n");

��葱蘔R�� 2007-07-31 16:43 发表评论