مرحبا بكم فى منتدى هكرز www.dev-point.ibda3.org
 
الرئيسيةالرئيسية  اليوميةاليومية  س .و .جس .و .ج  بحـثبحـث  الأعضاءالأعضاء  المجموعاتالمجموعات  التسجيلالتسجيل  دخولدخول  
أهلا وسهلا بك زائرنا الكريم، إذا كانت هذه زيارتك الأولى للمنتدى، فيرجى التكرم بزيارة صفحة التعليمـــات، بالضغط على هنا. كما يشرفنا أن تقوم بالتسجيل بالضغط هنا اذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع فتفضل بزيارة القسم الذي ترغب أدناه.

شاطر | 
 

 عمل برنامج لمعرفة اسم الجهاز و نضامه ..خفيف ..

اذهب الى الأسفل 
كاتب الموضوعرسالة
hacker-22
مشرف أنظمة التشغيل
مشرف أنظمة التشغيل
avatar

عدد المساهمات : 136
تاريخ التسجيل : 07/04/2011
العمر : 28
الموقع : www.dev-point.ibda3.org

مُساهمةموضوع: عمل برنامج لمعرفة اسم الجهاز و نضامه ..خفيف ..   السبت أبريل 23, 2011 9:33 am

السلام عليكم
الشرح
3 ثكس
في الجينيرال :
كود:
Option Explicit
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias _
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" ( _
ByVal lpBuffer As String, nSize As Long) As Long
في الفورم :
كود:
Dim W
Dim WindowsD As String
WindowsD = Space(144)
W = GetWindowsDirectory(WindowsD, 144)
Text1.Text = WindowsD

Dim S
Dim SystemD As String
SystemD = Space(144)
S = GetSystemDirectory(SystemD, 144)
Text2.Text = SystemD

Dim N
Dim UserN As String
UserN = Space(144)
N = GetUserName(UserN, 144)
Text3.Text = UserN
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
عمل برنامج لمعرفة اسم الجهاز و نضامه ..خفيف ..
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى الهكرز :: قسم فيجوال بيسك-
انتقل الى: