اريد تغيير اسم و ip الكمبيوتر بالفيجوال بيسك

حكاية تغيير IP الجهاز دي صعبة جداً وتعمل مشاكل كتيير علشانه بيتغير وفق نسق معين وبشكل معين ...

أما الاسم , فيمكن تغيره عن طريق Rigistry

Ala2 VB

اشكرك اخى الكريم على الرد

ولكن انا اريد فورم وعليه زر و تكيست بوكس

لما اكتب الاسم فى التكيست بوكس واضغط الزر يكون هذا الاسم هو اسم الكمبيوتر

ارجو يكون طلبى واضح واجد اجابه لديكم

اقتباس

عنوان المشاركة

1 . يجب أن يكون عنوان المشاركة يدل على محتواها

قواعد طرح المشاركات :

/index.php?showtopic=29343

بالتوفيق ,,,,

A7med_prof

ياسيدى الله يصلح حالك ويبارك فيك هو ده اللى ربنا قدرك عليه

موضوع المشاركه

تغيير اسم و ip الكمبيوتر بالفيجوال بيسك

وكاتب العنوان

ارجو المساعده, اريد تغيير اسم و ip الكمبيوتر بالفيجوال بيسك

يعنى اكتب عنوان ايه

لا حول ولا قوة الا بالله

اقتباس

عنوان المشاركة

1 . يجب أن يكون عنوان المشاركة يدل على محتواها

2 . ان لا يحتوي على عبارات مثيرة مثل " النجدة " ، "الحقونا " ، " سؤال إلى أهل الخبرة " ، " طلب برنامج "

3. كما يمنع منعا باتا توجيه السؤال الي شخص بعينه لان هذا قد يدفع الاخرين الي عدم الاجابة ،و الهدف هو التفاعل من الجميع.

وبالاخص

اقتباس

ان لا يحتوي على عبارات مثيرة مثل " النجدة " ، "الحقونا " ، " سؤال إلى أهل الخبرة " ، " طلب برنامج "

فا الالتزام واجب على كل عضو حتى نرتقي بالمنتدى وتريح وتستريح

بالتوفيق ,,,,

A7med_prof

اقتباس

ولكن انا اريد فورم وعليه زر و تكيست بوكس

لما اكتب الاسم فى التكيست بوكس واضغط الزر يكون هذا الاسم هو اسم الكمبيوتر

الأخ الفاضل ...

chgIPName.zip

أرجوا ان يساعدك هذا البرنامج فى ما تريد إنجازه، بأستخدم (MS-VB 6.0)

وهو يستخدم الدالة API التى اسمها SetComputerName لتغير أسم الكمبيوتر، والدالة GetComputerName للإستعلام عن اسم الكمبيوتر، وتعريفهم كالتالى

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long

وبعد أستخدام الدالة SetComputerName تحتاج لعمل إعادة تشغيل (Restart) كى تكتمل عملية التغير.

شكراً

ياستاذ A7med_prof

الله يبارك فيك

عايز تذود مشاركتك ذود برحتك

بس لو عند ك معلومه او رابط دلنى

ياتسيب اخ فاضل يكون عارف او عنده رابط يدلنى

لانى بحثت كتير وماوصلتش لحل

بارك الله فيك Usama El-Mokadem

واكثر من امثالك وجعلك الله عونا للناس

ومتشكر جداجدا على المساعده

ولي سؤال بعد أذنك

لتغيير الاسم لابد من اعاده تشغيل الكمبيوتر

الا يوجد طريقه لتغير اسم الكمبيوتر دون اعاده التشغيل

:) اولا اخي يجب عليك انك تحترم قواعد المشاركة وذلك احتراما للمنتدي ولاعضائه ........... وليس عيبا ان يخبرك اي عضو بما وقعت فيه من خطأ ويجب عليك تقبل النصيحة بصدر رحب لان ليس اي عضو هنا في المنتدي مجبر علي اجابتك او مساعدتك ......... اوكيه

ثانيا : تفضل كود تغييير اسم الكمبيوتر باستخدام دوال API .

-ضع الكود التالي في موديول ....

Declare Function SetComputerName Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpComputerName As String) As _
Long  


Public Function ChangeComputerName(sNewComputerName As String) _
As Boolean

On Error Resume Next
Dim nReturn As Long

nReturn = SetComputerName(sNewComputerName)
If Err.Number = 0 Then
   ChangeComputerName = nReturn <> 0
End If

End Function

-ضع الكود التالي في زر تغيير اسم الكمبيوتر بالاسم المحدد في الكود وطبعا تقدر تغير الاسم ده عن طريق وضع تكست بوكس او اي شي اخر ...

 ChangeComputerName("Max Bayne"

- اما بخصوص تغيير IP بالنسبة للكمبيوتر فانا لا اعلم عنه شي ولا اعتقد انه ممكن بواسطة الفيجوال بيزك 0.6 انا دورت لك علي دوال API بخصوص الموضوع ده بس للاسف ما لقتش ولا دالة واحدة بس علي العموم لو تحب انا ممكن اكتب لك كود بلغة الفيجوال دوت نت فهيا كفيلة بذلك .........

وعلي العموم شوف الكود ده بس يمكن ذلك عن طريق الدوت نت تذكر ذلك ........ وقد وضعته للفائدة العامة ليس الا .. وطبعا الكود هيغير الاي بي الي اي بي ثابت وذلك باعطائه المتغيرات الثلاثة static ip address و gateway وmask

Private Sub btnchangeip_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnchangeip.Click

Dim changip As New ProcessStartInfo()
changip .FileName = "Netsh"
changip .Arguments = "int ip set add name=""Local Area Connection""
source=static addr=10.0.0.250mask=255.255.255.255 gateway=10.0.0.138
gwmetric=1"
Process.Start(changip)

End Sub

-اسف لاني لم اري مشاركات الاخ اسامة اما بالنسبة لمشلكة اعادة التشغيل فا اعتقد انه لا يمكن لانه في حالة وجود شبكة نيت وررك يجب عمل اعادة تشغيل عشان الااجهزة الاخري تاخد اسم الجهاز لما بيفتح علي لاشبكة والله اعلم .............

لتغيير الـ IP راجع : Set the IP Address in VB6 و Change your IP address without restarting

eldahawe

لو كنت تعرف احمد بروف مكنتش تقول كده وياريت التركيز في كلام الاخ ماكس بين جيدا وانظر الى مشاركات ااخ احمد بروف جيدا حتى يتثنى لك معرفته

فهو مثال للعضو المثالي الذي لا يريد سوى الالتزام

يا اخي انت هنا طالب للعلم وفي منتدى يجب عليك احترام قوانينه

وياريت ما تظن احد سوء واعرف الشخص الذي تتحدث معه قبل التحدث معه بهذه اللهجه

واقل ما كن يجب ان يحدث هو ان الاعضاء الافاضل لن يقومون بالرد على سؤالك لكي لا يتكرر مثل هذا من غيرك

لتغيير الأي بي

Shell "cmd.exe /c NETSH INTERFACE IP SET ADDRESS " & Chr(34) & "Local Area Connection" & Chr(34) & " static 192.166.60.3 255.255.255.0 none", 0