شبکه کردن کامپیوترها با ویژوآل بیسیک

بازدید15.2kپست ها2آخرین فعالیت7 سال پیش
0
0

[color=#ff0000]چطور با ویژآل بیسیک چندین کامپیوترو باهم شبکه کنم؟[/color]

[color=#0000ff]آیا میتونم با یک فابل منیجر به اطلاعات هارد کامپیوترایی شبکه شده دسترسی داشته باشم؟مثلا اسم کامپیوترو بزنم بعد درایواشو مشخص کنه[/color]

0

سلام
منظورت از شبکه چیه؟ شما میتونی فولدرهایی که در کامپیوتر دیگه وجود داره و به کامپیوتر فعلی از قبل شبکه شده رو ببینی

کد:

Option Explicit
Dim strComputer
Private Sub ListShares(strComputer)
    Dim strObject
    Dim colShares
    Dim objWMIService, objShare

    Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
    Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
    
    For Each objShare In colShares
        MsgBox objShare.Name & " [" & objShare.Path & "]"
    Next

End Sub

Private Sub Form_Load()
 
 Do
    strComputer = InputBox("Please enter name of a computer (or . for local host)", "Input")
 Loop Until strComputer <> ""
  
   ListShares (strComputer)

End Sub

این یه کد کلیه باید خودت ویرایشش کنی
نام کامپیوتر رو وارد کن مثل VBPROG

0

منظورم اینه با ویژوال یبرنامه رو تو کام دیگه اجرا کنم
نمیشه با برنامه پیداکردن نام کامپیوتر نامو پیداکرد بعد خود نرم افزار نام رو وارد کنه؟

آخرین ویرایش: 22-09-2013 ساعت 20:00، توسط moeinmq

سوال برنامه نویسی دارید؟

هیچ وقت در پرسیدن سوال شک نکنید

خوش آمدید

برای طرح سوال، ایجاد بحث و فعالیت در سایت نیاز است ابتدا وارد حساب کاربری خود شوید. در صورتی که هنوز عضو سایت نیستید میتوانید در عرض تنها چند ثانیه ثبت نام کنید.