问渠那得清如许，为有源头活水来

Option ExplicitPrivate Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Long) As LongPrivate Const CF_BITMAP = 2Private Declare Function URLDownloadToFile Lib "url

编码代码是在原来别人写的一段代码改的 加密进输入的字节，所以就可以加密二制文件等，返回的是一Ba64的字符串  Function  B64E(inData()  As  Byte)  As  String         On  Error  Resume  Next         Const  Base64  =  "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijk

Private  Sub  Command1_Click()   Dim  vDoc,  vTag,  coll         Dim  i  As  Integer         Dim  j  As  Integer         Set  vDoc  =  ie.Document         Dim  mstrcell  As  String         Set  coll  

Option  Explicit  Private  Type  ControlSize         name  As  String                    控件名称         x  As  Single                          左边距比例         y  As  Single                          右边距

没事干就写了一个灌水工具！源码如下：form1:VERSION 5.00Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"Begin VB.Form frmMain    BorderStyle     =   1  Fixed Single   Caption         =   "水王一号