运行后能够删除自己。 提示：不要在VB的IDE下运行，否则会删除VB6.exe。一定要编译后运行。 下载地址：VB自删除源码.rar 部分源码： Private Type tCONTEXT ContextFlags As Long space1(1 To 140) As Byte SegFs As Long space2(1 To 568) As Byte End Type 'Local Descriptor Table bytes Private Type tLDT_BYTES BaseMid As Byte Flags1...

阅读全文>>

base64加密模块 用法：Base64Encode(‘加密字符') Option Explicit Public Function Base64Encode(InStr1 As String) As String Dim mInByte(3) As Byte, mOutByte(4) As Byte Dim myByte As Byte Dim I As Integer, LenArray As Integer, j As Integer Dim myBArray() As Byte Dim OutStr1 As String ...

阅读全文>>

alphal 内部测试版 beta 外部测试版 demo 演示版 Enhance 增强版或者加强版 属于正式版 Free 自由版 Full version 完全版 属于正式版 shareware 共享版 Release 发行版 有时间限制 Upgrade 升级版 Retail 零售版 Cardware 属共享软件的一种，只要给作者回复一封电邮或明信片即可。（有的作者并由此提供注册码等），目前这种形式已不多见。 Plus 属增强版，不过这种大部分是在程序界面及多媒体功能上增强。 Preview 预览版 Corporation & Enterprise 企业版 ...

阅读全文>>

软件名称：FLV嗅探工具【趋于完美版】 软件大小：40K（主程序） 软件说明：嗅探各大主流视频网站的视频下载地址，并且自动切换为超清、高清或者480P高清画质的下载地址，趋于完美。                                 支持的网站有（理论上）： 【支持的网站 7...

阅读全文>>

1：依次点击“开始→运行”，在弹出的“运行”窗口中输入“cmd”，然后点击“确定”，打开命令行窗口； 2：在命令行窗口切换到想要创建文件夹的硬盘分区。例如，需要在D盘创建文件夹，则输入“ d: ”，然后回车即可； 3：创建一个名为“123”的文件夹，则输入“ md 123..\ ”，然后回车；（注意文件夹名称后面有2个小数点） OK，搞定！看看你的D盘下面是不是多了一个名为“123.”的文件夹？这个文件夹既不能访问又不能删除，不信试试看！来看看这个文件夹的大小，在文件夹上单击右键，在弹出菜单中选择“属性”，在弹出的“属性”窗口中我们可以看到，这个文件夹的大小为0字节。当...

阅读全文>>

[该文章已设置加密，请点击标题输入密码访问]

今天在在网页的源代码中找到了MD5加密算法的代码，呵呵，搬过来VB用了～～ 直接调用就可以了  Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) Private Function LShift(lValue, iShiftBits) If iShiftBits = 0 Then LShift = lValu...

阅读全文>>

              小歆高考信息查询系统 V1.2 正式版 [为方便吉林考生查询而制作]                                             &nb...

阅读全文>>

'运行后可以后到一个由圆画成的爱心,送给好孩呵呵 '分辨率=1024*768 '要生成文件的后缀名为scr '窗体样式要改为Me.BorderStyle = 0 Dim X1, Y1, X2, Y2 As Integer Dim I As Integer Dim J As Boolean Dim K As Integer Dim WithEvents Label1 As Label '声明一个label Dim WithEvents Timer1 As Timer '声明一个timer Private Sub Form_Activate() ...

阅读全文>>

VB键盘代码常量 值 (0x为16进制，其他为10进制) 键盘说明 vbKeyLButton 0x1 鼠标左键 vbKeyRButton 0x2 ...

阅读全文>>

方法1：inet控件调用方法 Inet1.OpenURL     添加microsoft ineternet transfor conctrol6.0 控件                                方法2：XMLHTTP '如果出现乱码，UTF-8可改为GB2312 Public Function GetBody(B...

阅读全文>>

Visual C++ 6.0 windows7兼容版 VC6.0安装版，完美支持Win7和Win XP系统，亲测可用，在Windows7 64位和 Windows7 32位和 Windows XP下完全可用，有 VC6.0中文版，和VC6.0英文版2个版本，这两个版本吧都是VC6.0破解版，免KEY免激活，永久可用，下载地址如下： VC6.0中文版下载地址：度盘下载 VC6.0英文版下载地址：网盘下载(失效) 很多同学找不到Win7下可用的VC6.0，为了方便更多同学，请大家点击下面的分享按钮，分享到QQ空间、腾讯微博，让您的同学和朋友都能下载到可...

阅读全文>>

                            小歆专用QQ空间登录工具 V6.0 公测版 [历时近两年的官方巨作]                                  ...

阅读全文>>

你对电脑的启动过程了解吗？我将详细讲述自己的学习操作系统以来对操作系统的理解。当然只是windows系统的启动问题,不管你是维修电脑，服务器 维护，各位大黑，小黑，渗透，BIOS病毒，驱动挂马等等涉及的很多方面都涉及到的这些基础东西，抛砖引玉，各位思维别局限，在此基础上可以做出什么我就管不着了容！: p6 ^) u& f9 K# Z( v& i# x3 F ) M% Y: T( x# K( P0 Y; s9 ` Author：sman或pirate33 QQ ：328954631! j4 V5 B" }9 O% e/ D+ }! H, v  } Da...

阅读全文>>

#define N 200 #include <graphics.h> #include <stdlib.h> #include <dos.h> #define LEFT 0x4b00 #define RIGHT 0x4d00 #define DOWN 0x5000 #define UP 0x4800 #define ESC 0x011b int i,key; int score=0;/*得分*/ int gamespeed=50000;/*游戏速度自己调整*/ struct Food { int x;/*食物的横坐标*/ in...

阅读全文>>