欢迎大家访问 新世纪网安基地 网址是 :www.520hack.com
我是 齐天小猴 有个性的名字吧 呵呵
现在教大家用VB制作一个自己人的网页木马
因为我的机子显卡的风扇坏了，555555555 特卡 所以请大家看我操作吧 不懂的可以加我QQ 7411000
费话不说了。。看操作吧
1:启动vb,从弹出的[新建工程对话框]中选择[标准exe]项，然后单击[打开]按钮，则启动完毕，进入Vb应用程序图形界面。
2:在生成的窗体上点击一下，接着在[属性窗口]里把“captIon”值改为“新世纪网安基地”，这里是确定你编写的程序的名称。
3:单击工具上的[填加按钮]控件，选择其中的[窗体F](有两中方法,请看),然后打开.我们在此要填加两个窗体.在第一个窗体的[属性窗口]里把“captIon”值改为“登陆成功”，在第二个窗体的[属性窗口]里把“captIon”值改为“登陆失败”
4:下面我们回到第一个窗体名称为[新安网页木马生成器],在上边分别填加我们需要的控件如下.
①:一个"TextBox"控件,把[属性窗口]里“Text”的值“Text1”删去.
②:一个"CommandButton"控件,把[属性窗口]里“Caption”的值改为“确定”.
③:把"Label"控件,把[属性窗口]里“Caption”的值分别改为“登陆密码”.
④:调整窗体大小.
5:双击第一个窗体上的"CommandButton"控件,在弹出的窗口里填加如下代码:
Private Sub Command1_Click()
'检查正确的密码
If Text1 = "qq7411000" Then
form2.Show
'form2为您登陆成功后希望弹出的窗口
Me.Hide
End If
If Text1 <> "qq7411000" Then qq7411000是登陆密码，当然你也可以改成别的
form3.Show
'form3为您登陆失败后希望弹出的窗口
Me.Hide
End If
End Sub
6:在form2中
①:一个"TextBox"控件,把[属性窗口]里“Text”的值改为“http://www.520hack.com/muma.exe”.我晕。。。变态的。。
②:一个"CommandButton"控件,把[属性窗口]里“Caption”的值改为“确定”.
③:把"Label"控件,把[属性窗口]里“Caption”的值分别改为“木马地址”.
④:双击窗体,在弹出的窗口里填加入以下代码:
7:在form3登陆失败的窗口中填加一个"CommandButton"控件,把[属性窗口]里“Caption”的值改为“您所填写的登陆密码错误,登陆失败!”,
这我就不调整了，太卡了。。。
8.应用程序设计后，可以测试它的功能，单击[工具栏]上的[启动]按钮即可.单击【启动】按钮,设计程序被解释执行
成功 再试试网马生成器吧。算了。先保存吧 反正那网页代码是别人的。呵呵
|
