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

Visual Basic 6

توسط moeinmq در 5 سال پیش
0 668 2 5 سال پیش
moeinmqvbprogrammer
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

خوش آمدید

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

لطفا ابتدا لاگین کنید