|
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
|
