[Help] memanggil file .msc dengan vb

[:Pak:Bos:]

Memanggil file msc gimana ya? Kalau memanggil file exe bisa menggunakan shell tapi kalau file msc kok gk bisa?

[gunzz]

pake Shell Execute aja...
mungkin bisa membantu
cari kodenya di
http://www.vbcode.com/

[Qie.aja]

Memanggil file msc gimana ya? Kalau memanggil file exe bisa menggunakan shell tapi kalau file msc kok gk bisa?

pake shell juga bisa kk..

[:Pak:Bos:]

Gk bisa (invalid procedure call)....

[The Gugel]

Gk bisa (invalid procedure call)....

utk VB.6 , coba pake codes dibawah ini...

Kode: [Pilih]

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                                      (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                                       ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
    ShellExecute Me.hwnd, vbNullString, "services.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command10_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\ntmsmgr.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command11_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\ntmsoprq.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command12_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\perfmon.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command13_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\certmgr.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command14_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\secpol.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command2_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\devmgmt.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command3_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\compmgmt.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command4_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\dfrg.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command5_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\diskmgmt.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command6_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\eventvwr.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command7_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\fsmgmt.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command8_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\gpedit.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub Command9_Click()
    ShellExecute Me.hwnd, "OPEN", "c:\windows\system32\lusrmgr.msc", vbNullString, "C:\", SW_SHOWNORMAL
End Sub


[spoiler=penampakan:][/spoiler]


utk VB.NET , coba pake codes ini...
misal, utk memanggil Disk Defragmenter...

Kode: [Pilih]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Diagnostics.Process.Start("dfrg.msc")
End Sub


[Qie.aja]

Gk bisa (invalid procedure call)....

beginikah?
Shell "mmc.exe c:\windows\system32\diskmgmt.msc"

[:Pak:Bos:]

Ok terima kasih semuanya... Sudah bisa dengan cara yg dijelasin Qie, namun itu khusur untuk file .msc...