cnhgj-CSDN博客

原创动态设置IE代理服务器，并不用重启IE

[DllImport(@"wininet", SetLastError=true, CharSet=CharSet.Auto, EntryPoint="InternetSetOption", CallingConvention=CallingConvention.StdCall)]public static extern bool InternetSetOption(int hInternet,i

2005-04-25 18:55:00 4376 3

原创复制目录

csvoid copyDirectory(string sourcePath, string destinationPath){ foreach(string filestr in System.IO.Directory.GetFiles(sourcePath)) { if (!System.IO.Directory.Exists(destinationPath)) System.IO.Di

2004-12-15 15:59:00 1316 1

原创 c#中用axWebBrowser中提交表单，或点击某个对象

dddd.htm -----------------------------------------------------------------------------------form1.csusing System;using System.Drawing;using System.Collections;using System.ComponentModel;using Syste

2004-12-14 13:36:00 3041 4

转载 c# to VB.net or Vb.net to C# 转换

http://www.developerfusion.com/utilities/convertvbtocsharp.aspx

2004-12-10 23:58:00 1057

转载 SQLServer中一个多用户自动生成编号的过程

if not exists (select * from dbo.sysobjects where id = object_id(N[IndexTable]) and OBJECTPROPERTY(id, NIsUserTable) = 1)create table IndexTable(Ex char(20), num integer)gocreate procedure Set

2004-12-10 23:57:00 1260

原创给LISTVIEW加背景图

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, commctrl, ImgList;type TForm1 = class(TForm) ListView1: TLi

2004-11-08 14:55:00 2758

原创关于网页滚动条的定位

思路很简单，就是利用cookie记录用户当前的document.all.scrollTop，然后在页面onload的时候读出cookie赋值给body.scrollTopvoid Page_load(object sender, EventArgs e){ btn.Attributes["onclick"] = "document.cookie = /"scrollTop=/" + documen

2004-11-06 20:13:00 2065 1

原创例用AdoQuery+ListView分页

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB,Grids, DBGrids, StdCtrls, ComCtrls;type TForm1 = class(TForm) Button1

2004-11-05 20:52:00 2017

原创动态创建TABLE的行与列

void btn_click(object sender, EventArgs e){ ArrayList x = new ArrayList(); if (ViewState["myList"] != null) { x = (ArrayList)ViewState["myList"]; } x.Add(DateTime.Now.ToString() + "," + DateTime.No

2004-11-04 16:24:00 1845

原创设置webBrowser编码

添加引用Microsoft.mshtmlusing mshtml;DocumentDownComplate eventobject refLevel = 7;IHTMLDocument2 m_hDoc = (IHTMLDocument2)axWebBrowser1.Document;m_hDoc.charset = "gb2312";axWebBrowser1.Refresh2(ref

2004-08-08 22:55:00 5910

原创屏蔽webBrowser右键

public delegate void DHTMLEvent(IHTMLEventObj e); public class DHTMLEventHandler { public DHTMLEvent Handler; HTMLDocument Document; public DHTMLEventHandler(HTMLDocument doc) { this.Document

2004-08-08 22:54:00 2478 1

原创枚举NT系统服务

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Winsvc, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo;

2004-08-06 18:28:00 1210

原创 UrlDecode

private void button1_Click(object sender, System.EventArgs e) { string test = "%C4%E3%BA%C3%B0%A1+sdfsfa%26"; MessageBox.Show(UrlDecode(test)); } string HexToStr(string HexSource) { s

2004-08-04 12:22:00 1634

原创获取任务栏状态

APPBARDATA apd; apd.cbSize = sizeof(apd); CString str; SHAppBarMessage(ABM_GETTASKBARPOS , &apd); str.Format("left %d,top %d,width %d,height %d",apd.rc.left,apd.rc.top,apd.rc.right - apd.rc.left,apd.

2004-07-30 01:09:00 1349

原创更改屏幕显示区

找设置任务栏高度时发现了这些代码，保留了下来 procedure FullScreenArea; var rcWork: TRect; begin rcWork.Top:=0; rcWork.Left:=0; rcWork.Bottom:=GetSystemMetrics(SM_CYSCREEN); rcWork.Right:=GetSystemMetrics(SM_CXSCR

2004-07-22 01:25:00 1268

原创改变任务栏高度

这个星期比较烦。。。老是在想着一个关于设置任务栏高度的问题！！后来，在好友修罗跟农民的帮助下，才发现我一开始就是错的，我只想只对Shell_TrayWnd动手脚，没有想过它里面还包含了ReBarWindow32这个类！ void CBrowserDlg::OnBnClickedButton1(){ HWND s_Hwnd = ::FindWindow("Shell_TrayWnd", NUL

2004-07-22 00:59:00 2070 1

快乐的戏子