njq8

وعليكم السلام اسمه botkiller يعني قاتل البوتات تقدر تقرأ ذاكره اي عمليه شغاله عن طريق MiniDumpWriteDump API يكتب لك ذاكره العمليه على الجهاز وانت تقرأها وتشوف كل شيء موجود فيها حتى المتغيرات string بالنسبه لـ الفايرول تقدر تجرب هذا الموقع http://netfiltersdk.c…

وعليكم السلام ورحمه الله وبركاته ’,.. الله يوفقك أخوي وإن شاء الله تحصل الدعم من كل اخوانك العرب .. 1. كيف اجعل للبرنامج برنامج تنصيب؟ ج:تستطيع عن طريق الفيجوال ستيديو بدال لا تفتح مشروع فيجوال تفتح مشروع اسمه Setup project أو تبحث عن برامج ثانيه توفر لك نفس ا…

هذا الموقع يعطيك الاي بي whatismyip .org Dim w As New Net.WebClient Dim myip As String = w.DownloadString(" http://whatismyip.org" ) MsgBox(myip)

Dim T As TextBox = Me.Controls("Textbox1") If T Is Nothing Then MsgBox("Control not Found!!") Else T.Text = "???" End If الكود هذا للبحث عن اداه بـ واسطه الاسم داخل الفورم لكن لو كانت الاداه داخل panel لازم تغير الكود من Me.Controls("Textbox1") إلى Panel1.Cont…

using System.Runtime.InteropServices; using Microsoft.Win32; [ComClass(Taskbar.ClassId, Taskbar.InterfaceId, Taskbar.EventsId)] public class Taskbar { // These GUIDs provide the COM identity for this class // and its COM interfaces. If you change them, existin…

مع ان صار لي تقريبا 4 سنين بالبرمجه ولا مره تعاملت مع elseif : ) على فكره تقدر تكتب الكود بطريقه ثانيه ونفس النتيجه For Each x As String In New String() {"GoToForm", "FindReplace", "find_form"} Dim f As Form = My.Application.OpenForms(x) If f IsNot Nothing The…

وعليكم السلام ورحمه الله وبركاته .. أخوي عملت لك كلاس لـ حفظ الآراي بالريجستري تفضل الاكواد Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim o = New MySetting("MyVbKey") o.SetValue("o…

طيب .. Dim FS As New FileStream("c:\pkt2.jpg", FileMode.Open) While True Dim i As Integer = FS.ReadByte If i = -1 Then Exit While End If If i < 10 Then TextBox2.Text &= 0 End If TextBox2.Text &= Hex(i) & " " End While MsgBox("done") FS.Close()

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

وعليكم السلام ورحمه الله وبركاته ’,. الحل بإختصار إنك تقرأ بايت بايت واذا كان الرقم = -1 يعني نهايه الملف Dim i As Integer = f.ReadByte if i = -1 then exit sub end if وتقدر تستخدم hex مع الـ integer لان الـ byte اهو اصلا integer يبدأ من 0 إللى 255 لكن ماتقدر ت…

وعليكم السلام ورحمه الله وبركاته .. اتفضل أخوي Function NEWDATE(ByVal D1 As Date, ByVal y As Integer, ByVal m As Integer, ByVal d As Integer) As Date Return New Date(D1.Year + y, D1.Month + m, D1.Day + d) End Function طريقه الاسخدام مثلا لو تبي تنقص التاريخ 10…

السلام عليكم .. الاكواد اللي عباره عن : تأكد من الثريد هل تستطيع التحكم بالأدوات controls اذا تستطيع يبدأ التحكم واذا ماتستطيع يعمل invoke عن طريق الاداه control ويخلي الاستخدام عن طريق الـ thread الخاصه بالاداه وليست الثريد الجديده اللي عملتها اسمحلي ماعرف أع…

آسف أخوي مافهمت عليك من البدايه لكن الحين فهمت قصدك انك تبي تاخذ لغه الكتابه بالنافذه الفعاله .. بأذن الله انحلت مشكلتك تابع الاكواد Public Class Form1 Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Integer, ByVal lpdwProcessId A…

أخوي لو حبيت مساعده بالإيميل ضيفني yu @hotmail.com لان الكود بالنسبه لي شغال تمام Win7 64bit وجربته على كثير اجهزه بدون مشاكل ودامك مهتم ببرمجه الكيلوجر انا مبرمج برنامج إختراق كامل :) عالعموم اشرح لك الاكواد اللي كتبتها لك بالمشاركه الاولى GetForegroundWindow…

الكود يطلع لك اسم العمليه + عنوان النافذه [notepad] Untitled - Notepad جرب تحطها بـ تايمر Me.Text = ActiveWND() شغل المشروع وروح لأي نافذه ثانيه راح تشوف عنوان الفورم تغير

وعليكم السلام ورحمه الله وبركاته ’,. الأفضل تاخذ عنوان النافذه من البروسيس مثال Public Declare Function GetForegroundWindow Lib "user32.dll" () As IntPtr Public Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpdwProcess…