|
HeLL
|
 |
« : 20 Haziran 2008, 20:04:18 » |
|
Public Sub panels_name(Filename As String) Dim check As Double On Error Resume Next check = Shell(Filename, 5) End Sub Private Sub close_Click() Unload Me End Sub Private Sub Control_Click() panels_name ("C:\Windows\Control.Exe") End Sub Private Sub Form_Load() Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'centre the form on the screen End Sub Private Sub Icon_Click(Index As Integer) If Index = 0 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1") ElseIf Index = 1 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1") ElseIf Index = 2 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl") ElseIf Index = 3 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0") ElseIf Index = 4 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0") ElseIf Index = 5 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL joy.cpl") ElseIf Index = 6 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1") ElseIf Index = 7 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL modem.cpl") ElseIf Index = 8 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0") ElseIf Index = 9 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0") ElseIf Index = 10 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl") ElseIf Index = 11 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL passworD.cpl") ElseIf Index = 12 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0") ElseIf Index = 13 Then panels_name ("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1") ElseIf Index = 14 Then panels_name ("Rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @ 2") End If End Sub
|