بسم الله الرحمن الرحيم
اقدم لكم اسرع واخف برنامج في تحويل اكواد الاتصال واي كود تريد نسخه الي نسبه كبيره
البرنامج في امكانيات حلوه تعديل الاخطاء الكتابه بعد وقبل التحويل
كثير من المبرمجين يجدو صعوبه في عمل مشروع 1000اتصال . نسخ ولصق وتعديل
كل دا معانا انهارده مش هتيل هم البرنامج هيوفر من وقتك كتيررررررررررررر
وانشاء الله يعجبكم ... اولا نقوم بتحميل البرنامج وفتحه كما تشاهدون واجهة البرنامج سهله جدا
بعد كدا نروح ننسخ الكود ثم اظهار البرنامج ونضغط علي زر Paste code
نعدل الكود بقا زي ما هنشوف ف الصوره التاليه ...
عند نسخ الاكواد كامله قم ب الضغط علي Copy code
ولحذف الاكواد كلها ونبدا من جديد نحول اكواد تانيه نضغط علي Rmov all code
Stronger program assistant in the creat of super-fast Html Visual Basic
رابط تحميل البرنامج مباشر :
بسم الله الرحمن الرحيم
انهارده راح اشرحلكم طريقة اضافة اداه لتجميل شكل الفروم للفيجوال بيزك 8
Visual Studio 2008
اسم الاداه :
VisualStylerNet
وملف تفعيل الاداه :
License VisualStyler
اولا راح ندخل موقع الاداه ونقوم بتنزليها من الرابط التالي
من هناااااااااااا
مشاهدة الشرح فديو :
لتحميل ملف التفعيل :
![]](http://img600.imageshack.us/img600/4596/download10ol6an3.gif "حمل من هنا")
لمزيد من الاشكال ادخل علي الرابط التالي :
من هناااااااااااااااااااااا
تحياتي لكم اخوكم عادل الاسناوي >*_*<
كيفية فك تشفير الدوت نت : vb.net 2013
الزيارات:
الزيارات:
بسم الله الرحمن الرحيم
اليوم راح اشرحلكم كيفية فك تشفير الدوت نت فديووو
عن طريق برنامجين
-1 de4dot-2.0.3
2- Reflector
اولا نقوم بجلب الملف الذي تريد فكه
وتسحبه علي برنامج de4dot-2.0.3
راح يطلع معانا نسخه ثانيه راح نروح نفتح النسخه الثانيه ب برنامج Reflector
,ونشاهد من خلاله الاكواد الاصليه
الشرح مبسط واتمنا ان اكون وضحتلكم المعلومه
اخوكم عادل الاسناويتحميل برنامج : de4dot-2.0.3
تحميل برنامج : Reflecter
بسم الله الرحمن الرحيم
الشرح ساهل جدا بالصوره :
الاكواد المطلوبه سوف نقوم بفتح نافذة الاكواد ونقم بمسح اي شي بداخلها ولصف الاكواد التاليه :
Public Class Form1
' كود احضار الصوره code imag
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate("http://avatar.nimbuzz.com/getAvatar?jid=" & TextBox1.Text & "@nimbuzz.com")
End Sub
' save imag كود حفظ الصوره
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim saveDlg As New SaveFileDialog
saveDlg.Filter = "Image Files (*.bmp, *.jpg)|*.bmp;*.jpg"
If saveDlg.ShowDialog = DialogResult.OK Then
PictureBox1.Image.Save(saveDlg.FileName)
End If
End Sub
' كود اظهار الصوره في بيكتشر بوكس بدلا من الويب
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim g As String = ""
For Each ele As HtmlElement In WebBrowser1.Document.All
If ele.GetAttribute("src").ToLower.Contains("") Then
Dim imgsrc As String = ele.GetAttribute("src")
g = imgsrc
End If
Next
PictureBox1.ImageLocation = g
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End
End Sub
End Class
كل كود معرفو عشان تبقا فاهم بتحط كود ايه
اتمنا لكم التوفيق
فيجوال بيزك 2010 لعشاق البرمجه + سريال ورابط مباشر للتحميل
اولا رابط وصله للتحميل من الانترنت والتنصيب في نفس الوق وافضلها لانها بتنزل كامله
حجم الوصله :
3 Mb
ثانيا رابط تحميل النسخه كامله من فيجوال بيزك
حجم النسخه الكامله :
2.18 GB
واخيرا سريال التفعيل واتمنا لكم التوفيق :
اولا رابط وصله للتحميل من الانترنت والتنصيب في نفس الوق وافضلها لانها بتنزل كامله
حمل من هنا / Download now
حجم الوصله :
3 Mb
ثانيا رابط تحميل النسخه كامله من فيجوال بيزك
حمل من هنا / Download now
حجم النسخه الكامله :
2.18 GB
واخيرا سريال التفعيل واتمنا لكم التوفيق :
2KQT8-HV27P-GTTV9-2WBVV-M7X96
صور البرنامج
انهارده جايبلكم مشروع انشاء الله هيفيدكم
اولأ : عمل اتصال بسيرفر النيمبز
هشرح الطريقه خطوه خطوه
اولا نقوم بعمل فروم جديد بواسطة فيجوال بيزك 2008
ونضيف الادوات التاليه
2-TEXTBOX
1-BUUOTN
1-label
واداةasixmpp.dll
ندخل علي قائمة الاكواد بواسطة المواس نضغط مرتين علي الفروم
راح نضع في جنرال الاكواد التاليه
Imports agsXMPP
Imports System.IO
Imports agsXMPP.Xml.Dom
Imports agsXMPP.protocol.client
Imports System.Text
Imports VB = Microsoft.VisualBasic
Imports Microsoft.Win32
ونضع الاكواد التاليه تحت Public Class Form1
Dim nimbuzz As New agsXMPP.XmppClientConnection
Dim gt, j As String, server1 As String = "nimbuzz.com", host1 As String = "o.nimbuzz.com"
Dim target As String
نضع الاكواد التاليه في زر تسجيل الدخول كما موضح بالصوره
Private Sub Button1_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles Button1.Click
'هنا كود الاتصال
If Button1.Enabled = True Then
With nimbuzz
.Server = server1
.ConnectServer = host1
'هنا هنحدد التسكت الي هتكتب فيه اسم النك وتكست الباسورد
.Open(TextBox1.Text, TextBox2.Text, "Nimbuzz_MIDP5246")
AddHandler nimbuzz.OnLogin, AddressOf loged1
AddHandler nimbuzz.OnAuthError, AddressOf wrong1
End With
Button1.Text = " ... انتظر جاري الاتصال"
End If
End Sub
نضع الاكواد التاليه خلف اكواد الزر بالترتيب كما نشاهد في الصوره
Private Sub loged1(ByVal sender As Object)
If MyBase.InvokeRequired = True Then
MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf loged1), New Object() {sender})
Else
'هنا ف حالة نجح في التسجيل راح نكتب اوامر مثلا اانا راح اعطي امر يخبرني ان الحساب اون لاين
Label4.Text = "نجح في تسجيل الدخول"
End If
End Sub
Private Sub wrong1(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element)
If MyBase.InvokeRequired = True Then
MyBase.BeginInvoke(New agsXMPP.XmppElementHandler(AddressOf wrong1), New Object() {sender, e})
Else
'وهنا فشل في تسجيل الددخول ارح اعطي امر مسج بوكس يخبرني بان الايميل مش شغال
MsgBox("خطاء في اسم المستخدم او كلمة المرور رجاء التاكد من البيانات")
End If
End Sub
وبكده انتهاء الشرح واسف لو كنت مش وضحة اكتر
تحميل المشروعاتمنا لكم التوفيق اخوكم عادل الاسناوي
المشاركات
