yeuego
- 浏览: 167825 次
- 性别:
- 来自: 广州
-
最新评论
-
xiangyufangai：
很好很强大膜拜中哈哈！！
VB 两个字符串处理函数(类似Left/Mid/Right/Split的结合) -
hellohank：
这个……叫摘要算法，不叫加密算法~
Java实现的加密工具类（支持MD5和SHA） -
NIUCH1029291561：
接口有问题奥
网银在线支付接口和应用 -
yeuego：
能幫你就行了
MySQL索引分析 -
ForgiDaved：
很给力的介绍。记得前段时间给一个系统加功能，设计的表没有 ...
MySQL索引分析
文章列表
最近关注项目中在线支付,所以看一下文档,在线支付应用开发:
基本所有的在线支付均采用以下方式:
客户点击结帐时将关于訂單的信息和货币信息,相应的信息ＵＲＬ,经过ｍｄ５或其他方式发送(可能Ｓｏｃｋｅｔ和Ｈｔｔｐ或Ｈｔｔｐｓ)支付平台(块钱,ｐａｙｐａｌ或支付宝等),支付平臺处理完毕时根据相应ＵＲＬ,返回相关的信息(付款信息,訂單信息,验证信息).
在实际操作Money的问题人们一向关注他的安全性等问题,同时本人习惯在通过http方式访问非外网时采用Commons-httpclient的ｐｏｓｔ发送实现,简单方便,所以采用此种实现:具体看以下ＡＰＩ和原代码:
网银在线支付 ...
Facebook 的照片分享很受欢迎，迄今，Facebook 用户已经上传了150亿张照片，加上缩略图，总容量超过1.5PB，而每周新增的照片为2亿2000万张，约25TB，高峰期，Facebook 每秒处理55万张照片，这些数字让如何管理这些数据成为一个巨大的挑战。本文由 Facebook 工程师撰写，讲述了他们是如何管理这些照片的。
旧的 NFS 照片架构
老的照片系统架构分以下几个层：
上传层接收用户上传的照片并保存在 NFS 存储层。
照片服务层接收 HTTP 请求并从 NFS 存储层输出照片。
NFS存储层建立在商业存储系统之上。
因为每张照片都以文件形式单 ...
package { import caurina.transitions.Tweener; import flash.display.Bitmap; import flash.display.BitmapData; import flash.display.BlendMode; import flash.display.Sprite; import flash.events.Event; import flash.events.KeyboardEvent; import flash. ...
欢饮大家来到Dragon的工作室，这是我第一次发表经验，有不对的地方请大家包含包含，呵呵。
进入正题吧》》》
*申明：教程中用到的3D引擎Alternativa均以非盈利教学为目的，不得用于任何商业用途。如要购买正版请访问官网 ...
最近做的一个项目中需要用到 3D，所以粗略的学习了一些目前Flash常用的3D engine。小有心得，和大家分享下。希望能给各位在选择3D engine时有所帮助。
papervision3d : 算是最老牌最流行的3d引擎了，as2时代就有。性能算是十分的不错(DEMO)，支持 ASE 和 DAE 格式的3d模型，其中 DAE 格式的贴图支持得非常的不错。支持的材质方式十分之多，几乎我们所能想到的方式基本都有。但是相对来说，模型却不多，而且Camera也不是很好用，没有默认的控制器。并且我发现他最近更新不快，很多功能没有陆续增加，实在是可惜。如果你需要做一个需要高性能，不需要动态灯光 ...
Imports System.Runtime.InteropServicesImports System.ReflectionImports System.ComponentModel'Imports System.Runtime.InteropServicesPublic Class Form1 Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed My.Settings.Save() If p.StartInfo. ...
程序思想:用Select name From sysobjects Where xtype = 'u'得到所有表，然后循环打开表，根据 Rs_Colums.Fields(I).Name 得到字段名， FieldType(Rs_Colums.Fields(I).Type) 得到字段类型， Rs_Colums.Fields(I).DefinedSize 宽度 由于Rs_Colums.Fields(I).Type返回类型是数字，程序中写了一个FieldType函数转化成中文类型。
Private Sub Command1_Click() Dim Cn As New ADODB.Connec ...
本博客有一篇类似的文章《VB 中运用 TimeSetEvent 代替 Timer 控件》与这篇不同。本篇展示了另外两种方法，具体如下文所示。方法1： 用这个类可以替代VB自带的Timer控件，这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveX exe中用来分离系统控制权，用Timer的好处是避免控制权死锁，这样也就模拟出了多线程(实际上是多进程)，能给用户更好的体验。代码如下：标准模块(mTimer.bas)
Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32.dll&q ...
'按钮一是音量增加,按钮二是音量减少,按钮三是静音切换.Option ExplicitPrivate Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, _ByVal lParam As Long) As LongPrivate Const WM_APPCOMMAND As Long = &H319Private Const AP ...
我们都知道在VB中TextBox默认是没有双击消息过程的(也就是双击事件,单击事件是有的.)，那么看看本文是怎么实现TextBox双击消息的吧。
Option ExplicitPublic Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPublic Declare Function SetWindowLong Lib "user32" Alia ...
Option ExplicitPrivate Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As LongConst SM_CXSCREEN = 0Const SM_CYSCREEN = 1Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iM ...
Public Function ToExcel()On Error GoTo ErrorHandler Dim exlapp As Excel.ApplicationDim exlbook As Excel.WorkbookSet exlapp = CreateObject("Excel.Application")Set exlbook = exlapp.Workbooks.Addexlapp.Caption = "数据正在导出......"exlapp.Visible = Trueexlapp.DisplayAlerts = FalseDim ex ...
Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As LongSub Command1_Click()Dim lReturn As Long'添加到桌面lReturn = fCreateShellLink("..\..\Desktop&q ...
'此方法不需要引用IShellLink.Private Type FILETIMEdwLowDateTime As LongdwHighDateTime As LongEnd TypePrivate Type LNKHEADdwID As LongdwGUID(3) As LongdwFlags As LongdwFileAttributes As LongdwCreationTime As FILETIMEdwModificationTime As FILETIMEdwLastaccessTime As FILETIMEdwFileLen As LongdwIconNum As Long ...
Public Function chrConvert(strInput As String, Method As Integer) As String ' Method = 0 for Text to vbChr ' Method = 1 for Text to HTML ' Method = 2 for Text to Hex ' Method = 3 for vbChr to Text ' Method = 4 for HTML to Text ' Method = 5 for Hex to Text If Method = 0 Or Method = 1 Or Method = 2 ...