السلام عليكم ورحمة الله وبركاته
إخواني وأخواتي افراد هذا المنتدى العزيز واجهتني مشكله كبيره :angry: في تصميم برنامج صغير :blush: وهي إمكانية تغيير اسم الجهاز ( اسم الجهاز على الشبكة ) بواسطة الفيجوال بيسك 6 مع العلم أني جربت طريقة الداله SetComputerName دون جدوى أو لقلة خبرتي
فأرجو منكم طرح الحلول
سائلاً الله لي ولكم الخير والفائدة
ودمتم على خير
ما الكود الذي استخدمته في SetComputerName؟
اقتباسThe name is stored in the registry and the name change takes effect the next time the user restarts the computer.
اقتباسApplications using this function must have administrator rights.
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
أخي Xacker الكود المستخدم هو
Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" _
(ByVal lpComputerName As String) As Long
Private Function SetNewComputerName(name As String) As Boolean
'If function returns true then new name will apply on next boot
SetNewComputerName = SetComputerName(name)
End Function
تم تطبيق الكود بأكثر من طريقه ولكن دون جدوى حتى بعد إعادة تشغيل الجهاز والدخول بحساب المدير لا يوجد تأثير
استخدم SetComputerNameEx، لأن SetComputerName تقوم بتغيير اسم الـ NetBios فقط لذلك لا ترى تغييرات
Private Declare Function SetComputerNameEx Lib "kernel32.dll" Alias "SetComputerNameExA" ( _
ByVal NameType As Long, _
ByVal lpBuffer As String) As Long
Const ComputerNamePhysicalDnsHostname = 5
Private Sub ChangeComputerName_Click()
strNewName = "XACKER"
lRet = SetComputerNameEx(ComputerNamePhysicalDnsHostname, strNewName)
If lRet <> 0 Then
MsgBox "Everything went fine :)", vbInformation + vbOKOnly, "Arabteam2000"
Else
MsgBox ("Unable to rename the local computer name: " & vbCrLf & "Description: " & _
Err.Description & vbCrLf & "Details: " & Err.LastDllError & vbCrLf & _
"Error number: " & Err.Number), vbCritical + vbOKOnly, "Name Error"
End If
End SubDo as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
مشكور أخي Xacker على الكود والله ما قصرت تعبتك معي
بس ممكن طلب صغير :blush: :
ممكن تشرح لي هذا المقطع من الكود لو سمحت لي الله يجزاك خير :
lRet = SetComputerNameEx(ComputerNamePhysicalDnsHostname, strNewName)
If lRet <> 0 Then
MsgBox "Everything went fine :)", vbInformation + vbOKOnly, "Arabteam2000"
Else
MsgBox ("Unable to rename the local computer name: " & vbCrLf & "Description: " & _
Err.Description & vbCrLf & "Details: " & Err.LastDllError & vbCrLf & _
"Error number: " & Err.Number), vbCritical + vbOKOnly, "Name Error"
End Ifوشكراً جزيلاً على تقديمك الأكثر من رائع وسرعة تجاوبك معي
إن شاء الله يكون في موازين حسناتك ....
lRet = SetComputerNameEx(ComputerNamePhysicalDnsHostname, strNewName)
نداء الدالة ووضع قيمتها في متغير IRet
If lRet <> 0 Then
إذا اعادت الدالة قيمة غير 0 :
MsgBox "Everything went fine :)", vbInformation + vbOKOnly, "Arabteam2000"
عرض رسالة أن كل شيء يسير على ما يرام ...
Else
MsgBox ("Unable to rename the local computer name: " & vbCrLf & "Description: " & _
Err.Description & vbCrLf & "Details: " & Err.LastDllError & vbCrLf & _
"Error number: " & Err.Number), vbCritical + vbOKOnly, "Name Error"وإلا ,,, نعرض رسالة فيها معلومات عن الخطأ ...
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
شكراً على الشرح علاء،
بخصوص ComputerNamePhysicalDnsHostname تقوم بتغيير الـ netbios name والـ computer name وهو ما تحتاج إلى عمله غالباً وخصوصاً عند وجود الجهاز في شبكة.
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
مشكور يأخوان والله ماقصرتم ... كفيتم ووفيتم ....
بصراحه مهما اقول ما أوفيكم حقكم
جزاكم الله عني وعنى المسلمين خير
وشكرا جزيلاً
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة
سبحان الله وبحمده ... سبحان الله العظيم
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…