تقييم الموضوع :
  • 1 أصوات - بمعدل 1
  • 1
  • 2
  • 3
  • 4
  • 5
هل يمكن تغير هذا الكود الى vb.net or C#!
#1
السلام عليكم جميعآ أسال الله ان تقونه بخير
بسم الله الرحمان الرحيم
سألت صديقى قال لى اذهب الى vb4arb و اسال الاخوه هنا و ثوف يساعدوك
هل يمكن تغير هذا الكود الى vb.net or C#! a او هل يوجد كود يقوم بما يعله هذا الكود؟
هذه هو الكود لاكن C++

كود :
DWORD K32EnumAddr = (DWORD)GetProcAddress(LoadLibraryA("Kernel32.dll"),"K32EnumProcesses");
   //DWORD EnumAddr = (DWORD)GetProcAddress(LoadLibraryA("Psapi.dll"),"EnumProcesses");
   DWORD old;
   VirtualProtect((LPVOID)K32EnumAddr,sizeof(K32EnumAddr),PAGE_EXECUTE_READWRITE,&old);
   //VirtualProtect((LPVOID)EnumAddr,sizeof(EnumAddr),PAGE_EXECUTE_READWRITE,&old);
   memcpy((LPVOID)K32EnumAddr,(LPVOID)"\xC2\x0C\x00",3);
   //memcpy((LPVOID)EnumAddr,(LPVOID)"\xC2\x0C\x00",3);
   return 0;
}

int BYPASS::Driver64()
{

   wmemcpy((wchar_t*)0x405D0C24,(const wchar_t*)"X6va01",6);
   return 0;
}
الرد }}}}
تم الشكر بواسطة:
#2
لتحويل الكود من C# الى vb.net والعكس

الموقع الاول

الموقع الثاني

الموقع الثالث
الرد }}}}
تم الشكر بواسطة:
#3
(12-03-14, 11:27 PM)مالكـ كتب : لتحويل الكود من C# الى vb.net والعكس
الموقع الاول
الموقع الثاني
الموقع الثالث

يا اخي مالكـ إنه يريد التحويل من C++ إلي VB or C#

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة: محمد.احمد
#4
كود :
Private K32EnumAddr As UInteger = CUInt(GetProcAddress(LoadLibraryA("Kernel32.dll"),"K32EnumProcesses"))
   'DWORD EnumAddr = (DWORD)GetProcAddress(LoadLibraryA("Psapi.dll"),"EnumProcesses");
   Private old As UInteger
'C++ TO VB CONVERTER TODO TASK: The following statement was not recognized, possibly due to an unrecognized macro:
'C++ TO VB CONVERTER TODO TASK: There is no VB equivalent to 'sizeof':
   VirtualProtect((Object*)K32EnumAddr,sizeof(K32EnumAddr),PAGE_EXECUTE_READWRITE,&old)
   'VirtualProtect((LPVOID)EnumAddr,sizeof(EnumAddr),PAGE_EXECUTE_READWRITE,&old);
'C++ TO VB CONVERTER TODO TASK: The following statement was not recognized, possibly due to an unrecognized macro:
   memcpy((Object*)K32EnumAddr,(Object*)ChrW(&HC2).ToString() & ChrW(&H0C).ToString() & ChrW(&H00).ToString(),3)
   'memcpy((LPVOID)EnumAddr,(LPVOID)"\xC2\x0C\x00",3);
    Private As Return 0
}

'C++ TO VB CONVERTER WARNING: The original C++ declaration of the following method implementation was not found:
'ORIGINAL LINE: Integer BYPASS::Driver64()

Partial Public Class BYPASS
    Public Function Driver64() As Integer
    
    'C++ TO VB CONVERTER TODO TASK: The memory management function 'wmemcpy' has no equivalent in VB:
       wmemcpy(CStr(&H405D0C24), CStr("X6va01"), 6)
       Return 0
    End Function
الرد }}}}
تم الشكر بواسطة: محمد.احمد
#5
علمونا وش يسوي هذا الكود ...؟
الرد }}}}
تم الشكر بواسطة:
#6
(13-03-14, 12:09 AM)amgadtamer كتب :
كود :
Private K32EnumAddr As UInteger = CUInt(GetProcAddress(LoadLibraryA("Kernel32.dll"),"K32EnumProcesses"))
   'DWORD EnumAddr = (DWORD)GetProcAddress(LoadLibraryA("Psapi.dll"),"EnumProcesses");
   Private old As UInteger
'C++ TO VB CONVERTER TODO TASK: The following statement was not recognized, possibly due to an unrecognized macro:
'C++ TO VB CONVERTER TODO TASK: There is no VB equivalent to 'sizeof':
   VirtualProtect((Object*)K32EnumAddr,sizeof(K32EnumAddr),PAGE_EXECUTE_READWRITE,&old)
   'VirtualProtect((LPVOID)EnumAddr,sizeof(EnumAddr),PAGE_EXECUTE_READWRITE,&old);
'C++ TO VB CONVERTER TODO TASK: The following statement was not recognized, possibly due to an unrecognized macro:
   memcpy((Object*)K32EnumAddr,(Object*)ChrW(&HC2).ToString() & ChrW(&H0C).ToString() & ChrW(&H00).ToString(),3)
   'memcpy((LPVOID)EnumAddr,(LPVOID)"\xC2\x0C\x00",3);
    Private As Return 0
}

'C++ TO VB CONVERTER WARNING: The original C++ declaration of the following method implementation was not found:
'ORIGINAL LINE: Integer BYPASS::Driver64()

Partial Public Class BYPASS
    Public Function Driver64() As Integer
    
    'C++ TO VB CONVERTER TODO TASK: The memory management function 'wmemcpy' has no equivalent in VB:
       wmemcpy(CStr(&H405D0C24), CStr("X6va01"), 6)
       Return 0
    End Function

شكرآ جزيلآ
الرد }}}}
تم الشكر بواسطة:
#7
From C++ to VB

بموجب برنامج ترجمه
PHP كود :
Private K32EnumAddr As UInteger CUInt(GetProcAddress(LoadLibraryA("Kernel32.dll"),"K32EnumProcesses"))
    
'DWORD EnumAddr = (DWORD)GetProcAddress(LoadLibraryA("Psapi.dll"),"EnumProcesses");
    Private old As UInteger
'
C++ TO VB CONVERTER TODO TASKThe following statement was not recognizedpossibly due to an unrecognized macro:
'C++ TO VB CONVERTER TODO TASK: There is no VB equivalent to 'sizeof':
    VirtualProtect((Object*)K32EnumAddr,sizeof(K32EnumAddr),PAGE_EXECUTE_READWRITE,&old)
    '
VirtualProtect((LPVOID)EnumAddr,sizeof(EnumAddr),PAGE_EXECUTE_READWRITE,&old);
'C++ TO VB CONVERTER TODO TASK: The following statement was not recognized, possibly due to an unrecognized macro:
    memcpy((Object*)K32EnumAddr,(Object*)ChrW(&HC2).ToString() & ChrW(&H0C).ToString() & ChrW(&H00).ToString(),3)
    '
memcpy((LPVOID)EnumAddr,(LPVOID)"\xC2\x0C\x00",3);
     Private As Return 
0
 
}

'C++ TO VB CONVERTER WARNING: The original C++ declaration of the following method implementation was not found:
'
ORIGINAL LINEInteger BYPASS::Driver64()

Partial Public Class BYPASS
 
Public Function Driver64() As Integer

'C++ TO VB CONVERTER TODO TASK: The memory management function 'wmemcpy' has no equivalent in VB:
    wmemcpy(CStr(&H405D0C24), CStr("X6va01"), 6)
    Return 0
 End Function
End Class 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 80 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 383 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 60 12-02-17, 08:06 PM
آخر رد: مساعدة
  كيف يمكن تقريب الكسر العشري لاقرب رقم فى داتا جريد فيو السيد الجوهري 1 80 28-01-17, 06:34 PM
آخر رد: ابو ليلى
  كيف يمكن تثبيت رقم داخل مربع النص والنموذج فى وضع العرض السيد الجوهري 5 125 28-01-17, 02:25 AM
آخر رد: السيد الجوهري
  كيف يمكن تحريك مربعات النص على التقرير السيد الجوهري 3 128 27-01-17, 11:29 PM
آخر رد: السيد الجوهري
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 79 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 120 25-01-17, 03:02 PM
آخر رد: مساعدة
  منع تغير التاريخ و الوقت noway 5 157 25-01-17, 03:00 PM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 181 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL

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


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