تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود واحد موقف شغلي كله برجاء المساعده
#1
Exclamation 
بداية الموضوع سيرفر ميكروتك 
سيرفر تحكم شبكات 
ليه تيرمنيال و خاصيه api 
المفروض ان ال api بتتحكم في السيرفر عن طريق البرنامج اللي بتعمله 
في api   vb.net 2010 , vb 2012 
http://wiki.mikrotik.com/wiki/API_in_VB_dot_NET
بس البرنامج اللي بعمله مش عايزه .net عشان ميحتادش نت فرام ورك 
و جربت الكود على vb 2005 منفعش 
لاقيت اداه بتشتغل vb 2005 
بس مش عارف انفذ الكود 
الكود المطلوب منه انه يصيف كومنت لليوزر 
الاداه هنا 
http://code.google.com/p/mikrotik4net/
و قدرت اظهر بيانات السيرفر بيها فعلا 
بس تنفيذ امر عن طريقها منفعش 
البرنامج الملحق لتشغيل السيرفر اسمه winbox 
فيه terminal بينفذ الامر 
الامر اللي محتاج انفذه 
[ltr]/tool user-manager user >comment "user" comment here [/ltr]
[rtl]مطلوب ان الكومنت و اسم اليوزر ينضاف من تكست في الفورم [/rtl]
[rtl]مثلا [/rtl]
[ltr]/tool user-manager user> comment textbox1.text textbox2.text [/ltr]
[rtl]و شكرا لكم [/rtl]
الرد
تم الشكر بواسطة:
#2
طيب ليش مغلب حالك ما دام موجود برنامج winbox مع كل نسخة سيرفر بتتحكم في كل شي موجود بداخله استخدم البرنامج افضلك
الرد
تم الشكر بواسطة:
#3
(23-09-14, 09:52 AM)Deya R Ataya كتب : طيب ليش مغلب حالك ما دام موجود برنامج winbox مع كل نسخة سيرفر بتتحكم في كل شي موجود بداخله استخدم البرنامج افضلك

ال winbox تحكم كامل للشبكه 
ميتفعش للعميل 
انا عايز البرنامج يضيف اسم العميل كومنت لليوزر بتاعه عشان كل شهر بيشتغل بيوزر مختلف
الرد
تم الشكر بواسطة:
#4
[ltr]الحمد لله تم التوصل للحل [/ltr]

[ltr]اللكود للناس اللي ممكن تحتاجه [/ltr]

[ltr]و مرفق ملف api [/ltr]

[ltr]Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click[/ltr]

[ltr]        Using session As New Tik4Net.TikSession(Tik4Net.TikConnectorType.Api)[/ltr]

[ltr]            session.Open("2.2.2.1", "admin", "mssm")[/ltr]

[ltr]            Dim api As Tik4Net.Connector.Api.IApiConnector = session.Connector[/ltr]

[ltr]            Dim result As String[/ltr]

[ltr]            Dim x As New Generic.Dictionary(Of String, String)[/ltr]

[ltr]            x.Add(".id", "01023")[/ltr]

[ltr]            x.Add("comment", "1000")[/ltr]

[ltr]            [/ltr]

[ltr]            api.ApiExecuteNonQuery("/tool/user-manager/user/set", x)[/ltr]

[ltr]        End Using[/ltr]

[ltr]    End Sub[/ltr]


الملفات المرفقة
.zip   tik4net_0.9.2.zip (الحجم : 35.25 ك ب / التحميلات : 117)
الرد
تم الشكر بواسطة:
#5
(24-09-14, 06:52 PM)metalsoft كتب : [ltr]الحمد لله تم التوصل للحل [/ltr]

[ltr]اللكود للناس اللي ممكن تحتاجه [/ltr]

[ltr]و مرفق ملف api [/ltr]

[ltr]Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click[/ltr]

[ltr]        Using session As New Tik4Net.TikSession(Tik4Net.TikConnectorType.Api)[/ltr]

[ltr]            session.Open("2.2.2.1", "admin", "mssm")[/ltr]

[ltr]            Dim api As Tik4Net.Connector.Api.IApiConnector = session.Connector[/ltr]

[ltr]            Dim result As String[/ltr]

[ltr]            Dim x As New Generic.Dictionary(Of String, String)[/ltr]

[ltr]            x.Add(".id", "01023")[/ltr]

[ltr]            x.Add("comment", "1000")[/ltr]

[ltr]            [/ltr]

[ltr]            api.ApiExecuteNonQuery("/tool/user-manager/user/set", x)[/ltr]

[ltr]        End Using[/ltr]

[ltr]    End Sub[/ltr]

مرحبا اذا في مجال ترفع النموذج بشكل كامل للإستفادة ؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فكرة مشروع بالفيجوال بيسك وقاعده بيانات اكسس ارجو المساعده خالد كامل1 3 189 18-09-18, 01:34 PM
آخر رد: elgokr
  ارجو المساعده ضرورى mhmd mega 2 91 17-09-18, 01:43 AM
آخر رد: عبد العزيز البسكري
  استفسار عن حماية او كسر البرامج مجموعه اسئله قد يكون الحل ارجو المساعده thementalist 1 183 15-09-18, 08:21 PM
آخر رد: عبدالله الدوسري
  ارجو المساعده اريد عمل البرنامج يتحدث تلقائيا بشرط بدون تحميل الاصدار الجديد ahmedngah36 4 164 30-07-18, 06:38 AM
آخر رد: GameOver
  [VB.NET] ممكنطريقة ربط 2 جداول مع بعضها وعرضها في جدول رقم 3 ومن تم حفظها وعرضها في تقرير واحد annaba2015 6 178 21-07-18, 11:41 PM
آخر رد: elgokr
  [VB.NET] سؤال أي قواعد البيانات أنسب لمشروع يعمل علي جهاز واحد فقط dametucorazon 6 340 06-07-18, 02:54 AM
آخر رد: dametucorazon
  [VB.NET] ممكن مساعدة : أريد عرض جمع قيمتين مختلفتين لمنتوج في سطر واحد khaaleed2006 4 153 13-05-18, 06:01 PM
آخر رد: elgokr
  ارجو المساعده فى تعديل كود SELECT نبيل فتحى 4 264 20-04-18, 07:22 PM
آخر رد: محمد كريّم
  ارجو المساعده في كود تغيير خلفية الفورم emamtron2014 0 167 19-03-18, 04:54 AM
آخر رد: emamtron2014
  تخزين صور ملفات متنوعه لشخص واحد من قيد في قاعدة بيانات عمر عبد 4 307 03-03-18, 12:55 PM
آخر رد: ابو محمد القحطاني

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم