自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(15)
  • 资源 (10)
  • 收藏
  • 关注

原创 vba winsock

以服务端为例,一般的步骤是:先设置LocalPort本地端口,然后使用Listen方法侦听数据请求。然后处理ConnectionRequest和DataArrival事件。使用完后使用Close方法关闭连接。Private Sub UserForm_Initialize()    Winsock1.LocalPort = 1999    Winsock1.ListenE

2012-07-18 22:59:49 3347 1

原创 base64

/8+F9No1vQcuSZYCItnQ2RQ6uzGi4hPjgccQpW01/5d1NxHjXRK8oBBQoZXWFIpTNn4SU9AuS0hTmJSG+UDyIkv5NhJQbi5tq22+8xiFuVwahyXmHBep79C3p1stVkmkWOKp6bVSAfkevjpbvGbNdzXr1CiEdfkabGdLW+9epfOa0zXmUXH3OqwGK8nxWC8CYwCzeRHS

2012-07-04 17:03:26 1163

原创 Excel TreeView

Private Sub UserForm_Initialize()'初始化ImageList控件,添加图片  Dim img As New ImageList  img.ListImages.Add 1, "book1", LoadPicture(ThisWorkbook.Path & "\book1.gif")  img.ListImages.Add 2, "bo

2012-05-31 22:50:04 4328 1

原创 VBA 正则表达式

①正则表达式的概述  正则表达式原本是形式语言理论中的概念,与编译器的构造有密切的联系。但是作为一个应用软件的用户,我们没有必要去细究正则表达式的严格定义和处理方法。本文将从实用的角度出发,阐述引入正则表达式的目的、正则表达式的命令格式,以及如何利用正则表达式完成一些实际的文本处理工作。  我们在处理文本时,经常会遇到一些具有某种特定格式,或者说满足某种规则的文本。比如,一个无符号

2012-05-30 22:30:41 6463 1

原创 VBA正则

2.VBA中的正则表达式应用  在VBA中使用正则表达式,可以通过下列途径实现:创建正则表达式对象:前期绑定:在VBA代码编辑器中的"Tools"菜单中,选中"References...",然后引用Microsoft VBScript Regular Expressions 5.5类库,然后直接定义对象:Dim reg As New RegExp。后期绑定:使用CreateObje

2012-05-30 21:11:31 5847

原创 xmlHttp用法

xmlHttpRequest的status的值的含义虽然常写ajax方面的东西,但是很少去专门了解xmlHttpRequest的status各个值的含义,只是在用到时Google一下,下面将他人已总结过的转载一下,学习学习。xmlHttpRequest对象的status代表当前http请求的状态,是一个长整型数据,现在介绍一下它的含义。 http请求状态及其含义表1xx - 信

2012-05-30 20:46:01 4068

原创 转换

Attribute VB_Name = "Module1"'*/-------------------------------------------------------------'*/模 块 名:mUTF8'*/功 能:UTF-8转换GB2312函数'*/示 例:UTF2GB("%E9%83%BD%E5%B8%82%E6%83%85%E7%B7%A3 %E6%98%9F

2012-05-30 20:06:25 454

原创 XMLHTTP

Private Sub CommandButton1_Click() 'Msxml2.XMLHTTPDim IE As ObjectSet IE = CreateObject("Msxml2.XMLHTTP")IE.Open "GET", "http://www.baidu.com/", FalseIE.send ""Range("A1") = CodeConversionTxt1

2012-05-30 20:01:07 324

原创 test

2012-04-17 14:51:18 liu wenyao KF65629 处理环节:问题提交人填写, 操作:提交测试(项目)经理审核,处理人:wangxuesong 00174590,滞留时间:0小时; 2012-04-17 16:32:23 wangxuesong 00174590 处理环节:测试(项目)经理审核, 操作:提交开发人员定位,处理人:liqiang 00101572,滞留时间:

2012-05-02 16:26:42 335

原创 正则

Dim reg As New Regex("[^~]*?)','(?[^~]*?)','(?[^~]*?)','(?[^~]*?)','(?[^~]*?)','(?[^~]*?)','(?[^~]*?)'\)") ' Dim mc As MatchCollection mc = reg.Matches(ResStr1) '处理数据ResStr1

2012-04-26 23:36:24 361

原创 Excel和OpenFileDialog

Imports Microsoft.Office.Interop'COM Microsoft Excel x.0 Object LibraryPublic Class Form1 Dim exApp As New Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Dim

2012-04-26 23:01:45 1270

原创 HSSF

// import org.apache.poi.ss.usermodel.*; Sheet sheet1 = wb.getSheetAt(0); for (Row row : sheet1) { for (Cell cell : row) { CellReference cellRef = new CellReference(row.getRowNum(), cell.ge

2012-04-23 22:07:07 642

原创 Cookie的处理

Imports System.NetPublic Class Form1 Dim request As HttpWebRequest Dim response As HttpWebResponse Dim strcookie As String Dim StrPostData As String Dim mycookies As CookieConta

2012-04-22 12:39:34 471

原创 find

Dim Hcount As IntegerDim Mcount As IntegerDim Lcount As IntegerDim keywords As StringDim sheeetcount As IntegerDim AutomatedCircsColumn As IntegerFunction ReturnKeywordsColumn(

2012-03-12 17:30:17 283

原创 excell vba

Sub AutoStat()'Dim Row As IntegerDim SheetCount As IntegerDim MegerRow As IntegerDim UsedRow As IntegerDim Hcount As IntegerDim Mcount As IntegerDim Lcount As Integer

2012-03-11 17:56:58 347

winsock带注册文件

一、WinSock简介 Socket(套接字)最初是由加利福尼亚大学Berkeley(伯克利)分校为UNIX操作系统开发的网络通信接口,随着UNIX的广泛使用,Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初,由Sun Microsystems,JSB,FTP software,Microdyne和Microsoft等几家公司共同定制了一套标准,即Windows Socket规范,简称WinSock。 VB编写网络程序主要有两种方式:1.winsock控件 2.winsockAPI 二、WinSock控件的使用 1.WinSock控件的主要属性 LocalHostName属性 本地机器名 LocalIP属性 本地机器IP地址 LocalPort属性 本地机器通信程序的端口(0<端口<65536) RemoteHost属性 远程机器名 RemotePort属性 远程机器的通信程序端口 Protocol属性 通过Protocol属性可以设置WinSock控件连接远程计算机使用的协议。可选的协议是TCP和UDP对应的VB的常量分别是sckTCPProtocol和sckUDPProtocol,Winsock控件默认协议是TCP。注意:虽然可以在运行时设置协议,但必须在连接未建立或断开连接后。 SocketHandle属性 返回当前socket连接的句柄,这是只读属性。 RemoteHostIP属性 属性返回远程计算机的IP地址。在客户端,当使用了控件的Connect方法后,远程计算机的IP地址就赋给了RemoteHostIP属性,而在服务器端,当ConnectRequest事件后,远程计算机(客户端)的IP地址就赋给了这个属性。如果使用的是UDP协议那么当DataArrival事件后,发送UDP报文的计算机的IP才赋给了这个属性。 ByteReceived属性 返回当前接收缓冲区中的字节数 State属性 返回WinSock控件当前的状态 常数 值 描述 sckClosed 0 缺省值,关闭。 SckOpen 1 打开。 SckListening 2 侦听 sckConnectionPending 3 连接挂起 sckResolvingHost 4 识别主机。 sckHostResolved 5 已识别主机 sckConnecting 6 正在连接。 sckConnected 7 已连接。 sckClosing 8 同级人员正在关闭连接。 sckError 9   错误 2.WinSock主要方法 Listen方法 方法用于服务器程序,等待客户访问。格式:Winsock对象.listen Connect方法 用于向远程主机发出连接请求。格式:Winsock对象.connect [远程主机IP,远程端口] Accept方法 用于接受一个连接请求。格式:Winsock对象.accept Request ID Senddata方法 用于发送数据。格式:Winsock对象.senddata 数据 Getdata方法 用来取得接收到的数据。格式:Winsock对象.getdata 变量 [,数据类型 [,最大长度]] Close方法 关闭当前连接。格式:Winsock对象.close Bind方法 用Bind方法可以把一个端口号固定为本控件使用,使得别的应用程序不能再使用这个端口。 Listen方法Listen方法只在使用TCP协议时有用。它将应用程序置于监听检测状态。 Connect方法 当本地计算机希望和远程计算机建立连接时,就可以调用Connect方法。Connect方法调用的规范为:Connect RemoteHost,RemotePort Accept方法 当服务器接收到客户端的连接请求后,服务器有权决定是否接受客户端的请求。 SendData方法当连接建立后,要发送数据就可以调用SendData方法,该方法只有一个参数,就是要发送的数据。 GetData方法 当本地计算机接收到远程计算机的数据时,数据存放在缓冲区中,要从缓冲区中取出数据,可以使用GetData方法。GetData方法调用规范如下:GetData

2012-07-18

RegEx TestBed

学习正则表达式的最好方法是从例子开始,理解例子之后再自己对例子进行修改,实验。下面给出了不少简单的例子,并对它们作了详细的说明。

2012-04-27

Intel英特尔 14.42.12.5390版

Intel英特尔B43/G41/G43/G45/Q43/Q45系列芯片组和英特尔4移动芯片组显示驱动14.42.12.5390版For WinXP-32/XP-64(2011年11月29日发布) 当大家都在关注核芯显卡性能能到底如何的时候,似乎很少再有人关注以4系芯片组为代表的主板芯片组显卡了,不过日前Intel还是发布了4系芯片组显卡的新版驱动,而且是支持XP系统的。

2012-02-08

Intel英特尔芯片组Intel Chipset Device Software驱动9.3.0.1019版

Intel英特尔芯片组Intel Chipset Device Software驱动9.3.0.1019版For WinXP-32/WinXP-64/Vista-32/Vista-64/Win7-32/Win7-64(2012年1月30日发布) Intel的芯片组主要解决主板芯片组的PCI和USB驱动安装问题,不包含主板集成显卡驱动。另外,有许多用户反映Intel芯片组驱动存在各种各样的安装问题,比如:某些用户安装Intel芯片组驱动时,安装界面一闪而过,没有进行实质安装。其实这并不是Intel芯片组驱动有问题,而是Intel驱动的安装程序会对你的主板硬件配置进行判断,看你所用的硬件是否需要安装驱动,如果需要就会进行安装,如果不需要就一闪而过。举例来说:如果你的主板采用的是Intel早期的芯片组型号,而且安装了最新的Win7系统,那Intel芯片组的安装程序就会判断你的主板用Win7自带驱动已经完全够用,不再需要安装额外的驱动程序,这样就会出现那种安装时一闪而过的情况。 虽然之前已经泄露了9.3.0.1019版,但近日Intel还是正式发布了芯片组驱动9.3.0.1019版,推荐Intel芯片组主板用户下载使用。

2012-02-07

OLEACC.Dll winxp 64bit

OLEACC.Dll for winxp 64bit. Windows system dll

2012-02-07

intel显卡驱动

Intel英特尔Core i3/Core i5/Core i7系列CPU显示驱动14.46.9.5394版For XP-64(2012年1月11日发布)

2012-01-20

intel主板程序

Intel英特尔芯片组Intel Chipset Device Software驱动9.3.0.1019版For WinXP-32/WinXP-64/Vista-32/Vista-64/Win7-32/Win7-64(2011年12月23日发布) Intel的芯片组驱动。主要用来更新PCI和USB设备的驱动,不包含集成显卡驱动。当PCI和USB设备工作不正常时,可以尝试更新芯片组驱动解决问题。 本次9.3.0.1019版本为网上泄露版本,并非Intel官方发布,但是驱动通过了WHQL认证。如果有网友有兴趣,可以下载试

2012-01-20

WinIO v3.0 资源文件以及VB6和C#实例

本资源包括: 1. 最新版的WinIO(v3.0). WinIo32.dll, WinIo32.sys, WinIO64.dll, WinIO64.sys. 2. DumpPort.exe和DumpPhys.exe实例. 3. C#调用源码. 4. VB6调用源码. 5. Help文件,所有函数讲解. 此版支持64位系统, 但不再支持Win9x. 关于WinIO v3.0: The WinIo library allows 32-bit and 64-bit Windows applications to directly access I/O ports and physical memory. Version 3.0 offers the following features: Supports 32-bit and 64-bit platforms (Itanium excluded). WinIo can now be used by multiple applications concurrently. New C# samples. Bug fixes in this version: Fixed a bug that prevented accessing physical memory above 2GB. Fixed a bug that led to the WinIo driver getting uninstalled when calling ShutdownWinIo if the driver was set to load during boot with InstallWinIoDriver. Note: Support for Windows 9x/ME has been removed. If you need to support these operating systems, please use WinIo v2.

2011-05-13

Win7 Master音量控制类 For VB6

使用Core Audio APIs控制Win7系统Master音量. 可以得到当前系统音量值,静音等. Win7有效. (VB6) This sample application uses the Core Audio APIs to change the volume of the device, specified by the user.

2011-05-07

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除