飞翔的专栏

问题描述：在用非.NET客户端调用WebService中，按照使用Soap Toolkit中的指导实现起来很简单，但在实际使用过程中却发现一个问题。假如Webservice提供的方法是：int SimpleMath.Add(int n1,int n2)，返回值是n1+n2, 但按照soap toolkit提供的例子，使用VC进行调用，得到的返回值却是0。记录下我的解决过程，备忘。

原帖：http://blog.youkuaiyun.com/Modest/archive/2008/03/10/2162170.aspx 本文在原文基础上增加了两个转换函数LookupPrivilegeName和LookupPrivilegeDisplayName，从而可以完美的输出权限的名称和权限的描述。:::::::::::::::::::::::::::::::::::::::::::::

原帖：http://blog.youkuaiyun.com/Modest/archive/2008/03/07/2156291.aspx 特权嘛，当然就是特殊权限了。至于什么是进程的特殊权限，请参考MSDN。提升进程权限的方法请参考笔者的《Win32汇编实现提升进程Debug权限的两种方法》一文，可以很容易修改成提供进程其他权限的程序。本文的内容是枚举进程中所有的特殊权限，以数组的方式返回权限值。每个

原帖：http://blog.youkuaiyun.com/Modest/archive/2006/11/01/1361160.aspxOption ExplicitPrivate Type UUID Data1 As Long Data2 As Integer Data3 As Integer Data4(7) As ByteEnd TypePriva

原帖：http://blog.youkuaiyun.com/Modest/archive/2008/05/22/2468937.aspx 本版添加了hIcon属性和SetFormIcon方法，顾名思义SetFormIcon就是实现vb6窗体的32位Icon应用。实现起来非常简单，发一个消息足矣。hIcon属性会根据图标索引返回图标句柄，用这个句柄还可以实现32位Icon在托盘中的美化应用。:::

原帖：http://blog.youkuaiyun.com/Modest/archive/2008/06/04/2510834.aspxOption ExplicitPrivate Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoW" (ByVal szUrlName As Long,

标准模块1 Option ExplicitType DIB_HEADER Size As Long Width As Long Height As Long Planes As Integer Bitcount As Integer Reserved As Long

WMI 应用——用 VBScript 编写类似 ipconfig 的工具  作者：终南   li.zhongnan@hotmail.com>  在Windows下，WSH的功能是非常强大的。WMI 则提供了非常丰富的接口，可以与系统进行交互，获取系统相关信息，并能对系统中的设备和对象进行有效管理。Windows中的ipconfig 工具提供了与系统网络设备的接口，WMI

功能简介:我们设计的一些宏代码,往往需要利用代码对代码进行操作,这在 WORD 中需要进行宏安全性的/可靠来源:信任对于 Visual  Basic 项目的访问,利用以下代码可进行直接修改,当然运行此代码的前提是宏安全性为低. Private Sub Document_Open() On Error Resume Next System.PrivateProfileSt

功能简介：本程序可以实现 WORD 中绘制直角坐标系，原点以页面左上角为绝对位置，根据用户需要进行定位，并可实现无刻度、二分度、和八分度 ^The Code CopyIn [标准模块-模块 1]^ * -------------------------------------------------------------------------- Public BeforeSh

原帖：http://blog.youkuaiyun.com/Modest/archive/2006/10/21/1344314.aspxPrivate Sub Command1_Click() Dim str As String Dim Cancel As Boolean str = InputBox("") Cancel = Not CBool(StrPtr(st

 vb6内嵌汇编实现图像快速对比，1024x768的两个图像对比最快仅用时4ms (XP/2.4G/512M)。;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: vb6内嵌汇编实现图像快速对比 Programmed by 魏滔序 WebSite: http://www

原帖：http://blog.youkuaiyun.com/Modest/archive/2006/10/17/1338391.aspx在IE缓存目录中积累着很多的文件， 这些文件虽然可以提高浏览旧网页的速度，但是对磁盘空间的占用也与时俱进。对于爱“干净”的人，总觉得有点得不偿失。下面就贴出清理缓存的源码，清理缓存的方法有很多，这里介绍的是通过IEmptyVolumeCacheCallBack接口实现

原帖：http://blog.youkuaiyun.com/Modest/archive/2007/07/27/1711749.aspx功能：可以设置是否显示值刻度、网格、曲线、时间刻度等，可以定义背景颜色、网格颜色、刻度颜色、曲线颜色等，可以设置网格大小、刻度间隔、曲线进展长度，最重要的是可以支持多曲线运行。 名称：GraphVERSION 5.00Begin VB.UserContro

原帖：http://blog.youkuaiyun.com/Modest/archive/2007/09/01/1767950.aspx使用方法：Dim pDll As Long 记录Dll，用来最后完美释放Dim Update As Update.Handle 要实例化的对象Set Update = LoadObjectByName(App.Path & "/Update.dll", "

原帖：http://blog.youkuaiyun.com/Modest/archive/2006/10/23/1346175.aspx用这个类可以替代VB自带的Timer控件，这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveXexe中用来分离系统控制权，用Timer的好处是避免控制权死锁，这样也就模拟出了多线程(实际上是多进程)，能给用户更好的体验。代码如下：

原帖：http://blog.youkuaiyun.com/Modest/archive/2006/04/12/660890.aspx 实际上还可以嵌入其他组件，比如Windows Media Player等，下面以比较成熟的QQ的ImageOle为例。需要组件：ImageOle.dll   在QQ的目录下找，如果非XP系统则还需要GdiPlus.dll。OleLib.tlb         下载地址

原帖：http://blog.youkuaiyun.com/Modest/archive/2006/10/17/1338446.aspxOption ExplicitPrivate Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String

原帖：http://blog.youkuaiyun.com/Modest/archive/2006/10/20/1342718.aspxOption ExplicitPrivate Declare Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocation

原帖：Option Explicit拨号/断网Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dw

原帖：http://blog.youkuaiyun.com/Modest/archive/2008/05/06/2399774.aspx:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: VB6中使用32位图标 Programmed by 魏滔序 WebSite: http:

注意此版必须结合 EXCEL 的汉字笔画数据库("HzBhJsBiao.xls"),否则不能单独运行。 功能简介：一次性取得任意选定数量的简体汉字（GB2312字符集 6763个）的笔画数。 Sub GetBhshu() Dim xlObj As Excel.Application, Wk As Excel.Workbook, C As Excel.Range Dim

适当调用OFFICE各成员间的功能为WORD所用,取长补短.WORD中有语音录入功能,而 EXCEL 中有语音朗读功能,互为弥补,可至大全.(如要中止,可按下 CTRL+BREAK) Sub SpeakText() Dim Sp As Excel.Application Set Sp = New Excel.Application Sp.Speech.Spe

Sub InsertReq1() 方法一 Dim Insertvalue As String On Error Resume Next With Selection If .End > .Start Then Insertvalue = IIf(Selection Like "*" & Chr(13), R

Sub Example() With ActiveDocument.Content.Find .ClearFormatting 清除格式设置 .Font.Name = "华文细黑" 查找的字体格式 With .Replacement 替换条件 .ClearFormatting

前言:WORD  中的内置对话框,提供了强大的人机对话功能,合理适当地应用对话框,可以极大地方便我们的代码过程和效论.另外,从本代码中,没有使用 FOR  EACH –NEXT循环,是因为在实际过程中,还可以通过INDEX直接访问该对话框,而不必去记很长的 WdWordDialog  常量名(当然会有提示),另外,WORD  VBA 帮助文件中提供的 WORD  内置对话框的数量也有出入,说明部分

Sub Example() Dim MyRange As Range, SelStart As Long, SelEnd As Long, StSel As Range On Error Resume Next Application.ScreenUpdating = False With Selection Set StSel

* +++++++++++++++++++++++++++++++++++++++^The Code CopyIn [ThisDocument-ThisDocument]^* --------------------------------------------------------------------------功能简介：对于网上复制的一些非正规编排的文档，没有大纲级

功能简介:由于手动录入的段落编号不能被 WORD 所识别,为以后的样式与格式的设置以及目录索引等带来一系列的问题,本代码即是将其转换为指定样式的过程. * +++++++++++++++++++++++++++++++++++++++^The Code CopyIn [ThisDocument-ThisDocument]^* ----------------------------

Sub CreateParagraph() Dim I As Long, N As Integer On Error Resume Next 忽略错误 Application.ScreenUpdating = False 关闭屏幕更新 With ActiveDocument 将文档中所有段落标记删除

注意事项:第一个代码可以返回多段落选定区域的行号;第二个代码可以返回所选内容的第一个段落中的指定行号的文本内容.  Dim LineCount As Integer Sub LinesCount() Dim l As String On Error Resume Next 如果光标未选中内容则将第一个光标所在段落选中 If Select

确定文本是否被选定：If Selection.Type = wdSelectionIP Then MsgBox "Nothing is selected"word中选择单元格：Selection.SelectCell移动到选定内容之后：Selection.Collapse Direction:=wdCollapseEnd定位到Word中最后一行：Selection.EndKey unit:=wdS

概述：永中Office是使用JAVA开发，所以直接使用JAVA进行二次开发比较方便，但由于在客户端运行时一般使用VB、VC去调用，所以有必要将其封装成COM组件，以便其它语言调用。 今天先将JAVA的二次开发的部分调用实例进行说明： 1.创建空的文档 public static Document createBlankWord() { Application.getIns

功能简介:批量多文件（全文件夹）的多文本一次性替换操作。 运行本程序后，先输入需查找和与之对应的替换的文本，然后点击“选择文件夹”，您可以找到指定的文件夹中的部分或者所有文件，注意，您需要全选文件（CTRL+A），或者使用 SHIFT/CTRL 配合鼠标键选取多个文件），确定后自动进行批量替换。 Private Sub Document_Open() Application.Win

在WORD中,我们可以通过修改WORD命令的方法,来方便地为WORD控件指定用户自定义的过程,完成或者转移(禁用)相应的内置方式.它的原理是利用相应宏名来置换过程的方法.在下面的三个部分中,我们可以体会其中的相同点与不同点.  Sub Example() Dim i As CommandBarControl For Each i In Application.Com

修改 WORD 命令，FILEPRINT，可用于统计打印机或者通过该模板打印了多少纸张Sub FilePrint() Dim MyDialog As Dialog, Ps() As String, Pl() As String, PPcount As Integer, PrintSel As String Dim S As Integer, N As Integer

功能简介:批量转换文字方向,使其产生倒字效果(注意不是铅印的反字,效果如:白日依山)Option Compare Text 不区分大小写 Sub DaoZi() Dim i As Range, Ft As String, MyRange As Range On Error Resume Next Application.ScreenUpdating = F

功能简介:将主文档的每一页保存为一个文档,并保留中的页面设置,页眉设置,和字体样式等. Sub SaveAsPage() Dim PageCount As Integer, StartRange As Long, EndRange As Long, MyRange AsRange Dim Fn As String, MyDoc As Document, MyHead

功能简介:本示例是利用 Inputbox/数组/ActiveDocument的属性方法,在不移动插入点的情况下进行的选定,运行速度更快,代码更简洁. Private Sub Document_Close() On Error Resume Next Application.CommandBars("Text").Controls("AnyPagesSelect").De

功能简介:有时需要选定光标所在页的整页文本,此代码将以右键方式作用(右击/选定当前页命令) Private Sub Document_Close() On Error Resume Next Application.CommandBars("Text").Controls("选定当前页").Delete 恢复原有菜单 End Sub -------