- 博客(20)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 采用密码加密的javascript字符串加密、解密程序
SCRIPT LANGUAGE="JavaScript"> Beginfunction Encrypt(str, pwd) { if(str=="")return ""; str = escape(str); if(!pwd || pwd==""){ var pwd="1234"; } pwd = escape(pwd); if(pwd == null || pw
2009-08-14 11:01:00
1134
原创 操作键盘 hook
这里是声明部分 * 操作键盘 Hook 的代码 Private Const WM_HOTKEY As Integer = &H312 Private Const MOD_ALT As Integer = &H1 Private Const MOD_CONTROL As Integer = &H2 Private Const MOD_SHIFT As Integer
2009-07-27 11:54:00
596
原创 同时按下键盘的功能键和普通键的组合
Private Sub TextBoxCode_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxCode.KeyDown Try * 如果在验证码还没出现的时候用户去按了按键按键,就会出现异常. I
2009-07-27 11:52:00
598
原创 Webbrowser 获取验证码显示在图片框中
* t=0 默认为 im 传入的是图片 id 属性 * t=1 为 Alt 属性 t=2 为 Src 属性 Private Function GetCode(ByVal wb As WebBrowser, ByVal im As String, Optional ByVal t As Integer = 0) As Image Try Dim
2009-06-08 16:51:00
2186
1
原创 加密连接字符串
通过使用命令，可以将Web.config文件的连接字符串区域加密。当ASPX页面请求连接字符串时，将由ASP.NET自动对信息进行解密。加密必须由以下命令行来执行。依次单击Start/Run/cmd并切换至C:/WINDOWS/ Microsoft.net/ Framework/v2.0.xxxx，其中xxxx是您的软件版本。如果C:/Websites/BegAspNet2Db是站点根目录
2009-05-25 04:12:00
599
原创 获取当前目录下的所有文件
Public Function GetRandomFile() As String Dim files As String() = System.IO.Directory.GetFiles(MapPath(Request.ApplicationPath), "*.aspx") Dim rnd As New Random() Dim rndFile As
2009-04-06 00:22:00
457
原创 保存变量的内容到文件
Dim SaveFile As StreamWriter = New IO.StreamWriter(System.IO.Directory.GetCurrentDirectory & "/" & Student.WateName.Substring(0, Student.WateName.Length - 4) & ".dat", True, System.Text.Encoding.GetE
2009-03-25 12:26:00
422
原创 保存 webbrowser 中的 cookies 到 httpwebrequest 中
先建一个 "CookieContainer " 把WebBrowser中的Cookie保存在里面 //在WebBrowser中登录 cookie保存在 WebBrowser.Document.Cookie中 CookieContainer myCoo
2009-03-17 17:12:00
1344
原创 多线程中的 Webbrowser
Imports System.ThreadingPublic Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load myBrowser.Visible = False Me.Con
2009-03-17 16:58:00
2017
1
原创 用ImessageFilter截获键盘消息
Public Class TestMessageFilter Implements IMessageFilter Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) _ As Boolean Implements IMessageFilter.PreFilterMessage Blocks al
2009-03-10 09:48:00
625
原创 多线程委托的应用
Public Delegate Sub myDelegate() Private Sub SetLabel() Label1.Text = "" End Sub Private Sub SplitFile()Label1.Invoke(New myDelegate(AddressOf SetLabel)) End Sub
2009-03-01 19:46:00
329
原创 常用的正则表达式
匹配Email地址的正则表达式：/w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)* 评注：表单验证时很实用 匹配网址URL的正则表达式：[a-zA-z]+://[^/s]* 评注：网上流传的版本功能很有限，上面这个基本可以满足需求 匹配帐号是否合法(字母开头，允许5-16字节，允许字母数字下划线)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$ 评注：
2009-02-08 20:50:00
268
原创 发送或接受数组参数
发送 Dim arguments() As String = {qqNumber, count.ToString}ThreadQueueList.Add(arguments) BgWorker.RunWorkerAsync(ThreadQueueList(0)) * 接收传递过来的参数 Dim qqNumber As String = DirectCast
2009-01-31 03:37:00
309
原创 压缩数组，去除数组中的重复项
* 压缩数组，去除数组中的重复项 Dim arr As New ArrayList For i As Integer = 0 To MessageArray(Convert.ToInt32(e.Result)).Length - 1 If Not arr.Contains(MessageArray(Convert.ToI
2009-01-31 01:17:00
465
原创 把参数传递给其他的 Exe 程序并执行
本程序代码:Dim arg As String = "米老鼠" & "|" & CStr(CheckVersion) & "|" & CStr(LocalVersionNum) & "|" & Microsoft.VisualBasic.Command()System.Diagnostics.Process.Start(Application.StartupPath & "/../Chec
2009-01-29 04:44:00
733
原创 通过字符串变量动态打开窗体并动态调用其方法
以下代码主要通过字符串来调用窗体，同时通过字符串来调用方法 Dim formname As String = "工程名.窗体名" Dim mytype As Type = Type.GetType(formname) Dim myform As Form = CType(System.Activator.CreateInstance(mytype)
2009-01-28 01:10:00
688
原创 关于 BackgroundWorker 的描述
判断 子窗体中 BackgroundWorker 是否正在执行的唯一标识是主窗体上状态栏中的 StatusCancel.Image 属性,如果该属性为 Nothing 则说明没有任何子窗体中的 BackgroundWorker 正在执行.如果设置该属性为 Nothing 说明用户 Cancel 了正在进行中的 BgWorker,那子窗体中该后台进程收到指示后会自动处理 Canceling 的操
2009-01-27 22:30:00
392
原创 如何删除应用程序角色
disney 架构的所有者为 Disney更改架构所有者为 dbo 即可.可以在SSMS中操作,也可以用命令ALTER AUTHORIZATION ON SCHEMA::disney TO dbo
2009-01-27 20:27:00
386
原创 改变窗体外观的方法 Region
Me.Region = New Region(CreateRound(New Rectangle(0, 0, Me.BackgroundImage.Width, Me.BackgroundImage.Height), 12))
2009-01-21 22:00:00
467
原创 在 DatagridView 中加图像列和 Checkbox 列
* 加一个图像列 Dim imageColumn As DataColumn = pageDataTable.Columns.Add("Note", GetType(Image)) imageColumn.ColumnName = "Note" DataGridMain.Columns("Note").DefaultCell
2009-01-21 21:51:00
627
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人