摘要：今天在修改一处程序的时候，发现在sql管理器中调用存储过程正常，但在程序中调用却超时的问题，换了别的电脑用程序访问也是超时，后来想起来，会不会是存储过程在数据库中出现了问题？于是把在存储过程上点修改，代码 不做任何修改，点执行，于是再访问，正常了。哈哈
阅读全文
posted @ 2012-10-25 16:15
随笔分类 - 编程资料
摘要：把.js文件编译成dllcsc.exe C#编译器vbc.exe vb.net编译器jsc.exe JScript.Net编译器vjc.exe J#编译器cl.exe C/C++编译器 在这里用jsc.exe可以做个.bat文件CD E:\batch\Jscriptjsc /t:library E:\batch\Jscript\JScript.jspauseCD..如果提示没有jsc.exe那么 把jsc.exe的路径添加到系统环境变量的path中去JScript.js代码如下public class JScript{ public static function a(s) { var ...
阅读全文
posted @ 2012-08-26 18:06
摘要：本人两台电脑，一台xp ，一台win7，由于要连接到公司，所以用了vpn但遇到了问题，问公司的某个人，那绝对是没有结果的，只好自己回来研究，先说一下问题。一、xp拨上了vpn，就是不能访问公司局网 网上找资料N多，没有什么效果，说真的，在百度上找这些东西，不如在博客园和csdn上，百度上搜索出来的结果，不仅带广告的网站多，而且也怕中招，最后在csdn上看到一点点内容说到了路由的问题。 于是看了一下自己的路由表，其实刚开始也不理解路由表，后来慢慢看，终于明白了。 最后总结出，是公司的IP段设置得太怪了，vpn给我分配一个10.10.1.100的地址，然后公司所有的IP段都是10.10.18.xx
阅读全文
posted @ 2012-07-10 19:19
摘要：需要的工具：PE ExplorerUltraEdit理论的就不多说了，因为我也不清楚。就说说如何操作。1、用PE打开要去除数字签名的文件，点 Section Headers 可以看到如下图的画面。2、看到最后一行是文件的资源。Pointer to Raw Data 是段的起始地址，Size of Raw Data 是段的长度，记下这连个数字。这些数字都是16进制的。3、把这两个数相加 0x1600h+0x1200h=0x2800h，这就是文件结尾的地址，在这个地址后面，就是数字签名的内容。4、用ue打开文件，找到0x2800h这个地址，从这里开始，就是数字签名。如下图。那么数字签名有多长呢？“
阅读全文
posted @ 2012-06-21 18:06
摘要：private delegate bool WNDENUMPROC(IntPtr hWnd, int lParam); [DllImport("user32.dll", ExactSpelling = true)] private static extern bool EnumChildWindows(IntPtr hwndParent, WNDENUMPROC lpEnumFunc, int lParam); [DllImport("user32.dll")] private static extern bool En...
阅读全文
posted @ 2012-05-23 14:16
摘要：namespace System.Windows.Forms{ internal class ListViewNeverFlickering : ListView { public ListViewNeverFlickering() { // Activate double buffering this.SetStyle(ControlStyles.OptimizedDoubleBuffer | ControlStyles.AllPaintingInWmPaint, true); // E...
阅读全文
posted @ 2012-05-21 16:19
摘要：有点复杂,但还是基本能够搞定!不过那个解释器也算牛B了原公式:A:(H+L+C)/3 NODRAW;DIFF:A-MA(A,N1) NODRAW;MD:MA(ABS(DIFF),N1) NODRAW;CCI:DIFF/MD* 66.7;MCCI:MA(CCI,N2);写成C#,一开始想了很久,后来用个笨办法,循环了 List<float[]> re = new List<float[]>(); for (int i = 0; i < lsd.Count; i++) { float [] fp=n...
阅读全文
posted @ 2012-05-18 00:09
摘要：Private Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal _hostname$) As LongPrivate Declare Sub RtlMoveMemory Lib "KERNEL32" (hpvDest As Any, _ByVal hpvSource&, ByVal cbCopy&)Private Type HOSTENThName As LonghAliases As LonghAddrType As IntegerhLength As IntegerhAd
阅读全文
posted @ 2012-05-16 11:00
摘要：有些人说是IntelliTrace的原因,但我这项根本就是关闭的,两个解决方法：1) 打开项目属性，选择调试选项卡，将“启用非托管代码调试”一项钩上。2) 打开项目属性，选择调试选项卡，将“启用Visual Studio宿主进程“一项钩掉。但也有些人,发现以上方法不好使,不过我的问题是解决了,好运!!!
阅读全文
posted @ 2012-05-13 22:07
摘要：开启DHCP Client 服务就可以了
阅读全文
posted @ 2012-05-06 19:08
摘要：目前发现的原因是,dll的.net 版本比我的程序的高dll用的.net 4 而程序用的.net 4 client profile
阅读全文
posted @ 2012-05-05 23:17
摘要：方法一：select * from s600520 awhere not exists (select 1 from s600520 b where a.CJDate =b.CJDate and b.CJTime >a.CJTime )order by CJDate方法二：select * from (select *,row_number() over(partition by CJDate order by CJTime desc) rid from s600520)as l where rid =1
阅读全文
posted @ 2012-01-11 14:33
摘要：一直以来，觉得金山还是比较好用的，起码占用的系统资源还是比较满意的，不过今天偶然再一次证明云查杀都是忽悠人的！！今天本来用VB6打算写个小工具，主要在跟随鼠标在屏幕上画一条线，写完后一运行，悲剧了，被金山报毒!第一反应是VB6的编译器出了问题，以前遇到过delphi这样的问题，正在考虑要重装VB6时，突然想到，为何不写一个空代码的程序呢于是什么都不干，新建了一个工程，编译成exe，用金山查杀，发现没有问题。这样就排除了前面的想法。于是回到代码 ，把某些API注释掉反复测试，发现了问题出在GetCursorPos 这个地方。。也就是说金山毒霸是根据API来判断是否是病毒的。我的天，这样的杀毒软件
阅读全文
posted @ 2012-01-07 11:44
摘要：using System;using System.Diagnostics;using System.Windows.Forms;using System.Text.RegularExpressions;using System.Collections.Generic;using System.Text;using System.IO;/// <summary>/// Helper class to decode HTML from the clipboard./// See http://blogs.msdn.com/jmstall/archive/2007/01/21/html
阅读全文
posted @ 2011-12-15 17:29
摘要：今天很恶心，碰到一个客户发来的excel有恶意代码，恶心，恶心在thisworkbook 中的代码Public WithEvents xx As ApplicationPrivate Sub Workbook_open()Set xx = ApplicationOn Error Resume NextIf Sheets(1).Name <> "Macro1" ThenCall auto_openEnd IfApplication.DisplayAlerts = FalseSecurity (1)Call SetAllowableVbeCall Microsoft
阅读全文
posted @ 2011-09-27 18:11
摘要：本来可以很简单的删除Dim vbc As ObjectSet vbc = ThisWorkbook.VBProject.VBComponents("模块1")ThisWorkbook.VBProject.VBComponents.Remove vbc但由于asp.net 用户权限的问题，不能如愿于是想了个新办法在运行宏后最后加了一段代码Dim n As StringDim n1 As Stringn1 = LCase(Workbooks(1).FullName)n = Replace(n1, ".xls", "--") & &
阅读全文
posted @ 2011-09-27 18:04
摘要：网上并没有太多完整的代码，只是对单字进行解码，或连续编码的解码，但如果中间插有字符或数字，就挂了贴一小段代码，可以解决了，原理其实就是以4个字符中一组，进行解码privateStringDecodeUnicode(StringdataStr){Regexreg=newRegex(@"(?i)\\[uU]([0-9a-f]{4})");returnreg.Replace(dataStr,delegate(Matchm){return((char)Convert.ToInt32(m.Groups[1].Value,16)).ToString();});}顺便说下，博客园的发文的
阅读全文
posted @ 2011-09-05 10:27
摘要：在水晶报表中也是可以添加函数的在报表空白出右键----报表----公式工作室在报表自定义函数中就可以增加自己的函数了Function AmountToWord2(dblAmount As Double) As String dim strValue as string strValue=cstr(dblAmount)strValue=replace(strValue,",","")dim intLenValue as number intLenValue=len(strValue)dim intDecPos as numberintDecPos=inst
阅读全文
posted @ 2011-08-10 17:57
