幻影时空-CSDN博客

原创我与淘宝开放平台的开发历程

我来自南京，TOP开发历程是从阿里软件开放平台转移过来。先来说说如何接触淘宝与开发起点的历程吧。也许是起得早，但却赶了一个晚集。在2003年10月，通过淘宝在各大网站弹窗广告引向淘宝网站，虽当时只是普通买家身份注册帐号了解淘宝，但此对淘宝的映像还是很深刻的。接着在经过在几年的学业之后，07年7月不想自己仅限于工作范围之中，希望能寻找创造自己的路，所以在寻找创意灵感需求曾与一些卖家朋友交流，望能

2009-12-27 13:45:00 934

转载无边框窗体改变大小并移动位置

共享模块Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Lon

2009-04-16 19:02:00 666

转载 VB6 采用SOAP协议进行提交/返回数据

新建 VB6 项目工程引用 Microsoft XML , 添加CommandButton命名为cmdRequest ，添加 TextBox 命名为 txtResponseHeaders，添加 TextBox 命名为 txtResponse---------------------------------------------------------- Option ExplicitPriv

2009-04-16 18:56:00 1120

原创 VB6 Webbrowser控件中新窗体对应的拦截

如下代码:Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 Private Sub Form_Load()Set Web_V1 = WebBrowser1.Object WebBrowser1.Navigate App.Path & "/login.htm" WebBrowser1.Naviga

2009-04-16 18:54:00 932

原创 VB中DoEvents的注意事项

对与再大循环里加入 DoEvents却是可以使应用程序响应其他程序，但是 DoEvents 也会很大程度上影响循环的速度，所以一般情况我这样用 If GetInputState Then DoEvents虽然多了个判断语句，但速度上确快了很多比较以下代码代码就知道了速度的差别Private Declare Function GetInputState Lib "user32" ()

2009-04-16 18:34:00 992

转载 vb底层开发之Hook(钩子)

原帖地址：http://hi.baidu.com/starwork/blog/item/6d989ed3b2cb2c35960a1638.htmlhook是WINDOWS提供的一种消息处理机制，它使得程序员可以使用子过程来监视系统消息，并在消息到达目标过程前得到处理。下面将介绍WINNDOWS HOOKS并且说明如何在WINDOWS 程序中使用它。关于HOOKS 使用HOOK 将会降低

2009-04-16 18:30:00 1188

原创 VB6, ASP 通用的用Jmail组件发送邮件

函数名: SendMail作用：用Jmail组件发送邮件参数： MailtoAddress -----收信人信箱 Subject -----主题 MailBody -----信件内容 MailFrom -----发信人信箱 MailServerUser -----登陆邮箱用户名 MailServerPass -----登陆邮箱密码 MailServer -----发件SM

2009-04-16 18:26:00 727

原创 VB6 DataReport打印自定义纸张

在修改报表打印的纸张大小时可选方案！Private Sub DataReport_Initialize() With Me .Orientation = rptOrientPortrait　报表纵向打印 .ReportWidth = 14 * 567 宽度　567 = 1cm　　这儿还是报错的话可以设置成13.9 * 567 .L

2009-04-16 18:23:00 1706

原创重新开始启用写BLOG了

在 blog 开通一来却停留于未写blog的状态~~ 曾经写了些，但由于后来的时间关系都没有长期的坚持下来！最近想把以前收集的和自己写的一些程序的代码与大家进行共同分享~~希望以后能习惯性每周来增加些文档！更希望能跟大家一起交流，相互补进！

2009-04-16 18:17:00 549

转载 VB6 创建RAS "宽带连接" 代码

一段基于RAS 拨号创建拨号连接的代码[VB6]创建"宽带连接"源码Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Type GUID Data1 As Lon

2009-04-16 18:14:00 1104 1

原创自定UrlToCode函数

把URL中的中文转换成代码Function UrlHtml(TextStr)LenNum = Len(TextStr) For i = 1 To LenNum if Asc(Mid(TextStr, i, 1))>127 Or Asc(Mid(TextStr, i, 1)) TempStr = Hex(Asc(Mid(TextStr, i, 1))) If L

2004-12-24 10:49:00 864

原创用文件大小获取单位的函数[asp]

function cSize(tSize) if tSize>=1073741824 then cSize=int((tSize/1073741824)*1000)/1000 & " GB" elseif tSize>=1048576 then cSize=int((tSize/1048576)*1000)/1000 & " MB" elseif tSize>=1024

2004-09-20 10:05:00 808

VisionSpace的专栏