- 博客(18)
- 资源 (5)
- 收藏
- 关注
原创 毕业设计进行时--文件(夹)加密软件设计
标记一下,还不好说问题一:VB中解决工程组引用问题出错表现:VB中文版添加工程组(ActiveX)后不能全编译 出现:工程组未设置为双向兼容错误解决办法:英文版好象还没出现过这个问题先把ActiveX工程全部编译后再全编译用VB6和VC++6分别写MD5和CRC32 DLL(开发日志)目前只有CRCFILE 了,很快就出来!
2005-04-28 14:26:00 1590 1
原创 俺Blog"选项-配置-静态新闻/声明代码"
今日天气src=http://appnews.qq.com/cgi-bin/news_qq_search?city=%CE%F7%B0%B2>My Notes:ID:bafony  QQ:83461326E-Mail: bafony@163.com
2004-10-13 21:59:00 903
转载 收来的几个好东东
GGBaiDu陕西软考中国系统分析员万年历(带农历)时间科普网站金山词霸在线查询IP地址查询(亚太网络信息中心) 手机查询/IP查询/邮编、区号、地名互查
2004-10-02 13:01:00 657
原创 零碎代码
显示关闭计算机对话框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 941
原创 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 986
原创 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 1051
原创 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 1024
原创 列举正在运行的所有应用程序
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 2030
原创 四舍五入
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 1002
原创 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 2393
原创 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 1421
原创 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 1185
原创 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 2601
转载 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 2240
原创 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 1236 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 2485 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 2767 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 1901
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人