• شبکه کردن کامپیوترها با ویژوآل بیسیک
    #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,570 18-12-2015 ساعت 11:30
    آخرین ارسال: majidvajih
    Note ماشین حساب پیشرفته به زبان ویژوال بیسیک SOFTAFZAR 2 4,695 28-01-2015 ساعت 16:36
    آخرین ارسال: xMAN
    Note سوال سورس حذف ایمیل و نمایش آی پی و مک آدرس کامپیوتر moeinmq 1 1,288 24-01-2015 ساعت 18:30
    آخرین ارسال: xMAN
    Note space در ویژوال بیسیک 6 شهره 1 801 04-10-2014 ساعت 10:42
    آخرین ارسال: Comodo
    Note ویژوال بیسیک amir7519 1 727 19-07-2014 ساعت 17:36
    آخرین ارسال: C0der
    Note باز و بستن برنامه ها با ویژوال بیسیک Somi 1 792 18-05-2014 ساعت 19:28
    آخرین ارسال: VBProgrammer
    Note ایجاد لوزی با ویژوال بیسیک 6 Nastaran 2 889 07-04-2014 ساعت 14:25
    آخرین ارسال: Nastaran
    Note کمک در Sendkey ویژوال بیسیک THE KNIGHT 11 2,842 29-03-2014 ساعت 09:44
    آخرین ارسال: Stack OverFlow
    Note دانلود مجموعه پروژه ویژوال بیسیک Daniel 0 764 14-03-2014 ساعت 22:37
    آخرین ارسال: Daniel
    Note تمرینات حل شده درس برنامه سازی(ویژوال بیسیک) Daniel 0 1,341 13-03-2014 ساعت 19:32
    آخرین ارسال: Daniel

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