PDA

View Full Version : اجرا كردن my computer در ويژوال ؟


kivoon
یک شنبه 10 خرداد 1388, 19:21 عصر
چجوري مي تونم با ويژوال my computer رو اجرا كنم

يعني يه command بزاريم با كليك بر روي my computer command >> اجرا شه ؟
kivoon
یک شنبه 10 خرداد 1388, 20:29 عصر
كسي نيست كمك كنه
من خيلي خيلي احتياج دارم
e601
یک شنبه 10 خرداد 1388, 23:51 عصر
سلام

میتونید از کد زیر استفاده کنید :





Dim myShell as New Shell

myShell.Open "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"



البته توجه داشته باشید در قسمت Refrences تیک مربوط به آیتم Microsoft Shell Controls And Automation خورد باشه.

موفق باشید...
xxxxx_xxxxx
دوشنبه 11 خرداد 1388, 01:41 صبح
و همچنين:


Shell "Explorer /N,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}",vbMaximizedFocus
Mbt925
سه شنبه 12 خرداد 1388, 17:09 عصر
يك ترفند ساده:



Shell "explorer.exe """""


البته وي بي اجازه قرار دادن بيش از دو " رو نميده. بنابراين بايد با استفاده از كد اسكي " رشته بالا رو بسازيد.
Tasiyan
چهارشنبه 13 خرداد 1388, 13:59 عصر
با عرض پوذش از استاد Mbt925

Shell "explorer.exe """"", vbNormalFocus