أحتاج بعض أكواد الفجوال بيسك 6

[سامي.خ]

أحتاج إلى الأكواد التالية

كود لفك الملفات المضغوطة zip
كود لإلغاء مهام الطابعة
كود يقوم بنسخ نفس البرنامج إلى مجلد آخر

يعطيكم العافية
ودمتم سالمين

[Argonaut]

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

تجد مبتغاك في قسم المصادر المفتوحة

(:
وشكرا"

[سامي.خ]

فيه بعض الشفرات ما لقيتها
اريد كود يطبع سطر معين من ملف مفكرة
وكود لحساب عطط السطور من ملف المفكرة
وكود لتحميل ملف من النت

[Argonaut]

تفضل
هذه المكتبة سوف تفيدك

(:،،

وشكرا"

[سامي.خ]

ثانكس مان على المساعدة

[oms]

شو ناوي تعمل برنامج إختراق

كل اللي طلبته يدل على شيء واحد ..

كود لفك الملفات المضغوطة ( فك برنامجك الأصل إنوا مضغوط ) وبعدين إلغاء جميع المهام من الطابعة ، ولربما يكون هناك مهمة أنت قد وضعتها من خلال برنامجك ، لتضمن إنوا في مهمة واحدة فعلياً ... كود لنسخ نفس برنامجك ) يعني فايروس

يت سيدي تتهنى ... بس ورجينا برنامجك لما يخلص أوكي

[سامي.خ]

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

[Argonaut]

خخخ شكل الاخوة صحاب اوي (:

آني فقط حقدت على مركز النت بتاع المكتبة الحكومية تعرف شويت ( بسيطة )
عندي كود فايروس عملت له compi~ و طلبت من الاخوة هناك تثبيته
و خخخ عطب الويندوز لمعظم الحواسب هناك و اقفلوا القسم لمدة اسبوع

خخخ خبيث ..

(:،،

وشكرا"

[أبو هاجر الحلوة]

فكرة نسخ البرنامج إذا لم يكن مثبتا غير واضحة تماما وينفي أول الجملة آخرها
كيف لبرنامج غير مثبت أن ينسخ نفسه فالرجاء توضيح الفكرة أكثر
أما إذا كان مرادك أن يقوم البرنامج بنسخ نفسه في مكان آخر وهذا بعد تثبيته طبعا فجرب هذا:

FileCopy App.Path & "\" & App.ExeName & ".exe","C:\Test.exe"

[سامي.خ]

خخخ شكل الاخوة صحاب اوي (:

آني فقط حقدت على مركز النت بتاع المكتبة الحكومية تعرف شويت ( بسيطة )
عندي كود فايروس عملت له compi~ و طلبت من الاخوة هناك تثبيته
و خخخ عطب الويندوز لمعظم الحواسب هناك و اقفلوا القسم لمدة اسبوع

خخخ خبيث ..

(:،،

وشكرا"

أنتم يا مبروجين لو حقدتم محد يقرب منكم
لا تقول خبيث قول شرير

فكرة نسخ البرنامج إذا لم يكن مثبتا غير واضحة تماما وينفي أول الجملة آخرها
كيف لبرنامج غير مثبت أن ينسخ نفسه فالرجاء توضيح الفكرة أكثر
أما إذا كان مرادك أن يقوم البرنامج بنسخ نفسه في مكان آخر وهذا بعد تثبيته طبعا فجرب هذا:

FileCopy App.Path & "\" & App.ExeName & ".exe","C:\Test.exe"

جزاك الله خير يا أبو هاجر
هذا قصدي وكمان كنت أبغاه يحط إختصار لسطح المكتب عشان يسهل الوصول له

[أبو هاجر الحلوة]

وجدت لك كائنا يمكن أن يساعدك في ضغط و فك الملفات بامتداد zip
هذا مثال على استعماله
للإنشاء الـ zip

Dim z As ZipClass Set z = New ZipClassz.AddFile "c:\test.doc"z.AddFile "c:\test.jpg"z.WriteZip "c:\test.zip", TrueSet z = Nothing

ولفكه

Dim zip As ZipExtractionClassSet zip = New ZipExtractionClassIf zip.OpenZip("C:\Test\Test.zip") Then If zip.Extract("C:Test\Extract", True, True) Then MsgBox "Extraction terminée.", vbInformation End If zip.CloseZipEnd IfSet zip = Nothing

وهو كائن حر ومجاني لكني لم أجربه
يمكنك أن تحمله من هذا العنوان

http://www.gzip.org/zlib/

[سامي.خ]

شكراً لك
لقد أفتني كثيراً
سوف أجربه