+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كود واحد موقف شغلي كله برجاء المساعده (/showthread.php?tid=3873)
كود واحد موقف شغلي كله برجاء المساعده - metalsoft - 22-09-14
بداية الموضوع سيرفر ميكروتك
سيرفر تحكم شبكات
ليه تيرمنيال و خاصيه 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]
RE: كود واحد موقف شغلي كله برجاء المساعده - Kian Tech - 23-09-14
طيب ليش مغلب حالك ما دام موجود برنامج winbox مع كل نسخة سيرفر بتتحكم في كل شي موجود بداخله استخدم البرنامج افضلك
RE: كود واحد موقف شغلي كله برجاء المساعده - metalsoft - 23-09-14
(23-09-14, 09:52 AM)Deya R Ataya كتب : طيب ليش مغلب حالك ما دام موجود برنامج winbox مع كل نسخة سيرفر بتتحكم في كل شي موجود بداخله استخدم البرنامج افضلك
ال winbox تحكم كامل للشبكه
ميتفعش للعميل
انا عايز البرنامج يضيف اسم العميل كومنت لليوزر بتاعه عشان كل شهر بيشتغل بيوزر مختلف
RE: كود واحد موقف شغلي كله برجاء المساعده - metalsoft - 24-09-14
[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]
RE: كود واحد موقف شغلي كله برجاء المساعده - Basel_hmd - 08-03-17
(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]
مرحبا اذا في مجال ترفع النموذج بشكل كامل للإستفادة ؟