- 博客(20)
- 资源 (10)
- 收藏
- 关注
RSS订阅转载 （C# ASP.NET）MD5加密算法
调用.net的对象那个，没什么难的，主要是实用。我给做成了个类，顺便复制了遍改了下变成SHA1的……using System.Web.Security;/// ///对字符串使用哈希算法（MD5或SHA1）进行加密。/// public class encrypt{ /// /// 构造函数 /// public encrypt() { }
2014-01-08 17:32:20
582
原创 相册用缩略图生成类（C#，ASP.NET），自适应图像比例。
是这几年前一个相册代码里翻出来的，我惊呆了还曾经编过这样的东西，可能比我现在的代码写得要好。虽然有完整的注释，我一时间都没看明白，更别提当初是怎么编的它。自己的代码尚且如此。还是说，有时候代码是不是自己都无所谓……using System;using System.Collections.Generic;using System.Linq;using System.Web
2014-01-07 22:04:24
955
原创 自己写的个C#（ASP.NET）连接SQL数据库执行查询和修改操作的类
这是今天花了一下时间编写的一个ASP.NET（C# ，Framework3.5）连接SQL数据库，执行SQL语句和获取查询返回数据集的类。写完后自己感觉，肯定这东西状态还很原始，很多高端的需求还应对不上。目前能做的恐怕还只是基本操作，而且实现的还不一定怎么好。不管怎样，先放上来再说，以后慢慢改。using System;using System.Collections.G
2014-01-07 18:34:58
3863
转载 [C++]回调系统关机对话框
只是想图个方便，或者好看，做一个跟“开始”菜单上关机一样的按扭，打开系统的关机对话框。于是从网上找了找现成的代码，然后自己改了改，有了这个。为了不显示出窗体，我把控制台的窗口也给隐藏了。VS2010建立的入口点不是main()，因为必须为这个我才改的。原来的是_tmain()吧，有点记不清了。回调函数则始终我是一知半解。//隐藏控制台窗口1#pragma comment(
2013-03-03 15:30:03
926
原创 [C#]从外部文件引入字体文件并显示到控件
看来我对字体方面的了解还是不够多啊。从网上找了段代码，本以为拷里头就完事呢，结果发现到加载字体文件都没问题，这些我在VB6时代都干过。但是当我打算把该字体应用到程序时，却自动变回了系统默认字体。这表示我没有给予正确的参数。好吧我承认我不知道那应该是什么！………………好吧，从网上找来的代码永远是那么的不靠谱！经我仔细的思索，我认为他把从文件加载的字体名称代入到建立字体对象
2013-03-03 14:36:31
2901
转载 VC6【MFC】代码累积（二）窗体透明
首先是两段代码： 窗体透明1 - 全部窗体按一定比例透明1)适用于2000,XP 在对话框类定义中添加为新的方法: BOOL SetTransparent(HWND hWnd, int LayerN);BOOL CWinDlgLayer2Dlg::SetTransparent(HWND hWnd, int LayerN){
2008-09-06 21:33:00
2439
原创 VC6【MFC】代码累积（一）
● 定时器(消息处理)OnCreate消息处理中加入: SetTimer(1,1000,NULL);OnTimer消息处理中加入: InvalidateRect(NULL, TRUE); UpdateWindow();● 双缓冲加入OnDraw()消息处理的代码// 最初的一段不使用双缓冲的代码
2008-09-06 21:29:00
884
原创 为了关闭SQL2005占几百M内存的服务,编的这个.
cd/cls@echo off@Echo ---------------------------------------------------@echo 关闭SQL服务节省内存，下次启动时服务还是会自动运行。@Echo ---------------------------------------------------@echo 正在关闭服务: [SQL Server (SQLEXPR
2007-09-20 14:50:00
955
原创 C#[添加/消除]自启动项源代码
using Microsoft.Win32;// 检查一个自启动键是否存在.private bool IsValueExist(string KeyValue){ RegistryKey hklm = Registry.LocalMachine; RegistryKey run = hklm.CreateSubKey(@"SOFTWAREMicrosoftWindowsCur
2007-08-21 12:33:00
1033
原创 用VB6操纵Excel文档执行操作
通过VBA操纵Excel很容易，其实可以实现任何Excel里的操作。 Dim ex As Object Dim exwbook As Object Create file Set ex = CreateObject("Excel.Application") Set exwbook = ex.Workbooks().Add Open file
2007-05-01 13:38:00
5124
2
原创 140网页配色测试页V3.4（最终版）源码
这是最后一版了，今后不再更新了。相对旧版本： 加宽了网页显示。这个工具起源于多年前，当时网页还是800px的窄版式，于是扩宽。增加了反转色查询。方便于使用对比色配色。效果浏览做了标签页切换，页面长度大大减小。 140网页预定义色 配色测试页V3.4 【宽版】<!--//本程序内置了140种系统预定义色彩值var color_name=new
2006-12-04 18:04:00
1273
原创 网页加密WEB页代码
网页加密function encrypt(){ // 加密 var SourceCode; SourceCode=document.F1.S1.value; //alert(SourceCode); if(SourceCode=="") { alert("没有可以加密的代码！[原始代码]框中没有内容。"); return; } document.F1.S2.value=
2006-12-04 17:53:00
1850
原创 初涉VB.NET入门级代码积累
[代码1]说明：这就是取消关闭的事件，执行对窗体退出方面的控制。其中没见过的只有Dispose()这个方法，MSDN里看到是释放某托管对象的应用，还不了解。日后懂了再记录于此。 Protected Overloads Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs) e
2006-12-04 17:45:00
1560
原创 屏幕右下角浮出式小消息窗口，透明式消失
任务栏高度[此部分相关代码转载自 枕善居]Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Lo
2006-05-13 14:52:00
1840
原创 拉幕效果出现的窗体
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Lon
2006-05-11 12:39:00
1062
原创 让图片适应屏幕大小[原创代码]
**************************************** 功能：让图片适应屏幕大小 名称：AdaptScrn() 参数：Px,Py 图像宽高 返回：Px,Py 注意是地址传递 **************************************** Public Sub AdaptScrn(ByRef Px, ByRef Py) Dim x, y As
2005-12-28 00:33:00
2500
原创 MAZE(C Language)
#include #include #include #include #define ESC 0x1b #define UP 0x48 #define DOWN 0x50 #define LEFT 0x4b #define RIGHT 0x4d void maze(int x,int y,int style); void draw(void); int specialkey(void); voi
2005-12-28 00:25:00
1526
原创 [原创]生成几种WEB图形字体对照表
Private Sub Form_Load() Dim str(10) As String str(1) = "webdings" str(2) = "Wingdings" str(3) = "Wingdings 2" str(4) = "Wingdings 3" Open "c:/ImageChar.htm" For Output As #1 -------------------------
2005-12-20 22:39:00
1007
原创 [原创]一个取系统驱动器名称的类模块
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As LongPrivate Declare Function GetDriveType Lib
2005-12-17 13:52:00
1049
原创 [原创]VB程序 - 处理字符和文件名称的代码模块
*************************************************************************名称：GetRowNum()说明：获取指定字符串中内容有多少列调用格式：GetRowNum("Source String"[,"Mark char"])参数： SStr - 源字串 [MarkS] - 字符型，可选，默认为","，
2005-12-17 13:35:00
1588
Div＋CSS建站 基础例程
2008-12-03
The MD5 Message-Digest Algorithm
2008-09-06
桌面时钟源代码
2007-11-21
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人