مطلوب مساعدة في عمل برنامج ادمن تول بالفيجوال بيسك

30.10.13 19:29

السلام عليكم

كيف الحال شباب

ان شاء الله تمام

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

فلو ممكن لاتبخلو علي بالمساعدة

انا محتاج كم كود

1-كود يقوم بتشغيل برامج السيرفر واعادة تشغيلها واغلاقها مثل برنامج هاواس

2-كود يقوم بعمل كراش للكابتن

3-كود ارسال الاوامر الى PrincessAuroraServer وCaptainHerlockServer

4-كود عمل حساب في السيرفر طبعا مع كود تشفير الباس وكيفية االربط مع قواعد البيانات

5-اعتقد اني طلبت كثير من الاكواد Suspect

لاكنني جديد في البرمجة فارجو ان تساعدوني بهذول الكودات وشكرا I love you

31.10.13 9:55

اب اب مافي خبراء فيجوال بيسك

31.10.13 10:14

1- للفتح

الكود:: Process.Start("مسار الكابتن او الاوث")

31.10.13 10:18

عمل كراش

الكود:: Process.GetProcessesByname("CaptainHerlockServer.exe").ForEach(Sub(x) x.Kill())

31.10.13 10:28

IceSword كتب:عمل كراش

الكود:

Process.GetProcessesByname("CaptainHerlockServer.exe").ForEach(Sub(x) x.Kill())

شكرا أيس

31.10.13 16:40

اب اب شباب ممكن الطلب الرابع

31.10.13 16:52

هو حلو انك عاوز تبقى مبرمج و تبدأ طريقك , بس مينفعش
تطلب الطلبات ديه هنا (عشان ده مش منتدى متخصص)
من رأيى إنك تشوفلك كورسات فيجوال بيسك و تتعلم و تشترك بمنتديات
متخصصة سواء انجليزى او عربى ...
بكدة هتبقى مبرمج شاطر و هتبدأ صح
و إن شاء الله اشوفك احسن من آيس ..

31.10.13 17:15

bombe كتب:هو حلو انك عاوز تبقى مبرمج و تبدأ طريقك , بس مينفعش
تطلب الطلبات ديه هنا (عشان ده مش منتدى متخصص)
من رأيى إنك تشوفلك كورسات فيجوال بيسك و تتعلم و تشترك بمنتديات
متخصصة سواء انجليزى او عربى ...
بكدة هتبقى مبرمج شاطر و هتبدأ صح
و إن شاء الله اشوفك احسن من آيس ..

اشكرك على اهتمامك اخي احمد Embarassed

انا نزلت فوق ال 20 درس عن الفيجوال بيسك

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

طبعا يحتاج وقت كثير لكي اكسب الخبرة واقدر استنتج الاكواد اللي طبتها مثل كود الاتصال بقواعد البيانات

وانا لا املك كثير من الوقت لأقضيه بتعلم هذه اللغة

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

لهذا قررت طلب هذه الاكواد من الاخوة الاعزاء في المنتدى

31.10.13 17:45

كلام بومب صحيح

أتمنى اشوفك أفضل مني

لكنها فكرة نوبة

جرب إعمل نوتباد كامل و رح ينفع كثير و من ثم انشره في المنتدى ( مش بالضرورة بالالوان فيه تكست بوكس و أزرار بس) انشره هنا

31.10.13 17:54

مثال عن كلامي : [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

01.11.13 1:20

لو عاوز كورسات متخصصة , انا لقيت واحد مكون من 200 درس @@
بس محتاج معرفة باللغة الانجليزية (أكيد طبعا) ...
الموقع اهه
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
و لو عاوز تحمله كــ(تورنت)
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
و ديه مجموعة فيديوهات تعليم الاتصال بالــSQL
بتاخد فكرة عن كيفية الاتصال بالسكل و تحط بيانات فيها ... إلخ
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

انا كنت ممكن ابدأ احملهم و اتعلم البرمجة بس مشغول فى حاجات تانية
بالتوفيق

01.11.13 14:13

bombe كتب:لو عاوز كورسات متخصصة , انا لقيت واحد مكون من 200 درس @@
بس محتاج معرفة باللغة الانجليزية (أكيد طبعا) ...
الموقع اهه
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
و لو عاوز تحمله كــ(تورنت)
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
و ديه مجموعة فيديوهات تعليم الاتصال بالــSQL
بتاخد فكرة عن كيفية الاتصال بالسكل و تحط بيانات فيها ... إلخ
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

انا كنت ممكن ابدأ احملهم و اتعلم البرمجة بس مشغول فى حاجات تانية
بالتوفيق

شكرا هذه هي الدروس التي كنت احتاجها bounce

01.11.13 14:55

أضن أفادك

01.11.13 15:06

مفيش مشكلة و لو عاوز حاجة اطلب بس Razz

01.11.13 15:25

أكيد أيس & تسلم احمد I love you

01.11.13 23:03

مشكوور حبيبي Embarassed

14.11.13 19:43

شباب ممكن مساعدة بكود ارسال الاوامر الىPrincessAuroraServer

هذا هو

الكود:: Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim process As Process For Each process In process.GetProcesses If (process.ProcessName = "PrincessAuroraServer") Then Dim ptr As IntPtr For Each ptr In GetChildWindows(process.MainWindowHandle) Dim capacity As Integer = &H100 Dim lpClassName As New StringBuilder(capacity) Form1.GetClassName(ptr, lpClassName, capacity) If (lpClassName.ToString = "Edit") Then Me.TextBox1.Text = Conversions.ToString(Me.ListBox1.SelectedItem) Dim text As String = Me.TextBox1.Text Dim num4 As Integer = 0 Dim length As Integer = [text].Length Do While (num4 < length) Dim ch As Char = [text].Chars(num4) Form1.SendMessage(ptr, &H102, DirectCast(Strings.Asc(ch), IntPtr), IntPtr.Zero) num4 += 1 Loop Form1.SendMessage(ptr, &H102, DirectCast(13, IntPtr), IntPtr.Zero) Me.TextBox1.Clear() Exit For End If Next End If Next End Sub

تطلعلي هذي المشكلة

'Value of type 'Integer' cannot be converted to 'System.IntPtr'.

14.11.13 20:25

اب اب

14.11.13 21:50

طبعا انا مقدرش اساعدك , بس حلل المشكلة
بيقولك قيمة ال (integer) مينفعش يتحول لـ (System.IntPtr)
لو مفيش حد فادك , روح منتدى متخصص و اسألهم .

15.11.13 20:14

bombe كتب:طبعا انا مقدرش اساعدك , بس حلل المشكلة
بيقولك قيمة ال (integer) مينفعش يتحول لـ (System.IntPtr)
لو مفيش حد فادك , روح منتدى متخصص و اسألهم .

انا بحثت كثير في بقية المنتديات بس مالقيت شي يفيدني

وانا محتاج بس هذا الكود

29.11.13 20:23

خبراء الفيجوال بيسك ممكن مساعدة بكود ارسال الاوامر الىPrincessAuroraServer

01.12.13 1:47

اب خبراء فيجوال بيسك

01.12.13 11:06

01.12.13 20:37

up hawas

20.01.14 10:59

اب اب ان مش متخص اكواد أمل الشعوب مووفق لو شي تاني انا جاهز يني لو تبي تصنع برنامج باي وع انا جاههزحبي ~ ..