Selamat Siang, Beberapa fungsi RunDLL32 yang biasa ditampilkan di Ms. Windows memang sudah tidak abnormal lagi namun bagi pemula rasanya nama RunDLL32 ini cukup asing. Fungsi RunDLL32 dipakai untuk menjalankan fungsi-fungsi perintah internal Windows. Lalu apa itu rundll32.exe? Itulah pertanyaan pertama yang harus kita pahami jawabannya sebelum kita dapat memperbaiki kerusakan pada file ini. Proses rundll32.exe yaitu bab dari OS Windows yang bertanggung jawab untuk menjalankan DLL dan menempatkan libraries dalam memori. Proses rundll32.exe dikenal sebagai jadwal utilitas command line, dan melaksanakan fungsinya terintegrasi bersama dengan file rundll.exe. Rundll32.exe bekerja dengan menerapkan suatu fungsi yang diekspor dari modul DLL yang spesifik yaitu 16bit atau -32-bit. Proses rundll32.exe yaitu pengembangan dari Run DLL.
Berikut daftar RunDLL32 untuk para programmer yang dapat dimanfaatkan terutama untuk para pengguna VBA Excel disertai dengan perintah untuk menampilkannya.
Private Sub CommandButton1_Click()
'setting font
On Error Resume Next
Shell "Rundll32 Shell32.dll,SHHelpShortcuts_RunDLL FontsFolder", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton10_Click()
On Error Resume Next
Shell "RunDll32.exe user32.dll,LockWorkStation", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton11_Click()
On Error Resume Next
Shell "Rundll32 Shell32.dll,Control_RunDLL main.cpl @0,0", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton12_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton13_Click()
On Error Resume Next
Shell "Rundll32 Shell32.dll,OpenAs_RunDLL Any_File-name.ext", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton14_Click()
On Error Resume Next
Shell "Rundll32 Printui.dll,PrintUIEntry /?", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton15_Click()
On Error Resume Next
Shell "Rundll32 Shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton16_Click()
On Error Resume Next
Shell "Rundll32 Shell32.dll,Control_RunDLL Intl.cpl,,0", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton17_Click()
On Error Resume Next
Shell "RunDll32.exe keymgr.dll,KRShowKeyMgr", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton18_Click()
On Error Resume Next
Shell "Rundll32 Shell32.dll,Control_RunDLL HotPlug.dll", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton19_Click()
On Error Resume Next
Shell "Rundll32 Shell32.dll,Control_RunDLL Mmsys.cpl,,0", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton2_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,0", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton20_Click()
On Error Resume Next
Shell "Rundll32 Shell32.dll,Control_RunDLL Sysdm.cpl,,3", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton21_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Options_RunDLL 1", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton22_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Control_RunDLL nusrmgr.cpl", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton23_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton24_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Control_RunDLL wscui.cpl", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton25_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Control_RunDLL firewall.cpl", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton26_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Control_RunDLL NetSetup.cpl,@0,WNSW", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton27_Click()
On Error Resume Next
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton28_Click()
On Error Resume Next
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton29_Click()
On Error Resume Next
Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1, Control_RunDLL", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton3_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll, Control_RunDLL", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton30_Click()
On Error Resume Next
Shell "rundll32.exe shell32.dll, Control_RunDLL desk.cpl,, 1", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton31_Click()
On Error Resume Next
Shell "rundll32.exe shell32.dll, Control_RunDLL main.cpl @ 1", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton32_Click()
On Error Resume Next
Shell "rundll32.exe shell32.dll, Control_RunDLL main.cpl @ 1,, 1", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton33_Click()
On Error Resume Next
Shell "rundll32.exe shell32.dll, OpenAs_RunDLL {drive: \ path \ filename}", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton34_Click()
On Error Resume Next
Shell "rundll32.exe shell32.dll, Control_RunDLL intl.cpl,, 2", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton35_Click()
On Error Resume Next
Shell "rundll32.exe user.exe, restartwindows", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton36_Click()
On Error Resume Next
Shell "rundll32.exe user.exe, exitwindows", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton4_Click()
On Error Resume Next
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton5_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton6_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Control_RunDLL access.cpl,,3", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton7_Click()
On Error Resume Next
Shell "RunDll32.exe devmgr.dll DeviceManager_Execute", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton8_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Options_RunDLL 0", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub
Private Sub CommandButton9_Click()
On Error Resume Next
Shell "RunDll32.exe keymgr.dll,PRShowSaveWizardExW", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub Demikian Semoga bermanfaat.
Sumber http://www.excel-id.com/