| |
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 {
 此主题相关图片如下：&p</]]
 Af8yDp
 =
 按此查看图片详细信息!6
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 X1VK(L
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 (r
本程序运行结果见上图！$@
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 (
原代码如下：Wmkq5
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 b'YA)
Public Class form195YUZO
Dim quit As Boolean = False%
Dim tt As Integer = 0zJ8
Dim ip() As System.Net.IPAddress = System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName)PY1g7T
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 j
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickrZ?
'定时器事件！'JQ]*
TryI+0y'
If tt > 0 Thenl~
tt -= 1G(&Os:
Label1.Text = "定时关机正在执行，倒计时：" & tt \ 3600 & "时" & tt \ 60 Mod 60 & "分" & tt Mod 60 & "秒"pO
If tt = 1 Then:=p6
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe") '关机wLS
EndU
End IfK
Elseg79,
If My.Computer.Network.Ping(TextBox1.Text, 1000) = False ThenN#_z"x
If quit ThenR7
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe")$/D!W
End]Huv
End IfIL(B>V
quit = True#FyH3D
Timer1.Interval = 15000)ZO~Q
MessageBox.Show(vbCrLf & "你掉线啦，15秒后重试！注意，如果再连接失败则直接关机！", "→无条件为你⊙制作！", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)55[5">
Else%cO1p
Timer1.Interval = 3000BI9
quit = FalseQYJ;
End If].VY
End IflHe"
Catch ex As Exception<B7
'如果网卡突然坏了，或者网线被拔出，则直接做关机处理！(+-
If IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe") Then Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe")'hVL9e
End(
End Try_
End SubDQC
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 =@I
Private Sub form1_formClosing(ByVal sender As Object, ByVal e As System.Windows.forms.formClosingEventArgs) Handles Me.formClosing4>
Me.Hide()!-KR8E
If e.CloseReason = CloseReason.TaskManagerClosing Then'<Z~LV
MessageBox.Show(vbCrLf & "搞什么？竟然把任务管理器都打开啦！想结束我的进程啊？真晕！", "→无条件为你⊙幸灾乐祸的说：", MessageBoxButtons.OK, MessageBoxIcon.Error)jI=\
ElseIf e.CloseReason = CloseReason.WindowsShutDown And tt <> 1 ThenzN
MessageBox.Show(vbCrLf & "你太愚蠢了，为了关掉我，竟然直接关机了！！！", "→无条件为你⊙大笑：", MessageBoxButtons.OK, MessageBoxIcon.Error)=hi
ElseIf e.CloseReason = CloseReason.UserClosing Then2
e.Cancel = True-
MessageBox.Show(vbCrLf & "干什么干什么？想用Alt+F4关闭我？找死啊你！小心格式化你的硬盘！", "→无条件为你⊙愤怒的对你说：", MessageBoxButtons.OK, MessageBoxIcon.Error)ZCZM
ElseBO!
MessageBox.Show(vbCrLf & "其实想关我非常容易，按ESC键就可以啦，没有必要这么麻烦！", "→无条件为你⊙十分友好的说：", MessageBoxButtons.OK, MessageBoxIcon.Error)ef5I
End If:l
Me.Show()14(yNr
End Subgn?gr
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 $
Private Sub form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.forms.KeyPressEventArgs) Handles Me.KeyPress2N
If e.KeyChar Like "#" Or e.KeyChar = "." Or e.KeyChar = ControlChars.Back Then#
ElseG;0E
e.Handled = Truee
End Ifna|jk?
End Subg9[v
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 }{
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadlQ=F
'载入窗体之前，最先执行的代码：4
TrykB
Me.Text = "欢迎你！" & Environment.UserName & "，您的IP：" & ip(0).ToStringMbZ\
Me.AcceptButton = Button1 '当按Enter键时激活的按扭。$2^
Me.CancelButton = Button2 '当按ESC键时激活的按扭。!
Me.StartPosition = formStartPosition.CenterScreen '启动时在屏幕中央显示窗体{2
Me.TopMost = True '顶层窗口，窗口永远在最前。X('e
Me.KeyPreview = True '注册键盘事件#H?51d
Me.ShowInTaskbar = False '在任务栏处不显示窗体RoU
Me.ControlBox = False '禁止最大化、最小化、关闭按扭。_W
Me.formBorderStyle = Windows.forms.formBorderStyle.FixedSingle '禁止改变窗口大小。2
Me.ForeColor = Color.Greennjn79Y
Me.BackColor = Color.Red#k:
Label1.ForeColor = Color.Blue{nQ"
Label1.Font = New Font("宋体", 11)rI
Label1.Text = "提供网络服务的主机IP："3W(_z\
NotifyIcon1.ContextMenuStrip = ContextMenuStrip2.[hjO$
Dim j As Integer = 07C
Dim m() As Char = ip(0).ToString.ToCharArray 'ip(0).ToString即为本机IP，此操作是将字符串分离成单个字符，为后面的判断做准备。,2KYB
For i As Integer = 0 To ip(0).ToString.ToCharArray.Length - 1*Y
If m(i) = "." Then#}5[S)
j += 1OC:
End If3hB
If j < 3 Then TextBox1.Text &= m(i)c^
NextFu
TextBox1.Text &= ".1" '至此，成功算出默认服务器IP。E
Dim y() As Byte = My.Resources.close '创建一个读取资源文件的对象。#G<
Dim f As New IO.FileStream(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe", IO.FileMode.Create)| iV
f.Write(y, 0, y.Length)ou/`i.
f.Close() '至此，EXE文件已经释放到程序文件夹中！MgXJg
Catch ex As Exception{0
Me.Hide()0T
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)7
Me.Show()Ae'_k
If IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe") Then IO.File.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe")$
EndC
End TryZb4:
End SubO0
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 /1[.}V
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClickw4DZ
MessageBox.Show(vbCrLf & "本程序由QQ335342设计制作，欢迎您的使用！", "→无条件⊙欢迎您！", MessageBoxButtons.OK, MessageBoxIcon.Information)E$50i
Me.Show()T[.y
End SubHT~R;
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 [xDkz=
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click$+xa"
TryY
If ComboBox1.Text.Length = 0 Then ComboBox1.Text = "0"[h
If ComboBox1.Text.Contains(".") Or TextBox2.Text.Contains(".") ThenW
ComboBox1.Text = "0"r3VJ
TextBox2.Text = "0"#Qnz
MessageBox.Show(vbCrLf & "时间必须为数字，发现你输入了圆点，这是不允许的！", "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)f.]
ElserO]@1}
If ComboBox1.Text = "0" And TextBox2.Text = "0" Then)QI+M
MessageBox.Show(vbCrLf & "定时关机，在设置时间的时候最少要设置1分钟！", "→无条件⊙提示：", MessageBoxButtons.OK, MessageBoxIcon.Error)sT=
ElseeNA>o
Me.Hide()G%G
NotifyIcon1.Visible = TrueR5C4-s
Timer1.Enabled = True/~3:.
Button1.Visible = Falsen%ztAy
Button3.Visible = FalseZ<nUv
ComboBox1.Enabled = FalseN
TextBox2.Enabled = False~C/
TextBox1.Visible = Falsew33S2T
tt = ComboBox1.Text * 3600 + TextBox2.Text * 60)KGw1(
Timer1.Interval = 1000s83T
End IfaZo@X
End If?
Catch ex As Exception7
Me.Hide()d
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)_Dd?
Me.Show()r7
End Try8
End SubEV
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 2^_q
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click3Z
NotifyIcon1.Visible = False;5
If IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe") Then IO.File.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe")(y4QSo
End '单击此按扭直接终止程序。7(w
End SubC{)ez
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 /t2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickix
Try_^&(&|
If My.Computer.Network.IsAvailable = False Then5
MessageBox.Show(vbCrLf & "您的计算机没有接入Internet，或者没有活动网卡，程序终止！", "→无条件为你⊙程序设计", MessageBoxButtons.OK, MessageBoxIcon.Error)}M+f;}
NotifyIcon1.Visible = False&S;&nY
End+L|!
End Ifd[N$y,
If TextBox1.Text.Length < 9 Then2F6m?k
MessageBox.Show(vbCrLf & "严重错误，需要Pint的主机IP不合法。如果没有服务器，你也可以填写路由器IP，请重试！", "→无条件为你⊙制作，联系QQ:335342", MessageBoxButtons.OK, MessageBoxIcon.Error);
ElsesR\_
MessageBox.Show(vbCrLf & "程序已经执行，将以托盘方式显示在任务栏的通知区域！", "→无条件为你⊙制作，联系QQ:335342", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)zNM2a
NotifyIcon1.Visible = True$9*.
Timer1.Enabled = True;qX8"5
If Me.Visible Then Me.Hide():
End If;IEW4
Catch ex As Exception"
Me.Hide()DhdP
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)(T9jc
Me.Show()K}sBn
End Trym[7
End Sub/o06an
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 +(O;B
Private Sub form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.forms.MouseEventArgs) Handles Me.MouseClick=Ozr\O
Try0o
If My.Computer.Keyboard.AltKeyDown Then '按下Alt键的同时单击鼠标，则执行：~^x*^s
If MsgBox(vbCrLf & "呵呵，欢迎您，请选择！是：控制面板，否：快速关机 ？", MsgBoxStyle.DefaultButton1 Or MsgBoxStyle.YesNo, "后门：") = MsgBoxResult.Yes ThenD&=G#
Process.Start("control")"m\:qw
ElsewO2.4
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe")I=N%#i
End IfTdn<
End Ifk9+t
Catch ex As Exception#
Me.Hide()q>hJ@
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)U-
Me.Show()i8
End TrySo
End Sub: :=CY
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 T[n{w
Private Sub form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.forms.MouseEventArgs) Handles Me.MouseMove#[BG
Me.Text = "→欢迎您⊙当前鼠标位置： X:" & e.X & " Y:" & e.Y%*p#
End Sub)V
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 Z0,i
Private Sub 开机时间ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 开机时间ToolStripMenuItem.Click0I
Me.Hide())KK
Dim ts As TimeSpan = New TimeSpan(Environment.TickCount * TimeSpan.TicksPerMillisecond)s>
MessageBox.Show(vbCrLf & "你从" & Now.Subtract(ts) & "开机，已经经历了" & (Fix(ts.TotalHours)).ToString & "小时" & Fix(ts.TotalMinutes - Fix(ts.TotalHours) * 60).ToString & "分" & Environment.TickCount \ 1000 Mod 60 & "秒", "→无条件⊙制作！")wqsV+3
Me.Show()v>
End SubI^c:W^
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 6=:~l
Private Sub 系统当前时间ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 系统当前时间ToolStripMenuItem.Clickg
Me.Hide()k?a
MsgBox("现在时刻：" & Now, MsgBoxStyle.Critical, "→无条件⊙制作")-3/i0"
Me.Show()|
End Sub8>KAC
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 )=
Private Sub 退同ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退同ToolStripMenuItem.Click1z
Me.Hide()Nx'
MessageBox.Show(vbCrLf & "恭喜！程序退出成功，欢迎您的使用！", "→无条件⊙制作，联系QQ:335342", MessageBoxButtons.OK, MessageBoxIcon.Information)^17jw-
NotifyIcon1.Visible = FalseYG
If IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe") Then IO.File.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\mwyclose.exe")B:U Ek
Endjq
End Subi[x
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 pDOHae
Private Sub 发送到ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 发送到ToolStripMenuItem1.Click'h
Try%c
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.SendTo))Y1
Catch ex As ExceptionLS<*W
Me.Hide()F0JK
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)mdyg-2
Me.Show()A
End TryR~pP
End Sub].i-
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 E&
Private Sub 启动组ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 启动组ToolStripMenuItem1.ClickSJ%fKe
TryK
Me.Hide()"fm
Dim f() As String:o*Gs
IO.Directory.SetCurrentDirectory(Environment.GetFolderPath(Environment.SpecialFolder.Startup))8wgE5l
f = IO.Directory.GetFiles(".", "*.*", IO.SearchOption.AllDirectories)s
If MsgBox(vbCrLf & "包括隐藏文件，发现您的 启动组 内一共有" & f.Length & "个文件！是否删除？", MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Information, "→无条件⊙制作") = MsgBoxResult.Yes ThenSqj
For i As Integer = 0 To f.Length - 1:>#Pl
IO.File.Delete(f(i)).
Next:\v0\Q
End IfL_0-
Me.Show()$Y#
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.Startup))mP
Catch ex As Exception}npfPu
Me.Hide()SS/g
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)>
Me.Show()L,
End TryP9kI
End SubwY{fc
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 rB
Private Sub 收藏夹ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 收藏夹ToolStripMenuItem1.Click`f
Try8VBS
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.Favorites))%XC]
Catch ex As Exception,
Me.Hide()I3U2
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)A#9*
Me.Show()7{ku@
End TryhSv+/
End Subukw:
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 ]'/X
Private Sub 我的文档ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 我的文档ToolStripMenuItem1.ClickN>@~
TryLCC<
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))7%He
Catch ex As Exception32,
Me.Hide()5{
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)W
Me.Show()qgNXt)
End TryAFDt'
End Sub.6-g1i
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 <7Ki/
Private Sub IE临时目录ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IE临时目录ToolStripMenuItem1.Clicknra)6
TryV>P&"
Me.Hide()b
Dim ie() As Stringll
IO.Directory.SetCurrentDirectory(Environment.GetFolderPath(Environment.SpecialFolder.InternetCache))0 aI`%
ie = IO.Directory.GetFiles(".", "*.*", IO.SearchOption.AllDirectories)rH)e"H
If MsgBox(vbCrLf & "已经在临时文件夹内发现了" & ie.Length & "个文件！是否将它们全部删除？", MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Information, "→无条件⊙制作") = MsgBoxResult.Yes ThenB76
For i As Integer = 0 To ie.Length - 1bHb^}#
IO.File.Delete(ie(i))k;%$&H
Next~/wHq[
End If5$@
Me.Show()r}lx4
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.InternetCache))sZO
Catch ex As Exception/YhjI1
Me.Hide()iUe^}
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)tkc
Me.Show()@nxe.
End Try({:Va#
End SubRV
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 {nEF
Private Sub 默认程序组ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 默认程序组ToolStripMenuItem.ClickbtV1
Tryf"4rs
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles))iL
Catch ex As ExceptionQC
Me.Hide()~iGX
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)|PsBic
Me.Show()6t Q7b
End Try%
End Subxm<bR>
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 ECVx
Private Sub 注册表ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 注册表ToolStripMenuItem.Click\Lt!
Trykjb~Z
My.Computer.Registry.CurrentUser.DeleteSubKeyTree("Software\Microsoft\Windows\CurrentVersion\Policies\System") '如果注册表被锁，则先解锁它。p.}C[~
My.Computer.Registry.CurrentUser.Close()P
Catch ex As Exception6I
'抛弃异常，继续执行！@vt9O
End Try#k
Process.Start("regedit")`t'Lh_
End Sub+Wj
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 ~%
Private Sub 计算器ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 计算器ToolStripMenuItem.ClickA2Hj
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 K"
Try`M-
Process.Start("calc")i
Catch ex As ExceptionW)m4U
Me.Hide()($C
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error))2j-
Me.Show()sD
End Try\H,v{B
End SubF
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 .iN~|
Private Sub 记事本ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 记事本ToolStripMenuItem.Click]
TryMC3>L
Process.Start("notepad")nwkTk
Catch ex As Exception+DqC|
Me.Hide()q
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)hk
Me.Show()|
End Try@
End SubKb*K3
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 $
Private Sub 写字板ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 写字板ToolStripMenuItem.ClickB<k,L2
Tryo
Process.Start("write")c
Catch ex As ExceptionO
Me.Hide()"<TS^
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)28@
Me.Show()<Ke
End Try#6fuK\
End Subg+)TL
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 Aiz^`U
Private Sub 任务管理器ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 任务管理器ToolStripMenuItem.Clickde/6-<
Try-|XZt?
Process.Start("taskmgr")Jb
Catch ex As ExceptionORLN
Me.Hide()-@
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)QC
Me.Show()m
End Try/W|$,
End Sub1QVbt
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 KstuZi
Private Sub 画图ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 画图ToolStripMenuItem.ClickDR
Try( |4@M
Process.Start("mspaint")a
Catch ex As ExceptionJ["X1'
Me.Hide()?
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)i-O#b
Me.Show()zF
End Tryi1B
End Subv_N7
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 Ct7rTK
Private Sub 剪切板查看ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切板查看ToolStripMenuItem.Click21
Trys(B^%
Process.Start("Clipbrd")qn
Catch ex As ExceptionW|
Me.Hide()wEE]!
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)_a+
Me.Show()*h
End Trya2Fm n
End Sub_U w0
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 !
Private Sub 本机用户和组ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 本机用户和组ToolStripMenuItem.ClickD
Try!:
Process.Start("lusrmgr.msc")i
Catch ex As Exception`Bh
Me.Hide()2<c
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)\ck
Me.Show()_:1
End TrySX
End Subz}
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 N-dM
Private Sub 计算机管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 计算机管理ToolStripMenuItem.Click\=\pF'
TryT`' D
Process.Start("compmgmt.msc")x{x
Catch ex As ExceptionN9G
Me.Hide()zlh
MessageBox.Show(ex.Message, "出错啦！原因：", MessageBoxButtons.OK, MessageBoxIcon.Error)dB
Me.Show()Y*~n
End Try#T?Z(
End Sub~<
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 `aGo,<
Private Sub 我爱你ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 我爱你ToolStripMenuItem1.Click>"=
Me.Hide()z1{
MessageBox.Show(vbCrLf & "欢迎您的使用，联系QQ：335342，很想认识远方的你！", "→无条件为你⊙程序设计！", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)Z
My.Computer.Clipboard.SetText("欢迎您的使用，联系QQ：335342，很想认识远方的你！")pikDY
MessageBox.Show(vbCrLf & "已经成功将版权信息写入到剪切板中，打开记事本粘贴一下试试！", "→无条件为你⊙程序设计！", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)8Ak
Me.Show()%N=F,0
End Sub'=N-*
Private Sub 清空剪切板ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 清空剪切板ToolStripMenuItem.ClickKW-5B
My.Computer.Clipboard.Clear()$j*Bvi
End Sub#{pF
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 (?
Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.forms.MouseEventArgs) Handles TextBox1.MouseClickJj!W
Me.Hide()Ua,
MessageBox.Show(vbCrLf & "这个IP是根据你的计算机自动检测出来的，一般不要改动，除非你需要Pint其它主机！", "→无条件为你⊙程序设计！", MessageBoxButtons.OK, MessageBoxIcon.Information)F
Me.Show()H6hOW?
End Sub:Z
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 _]:d>
Private Sub 隐藏主窗体ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 隐藏主窗体ToolStripMenuItem.Click kR*u
Me.Hide()N=Y6,G
End SubzKq4
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 3#a.V(
Private Sub 显示主窗体CToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 显示主窗体CToolStripMenuItem.ClickMb~?wD
Me.Show()YuHp
End SubSw]U
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 ><y
Private Sub 本机IP地址ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 本机IP地址ToolStripMenuItem.Click(m8z
Me.Hide()"|&tN
MessageBox.Show(vbCrLf & "你好！本机IP地址为：" & ip(0).ToString, "IP地址：", MessageBoxButtons.OK, MessageBoxIcon.Information)QrdQV
Me.Show()Bsb#
End SubTQ#-
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 ]szQ<s
Private Sub 隐藏HToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 隐藏HToolStripMenuItem.Click :%{?F
Me.Hide()4?rX
End SubO\d!
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 oIM<9!
Private Sub 统计系统进程数量ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 统计系统进程数量ToolStripMenuItem.Click:
Dim k() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcesses(),f
Me.Hide()<C
MessageBox.Show(vbCrLf & "你好！本机当前进程数量为" & k.Length & "个，统计完毕！", "→无条件为你⊙高兴的说：", MessageBoxButtons.OK, MessageBoxIcon.Information)'E?{
Me.Show()o
End SubmyJox
End ClassVJG
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 IQ2:S
EXE程序如下：2
隐藏：
本部分内容已经隐藏，必须回复后，才能查看
l+y
| | |
|
|
|
消息
查看
搜索
好友
引用
回复
只看我
2006/05/27 10:40am 
IP: 已设置保密
