neok-优快云博客

创建窗体 ... 1. WM_GETMINMAXINFO 2. WM_NCCREATE 3. WM_NCCALCSIZE 4. WM_CREATE 创建完毕. 显示窗体 ... 1. WM_SHOWWINDOW 2. WM_WINDOWPOSCHANGING 3. WM_WINDOWPOSCHANGING 4. WM_ACTIVATEAPP 5. WM_N

2010-08-09 14:10:00 743

转载 ASP最基本的加解密函数

<%function decrypt(dcode) dim texts dim i for i=1 to len(dcode) texts=texts & chr(asc(mid(dcode,i,2))-i) next decrypt=texts end function function encrypt(ecode) dim texts

2010-03-03 14:48:00 939

转载 ASP中Base64加、解密函数

<% OPTION EXPLICIT const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" dim nl zero based arrays dim Base64EncMap(63) d

2010-03-03 14:46:00 2003

转载 ASP中MD5加密代码

<%Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30) Private Function LShift(lValue, iShiftBit

2010-03-03 14:44:00 773

转载有趣的题目“求N个人中，有至少2个人同一生日的概率”

假如N人中没有2人的生日相同的，按照排列组合原理，这N人的生日共有多少种组合呢？应该有366*365*364……..*(366-N)种组合(A)。假如N人中可能有2人或2人以上的生日相同的，按照排列组合原理，这N人的生日共有多少种组合呢？应该有366的N次方(B)。因此N人中没有2人生日相同的概率是A/B，至少有2人生日相同的概率是1-A/B。用Excel计算，A = PERMUT(3

2010-01-13 21:44:00 6446

原创 WinForm窗体美化基础（一）

发帖子的时候不能用图片，不方便哦。要看可以上我的QQ空间看吧，等这能发图了，我再补充完整。 http://user.qzone.qq.com/116422531/infocenter?ptlang=2052 我的QQ：116422531 /***********************************/ WinForm的窗体美化，可以用第三方提供

2009-10-23 23:30:00 11770 6

原创 C#WinForm窗体事件执行次序（较完整版）

一、以下是网络上可搜索到的次序当 Windows Form 应用程序启动时，会以下列顺序引发主要表单的启动事件： System.Windows.Forms.Control.HandleCreated System.Windows.Forms.Control.BindingContextChanged System.Windows.Forms.Fo

2009-09-29 11:06:00 18219

原创 C#遍历目录

using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;namesp

2009-09-28 09:28:00 1143

原创 C#对指定的文件调用RAR进行压缩保存

using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;// using System.Linq;using System.Text;using System.Windows.Forms;nam

2009-09-24 23:04:00 711

原创 VB遍历当前目录

Option ExplicitDim FSO As New FileSystemObjectDim currentFolder As FolderDim currentFolderName As StringDim folderItem, fileItemPrivate Sub Form_Load() currentFolderName = FSO

2009-09-11 15:37:00 850

原创破解一种光盘加密技术

现在，光盘可以通过加密，防止用户copy，通常方法是在光盘上标记一个坏道的信息，防止拷贝。而实际上，文件并不是直接加密的，通过一定方法后，还是直接可以看到原始文件。 1、这是一种数据光盘，经过加密后，就看不到具体的文件夹了，只能看到最外面的autorun文件。2、那么，怎样可以查看光盘中的具体文件呢？可以通过以下的方法：要用到的软件有Nero，或直接使用IsoB

2009-09-01 09:00:00 1160

原创 Flash8中画圆函数（圆和椭圆）

import flash.geom.Point;function DrawCircle (target:MovieClip, fromPoint:Point, endPoint:Point, circleType:String):Void { /********************* * target:目标影片剪辑 * fromPoint: 开始点（虚拟圆的圆心）

2009-08-15 09:50:00 1749

原创 Flash8中画线函数（实线、虚线、波浪线）

注：波浪线的实现是利用正弦函数使用方法：DrawLine(目标影片剪辑,线的开始点,线的结束点,线的样式)var p1:Point = new Point(100,100);var p2:Point = new Point(300,300);DrawLine(mc1,p1,p2,"虚线") import flash.geom.Point;function DrawLin

2009-08-15 09:45:00 3499

原创 Flash8帮助中一个加载外部图片的例子（有进度条）

// 创建剪辑来承载您的内容this.createEmptyMovieClip ("progressBar_mc", 0);progressBar_mc.createEmptyMovieClip ("bar_mc", 1);progressBar_mc.createEmptyMovieClip ("stroke_mc", 2);progressBar_mc.createTextFi

2009-08-05 09:42:00 1089

转载 Flash中用AS实现画虚线

import flash.geom.ColorTransform;import flash.geom.Transform;function DrawDotLine (target:MovieClip, lineWidth:Number, lineColor:Number, lineAlpha:Number, fromX:Number, fromY:Number, endX:Number,

2009-07-25 10:07:00 1923

原创 vb利用FindWindow，GetWindowText，SendMessage查找程序并发送最小化消息

查找运行的窗体Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetWindowText Lib "user32"

2009-06-26 14:05:00 7835

原创迅雷去广告的方法探讨

今天安装了迅雷Thunder5.9.2.927，修改了下配置文件，去除了上面的广告。方法很直接，修改迅雷的配置文件ThunderUI.xml文件如果你是默认安装，拷贝下面的xml文件件覆盖原来的ThunderUI.xml文件即可，当然，最好是先备份原有的ThunderUI.xml文件注意：这里的去除并不是删除，而只是让本来应该显示的位置显示的高度或者宽度为0了，形成一种类似去除的样式，

2009-06-19 23:52:00 2864

原创 C#利用委托实现窗体间的值传递

A、网上有很多方法，大家可搜一下，都可用。B、这里只是说明下是只利用委托，学习基本的委托运用。方法如下：1、C#建立一个默认工程，默认窗体Form12、加入一个新窗体，默认Form23、Form1窗体上放一个Label，一个Button，属性分别为：this.label1.Text = ""; // 清空label的值this.button1.Text="otherFo

2009-06-17 12:45:00 1950 2

原创 Flash 8 中MovieClipLoader来监视下载

mc_Loader._lockroot = true;var loadListener:Object = new Object ();loadListener.onLoadError = function (target_mc:MovieClip, errorCode:String, httpStatus:Number) { trace ("errorCode: " + errorCode); t

2009-04-28 13:54:00 661

原创 Flash8自定义右键菜单

menu.XML文件内容 Flash AS文件内容/***************************************************************************/// 系统右键菜单项目// 环境：Flash 8 Professional// 时间：2009-2-18// 程序：Neok/****************

2009-04-17 13:12:00 700

原创 Flash中模拟创建系统颜色样本（颜色拾取器）

Flash AS2.0/1.0 codes1、在Falsh中建立一个按钮2、拷贝以下代码到按钮的on(release)事件中，或者在根时间轴上使用 btn_createColorTable.onRelease = function():Void { // 模拟的类似Flash内置的颜色样本表格 // 颜色样本的表格为12行*18列的表

2008-10-20 23:22:00 1100

原创 C#截屏并发送到邮箱

namespace CaptureScreen{ static class Program { /// /// The main entry point for the application. /// //[STAThread] static void Main(

2008-08-06 15:25:00 930

原创 XML文件的简单读，写，创建

1、删除指定文件myconf.xml中节点=adfs的节点 XmlDocument xmldoc = new XmlDocument(); xmldoc.Load(@" PRE using System;using System.Collections.Generic;using System.Linq;using System.Text;

2008-07-21 11:57:00 601

原创 H323配置/SIP消息中英文对照

// SIP消息对应解析表SIP软交换是遵照标准SIP协议的消息定义：1xx = 通知性应答100 正在尝试 180 正在拨打 181 正被转接 182 正在排队 183 通话进展 2xx = 成功应答200 OK 202 被接受：用于转介 3xx = 转接应答300 多项选择 301 被永久迁移 302 被暂时迁移 305 使用代理服务

2008-06-24 09:46:00 1800

原创 C#的简单的邮件发送和接收

using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Net.Sockets; using System.IO; using System.Net; namespace ConsoleApplication1{ c

2008-06-04 11:56:00 1025

转载升级linux内核到2.6.24

转载地址：http://blog.chinaunix.net/u1/48994/showart_487632.html以下为正文序言由于开发环境需要在linux-2.6内核上进行，于是准备对我的虚拟机上的Linux系统升级。没想到这一弄就花了两天时间(反复装系统，辛苦啊~~)，总算把Linux系统从2.4.20-8内核成功升级到了2.6.24内核。网上虽然有很多介绍Linux内核升

2008-04-28 13:49:00 664

转载 QQ消息的重复发送VBS

Set WshShell= WScript.CreateObject("WScript.Shell")WshShell.AppActivate ""for i=1 to 10WScript.Sleep 500WshShell.SendKeys "^v"WshShell.SendKeys iWshShell.SendKeys "%s"next 把以上代码保存为vbs文件.复制需要重复发送

2008-04-10 08:56:00 43534 14

原创 Flash实现图片浏览功能

for (var i:Number = 1; i5; i++) ...{ _root.createEmptyMovieClip("mc"+i, _root.getNextHighestDepth()); mcSize(this["mc"+i], i);}function mcSize(obj, num) ...{ obj._xscale *= 0.1; obj._ysc

2008-04-10 08:44:00 1349

原创 C#中SystemColors的属性

名称说明 ActiveBorder 获取 Color 结构，它是活动窗口边框的颜色。

2008-03-26 10:47:00 7306

原创 MSDN提供的颜色表

http://msdn2.microsoft.com/zh-cn/library/ms653064.ART_color_table(zh-cn,VS.90).png

2008-03-26 10:42:00 2141

原创 C#获取图片的指定部分

/**//// /// http://www.cnblogs.com/KissKnife/archive/2007/10/13/923352.html /// 获取图片指定部分 /// /// 图片路径 /// 目标图片开始绘制处的坐标X值(通常为0) /// 目标图片开始绘制处的坐标Y值(

2008-01-31 16:55:00 4517

原创 C#增加任务栏系统右键菜单项目

给窗体的任务栏右键菜单增加项目 using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;us

2008-01-31 16:50:00 4132

原创 C#无边框窗体在任务栏右键菜单

在建立C#的无边框窗体的时候，在任务栏上点击窗体的时候，无法显示系统的右键菜单。由于是C#隐藏掉了系统的右键菜单，使用以下代码显示出来就可以了。不过存在一个问题是，最大化的时候会把任务栏也覆盖掉，界面占满整个屏幕1、在Class里面加入 using System;using System.Collections.Generic;using System.Linq;using S

2008-01-31 16:45:00 3402 1

原创 asp读4

%示例：ASP连接Access数据库，无密码连接DBPath=Server.MapPath("myData.mdb") 数据库存放路径Strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & DBPath 连接字符串Set conn = Server.CreateObject("ADODB.Connection")

2008-01-22 09:47:00 2330

原创 asp写access

%提交留言Dim user,ip,writetime,info,otheruser=Request("user")info=Request("info")other=Request("other")If ip="" then ip=Request.ServerVariables("REMOTE_ADDR")writetime=now()DBPath=Server.MapPath("myDa

2008-01-22 09:47:00 1377

原创 asp读3

%示例：ASP连接Access数据库，无密码连接DBPath=Server.MapPath("myData.mdb") 数据库存放路径Strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & DBPath 连接字符串Set conn = Server.CreateObject("ADODB.Connection")

2008-01-22 09:46:00 1332

原创 ASP操作access数据库

...示例：ASP连接Access数据库，无密码连接DBPath=Server.MapPath("myData.mdb") 数据库存放路径Strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & DBPath 连接字符串Set conn = Server.CreateObject("ADODB.Connection"

2008-01-22 09:45:00 2482

原创 ASP留言的access数据库操作

%Response.Write("*************************"&"")Response.Write("Neok的ASP程序的第一个测试"&"")Response.Write("*************************"&"")示例：ASP连接Access数据库，无密码连接DBPath=Server.MapPath("myData.mdb") 数据库存

2008-01-22 09:41:00 1647 1

原创 vb读取保存txt文件

Option ExplicitPrivate Sub Write_Click() 读取On Error GoTo ErrHandler Form1.CommonDialog1.ShowOpen Dim OpenFile, MyString As String OpenFile = CommonDialog1.FileName Open OpenFile

2008-01-22 09:28:00 8149 1

一个C#窗体美化的程序

Flash8中几种画图工具

Flash时钟的原文件

空空如也