Function Coding RunDLL32 Untuk Para Programmer VBA Excel #Rumus Ajaib

Selamat Siang, Beberapa fungsi RunDLL32 yang biasa ditampilkan di Ms. Windows memang sudah tidak asing lagi namun bagi pemula rasanya nama RunDLL32 ini cukup asing. Fungsi RunDLL32 digunakan untuk menjalankan fungsi-fungsi perintah internal Windows. Lalu apa itu rundll32.exe? Itulah pertanyaan pertama yang harus kita pahami jawabannya sebelum kita bisa memperbaiki kerusakan pada file ini. Proses rundll32.exe adalah bagian dari OS Windows yang bertanggung jawab untuk menjalankan DLL dan menempatkan libraries dalam memori. Proses rundll32.exe dikenal sebagai program utilitas command line, dan melakukan 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 adalah pengembangan dari Run DLL.

Berikut daftar RunDLL32 untuk para programmer yang bisa 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.

Tweet

Subscribe to receive free email updates: