- 博客(73)
- 资源 (3)
- 收藏
- 关注
转载 建立窗体时响应的窗体消息
<br />创建窗体 ...<br />1. WM_GETMINMAXINFO <br />2. WM_NCCREATE <br />3. WM_NCCALCSIZE <br />4. WM_CREATE <br />创建完毕. <br /> <br />显示窗体 ...<br />1. WM_SHOWWINDOW <br />2. WM_WINDOWPOSCHANGING <br />3. WM_WINDOWPOSCHANGING <br />4. WM_ACTIVATEAPP <br />5. WM_N
2010-08-09 14:10:00
710
转载 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
872
转载 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
1962
转载 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
740
转载 有趣的题目“求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
6265
原创 WinForm窗体美化基础(一)
发帖子的时候不能用图片,不方便哦。要看可以上我的QQ空间看吧,等这能发图了,我再补充完整。 http://user.qzone.qq.com/116422531/infocenter?ptlang=2052 我的QQ:116422531 /***********************************/ WinForm的窗体美化,可以用第三方提供
2009-10-23 23:30:00
11713
7
原创 C#WinForm窗体事件执行次序(较完整版)
一、以下是网络上可搜索到的次序 当 Windows Form 应用程序启动时,会以下列顺序引发主要表单的启动事件: System.Windows.Forms.Control.HandleCreated System.Windows.Forms.Control.BindingContextChanged System.Windows.Forms.Fo
2009-09-29 11:06:00
17930
2
原创 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
1104
原创 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
680
原创 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
810
原创 破解一种光盘加密技术
现在,光盘可以通过加密,防止用户copy,通常方法是在光盘上标记一个坏道的信息,防止拷贝。而实际上,文件并不是直接加密的,通过一定方法后,还是直接可以看到原始文件。 1、这是一种数据光盘,经过加密后,就看不到具体的文件夹了,只能看到最外面的autorun文件。2、那么,怎样可以查看光盘中的具体文件呢? 可以通过以下的方法: 要用到的软件有Nero,或直接使用IsoB
2009-09-01 09:00:00
1108
原创 Flash8中画圆函数(圆和椭圆)
import flash.geom.Point;function DrawCircle (target:MovieClip, fromPoint:Point, endPoint:Point, circleType:String):Void { /********************* * target:目标影片剪辑 * fromPoint: 开始点(虚拟圆的圆心)
2009-08-15 09:50:00
1692
原创 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
3362
原创 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
1055
转载 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
1863
原创 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
7741
原创 迅雷去广告的方法探讨
今天安装了迅雷Thunder5.9.2.927,修改了下配置文件,去除了上面的广告。方法很直接,修改迅雷的配置文件ThunderUI.xml文件如果你是默认安装,拷贝下面的xml文件件覆盖原来的ThunderUI.xml文件即可,当然,最好是先备份原有的ThunderUI.xml文件注意:这里的去除并不是删除,而只是让本来应该显示的位置显示的高度或者宽度为0了,形成一种类似去除的样式,
2009-06-19 23:52:00
2813
原创 C#利用委托实现窗体间的值传递
A、网上有很多方法,大家可搜一下,都可用。B、这里只是说明下是只利用委托,学习基本的委托运用。方法如下:1、C#建立一个默认工程,默认窗体Form12、加入一个新窗体,默认Form23、Form1窗体上放一个Label,一个Button,属性分别为:this.label1.Text = ""; // 清空label的值this.button1.Text="otherFo
2009-06-17 12:45:00
1864
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
630
原创 Flash8自定义右键菜单
menu.XML文件内容 Flash AS文件 内容/***************************************************************************/// 系统右键菜单项目// 环境:Flash 8 Professional// 时间:2009-2-18// 程序:Neok/****************
2009-04-17 13:12:00
677
原创 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
1074
原创 C#截屏并发送到邮箱
namespace CaptureScreen{ static class Program { /// /// The main entry point for the application. /// //[STAThread] static void Main(
2008-08-06 15:25:00
899
原创 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
564
原创 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
1742
原创 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
996
转载 升级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
645
转载 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
43333
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
1324
原创 MSDN提供的颜色表
http://msdn2.microsoft.com/zh-cn/library/ms653064.ART_color_table(zh-cn,VS.90).png
2008-03-26 10:42:00
2122
原创 C#获取图片的指定部分
/**//// /// http://www.cnblogs.com/KissKnife/archive/2007/10/13/923352.html /// 获取图片指定部分 /// /// 图片路径 /// 目标图片开始绘制处的坐标X值(通常为0) /// 目标图片开始绘制处的坐标Y值(
2008-01-31 16:55:00
4457
原创 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
4086
原创 C#无边框窗体在任务栏右键菜单
在建立C#的无边框窗体的时候,在任务栏上点击窗体的时候,无法显示系统的右键菜单。由于是C#隐藏掉了系统的右键菜单,使用以下代码显示出来就可以了。不过存在一个问题是,最大化的时候会把任务栏也覆盖掉,界面占满整个屏幕1、在Class里面加入 using System;using System.Collections.Generic;using System.Linq;using S
2008-01-31 16:45:00
3355
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
2109
原创 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
1361
原创 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
1320
原创 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
2433
原创 ASP留言的access数据库操作
%Response.Write("*************************"&"")Response.Write("Neok的ASP程序的第一个测试"&"")Response.Write("*************************"&"")示例:ASP连接Access数据库,无密码连接DBPath=Server.MapPath("myData.mdb") 数据库存
2008-01-22 09:41:00
1632
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
8095
1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人