Windows Kontrol Tuşları

Windows üstünde bulunan kontrol tuşlarını program içinde topladım.

İşinize yarar diye düşündüm.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("rundll32.exe devmgr.dll DeviceManager_Execute")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1")
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,0")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Shell("RUNDLL32 SHELL32.DLL,Control_RunDLL SYSDM.CPL,,2")

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Shell("RUNDLL32 SHELL32.DLL,Control_RunDLL SYSDM.CPL,,3")
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Shell("RUNDLL32 SHELL32.DLL,Control_RunDLL SYSDM.CPL,,2")
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1")


    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2")
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Shell("rundll32.exe Shell32,Control_RunDLL")
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1")
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Shell("rundll32.exe printui.dll,PrintUIEntry /il/c	eca4")

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Shell("rundll32.exe tcpmonui.dll,LocalAddPortUI ")

    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Shell("rundll32.exe netplwiz.dll,AddNetPlaceRunDll ")
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Shell("RUNDLL32 SHELL32.DLL,Control_RunDLL NCPA.CPL,@0,2")
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Shell("RUNDLL32 SHELL32.DLL,Control_RunDLL TIMEDATE.CPL,@0,")
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl,,0")
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl")
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Shell("RUNDLL32 SHELL32.DLL,Control_RunDLL MAIN.CPL,@0,1")
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        Shell("RUNDLL32 USER32.DLL,SwapMouseButton")
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        Shell("RUNDLL32 SHELL32.DLL,SHHelpShortcuts_RunDLL PrintersFolder")
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        Shell("RUNDLL32 SHELL32.DLL,SHHelpShortcuts_RunDLL FontsFolder")
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        Shell("rundll32.exe ntlanui.dll,ShareManage ")
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        Shell("rundll32.exe ntlanui.dll,ShareCreate ")
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        Shell("rundll32.exe url.dll,FileProtocolHandler http://www.google.com")
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        Shell("rundll32.exe user32.dll,LockWorkStation ")

    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        Shell("RUNDLL32 SHELL32.DLL,Control_RunDLL DESK.CPL,@0,")
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        Shell("RUNDLL32 DESK.CPL,InstallScreenSaver C:sstext3d.scr")
    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
        Shell("RUNDLL32 DISKCOPY.DLL,DiskCopyRunDll")
    End Sub

    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
        Shell("RUNDLL32 SHELL32.DLL,ShellAboutW")
    End Sub

    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL Password.cpl")
    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
        Shell("rundll32.exe url.dll,TelnetProtocolHandler")
    End Sub

    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
        Shell("rundll32.exe %SystemRoot%System32netplwiz.dll,UsersRunDll")
    End Sub

    Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
        Shell("rundll32.exe zipfldr.dll,RouteTheCall C:2.jpg")
    End Sub

    Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
        Shell("RunDll32.exe msdxm.ocx,RunDll /play C:Mp3.mp3")
    End Sub

    Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0")
    End Sub

    Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0")

    End Sub

    Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0")
    End Sub

    Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL nusrmgr.cpl,,0")
    End Sub

    Private Sub Button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button40.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl,,0")
    End Sub

    Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click
        Shell("rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl,,0")
    End Sub

    Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button42.Click
        Shell("RUNDLL DESKCP16.DLL,QUICKRES_RUNDLLENTRY 800x600x8")

    End Sub

    Private Sub Button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button43.Click
        Shell("RUNDLL KEYBOARD,DISABLE")
        Shell("RUNDLL MOUSE,DISABLE")
    End Sub

    Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click
        Shell("RUNDLL MOUSE,ENABLE")
        Shell("RUNDLL KEYBOARD,ENABLE")
    End Sub

    Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click
        Shell("rundll32.exe shell32.dll,SHExitWindowsEx 1")
    End Sub

    Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button47.Click

    End Sub
End Class

Projeyi aşağıdaki linkten indirebilirsiniz:

Kaynak dosyayı indirmek için tıklayın