您正在查看 "Vb" 分类下的文章
2008年08月17日 星期日 下午 06:09
0、Two说过几天他也去北京。
3、
4、其实应该想开点。 |
2008年07月10日 星期四 上午 11:17
2008年06月17日 星期二 下午 04:32
近来发现广大网友搜索“KRC转换LRC”
可惜搜索到我的Blog是代码
我就把老早以前的程序发上来好了
下载地址：
将下面绿色的图片另存为，保存到本地，修改后缀名为rar解压，或者用WinRAR打开即可。
|
2008年06月06日 星期五 上午 08:04
2008年06月05日 星期四 下午 03:53
软件名称：BT百度串门
版本：0.1.2 Beta
用途：利用串门，增加自己的访问量（回访）
用法：点击“配置”，在“起始页”填入你想要的起始页（必须是百度空间某人的首页），然后点击“开始串门”，你就可以串门了！不过如果听到发出声音，不必慌张，一会儿就没声音了。注意要登录！
声明：测试软件，Bug无罪
截图：
|
2008年06月03日 星期二 下午 09:49
软件名称：BT百度串门
版本：0.1 Beta
用途：利用串门，增加自己的访问量（回访）
用法：在“起始页”填入你想要的起始页（必须是百度空间某人的首页），然后点击“开始串门”，你就可以串门了！不过如果听到发出声音，不必慌张，一会儿就没声音了。注意要登录！
声明：测试软件，Bug无罪
截图：
|
2008年02月13日 星期三 上午 10:46
一。代码部分
Sub IeFix()
‘启动窗口
SetKeyValue HKEY_LOCAL_MACHINE, _
"Software\Microsoft\Windows\CurrentVersion\Winlogon", "LegalNoticeCaption", "", REG_SZ
SetKeyValue HKEY_LOCAL_MACHINE, _
"Software\Microsoft\Windows\CurrentVersion\Winlogon", "LegalNoticeText", "", REG_SZ
‘右键
DeleteKey HKEY_CURRENT_USER, "HKEY |
2008年02月12日 星期二 下午 10:22
哈哈，说的真是呢，我这个穷鬼。小G入道就是高水准，我就是一些比较无聊的东西啦！
虽然能够找到的少之又少，但也拿出来吧。
还有一些是机密（我像个地下编程者），所以不便展示了！
|
2008年01月18日 星期五 下午 10:20
Option Explicit
'下面为MD5
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)
Dim Md5OLD
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then |
2007年12月30日 星期日 上午 11:05
'下面是拆分千千静听界面皮肤的代码：
Private Sub Command3_Click()
MoveObject GetValue("playlist_window_resize_rect")
Debug.Print Me.Width
'左上
Picture1.Cls
Picture1.Width = WeiZhiX1: Picture1.Height = WeiZhiY1
Picture1.PaintPicture Me.Picture, 0, 0
Image1(0).Picture = Picture1.Image
'中上
Picture1.Cls
Picture1.Width = WeiZhiX2 - WeiZhiX1: Picture1.Height = WeiZhiY1
Picture1.PaintPicture Me.Picture, 0 - WeiZhiX1, 0
Image1( |
2007年12月05日 星期三 上午 00:43
2007年12月05日 星期三 上午 00:42
请注意：所有后果本人概不负责
这段程序我写于半年月之前。这是一个蠕虫。我本来计划写3个模块：传播模块，病毒体，以及后门。但是在VB里每添加一个窗体或模块，是巨大的浪费！一个窗体有16K，即使你什么控件也不放进去！所以我把它们都放在一个窗体上，这使得程序晦涩难懂。该蠕虫一旦被运行，立即复制自己到%system%目录，并隐藏！然后在“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run”注册，实现开机自动运行。而且将自身注入到系统进程 |
2007年12月03日 星期一 下午 01:17
找到这个Function是在昨天，我改了一下，变成通用的了
'###################################
'### 图像二值化
'### PicHB(Picbox名)
'###################################
Public Function PicHB(BPic As PictureBox)
|
2007年12月03日 星期一 上午 01:06
'**************************************
' 模块名称: AppendToLog
' 功能描述:一个很不错的日志文件写入模块，不同于
' open/print/close写文件方法,这个模块使用API
|
2007年11月27日 星期二 下午 09:18
窗体透明的代码。
速度比较慢。
适合把PictureBox镂空。
那个悠然遗孀，你强！
Option Explicit
'窗体透明模块
'这个模块比较慢，处理小图
Public Declare Sub ReleaseCapture Lib "user32" ()
Public Declare Function GetPixel Lib "gdi32" |
|
| 
