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

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