• شبکه کردن کامپیوترها با ویژوآل بیسیک
    #1
    Note 
    چطور با ویژآل بیسیک چندین کامپیوترو باهم شبکه کنم؟

    آیا میتونم با یک فابل منیجر به اطلاعات هارد کامپیوترایی شبکه شده دسترسی داشته باشم؟مثلا اسم کامپیوترو بزنم بعد درایواشو مشخص کنه

    ...هیچکس ویرانیم را حس نکرد...
    ...وسعت تنهاییم را حس نکرد...
    ...درمیان خنده های تلخ من...
    ...گریه های پنهانیم را حس نکرد...

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

    کد:
    [VB]
    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
    [/VB]
    این یه کد کلیه باید خودت ویرایشش کنی
    نام کامپیوتر رو وارد کن مثل VBPROG

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

    آخرین ویرایش: 22-09-2013 ساعت 20:00، توسط moeinmq
    ...هیچکس ویرانیم را حس نکرد...
    ...وسعت تنهاییم را حس نکرد...
    ...درمیان خنده های تلخ من...
    ...گریه های پنهانیم را حس نکرد...

    پاسخ
    ایجاد موضوع جدید   پاسخ به موضوع  

    موضوعات مرتبط با این موضوع...
    موضوع نویسنده پاسخ بازدید آخرین ارسال
    Note دانلود نمونه سولات ویژوال بیسیک SOFTAFZAR 1 2,638 18-12-2015 ساعت 11:30
    آخرین ارسال: majidvajih
    Note ماشین حساب پیشرفته به زبان ویژوال بیسیک SOFTAFZAR 2 4,841 28-01-2015 ساعت 16:36
    آخرین ارسال: xMAN
    Note سوال سورس حذف ایمیل و نمایش آی پی و مک آدرس کامپیوتر moeinmq 1 1,392 24-01-2015 ساعت 18:30
    آخرین ارسال: xMAN
    Note space در ویژوال بیسیک 6 شهره 1 824 04-10-2014 ساعت 10:42
    آخرین ارسال: Comodo
    Note ویژوال بیسیک amir7519 1 771 19-07-2014 ساعت 17:36
    آخرین ارسال: C0der
    Note باز و بستن برنامه ها با ویژوال بیسیک Somi 1 840 18-05-2014 ساعت 19:28
    آخرین ارسال: VBProgrammer
    Note ایجاد لوزی با ویژوال بیسیک 6 Nastaran 2 925 07-04-2014 ساعت 14:25
    آخرین ارسال: Nastaran
    Note کمک در Sendkey ویژوال بیسیک THE KNIGHT 11 2,982 29-03-2014 ساعت 09:44
    آخرین ارسال: Stack OverFlow
    Note دانلود مجموعه پروژه ویژوال بیسیک Daniel 0 797 14-03-2014 ساعت 22:37
    آخرین ارسال: Daniel
    Note تمرینات حل شده درس برنامه سازی(ویژوال بیسیک) Daniel 0 1,390 13-03-2014 ساعت 19:32
    آخرین ارسال: Daniel

    کاربرانِ درحال بازدید از این موضوع:   1 مهمان