自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

Code Corner

关闭!

  • 博客(18)
  • 资源 (5)
  • 收藏
  • 关注

原创 毕业设计进行时--文件(夹)加密软件设计

标记一下,还不好说问题一:VB中解决工程组引用问题出错表现:VB中文版添加工程组(ActiveX)后不能全编译  出现:工程组未设置为双向兼容错误解决办法:英文版好象还没出现过这个问题先把ActiveX工程全部编译后再全编译用VB6和VC++6分别写MD5和CRC32 DLL(开发日志)目前只有CRCFILE  了,很快就出来!

2005-04-28 14:26:00 1503 1

原创 俺Blog"选项-配置-静态新闻/声明代码"

今日天气src=http://appnews.qq.com/cgi-bin/news_qq_search?city=%CE%F7%B0%B2>My Notes:ID:bafony &nbspQQ:83461326E-Mail: bafony@163.com

2004-10-13 21:59:00 833

转载 收来的几个好东东

GGBaiDu陕西软考中国系统分析员万年历(带农历)时间科普网站金山词霸在线查询IP地址查询(亚太网络信息中心) 手机查询/IP查询/邮编、区号、地名互查

2004-10-02 13:01:00 594

原创 零碎代码

显示关闭计算机对话框Option ExplicitPrivate Declare Function ShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As LongPrivate Sub cmdShutDown_Click()ShutDownDialog 0End Sub-------删除目录及其内容Privat

2004-09-27 02:55:00 879

原创 LockListViewHead

Option ExplicitPrivate Sub Command1_Click()    Call LockListViewHead(ListView1.hwnd)End SubPrivate Sub Command2_Click()    Call UnLockHead(ListView1.hwnd)End SubPrivate Sub Form_Load()Dim i As Long   

2004-09-27 02:28:00 932

原创 GetPID

Option ExplicitConst MAX_PATH = 260Const TH32CS_SNAPPROCESS = 2&Private Type PROCESSENTRY32    lSize            As Long    lUsage           As Long    lProcessId       As Long    lDefaultHeapId  

2004-09-27 02:19:00 996

原创 GetInternetIP

if user is not connected to internet, it will return the Lan IPConst MAX_IP = 5   To make a buffer..Type IPINFO    dwAddr As Long   IP address    dwIndex As Long interface index    dwMask As Lon

2004-09-27 01:59:00 942

原创 列举正在运行的所有应用程序

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As LongPublic Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As LongPublic Declare

2004-09-27 01:45:00 1918

原创 四舍五入

Public Function RoundF(Number, Optional NumOfDigits As Long) As Double    If Not IsNumeric(Number) Then Exit Function    Dim iPos As Long    iPos = InStr(Number, ".")    Dim dbDesimalPart As Long    D

2004-09-27 01:37:00 895

原创 BrowseFolder

Option ExplicitPrivate Const MAX_PATH = 260Private Const BIF_RETURNONLYFSDIRS = 1With New FolderPrivate Const BIF_NEWDIALOGSTYLE As Long = &H40udtBI.ulFlags = BIF_RETURNONLYFSDIRS + BIF_NEWDIALOGST

2004-09-27 01:35:00 2156

原创 ShowInTaskbar

Public Declare Function GetWindowLong Lib "user32" Alias _"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPublic Declare Function SetWindowLong Lib "user32" Alias _"SetWindowLongA"

2004-09-26 17:40:00 1245

原创 Autoresize of columns in MSHFlexGrid with multiple bands

Public Function FG_AutosizeCols(myGrid As MSHFlexGrid, _                                Optional ByVal lFirstCol As Long = -1, _                                Optional ByVal lLastCol As Long = -1, _ 

2004-09-26 14:48:00 1127

原创 Autosize the columns and rows in MSFlexGrid

Public Function FG_AutosizeRows(myGrid As MSFlexGrid, _                                Optional ByVal lFirstRow As Long = -1, _                                Optional ByVal lLastRow As Long = -1, _  

2004-09-26 14:47:00 2498

转载 VB6网站和论坛(收集)

http://www.thevbzone.com       (Class Modules,Standard Modules,Code Project,Forum)http://www.vbrad.comhttp://www.vbnet.mvps.org国内:http://www.vbgood.comhttp://www.21codecomhttp://www.daima.com.cnhttp:/

2004-09-26 12:53:00 1473

原创 GetLnkTargetPath

Function GetTargetPath(ByVal LinkName As String)    On Local Error Resume Next    Dim Obj As Object    Set Obj = CreateObject("WScript.Shell")    Dim Shortcut As Object    Set Shortcut = Obj.CreateS

2004-09-25 18:54:00 1115 1

原创 MSFlexGrid MouseWheel Supported

modMouseWheel.basPrivate Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" ( _                          ByVal lpPrevWndFunc As Long, _                          ByVal hWnd As Lon

2004-09-25 15:17:00 2367 2

原创 Win2K/NT/XP环境下LWIN,RWIN,WIN+Any,Ctrl+Esc,Alt+Esc,Alt+TAB等键的禁用

参考国外一些网站,论坛代码,得到以下综合,以上环境中测试通过,版权归原作者所有。add a checkbox named chkDisable.caption="&Disable ALT-TAB, ALT-ESC, CTRL-ESC,LWin,RWin,Win+Any"to a new from named frmMain.frm in new project hook_kb_LL.vbpadd

2004-08-26 00:48:00 2560 1

原创 获取机器DirectX版本

引用windows scripting host object modelPrivate Sub Form_Load()Dim regwsh, Value, DValue, temp As StringSet regwsh = New IWshShell_ClassDValue = regwsh.RegRead("HKLM/SOFTWARE/MICROSOFT/DirectX/Installed

2004-05-28 10:25:00 1731

encryption0827.7z

encryption0827.7z

2021-08-27

ruby学习教材2个

Ruby语言,doc和pdf版本 基础教材

2008-11-25

日常用便笺工具atNotes

日常用便笺工具atNotes AT" stands for my name Ascher Thomas

2008-11-18

freewheel滚轮支持的小工具

freewheel滚轮支持的小工具Midnight Oil FreeWheel 2.4.0.1

2008-11-18

查日文汉字假名的小工具

复制日文汉字到剪贴板,即可在该软件中看到假名

2008-11-18

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除