أريد كود يقوم بإظهار حالة الإتصال بالشبكة الداخلية والip Address والhost Name في شريط Able أو شريط الحالة

لدي سؤال صغير :)

هل جربت البحث ولم تجد ماتريد؟

مرحباً أخوي..

بالطبع حاولت البحث بعدة مفاتيح إلا أن النتائج لم تكن مرضية

ومعظم هذه النتائج كانت غير دقيقة ومخالفة لما أريده..

فهل يمكنك مساعدتي وتوفير أقرب المواضيع التي يمكن الإستفادة منها

ولك جزيل الشكر مقدماً

وينكم شبااااااااااااااااااااااااااااااب :cry:

/index.php?showtopic=155106

/index.php?showtopic=141528

هناك عدة طرق أيضا لجلب اسم الجهاز يمكن استعمال Environ أو الوينسوك أيضا Winsock1.LocalHostName

يعطيك الله العافية أخوي { DreamNet }

مرفق ملف بما استطعت الوصول إليه عبر الروابط التي ذكرتها

كما وجدت هذا الكود والخاص بجلب اسم الكمبيوتر (Get The Registered Owner's Name ) .. بس ما فهمته

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long


Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
	Private Const REG_SZ = 1
	Private Const LOCALMACHINE = &H80000002
	'***** To use this function use Call GET
	'	 REGOWNERNAME, then use it as a variable.
	'	 EX - MsgBox GETREGOWNERNAME


Private Function GETREGOWNERNAME() As String
	Dim nBufferKey As Long
	Dim nBufferName As String
	nBufferName = Space(256)
	RegOpenKey LOCALMACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", nBufferKey
	RegQueryValueEx nBufferKey, "RegisteredOwner", 0, REG_SZ, nBufferName, Len(nBufferName)
	GETREGOWNERNAME = nBufferName
End Function

مصدر الكود

http://www.planetsourcecode.com/vb/scripts...52&lngWId=1

Get_IP_HostName.rar

هه شباب ...

ألا يوجد كود يمكنه جلب اسم الكمبيوتر واسم الشبكة Domain Name :eek:

أسهل طريقة لجلب اسم الكمبيوتر هي :

MsgBox Environ("computername")

لم أبحث جيدا على طريقة ايجاد اسم الDomain بواسطة دوال الAPI للويندوز لكن أعرف طريقة بالWMI تستطيع مساعدتك

Set objWMIService = GetObject("winmgmts:\\")
Set colItems = objWMIService.InstancesOf("Win32_ComputerSystem")
For Each objItem In colItems
 MsgBox "Computer Name: " & objItem.Caption & vbCrLf & _
"Domain Name: " & objItem.Domain
Next

بالتوفيق للجميع

فيه كيف مافي

برنامج اسمه

backinfo

بس للأسف انا ما عندي البرنامج بس عندي الباتش او السكريبت

موجود بالمرفقات

ملف

Background

يوضع في بدء التشغيل

اما الباقي فيوضع داخل مجلد الويندوز

مع تحيات

Help4sa

مجموعة مهنيه متخصصه في مجال تقنيه المعلومات

This is a professional group specialized in IT field

back_info.rar

بارك الله فيكم أخوتي الأحبة { DreamNet } و { dragon_fad }

بتوفيق من الله وبفضلكما .. استطعت الوصول إلى ما أريده

أجل التقدير وأجمل وأخلص التحيات لكما :wub:

وفي المرفقات التعديل النهائي للموضوع :clapping:

Get_IP_HostName.rar

مرحباً شباب

هل الأكواد الخاصة بإظهار اسم الشبكة تعمل لديكم عند وضعها بالـForm Load ؟

شيء آخر الكود الخاص بإظهار حالة الإتصال هو يقوم بفحص الإتصال بالإنترنت فقط ، وليس إتصاله بالشبكة :S

فهل يوجد كود مشابه يقوم بفحص حالة الإتصال بالشبكة وليس الإنترنت ؟!!!!!!!!