ممكن كود اضهار نافذة التحكم باللغة

PHP كود :

'خيارات الوصول

System.Diagnostics.Process.Start("access.cpl")

    'أضافة جهاز

 System.Diagnostics.Process.Start("hdwwiz.cpl")

    'أضافة وإزالة برامج

  System.Diagnostics.Process.Start("appwiz.cpl")

    'تحديثات تلقائية

System.Diagnostics.Process.Start("appwiz.cpl")

    'خصائص العرض

System.Diagnostics.Process.Start("desk.cpl")

    'جدار الحماية

System.Diagnostics.Process.Start("firewall.cpl")

    'خصائص الأنترنيت

System.Diagnostics.Process.Start("inetcpl.cpl")

    'الخيارات الأقليمية وخيارات الغة

System.Diagnostics.Process.Start("intl.cpl")

    'أجهزة تحكم التسالي

System.Diagnostics.Process.Start("joy.cpl")

    'خيارات الماوس

System.Diagnostics.Process.Start("main.cpl")

    'خصائص الأصوات وأجهزة الأصوات

System.Diagnostics.Process.Start("mmsys.cpl")

    'أتصالات شبكة الأتصالات

System.Diagnostics.Process.Start("ncpa.cpll")

    'معالج شبكة الأتصالات

System.Diagnostics.Process.Start("netsetup.cpl")

    'حسابات المستخدمين

System.Diagnostics.Process.Start("nusrmgr.cpl")

    'إدارة مصار البيانات

System.Diagnostics.Process.Start("odbccp32.cpl")

    'خيارات الطاقة

System.Diagnostics.Process.Start("powercfg.cpll")

    'خصائص النظام

System.Diagnostics.Process.Start("sysdm.cpl")

    'خيارات الهاتف والمودم 

System.Diagnostics.Process.Start("telephon.cpl")

    'خصائص التاريخ والوقت

System.Diagnostics.Process.Start("timedate.cpl")

    'مركز أمان ويندوز

System.Diagnostics.Process.Start("wscui.cpl")

    'التحديثات التقائية

System.Diagnostics.Process.Start("wuaucpl.cpl")

PHP كود :

Private Sub GetPrinters()
        Dim strPrinter As String
        ComboBox1.Items.Clear()
        If Printing.PrinterSettings.InstalledPrinters.Count > 0 Then
            For Each strPrinter In Printing.PrinterSettings.InstalledPrinters
                ComboBox1.Items.Add(strPrinter)
            Next
        Else
            MsgBox("لا توجد طابعات مثبتة علي جهاز الحاسوب")
        End If
    End Sub 