Windows Kontrol Tuşları

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

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/cteca4")



    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:

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 9 yıl önce
Rapid linki ölmüş,yenileyebilirmisin?
• 9 yıl önce
ewet bende denedim yenilermisiniz ?

Yukarı Git