日记标签：编程

vb中几种检测文件是否存在的方法

2011-01-16 VB相关 闲人 1,250 次 没有评论

很久都没用过VB了，最近喜欢上了vs 2010功能实在强大，不过还在入门阶段。。。继续。。。

第一种，功能比较强大的方法

Option Explicit
‘api_GetPATH:vb中检测文件是否存在
Private Declare Function SHFileExists Lib “shell32″ Alias “#45″ (ByVal szPath As String) As Long
‘这个函数除了能判断文件是否存在外，还可以判断本地或远程文件夹
‘”\\192.168.0.1\d$\javatools\somefile.txt”
‘”\\workstation\javatools\somefile.txt”
‘”http://www.microsoft.com/ms.htm”
Private Declare Function GetFileAttributes Lib “kernel32″ Alias “GetFileAttributesA” (ByVal lpFileName As String) As Long

Private Declare Function PathFileExists Lib “shlwapi.dll” Alias “PathFileExistsA” (ByVal pszPath As String) As Long
‘自定义全部属性，以检测隐藏或系统文件
Private Const vbAllFileAttrib = vbNormal + vbReadOnly + vbHidden + vbSystem + vbVolume + vbDirectory

Private Enum SelectCheckFile
DIRCheck = 0 ‘方法1，Dir检测文件是否存在
OPENCheck = 1 ‘方法2，Open检测文件是否存在
GetFileCheck = 2 ‘判断指定文件的属性
PathFileCheck = 3 ‘判断文件是否存在外
SHFileExistsCheck = 4
End Enum Continue

VS2010广告 程序员的科幻片

2011-01-10 其他 闲人 1,311 次 2 条评论

病毒的自身保护方法介绍

2010-11-06 其他 闲人 829 次 一条评论

第一，介绍病毒运行方法及其对策

1、EXE文件运行
这个是早期的，也是最简单的病毒运行方法，就是在启动项里面加入一个EXE文件运行的项目，从而达到病毒文件运行的目的，比如：密西木马在注册表启动项里面加入这么项HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ToP: “C:\WINDOWS\LSASS.exe”，达到运行C:\WINDOWS\LSASS.exe文件的目的，这样的运行方式在任务管理器中可以看见进程（病毒自身做了保护的除外）。
至于这样的病毒清除起来非常简单，按照上面说的第一种情况就可以了——结束进程，删除启动项，删除文件。

2、DLL嵌入（直接嵌入） Continue

VB简单实现程序退出后删除自身

2010-10-16 VB相关 闲人 1,009 次 没有评论

很多木马、病毒都会有运行后释放病毒文件，然后退出程序删除自身的功能，这些功能是怎么实现的呢？
我看到有一些文章对于C语言的实现方法是创建一个线程，然后利用这个线程进行删除;对于VB的很多是生成一个批处理文件，退出时调用该文件删除程序本身，然后再删除批处理自身。

对于VB来说，创建线程是比较麻烦的，所以这里也用批处理的方式来删除自身。
不过生成批处理文件也有个不好的地方就是，如果该分区是NTFS格式的话，批处理自身有时会删除不掉。那我们用什么方法来避免这个问题呢？那就是不生成中间批处理文件，直接就运行删除的命令。

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Shell “cmd /c del ” & App.EXEName & “.exe”
End Sub

不过这样一来也有个问题就是有时候电脑处理的工作太多的话（比如开了Photoshop等大型的程序），资源释放得比较慢，删除就会失败。那我们得给该命令来个延时才行，可是我不知道有什么延时的命令，那该怎么办呢？没关系，我们用&&连接符把一个PING命令和删除的命令一起执行就行了。

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Shell “cmd /c ping 127.0.0.1&&del ” & App.EXEName & “.exe”
End Sub

这个VB代码主要利用了批处理功能，可以安全的删除自己。

Private Sub Form_Load()
‘建立批处理
Open App.Path & ”\a.bat” For Output As #1
‘”@echo off” 不显示执行过程
Print #1, ”@echo off”
Print #1, ”sleep 100″
‘a.bat 删除指定文件
Print #1, ”del ” & App.EXEName + ”.exe”
‘a.bat 删除自身
Print #1, ”del a.bat”
Print #1, ”cls”
Print #1, ”exit”
Close #1

Shell App.Path & ”\a.bat”, vbHide
End
End Sub

不过这样编译后有4个杀毒软件报毒,很无奈….

VB 实现屏幕右下角浮出式消息窗口，透明淡出效果。

2010-09-01 VB相关 闲人 1,126 次 一条评论

‘任务栏高度[此部分相关代码转载自 枕善居]
Private Declare Function SystemParametersInfo Lib “user32″ Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETWORKAREA = 48

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

‘透明 Continue

JAVA 开发调试环境配置

2010-05-23 闲人收藏 闲人 1,246 次 没有评论

一、所需工具：
1、jdk1.5.0.07
2、eclipse3.2
3、myeclipse5.0.1GA
4、tomcat5.0.28
二、安装
1、安装JDK1.5,这里设安装到C:\java,默认安装即可,安装后将c:\java\jdk1.5.0_07\bin加到环境变量path中(在“我的电脑”=》右键=》”属性”=》”高级”中可以找到环境变量设置)

2、解压eclipse3.2，这里假设解压到D盘，则eclipse的安装目录为D:\eclipse

3、为myeclipse建立存放的目录,这里假设到它放到D盘的myeclipse目录下,

4、解压myeclipse到D:\myeclipse,

5、进入d:\eclipse,双击eclipse.exe打开eclipse,选择菜单“Help”=>”Software Updates”=>”Manage Configuration”,
这会打开一个”Product Configuration”的界面，在左边的Eclipse SDK上，右键选择”Add”=>”Extenstion Location”,
在弹出的“浏览文件夹”界面中，选择myeclipse的安装目录，例如d:\myeclipse\eclipse,这时会提示你重启eclipse,
单击“yes”,即可。 Continue

无觅相关文章插件，快速提升流量