Printable View
با سلام می خواستم یک برنامه بنویسم مثل اونایی که موقع ورود به چت روم یاهو یا سایتهای دانلود پولی میزارن جلومون میگن این عکسو پایین تایپ کن . فکر میکنین یه میچین برنامه ای خریدار داشته باشه؟ یا چطور باید بنویسمش که برای همه نوع برنامه نویسی وب بشه براهتی ازش استفاده کرد.!؟
سلام
من همچین چیزی را چندین ماه قبل در قالب یک dll و یک کنترلر ساده درست کردم ولی بعد زا مدتی به علت عدم نیاز ولش کردم و قضیه مثل همیشه پادر هوا ماند.
قول نمیدهم ولی شاید اگر نیمچه اولویتی به ان بدهم بتوانم یک بار دیگر جمع و جورش کنم و مثلاً شاید ممکنه احتمالاً بتوانم تا شنبه برای دانلود بگذارم.
ولی اگر خودتان هم خواستید درست کنید زیاد سخت نیست.
با کمک دستورات +GDI و کلاسس Random متنی را که خود با Random حاصل شده با فونت و ابعاد و موقیت و.... شانسی ترسیم کنید و در اخر تصویر نهایی را در context.Response.OutputStream یک IHttpHandler بریزید و بقیه مسیر هم معلوم است...
منظورتان همین تک کنترلر ساده است یا چت روم و.... منظورتان بوده ؟! چون گفته اید "برنامه" و آدم از برنامه یک تصور عریض و طویل با کلی بخش و امکانات دارد، نه یک تک کلاسس کنترلر ساده ؟!؟! :13:نقل قول:
نقل قول:
از جوابی که دادین خیلی ممنون . من میخواستم یه DLL بنویسم که با تمام زبانهای برنامه نویسی وب سازگاری داشته باشه که بتونم خوب بفروشمش و عکسی هم به طرف نشون بده که شناساییش خیلی راحت باشه واسه آدم و برای برنامه های OCR خیلی سخت . :46: درضمن میخام یه چیز استثنایی با اسمبلی بنویسم که کوچولو باشه حجمش :21:
اگه بخواین کدشو بهتون میدم که خودم تو ASP.Net استفاده کردم جواب هم داد حالا خودتون به صورت DLL یا هرچی دلتون خواست در بیارین اون با شما
منتظر باشین میذارم همینجا به زودی ، چون باید یکم تو انباری بگردم پیداش کنم:5:
در ضمن همیشه سعی کنید تا میتونین برنامه هایی که مینویسین رو برای استفاده ی عموم بذارین و همیشه تو رواج علم کمک کنید که باعث پیشرفت برنامه نویسی بشین !
البته فروش اشکال نداره ولی Free بهتره :20:
نقل قول:
بله خیلی ممنون از راهنمایی تون :10:
کد:
Imports System.Drawing.Text 'for font
Imports System.Drawing.Imaging 'for saving the gif
Imports System.Security.Cryptography 'for creating random String
Imports System.Drawing
PublicFunction CreateSalt(ByVal size AsInteger) AsString
Dim rng AsNew RNGCryptoServiceProvider
Dim buff(size) AsByte
rng.GetBytes(buff)
Return Convert.ToBase64String(buff)
EndFunction
PublicFunction CreateImage(ByVal path AsString, ByVal height AsInteger, ByVal width AsInteger) AsString
Dim r AsNew Random 'to generate a random angle
Dim salt AsString = CreateSalt(4) 'generates a random string
Dim bmp AsNew Bitmap(width, height, PixelFormat.Format24bppRgb) 'creates a24bit bitmap in memory
Dim g As Graphics = Graphics.FromImage(bmp)
g.TextRenderingHint = TextRenderingHint.AntiAlias 'this will smoothen the Font
g.Clear(Color.WhiteSmoke) 'this clears the background and paints specified color
g.DrawRectangle(Pens.White, 1, 1, width - 3, height - 3)
g.DrawRectangle(Pens.Black, 0, 0, width, height)
Dim mymat AsNew System.Drawing.Drawing2D.Matrix 'matrix used for rotation transformation()
Dim i AsInteger
For i = 0 To Len(salt) - 1 'we will rotate each literal at a specified angle
mymat.Reset() ' matrix should be initialized to identity matrix
mymat.RotateAt(r.Next(-30, 0), New PointF(width * (0.12 * i), height * 0.5))
g.Transform = mymat 'apply the transform
g.DrawString(salt.Chars(i), New Font("Comic Sans MS", 20, FontStyle.Italic), SystemBrushes.ActiveCaptionText, width * (0.12 * i), height * 0.5) 'draw the text onour(image)
g.ResetTransform()
Next
bmp.Save(path, ImageFormat.Gif) 'save the gif at specified path and name
g.Dispose() 'clean up
bmp.Dispose() 'ok the mess is over
g.Dispose() 'clean up
bmp.Dispose() 'ok the mess is over
Return salt 'return the string painted for verification
EndFunction
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
IfNot Page.IsPostBack Then
Dim salt AsString = CreateImage(Server.MapPath("Random.gif"), 100, 200)
Session.Add("salt", salt)
EndIf
حالا يه کنترل image رو هر جا خواستين بزارين يا با کد نويسی هنگام اجرا ايجادش کنيد
ضمنا من اين کد رو خودم ننوشتم از يه سايتی گرفته بودم يادم نمياد کجا بود
فقط اينم بگم يه مشکلاتی اين فانکشن داره که خودم هيچ طوری نتونستم حلشون
کنم اميدوارم شما بتونين !
مثلا کاراکتر های غلط انداز \ / = + - و ... يطوری توليد نمی شدند خيلی عالی ميشد
و همينطور يه آخره همه رشته ها یه = ايجاد ميشه که انگار يه جايی اون وسط يه سوتی وجود داره
که اونم نتونستم پيدا کنم
خیلی ممنون دوست گرامی
سلام دوستان
متاسفانه نمونه من هنوز حاضر نشده.
البته وقت کردم و حدود 85 در صد کلی کار انجام شده و به نظر خودم خیلی کامل است و پارامترهای خیلی زیادی برای دلخواه کردن دارد، حتی لیست کاراکترهای ورودی برای Random را هم میگیرد و نیز میتوان از یک property دیگر از مخلوطی از "کاراکترهای کوچک-بزرگ-عدد-نماد" استفاده کرد و یا دستی مجموعهخ دلخواه را داد.
حتی داخل خود نوشته را هم به Random طرح میزد و نیز مکان و.... و.....
ماژول اصلی تولید تصویر کاملاً حاضر شده و عملاً قابل استفاده است ولی کمی کار عملی دارد مثل پر کردن Session و خواندن از آن (متن صحیح باید جایی ذخیره شود...) یا ارتباط با یک IHttpHandler برای ترسیم.
نمونه ی نهایی انشا ا... کامل خواهد بود و با کمترین کدنویسی جانبی قابل استفاده است.
انشا ا... تا چند روز آینده، چون وقت زیادی برای صرف کردن روی این موضوعات ندارد و باید ببینم کی وقت میکنم بقیه اش را تکمیل کنم.
سلام
با هزار بدبختی و چلوندن زمان یک چیز وصله پینه ای درست کردم.
هنوز اونطور که میخواهم نشده ولی میتوانید از لینک زیر نمونه فعلی را دانلود کنید، نمونه شامل dll و نمونه ساده VB.Net و C#.Net است،
توضیح کوتاهی از خواص (Properties)کد:http://www.h02.ir/Download.aspx?File=Asp.NetHumanValidation.zip
Size ابعاد تصویر نهایی
Margin حاشیه تصویر
RandPointsCount تعداد نقاط شانسی برای ترسیم روی تصویر
RandLinesCount تعداد خطوط شانسی برای ترسیم روی تصویر
HumanValidationCharset نوع کاراکترها (تلفیقی از عدد و حروف کوچک و بزرگ و نماد و مقدار دستی)
RandCharset لیست کاراکترها برای متن شانسی
AutoRandomText فعال کردن حالت خودکار انتخاب کلمه جدید
Text متن نمایشی را بعد از PostBack میدهد و یا میتوان با آن متن دلخواهی را ست کرد
RandTextLength تعداد کاراکترهای کلمه شانسی
UseStaticEngin فعال کردن حالت هسته اشتراکی
در این حالت هسته اصلی رندر تصویر در شی Application قرار میگیرد و برای همه صفحات یک کاربر و نیز کلیه کاربران سایت از همان یک نمونه استفاده میشود و هر بار New نخواهیم داشت، در این حالت بیشتر خواص فوق اثری ندارند و برای تنظیم خواص به طور عمومی در کل سایت باید از رویداد CreatedStaticEngin استفاده کرد.
دوستان اگر باگی مشاهده کردند در همین پست و یا با pm و یا با ایمیل i n f o @ h 0 2 . i r اطلاع دهند.
سعی میکنم تا شنبه یا دوشنبه آینده خودم بازبینی مجددی کنم و نمونه بهتری ارائه دهم.
ضمناً dll فوق شامل کلاسس های بسیاری است که خیلی از آنها ناقص هستند، اگر احساس کردید کلاسسی بدردتان میخورد قبلش در مورد کامل بودن یا نبودن آن با خودم مشورتی کنید.
مثلاً کلاسهای TabConbtrol وبی و یا ترسیم بارکد EAN13 و ساختار IrDate و تبدیلات String به شمسی و بلعکس و... سالم هستند.
جمیعاً موفق و پیروز باشید.
دوستان
نمونه جدید حاضر است ولی براثر اشتباه پروژه آزمایشی پاک شد و الآن فقط dll است.
چون بدون پروژه نمونه (طریقه استفاده از dll) مطالب ناقص است، پس اجازه دهید پروژه جدیدی بسازم ولی الان وقت ندارم.
چهارشنبه پروژه نمونه و dll اصلاح شده را میگذارم.
سلام
امروز کارداشتم و نباید آنلاین بودم ولی ....
خوشبختانه همان zip پاک شده را توانستم بازیابی کنم و مجدداً آ؛پلود کنم.
این نمونه من را که راضی کرد، کیفیت تصاویر نهایی هم خیلی بهتر شده و خیلی راحت متن داخل قابل تشخیص است.
design هم یک کمی توسعه پیدا کرده ...
دوستان به web.config هم توجه کنند و در پروژه خود برای کار کردن کنترلر فوق بخش httphandler را اضافه کنند.
لینک دانلود مستقیم :
کسی قرصی درمانی، کامپونتی چیزی برای درمان اعتیاد Shift+Delete سراغ نداره؟؟؟کد:http://www.h02.ir/Download.aspx?File=Asp.NetHumanValidation.zip
ولی با وجود دردسرهایش، خداییش این Shift+Delete هم حالی میده و عالمی داره !!!