تولید شماره تصادفی و چک کردن عدم تکرار در جدول ثبت این اعداد

پرواز PS752 که حامل شهروندان و مقیمان دائم کانادا بود، در بامداد روز ۸ ژانویه ۲۰۲۰، زمانی که تنش‌های نظامی با ایالات متحده به سرعت در حال افزایش بود، در آسمان تهران مورد هدف قرار گرفت. دادگاه انتاریو شرکت هواپیمایی اوکراین را به دلیل عدم ارزیابی مناسب خطرات ناشی از انجام پرواز از تهران، سهل‌انگار دانست.

No To ghalibaf

درباره یک آقا زاده 

rslt=Null

min_num=100000

max_num=999999

For C= min-num To max_num

تولید عدد تصادفی بین کمترین تا بیشترین مقدار ( بین min_num و max_num )

IdNumber=Int((max_num-min_num+1)*Rnd+min_num

qry="Select IdNumber From [Table Name] Where IdNumber=" & IdNumber

Set rs=db.OpenRecordset(qry,dbOpenSnapShot)

If rs.BOF And rs.Eof Then

کوئری رکورد موجود را پیدا نکند بنابراین اجازه میدهد که این یکی بکار رود

rslt=IdNumber

Exit  For

End If

Next

rs.Close

Exit_GetRndIdNum : 

Set db=Nothing

Set rs=Nothing

FunctionResult=rslt

Exit Function

Err_GetRndIdNum : 

Msgbox Err.Description,, "Function Result() Error #" & Err.Number

Resume Exit_GetRndIdNum

مثالی دیگر : 

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

Sub AddRecords(Optional ByVal intCount As Integer = 100)

Dim i As Integer

For i = 1 To intCount

SaveNewRecord 

Next

End Sub

در تابع SaveNewRecord می توان نوشت که lngId را به فیلد ID از جدول اضافه نماید البته برای جلوگیری از Duplicate با تابع Dlookup آنرا در جدول جستجو کنید یا : 

البته طبق مورد زیر باید فیلد ، Primary key شود در صورت تکراری بودن مورد تکراری به جدول اضافه نخواهد شد  و اگر اینطور باشد می تواند یک یا چند رکورد کمتر از عدد دلخواه در تابع Addrecords در جدول مقصد درج یا Insert گرد لذا ملاحظه می کنید که تابع Generate کردن عدد تصادفی در Loop قرار داده شده تا اگر مورد تکراری بود و ویژگی RecordsAffected آن صفر بود تا زمانیکه یک نشده عدد تصادفی دیگری که Duplicate نیست جایگزین گردد تا طبق تعداد رکوردی که باید ساخته شود کار به اتمام برسد.

Do 

lngID = RandomNum(lngcMaxID, lngcMinID)

db.Execute "INSERT INTO Table1 (ID) VALUES (" & lngID & ")" 

Loop Until  db.RecordsAffected

Returns the number of records affected by the most recently invoked Execute method.

Mydb.Execute strSQL,dbFailOnError

i=Mydb.RecordsAffected

MagBox i

She took a long, hot bath

آیت الله سیدعلی سیستانی مرجع تقلید شیعه مقیم نجف به صورت مشروط با حضور در عروسی مختلط همراه با رقص و موسیقی موافقت کرده است.

به گزارش خبرگزاری حوزه، پرسش از آیت الله این بود: نظر به اینکه مجالس عروسی امروزه اغلب مختلط و همراه با رقص و موسیقی است و عدم شرکت باعث کدورت آشنایان می شود، آیا شرکت در این مجالس با رعایت حجاب کامل اسلامی و عدم همراهی در اعمال آنها جایز است؟

پاسخ: اگر بیم افتادن به گناه نباشد حضور مانعی ندارد ولی وظیفه نهی از منکر هم باید رعایت شود. 

هم سازی حقوق بازنشستگان تامین اشتباهی

دبیر اجرایی خانه کارگر آران و بیدگل تصریح کرده؛ متاسفانه دولت با همراهی مجلس یازدهم برخلاف سیاست‌های ابلاغی تامین اجتماعی، بعد از اعلام مغایرت شورای نگهبان، نسبت به جزء ۱ بند الحاقی ۲ ماده ۲۹ لایحه برنامه هفتم توسعه بجای رفع ایراد آن را حذف کرد و با این کار دولت را تا پایان برنامه از پرداخت بدهی حسابرسی شده معاف کرد. با این کار عملا متناسب سازی برای بازنشستگان تامین اجتماعی در هاله‌ای از ابهام قرار گرفت.

حاجی‌زاده بیان کرده؛ با حذف این موضوع عملا دولت طی پنج ساله هفتم هیچ‌گونه تعهدی نسبت به بازپرداخت بدهی محاسبه شده به سازمان تامین اجتماعی نخواهد داشت و کل مصوبات سال گذشته برای متناسب‌سازی این قشر از مستمری‌بگیران که با رقم ۱۷۰ همت شروع و در نهایت با ۱۳۰ همت مصوب شد، وضعیت نامعلومی پیدا می‌کند.

مصوبات‏ شورای‏ عالی‏ امنیت‏ ملی‏ پس‏ از تأیید مقام‏ رهبری‏ قابل‏ اجراست‏.

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

«مسعود پزشکیان در ماجرای ١٨تیر ٧٨، رئیس دانشگاه علوم پزشکی تبریز بود. بعد از حمله لباس شخصی‌ها به کوی تهران، به دانشگاه تبریز حمله شد. در میانه حمله لباس شخصی‌ها به دانشگاه تبریز، او در میان دانشجویان حاضر شد و در کنار آن‌ها از حیثیت دانشگاه حفاظت کرد»

بانک آریا نام بانکی است که در اواخر سال ۱۳۸۹ اقدام به پذیره‌نویسی نمود اما در مرداد ۱۳۹۰ روند ارائهٔ مجوز به آن توسط بانک مرکزی ایران متوقف گردید. مالکان اصلی این بانک با نام مه‌آفرید امیرخسروی و بهداد بهزادی، در شهریور ۱۳۹۰ متهم به اختلاس ۳ هزار میلیارد تومانی شدند که از بزرگ‌ترین اختلاس‌های تاریخ ایران به شمار می‌آید

۱  تیرماه ۱۴۰۳ مناظره دوم نامزدان ریاست جمهوری 

زاکانی گفت: بنزین، گاز و برق را در نظر بگیرید؛ به هر خانواده سه نفره معادل اعتبار ۲۰ گرم طلا در سال یارانه داده می شود. یک خانوار پنج نفره ۱۱۰ میلیون در سال یارانه دارد و اعتباری به میزان طلا به آنها داده می شود که مصون از تورم است.

مریم فکری: وعده عجیب زاکانی درباره اختصاص یارانه طلا، صدای اقتصاددانان را در آورد؛ به طوری که بلافاصله پس از رونمایی او از وعده پرداخت اعتبار ۲۰ گرم طلا در سال به هر نفر، اغلب اقتصاددان در محاسباتی، عنوان کردند که او عدد نمی‌شناسد.

کانال های خبری نزدیک به جریان موسوم به انقلابی ازحضور فردی در طبقه ۱۱ سازمان فرهنگی و هنری شهرداری سخن می گویند که در تصمیم گیری های شهرداری نقش اصلی دارد و در ادامه این جمله را هم اضافه می کنند که دامادها در طبقه بالای ساختمان ها به خدا نزدیک تر می شوند.

زاکانی در اقدامی که برخلاف قانون تعارض منافع در شهرداری است، داماد خود را به شهرداری آورده و آن‌طور که در تذکر اعضای شورای شهر آمده، اقدامات او بیش از یک مشاور است و آقای داماد نقشی پررنگ و تعیین‌کننده در شهرداری ایفا می‌کند.

ظریف : 

به کسانی که سخنرانی مرا در کاشان به هم زدند گفتم کدامیک از شما با شرمندگی به خانه می روید؟

 

*تحریم انتخابات باعث حاکم شدن خالص سازان می شود تا عده دیگری را خانه نشین کنند.

به گزارش خبرگزاری خبرآنلاین، محمد جواد ظریف، وزیر امور خارجه دولت دوازدهم در گردهمایی روحانیون حامی مسعود پزشکیان با حضور در حسینیه جماران گفت: طلا، زمین و گوشت در خانه را قول دادند. مرحوم ترکان می گفت اینها حساب نمی فهمند. ۲۰ گرم طلا برای هر خانواده سه نفره می شود چند تن طلا؟ از کجا می خواهید بیاورید؟ اینها دروغ است دیگر، اینها یعنی صادق نبودند. عدم صداقت کشنده است، عدم صداقت مرگبار است، نه برای من و شما، برای بیچاره ای که به نان شب محتاج است.

۵ تیر ۱۴۰۳

استفاده از ظرفیت سکوهای پیام‌رسان‌های خارجی، توسط نامزدها، روسای ستادها و هواداران و طرفداران آنان به ویژه در روز سکوت تبلیغاتی از مصادیق بارز جرم انتخاباتی بوده و مرتکبان مورد پیگرد قضایی قرار خواهند گرفت.

معاونت اجتماعی و پیشگیری از وقوع جرم قوه قضاییه

۵ تیر ۱۴۰۳ 

شعار مردم کرمان ( فرودگاه ) در بدو ورود نامزد ریاست جمهوری ۱۴۰۳ جناب آقای سعید جلیلی ( بعد از شرکت در راهپیمایی غدیر )

صلِّ علی محمد بوی رئیسی آمد

در نامه همکاران و دانشجویان و فاغ التحصیلان‌ دانشگاه امام صادق خطاب به جلیلی آمده است؛

باسمه تعالی

جناب آقای دکتر سعید جلیلی

کاندیدای محترم انتخابات ریاست جمهوری

ارزیابی صحنه انتخابات در کمتر از یک هفته از برگزاری آن نشان می دهد، کاندیدای اصلاح طلبان به علل مختلف رشد کرد و تشتت آرای جبهه انقلاب در حال رقم زدن تجربه انتخاباتی مانند سال نود و دو است.

مستحضرید که در سال ۱۳۹۲ آقای حسن روحانی انتخابات را با دو درصد اقبال آرا شروع و در روز انتخابات با پنجاه و یک درصد به نتیجه رساند.

عضو مجمع محققین و مدرسین حوزه علمیه قم در توئیتی نوشت: دوستان هر گونه اختلافی را کنار گذارند و برای موفقیت آقای پزشکیان تلاش کنند.

سال ۹۲

بر اساس رتبه بندی انجام شده بیشترین آراء به ترتیب مربوط به حسن روحانی با 51 درصد، محمد باقر قالیباف 21 درصد بوده است و سعید جلیلی، محسن رضایی، علی اکبر ولایتی و سید محمد غرضی نیز در شمار انتخاب های بعدی مردم قرار دارند.

کرسنت و خیانت دولت به مردم 

در سال 1392 و در آستانه برگزاری دادگاه لاهه با موضوع قرارداد کرسنت عباس یزدان‌پناه با برخی از مسئولان کشور ارتباط می‌گیرد و اعلام می‌کند که حاضر است علیه فساد و رشوه خواری در جریان قرارداد کرسنت شهادت دهد. این شهادت در صدور حکمی به‌نفع جمهوری اسلامی می‌توانست بسیار مفید باشد و به‌دنبال آن اطلاعات ذی‌قیمتی از فساد در حوزه نفت و انرژی به مسئولان امنیتی و قضایی جمهوری اسلامی ایران ارائه دهد.

قرار بر آن می‌شود که یزدان‌پناه در امارات از طریق ویدئوکنفرانس چند جلسه‌ای در دادگاه لاهه شهادت دهد. اما او به‌ناگاه در تاریخ 5 تیرماه 92 ربوده و ناپدید می‌شود. بسیاری از جمله همسرش معتقدند که عباس بعد از ربوده شدن برای به‌جای نماندن هیچ ردی کشته شده است. اما رسانه‌های بیگانه در اصراری عجیب در تلاشند از قتل او صحبتی نشود و ماجرا را به آدم‌ربایی تقلیل دهند. جالب اینجاست که دولت انگلیس هم که در موارد مشابه به‌شدت پیگیر سرنوشت شهروندان خود است در اقدامی عجیب پرونده ربایش عباس یزدان‌پناه را مختومه اعلام می‌کند.

اوکراین دلیل متفاوتی برای احتیاط درباره «همستر کامبت» دارد. مرکز دولتی ارتباطات استراتژیک اوکراین اوایل ماه مه هشدار داد که این بازی به دلیل ارتباط آشکار با روسیه، می‌تواند خطرناک باشد.

چه کسی «همستر کامبت» را اداره می‌کند؟

حساب «همستر کامبت» در تلگرام، حدود ۳۹ میلیون دنبال کننده دارد و صفحات آن در یوتیوب و «ایکس» (توییتر سابق)، به ترتیب ۲۵ میلیون و ۸.۵ میلیون دنبال کننده دارند. اما هیچ یک از حساب‌ها به یک استودیوی بازی سازی یا یک شرکت مادر اشاره نمی‌کند.

طبق تحقیقات یک رسانه اوکراینی (Ain)، «همستر کامبت» توسط گروه RU-CENTER Group به ثبت رسیده که یکی از بزرگترین ثبت کنندگان نام دامنه و فراهم کننده خدمات میزبانی در روسیه بوده و به گروه رسانه‌ای آر بی کی تعلق دارد.

یک پیش بینی حدسی در اینترنت

صادق‌الحسینی، اقتصاددان در خصوص سومین مناظره نامزدهای انتخابات ریاست جمهوری نوشت:

‌جمع‌بندی مناظره سوم

۱.کسی که هیچ حرف غلطی نزد: پزشکیان

۲. بیشترین حرف غلط رو زد: زاکانی و جلیلی و قاضی‌زاده

۳.زشت‌ترین نمایش: زاکانی

۴.بی‌حاشیه‌ترین فرد: جلیلی

۵.بدترین نمایش: قالیباف

برنده مناظره: پزشکیان

نه برنده نه بازنده: پورمحمدی، جلیلی

بازندگان: زاکانی، قاضی‌زاده، قالیباف

6 تیر ۱۴۰۳

GHALIBAF.IR

سه‌سال مسکن رایگان به زوج های جوان

زمین رایگان به خانوارهای بی‌مسکن

دیوار انسداد مرز شرقی کشور

رشد حقوق با تورم

واردات خودرو

ضمانت:کارنامه من

ZAKANI

عید مبارک!

یادتان هست یارانه ۴۵هزارتومانی بی‌ارزش شد؟!

یارانه انرژی برپایه طلا حق شماست؛

با یارانه طلایی هر ایرانی مصون از تورم معادل ۶گرم طلا یارانه انرژی خواهد داشت.

خادم شما

۷ تیر ۱۴۰۳ یکروز قبل از برگزاری انتخابات و روز سکوت انتخاباتی

او ( حضرت قالیباف ) در این توییت نوشت: از برادران عزیز آقایان زاکانی و قاضی‌زاده هاشمی که مطالبات نیروهای انقلاب در راستای ایجاد ائتلاف و وحدت را لبیک گفتند، تشکر می‌کنم.

روشنگری در خصوص پروژهٔ بازگشت به دههٔ نود و دفاع از میراث شهید رئیسی جز با مجاهدت آنها ممکن نمی‌شد. ‏تا آخر ایستاده‌ایم تا دولتی کارآمد و انقلابی تشکیل شود.

جمعه ۸ تیر ۱۴۰۳ روز انتخابات

محمدجواد ظریف در حسینیه جماران پس از انداختن رأی خود به صندوق در جمع خبرنگاران گفت: اگر حضور مردم گسترده باشد، مشخص می‌شود اقلیت و اکثریت چه کسانی هستند.

به گزارش ایسنا،‌ با مرور اخبار انتخاباتی شنبه - نهم تیر ۱۴۰۳ می‌خوانیم:

سخنگوی ستاد انتخابات کشور نتایج نهمین مرحله از شمارش آرای انتخابات چهاردهمین دوره‌ ریاست‌جمهوری را اعلام کرد و افزود: ۲۴ میلیون و ۵۳۵ هزار و ۱۸۵رای شمارش شده است که ترتیب آرا به شرح زیر است:

* مسعود پزشکیان: ۱۰ میلیون و ۴۱۵ هزار و۹۹۱ رای

* سعید جلیلی: ۹ میلیون و ۴۷۳ هزار و ۲۹۸رای

* محمدباقر قالیباف: ۳ میلیون و ۳۸۳ هزار و ۳۴۰رای

* مصطفی پورمحمدی: ۲۰۶ هزار و ۳۹۷رای

از جمع آراء تایید شده؛ پزشکیان ۴۲.۶ درصد، جلیلی ۳۸.۸ درصد، قالییاف ۱۳.۸ درصد پورمحمدی ۰.۸ درصد آرا را کسب کردند و میزان مشارکت در این دوره از انتخابات ۴۰ درصد بوده است.

وزیر کشور گفت: تعداد واجدین شرایط رای دادن در انتخابات ریاست جمهوری حدود ۶۱ میلیون نفر است.

و آقایان جلیلی و پزشکیان به دور دوم راه یافتند ( زمان ۱۵ تیر ۱۴۰۳ )

تحلیلگر حوزه اقتصادی درباره فرار سرمایه با قدرت‌گرفتن این جریان نیز متذکر می‌شود: «فرار سرمایه یکی از نخستین اتفاقات اقتصادی است که می‌تواند با دولت جلیلی رخ دهد‌»؛ چون به زعم او «همین الان تنش حزب‌‌الله و اسرائیل، نگرانی‌ها را افزایش داده است و اگر تنش تشدید شود، اتفاق خوبی برای سرمایه رخ نمی‌دهد‌». به‌خصوص که افقه باور دارد «سیاست خارجی دولت سیزدهم نیز شکست خورده و هیچ‌کدام از مشکلات را حل نکرده است». این در حالی است که افقه می‌گوید: «جلیلی از دولت فعلی هم تند‌تر سیاست خارجی را ادامه می‌دهد. بنابراین دور از ذهن نیست که فرار سرمایه در دولت جلیلی شدت یابد و با توجه به نگاه فرهنگی جلیلی، فرار مغز‌ها نیز به اوج برسد‌».

تجارت نیوز نوشت: رویترز در گزارشی اعلام کرد که ایران طی ۹ ماه اخیر معادل ۴.۲ میلیارد دلار تخفیف نفتی به چین ارائه داده است.

 

در حالی که دولت سیزدهم از ابتدای روی کار آمدن خود مدام در حال تأکید بر رکوردشکنی فروش نفت ایران است، حال رویترز در گزارشی از تخفیف ویژه ایران به چین خبر داد. چنانکه طی ۹ ماه اخیر میزان تخفیف ایران به چین، بزرگ‌ترین خریدار نفتی خود، به ۴.۲ میلیارد دلار رسید.

در مناظره اول دور دوم دوشنبه ۱۱ تیر ۱۴۰۳ ساعت ۹:۳۰ تا ۱۱:۳۰

پزشکیان گفته بود: نمی‌توان کشور را در قفس کرد و با دنیا رابطه نداشت، زندگی در قفس زندگی بخور و نمیر است، نمی‌توانیم مدام ارزان بفروشیم و گران بخریم. ما چاره ای غیر از ایجاد رابطه با خارج نداریم

مصاحبه با خانم خجسته باقرزاده سالیان خیلی پیش 

لطفا نظراتتان را در مورد حجاب اسلامی برای خوانندگان ما بفرمایید.

به نظر من «بهترین پوشش برای خارج از منزل ،چادر، است». البته شرعا پوشیدن انواع دیگر پوشش در صورتی که بدن را کامل بپوشاند و جذب و تنگ نباشد اشکالی ندارد.اما به طور کلی چادر ترجیح دارد.برای درون خانه کاملا متفاوت است.البته پوشش در هر شرایطی باید مطابق عفت اسلامی باشد.

۱۲ تیر ۱۴۰۳

به گزارش خبرگزاری خبرآنلاین، علی عبدالعلی زاده، رئیس ستاد انتخاباتی مسعود پزشکیان، نامزد انتخابات ریاست جمهوری چهاردهم، در نامه‌ای خطاب به رئیس قوه قضائیه، دادستان کل کشور، رئیس ستاد انتخابات کشور و سخنگوی شورای نگهبان، به تبلغیات برخی از رسانه‌های دولتی، حاکمیتی و نظامی مانند روزنامه کیهان، جوان، فرهیختگان، خبرگزاری فارس، تسنیم و دانشجو به نفع سعید جلیلی اعتراض کرد.

نظر همسر شهید مهدی باکری درباره پزشکیان - جهان نیوز

 www.jahannews.com

۹ ساعت پیش · همسر شهید مهدی باکری: اگر آقامهدی امروز زنده بود، امکان نداشت به امثال پزشکیان رأی دهد

به گزارش سایت دیده‌بان ایران؛ فرشته روح‌افزا، استاد دانشگاه تهران و نماینده زنان ستاد انتخاباتی سعید جلیلی، گفت: در دولت پزشکیان مردان در ظاهر نهج البلاغه می‌خوانند و زنان ظاهرا محجبه هستند، اما باطن آن کاملا آمیخته با فرهنگ غربی است؛ رییس جمهور شدن پزشکیان نه تنها حجاب بلکه کل دین را مورد خطر جدی قرار می‌دهد.

وی افزود: با موفقیت پزشکیان در انتخابات پیش رو، مذهب از بین خواهد رفت. رییس جمهور شدن پزشکیان نه تنها حجاب بلکه کل دین را مورد خطر جدی قرار می‌دهد.

او ادامه داد: فرهنگ در موضوع خانواده و روابط زن و مرد بیچاره شده است و ۲۰ میلیون نفر در غرب پدر خود را نمی‌شناسند! در صورتی که ۴ سال پزشکیان در مسند قدرت قرار گیرد وضعیت خانواده و روابط نامشروع مانند غرب می‌شود.

به گزارش خبرگزاری خبرآنلاین، این توئیت امیر حسین ثابتی ، نماینده مجلس و مشاور سعید جلیلی است که زنان بدون روسری را بدتر از "فاحشه" ها می داند و نگاه واقعی جریان پایداری را درباره پوشش زنان بیان می کند. او همچنین آنها را متهم کرده که پول می گیرند تا روسری بردارند و جامعه را به لجن بکشند!

نماینده جلیلی: اگر به زنی تعرض شد بخاطر حجاب اوست - تجارت نیوز

سیاسی ‹ tejaratnews.com

۵ روز پیش · مریم اشرفی گودرزی، نماینده ستاد جلیلی گفته اگر بی حجاب باشی و پسری به تو تعرض کرد تقصیر خود زن است

کوروش احمدی در یادداشتی می نویسد: شک نیست که پیروزی آقای جلیلی در روز جمعه اعلام خطر دیگری به جامعه داخلی و بین‌المللی خواهد بود. پیش‌فرض این پیروزی با پشتوانه حدود ۲۰ درصد مردم، تشدید تحریم‌ها و تشدید سوءمدیریت مزمن به‌عنوان دلایل اصلی مشکلات اقتصادی و معیشتی خواهد بود.

۲۹ مهر ۱۳۹۷ · عباس آخوندی وزیر راه و شهرسازی که مسکن مهر را مزخرف خواند و در عین حال یک آجر هم روی پروژه مسکن اجتماعی نگذاشت، از سمت خود استعفا کرد.

سرویس اقتصاد مشرق -  ماجرای FATF و ایران به اوایل سال ۱۳۹۴ بازمی‌گردد که علی طیب‌نیا وزیر اقتصاد دولت یازدهم، پای برگه برنامه اقدام FATF را امضا کرد؛ برنامه‌ای که حاوی ۴۱ بند بود. بدین ترتیب طیب‌نیا تعهدنامه‌ای را امضا کرد که طبق آن ایران مکلف به اجرای ۴۱ خواسته یک نهاد غربی می‌شد. اکنون دو سال و نیم است که طیب‌نیا دیگر وزیر اقتصاد نیست، اما امضای وی همچنان گریبانگیر ایران است.

۶۰ سال پیش افزایش عرصه دام در عید قربان، گوشت کشتارگاه شهرداری را مجانی کرد.

مناظره دوم دور دوم سه شنبه ۱۲ تیر ۱۴۰۳

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

جلیلی خاطرنشان کرد: برنامه سیاست خارجی ما این است که نباید معطل سه کشور بود، بلکه باید اقتصاد ایران جانمایی شود. باید فرصت‌های جدید شناخته شود. برنامه من این است که باید اولویت‌ها را شناخت. هر سفارتخانه باید سکویی برای صادرات کشور شود. واردات پاکستان ۷۰ میلیارد است که باید حداقل ۱۶ میلیارد ما حضور داشته باشیم. باید از فرصت ترانزیت استفاده کنیم. باید حواس جمع شود. شما با هیچ کشوری عقد اخوت نمی بندی، بلکه منافع ملت خود را با قدرت دنبال می کنید، اما باید برنامه داشته باشید و نباید بگویید این برنامه‌ها را ولش کنید. اگر مطالعه و برنامه نداشته باشید حتما کشور عقب می ماند.

تیر ۱۴۰۳ 

ایران سال گذشته حدود ۳۶ میلیارد دلار صادرات نفت و میعانات گازی داشته است، پس از کسر تخفیف‌ها، حق دلالان، هزینه جابجایی دریایی، هزینه چند بار تبدیل ارزهای مختلف، هزینه صرافی درنهایت حدود ۲۸ میلیارد دلار به دست بانک مرکزی و برنامه بودجه رسیده است. این یعنی نفت ایران بعد از همه هزینه با حدود ۶۱ دلار بفروش رسیده است.

پزشکیان: من از انتخابات کنار می‌روم، اگر آقای جلیلی تعهد بدهد که اگر ...

سیاست داخلی ‹ سیاست ‹ www.entekhab.ir

۳ ساعت پیش · پزشکیان: من از انتخابات کنار می‌روم، اگر آقای جلیلی تعهد بدهد که اگر رشد هشت درصدی را در دولتش محقق نکرد اعدامش کنند

پزشکیان: مشکل فقرا ما هستیم نه آمریکا  /  رفته بودم زیارت، برخی که بهشان می‌گویند حزب اللهی،‌ به من می‌گفتند منافق. آیا من منافق هستم؟ 

«محسن هاشمی رفسنجانی» رئیس کارگزارانی شورای شهر تهران در دوره پنجم، پیش از انتخابات به سایت «انتخاب» گفته بود: اگر مشارکت زیر ۴۰ درصد باشد، افرادی مثل جلیلی رأی می‌آورد، اگر به ۵۰ درصد برسد، شاید قالیباف در دور اول پیروز شود، اما اگر مشارکت به سوی ۶۰ درصد برود، شانس پزشکیان بیشتر است.

۱۳ تیر ۱۴۰۳ خاتمی : 

امیدوارم که نظام حکمرانی کشور که قطعاً پیام‌های معنادار مردم را در کنش انتخاباتی آنان دریافته است فرصت را مغتنم بشمارد و به مقتضای آن میدان را برای تفکر و رویکردی که خیر و پیشرفت و امنیت کشور را می‌خواهد و تأمین می‌کند بازتر کند و موانع را از سر راه تحول و اصلاح امور بردارد.

من باز هم به دکتر پزشکیان که صداقتش را در گفتار و صراحتش را در رفتار بیش از پیش در این انتخابات نشان داد رأی می‌دهم، و برایش آرزوی توفیق هرچه بیشتر دارم.

خدای بزرگ ایران عزیز و ملت بزرگوار را از این وضعیت خطیر و دشوار به سلامت بگذراند.

۱۳ تیر ۱۴۰۳ 

ارسال وسیع یک پیامک به وحانیون برای تبلیغ علیه پزشکیان سوژه فضای مجازی شد.

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

در متن این پیامک که از سوی مجمع رهروان امر به معروف و نهی از منکر ارسال شده  است آمده: 

«سلام طلاب عزیز چنانچه فجایع سیاسی اقتصادی و فرهنگی دولت روحانی را برای انتخابات تبلیغ میکنید عدد ۱ را به همین سامانه تا ۱۵ تیر پیامک کنید تا به قید قرعه ۲۰ میلیون ریال هدیه بگیرید.

سلام طلاب عزیز : با سفر به محل تبلیغ یا شهر تولد خود و یا از طریق فضای مجازی و تماس تلفنی خطرات فجیح انتخاب هم پیمانان دولت روحانی که منجر به تعطیلی کارخانه ها ، رکود اقتصادی کاهش نفوذ منطقه ای و جهانی ... به مردم متذکر شوید.

مجمع رهروان امر به معروف و نهی از منکر» 

جوان آنلاین: ستاد انتخاباتی مسعود پزشکیان از فهرست طولانی رسانه‌هایی پرده‌برداری کرد که مورد شکایت این ستاد قرار گرفته‌اند! 
رسانه‌های حامی پزشکیان متن نامه‌ای را منتشر کرده‌اند که علی عبدالعلی‌زاده، رئیس ستاد انتخاباتی پزشکیان به رئیس قوه قضائیه، رئیس ستاد انتخابات کشور و همچنین دادستان کل کشور و سخنگوی شورای نگهبان مدعی «مداخلات آشکار و نهان» برخی رسانه‌های به زعم او «حاکمیتی» در انتخابات «علیه پزشکیان و تبلیغ به نفع رقیب» شده است. او در این نامه مشخصاً از روزنامه‌های کیهان و جوان و فرهیختگان و خبرگزاری‌های فارس و تسنیم و دانشجو نام برده است. عبدالعلی‌زاده خواستار رسیدگی قضایی و در واقع برخورد با این رسانه‌ها شده است. 

از بیانات رهبری هم بوضوح مشخصه که اصلح آقای سعید جلیلی است و اگر ایشان باشند برای نظام در درجه اول و بعد مردم مذهبی بهتر است . 

davat.drjalily.com

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

شاید باورش سخت باشه ولی بعضی ها که صرفا مردد هستن رو خیلی وقت ها با یک تماس ساده میشه بهشون کمک کرد تصمیم قطعی بگیرن و به دکتر جلیلی رای بدن.

پیامک کنگره ملی در ساعت ۲۲:۱۲ شب ۱۴ تیر ۱۴۰۳

همشهری عزیز بیش از ۲۴۰۰۰ شهید در شهر تهران برای حفظ کشور خون داده‌اند.

با شرکت در انتخابات حافظ کشور و خون شهیدانش باشیم.

لغو 11l.eu/k

پیامک کنگره ملی در ساعت ۱۵:۱۴ روز ۱۵ تیر ۱۴۰۳

هموطن عزیز شهدا پای صندوق‌های رای منتظر حضور موثر شما هستند، درنگ جایز نیست.

لغو 11l.eu/k

حجت الاسلام و المسلمین سید محمد خاتمی در گفت و گو اختصاصی تصویری با جماران در روز رای گیری مرحله دوم انتخابات ۱۴۰۳ گفت:: امروز جوری نباشد که بعدا افسوس بخوریم از اینکه فرصت را از دست دادیم؛ همه بیایند و با شوق و به امید بهبود و به امید سربلندی ایران و انشاءالله که موفق باشند.

«صغری احمدی» اهل روستای درپرچین اسفراین با ۱۰۰ سال با شرکت در دور دوم انتخابات چهاردهمین دوره ریاست جمهوری رای خود را به صندوق انداخت.

پیامک ارسالی از طرف وزارت کشور ۱۵ تیر ۱۴۰۳ ساعت ۱۸:۵۳ : 

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

وزارت کشور

رویداد 24 هم به نقل از مصطفی فقیهی، روزنامه نگار خبر داده است: انتخابات به دور دوم رفت. پزشکیان نه با آراء خاکستری که با سبد رأی رئیسی و آراء تکلیفی اول شد. جلیلی دوم شد و قالیباف سوم. در دور دوم از آن‌جا ۶۰ درصد حامیان قالیباف آرای خود را شاید سفید بدهند اما به جلیلی نه پس از هم‌اینک می‌توان پزشکیان را رئیس‌جمهور ایران دانست.

دولت چهاردهم دولت مسعود خواهد بود یا دولت سعید؟

«بغی» یکی از اتهاماتی است که قانون مجازات اسلامی به آن پرداخته است. بنا بر ماده ۲۸۷ قانون مجازات اسلامی، «باغی» کسی است که علیه «اساس نظام جمهوری اسلامی» دست به مبارزه و اقدام «مسلحانه» بزند.

بالاخره جراح قلب ، دکتر پزشکیان با حدود ۱۶ میلیون و اندی رای و اختلاف دو میلیون و هفتصد نسبت به دکتر جلیلی به مسند ریاست جمهوری ۱۴۰۳ رسید 

«مردم عزیز ایران انتخابات تمام شد و این تازه آغاز همراهی ماست. مسیر دشوار پیش رو جز با همراهی، همدلی و اعتماد شما هموار نخواهد شد؛ دستم را به سوی شما دراز می‌کنم و به شرافتم سوگند می‌خورم که در این راه تنهای‌تان نخواهم گذاشت؛ تنهایم نگذارید.»

۱۶ تیر ۱۴۰۳ در پیام تبریک دکتر زاکانی به منتخب ملت 

اینک تمام برنامه‌هایم را که با پشتوانه جمع بزرگی از نخبگان نگاشته شده است را به رئیس جمهور منتخب تقدیم می‌کنم  و با علم به سنگینی بار دولت، انتظار می‌رود رئیس جمهور منتخب با انتخاب کابینه‌ای قوی و توانمند، معتقد و مومن به مبانی انقلاب، پر کار و پر تلاش و دارای برنامه و نقشه راهی عالمانه، راه خدمت به مردم را پیش گرفته تا گره از مشکلات مردم گشوده شده و راه رسیدن به قله‌های امید و افتخار و پیشرفت و آبادانی ایران سربلند هموار گردد.»

یکی از خطاهای جبهه انقلاب 

نامزدهای پوششی؛ خطای بزرگ دیگر فرستادن زاکانی و قاضی‌زاده هاشمی بود در حالی که بارها گفتند کنار نمی‌روند ولی رفتند و نماد دروغ و دست‌کم حرف مفت شناخته شدند. طبیعی است که مردم صداقت را بر دروغ ترجیح می‌دهند. قاضی زاده هاشمی یک بار به ابراهیم متقی و نوبت بعد به حسین انتظامی گفت تا آخر می‌ماند اما نماند. زاکانی هم در واکنش به آن طعنه مشهور پزشکیان (تا‌آخر می مونی دیگه؟!) گفت: بله و نمی‌گذارد او رییس جمهوری شود. 

وزیر نفت دولت روحانی خطاب به پزشکیان نوشت: خدایا صدهزار بار شکرت که قفس را شکستی به طریقی که هیچ‌کس تصورش را هم نمی‌کرد.

آمار کل رأی ایرانیان در خارج از کشور در مرحله دوم انتخابات چهاردهمین دوره ریاست جمهوری ۸۸ هزار و ۳۲۵ برگه رأی بود. از مجموع این آراء ۳۶ هزار و ۱۶۹ نفر به مسعود پزشکیان و ۵۰ هزار و ۲۰۶ نفر به سعید جلیلی رای داده بودند.

ببینید: یک جهان انتصاب، چهار سال جهش / نگاهی به انتصابات دقیقه ...

۲۲ تیر ۱۴۰۳ ( می خواهند آخر کاری  هر کاری که به ضررشان بود را تصویب کنند 

سرویس صنعت برق: علی اکبر محرابیان بعد از آنکه تقریبا مسجل شد از وزارت نیرو رفتنی است در اقدامی عجیب، آیین نامه تبدیل وضعیت نیرو‌های غیررسمی که ۳ سال بود در کشوی میزش خاک می‌خورد را ابلاغ کرد. این ابلاغیه تبدیل وضعیت که برای شرکت‌های وابسته وزارت نیرو ابلاغ شد قرار بود نیروه‌های غیررسمی که ۱۵ سال سابقه بیمه داشته و ۱۰ سال آن در صنعت آب و برق بوده باشد در صورت وجود چارت تبدیل وضعیت شوند.

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

سایت drjalily.com در ۱۵ تیر ۱۴۰۳ ساعت ۱۵:۵۶

گزارش مالی شماره 1

تا تاریخ ۱۴۰۳/۰۳/۲۷، جهت انتشار عمومی

ردیف	شرح هزینه	مبلغ نهایی (ریال)
1	هزینه ابنیه و تأسیسات	568,459,000
2	هزینه حمل‌ونقل	565,500,000
3	هزینه ارتباطات و رسانه	780,500,000
4	هزینه تجهیزات و ملزومات	5,245,900,000
5	هزینه‌های جاری	19,954,813,910
6	هزینه اجاره محل	2,400,000,000
7	هزینه تبلیغات	10,090,400,000
	مجموع	39,605,572,910

گزارش مالی شماره 2

تا تاریخ ۱۴۰۳/۰۳/۲۹، جهت انتشار عمومی

ردیف	عنوان	مقدار
1	کل واریزی‌ها و اهدایی به حساب	30,883,371,259ریال
2	کل مبلغ برگشت به حساب	527,500,000ریال
3	تعداد تراکنش‌های واریزی	7,050
4	میانگین مبلغ بر اساس تراکنش‌ها	6,879,470
5	تعداد تراکنش‌های زیر ۱۰۰ هزار تومان	4,254
6	تعداد تراکنش‌های ۱۰۰ تا ۲۰۰ هزار تومان	1,136
7	تعداد تراکنش‌های ۲۰۰ تا یک میلیون تومان	1,389
8	تعداد تراکنش‌های یک تا پنج میلیون تومان	222
9	تعداد تراکنش‌های پنج میلیون تومان به بالا

تیر ۱۴۰۳

پیش از این و طبق تعاریف مندرج در این آیین نامه مادر فاقد شوهر، به مادری اطلاق می شد که همسرش فوت کرده و یا طلاق گرفته باشد و در زمان رسیدگی فاقد همسر دایم باشد. این امر سبب شکل گیری پدیده طلاق های صوری برای استفاده از معافیت سربازی برخی خانواده ها شده بود؛ در این شیوه والدین توافق می کردند که از یکدیگر طلاق بگیرند و پس از معافیت فرزندشان، به صورت عقد موقت طولانی مدت به زندگی مشترک ادامه می دادند

صیحه آسمانی قبل از قتل نفس زکیه 

ندایی است آسمانی که نام حضرت مهدی علیه السلام را به گوش همه مردم جهان می‌رساند. این ندای بلند از جبرئیل علیه السلام است و در شب ۲۳ رمضان ( به احتمالی )  به گوش می‌رسد و همه مردم زمین آن را به زبان خود می‌شنوند..... صیحه نه گوش خراش است ( بواسطه نزدیک بودن ) نه آهسته ( بواسطه دور بودن ) همه آنرا به یک نحو و مساوی درک می کنند بسیاز زیبا ، دلنشین و برّا 

خداوند می فرماید : اگر بخواهیم از آسمان نشانه‌اى بر آن‌ها فرو مى‌فرستیم تا گردن‌هاى آن‌ها در برابر آن (به اجبار ) خاضع گردد.

همانگونه که امیرالمومنین علیه السلام می‌فرماید:

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

مکانِ مقدس در شهری محترم : بخشى از مسجد الحرام و مقدّس ترین مکان آن، حَطیم است که حدود آن، عبارت اند از : رُکن حجر الأسود، درِ کنونى کعبه و مقام ابراهیم

۱۸ تیر ۱۴۰۳

مثلا به رقم تقریبی دستمزد آقای رضا عطاران نگاه کنید؛ دستمزد ایشان در سال ۱۴۰۰ یک میلیارد تومان بوده، عطاران در این سه سال، روندهای نزولی در سینما را طی می‌کند، اما الان در سال ۱۴۰۳ شنیده‌ام که قراردادی بسته ۳۵ برابر بیشتر از ۱۴۰۰!

_{۲ ساعت قبل}

دستمزد نجومی رضا عطاران برای یک فیلم افشاشد! - روزنامه اطلاعات

ettelaat.com › فرهنگ › همه خبرهای فرهنگی

‌سارا استوار حصاری‌ در فارس : "موضوع سریال فراری درباره شهید مدافع حرم ...

روایت-امیر-د... ‹ Sara_ostovar ‹ farsnews.ir

۲ روز پیش · موضوع سریال فراری درباره شهید مدافع حرم نیست و هر خبری که مبنی بر این موضوع منتشر شود غلط است. به گزارش خبرگزاری فارس – گروه رادیو و ..

زیاده روی در هر غذایی معمولاً سالم نیست. در مورد گیلاس، مصرف بیش از حد آن سالم نخواهد بود زیرا به معنای مصرف زیاد قند و مصرف بیش از حد فیبر اضافی است که ممکن است باعث نفخ، اسهال و افزایش وزن شود.

مصرف زیاد قند به مرور زمان موجبات پوکی استخوان را فراهم می سازد بیشتر از ۳۰ گرم معادل حدود ۷ حبه قند در روز مضر خواهد بود

• Adults should have no more than 30g of free sugars a day, (roughly equivalent to 7 sugar cubes).

تیر ۱۴۰۳

تب دِنگی در ایران نیز مشاهده گردید . داروی خاصی برای درمان عارضه تب دِنگی وجود ندارد .

There is no specific medicine to treat dengue infection. If you think you may have dengue fever, you should use pain relievers with acetaminophen and avoid medicines with aspirin, which could worsen bleeding. You should also rest, drink plenty of fluids, and see your doctor.

انتقادهای تند درباره مافیای خودرو ؛ اگر وجود دارد چرا تاکنون نگفته‌اند

انتقاده... ‹ news ‹ www.hamshahrionline.ir

۱۰ اردیبهشت ۱۴۰۲ · حسینعلی حاجی دلیگانی گفت که اگر مافیای خودرو وجود دارد هم آقای رئیس جمهور و هم آقای وزیر باید پیش از این استیضاح در موردش اقدام می‌کردند.

۲۰ تیرماه ۱۴۰۳ و هشدار تب دِنگی در ایران

هشدار درباره احتمال «همه‌گیری» تب دنگی در ایران - رادیو فردا

warning-about-th... ‹ www.radiofarda.com

۳ روز پیش · آن‌طور که مینو محرز به تجارت نیوز گفته یک بار ابتلا به بیماری تب دنگی، مصونیت نمی‌آورد و هر فرد ممکن است بیش از سه بار به این بیماری مبتلا شود.

۲۰ تیر ۱۴۰۳ ساری- رییس دانشگاه علوم پزشکی مازندران از مشاهده ورسیدن پشه آئدس در استان خبر داد.

شهنام عرشی، رئیس مرکز مدیریت بیماری‌های واگیر وزارت بهداشت ایران در گفت‌وگو با رسانه‌های داخلی از ابتلای ۱۴۹ نفر به بیماری تب دنگی در این کشور خبر داد.

بیشتر موارد تب دنگی را می توان در خانه با داروهای مسکن درمان کرد. استامینوفن (پاراستامول) اغلب برای کنترل درد استفاده می شود. از مصرف داروهای ضدالتهابی غیراستروئیدی مانند ایبوپروفن و آسپرین اجتناب می شود زیرا می توانند خطر خونریزی را افزایش دهند. برای افراد مبتلا به دنگی شدید، اغلب نیاز به بستری شدن در بیمارستان است.

If you get dengue, it’s important to:

• rest;
• drink plenty of liquids;
• use acetaminophen (paracetamol) for pain;
• avoid non-steroidal anti-inflammatory drugs, like ibuprofen and aspirin; and
• watch for severe symptoms and contact your doctor as soon as possible if you notice any.

۲۴ تیرماه ۱۴۰۳

ایرنا : تعداد نهایی شهروندان گلوگاهی که در روزهای ۲۴ و ۲۵ تیر ۱۴۰۳ به دلیل نوشیدن آب یا شربت از چند موکب عزاداری دچار مسمومیت شده بودند بنا به اعلام مدیر شبکه بهداشت و درمان گلوگاه ۹۲۵ نفر است که همگی با دریافت دارو و تزریق سرم ترخیص شدند و موردی از شرایط وخیم حال این شهروندان نیز ثبت نشد.

به گفته ابراهیم خادملو نخستین مراجعه به بیمارستان ثامن‌الائمه (ع) این شهرستان، از ساعت ۳۰ دقیقه بامداد روز سه‌شنبه ۲۶ تیر آغاز شد و از ساعت چهار بامداد تا ساعت ۲۳ به مدت حدود ۱۹ ساعت اوج مراجعات شهروندان گلوگاهی با نشانه‌های مسمومیت غذایی به این بیمارستان ثبت شد.

Msgbox در اکسس

A twip is defined as being 1⁄1440 of an inch (approximately 0.0176 mm). 

(1÷1,440)×25.4=0.0176388889

1 Inch = 72 Point

1.047"×72=75.384 Point

کنترل های اکسس کنترل های استاندارد VB نیستند . و زمان اجرا در صفحه رسم می شوند.بر خلاف کنترل های VB ،  آنها هندل یونیک و واحدی ندارند. 

Access controls are not standard VB controls.  They're drawn on the screen at runtime. As such, unlike VB controls, they do not have a unique hWnd.

Private Declare Function apiGetFocus Lib "user32" _
        Alias "GetFocus" _
         () As Long
    On Error Resume Next
         
Function fhWnd(ctl As Control) As Long
    Else
    ctl.SetFocus
    If Err Then
        fhWnd = 0
End Function
        fhWnd = apiGetFocus
    End If
    On Error GoTo 0
End Function

getdevicecaps  

const LOGPIXELSX = 88

const LOGPIXELSY = 90

bitmap-functions

loword =Clng(lparam And 255×257)

Hiword=Clng(lparam \ 255×257)

&FFFF(Hex)=65535(Decimal)

Hext (FFFF)To Dec

F=15

16^(3)×15+16^(2)×15+16^(1)×15+16^(0)×15=65535

FORM.WINDOWLEFT

Returns an Integer indicating the screen position in twips of the left edge of a form relative to the left edge of the Microsoft Access window. Read-only.

 یک عدد صحیح را بر می گرداند که موقعیت صفحه ( به twips ) از لبه چپ یک فرم نسبت به لبه چپ پنجره Microsoft Access نشان می دهد و فقط خواندنی است.

یک اینچ برابر 96 پیکسل است بنابراین 0.8 اینچ برابر 76.8 پیکسل است. (  96 × 0.8 )

در اکسس مقدار left یا Top و ... به واحد twips داده میشود برای تبدیل twips به pixle لازم است مقدار برگشتی در (1440÷96) ضرب گردد.فرضا اگر مقدار Top عدد 0.8 اینچ باشد در تکست باکس عددد 1440×0.8 یا 1152 مشاهده می گردد برای تبدیل به پیکسل عدد 1152 را در 1440÷96 ضرب می کنیم و می شود 76.8 پیکسل .

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

به برکت متخصیصن کشوری و لشگری مدیر طراحی مرکز توسعه محصولات ایران خودرو گفت: باز شدن کیسه هوا (ایربگ) در هنگام تصادف خودرو، بستگی به شدت ضربه، میزان سرعت و زاویه‌ای دارد که ضربه وارد می‌شود. فرضا در تصادف ضربدری ایربگ مطمئنا عمل نخواهد کرد خخخخ

به برکت نظام مقدس : به منظور تسهیل در خرید مسکن و کاهش آورده متقاضیان، انجمن خانه عمران پیشنهاد ساخت ۳۰ درصد از واحد‌های نهضت ملی مسکن در قالب واحد کوچک متراژ را داده است.سفره ایرانی هر سال کوچکتر از دیروز!!!

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

خبرگزاری فارس با انتشار ویدیویی هفت دقیقه‌ای«چینش تاریخی اقتدار ایرانی» به تحلیل دیدار رئیسی و پوتین و زبان بدن رئیس جمهوری روسیه پرداخت و مدعی شد: حرکات بدن پوتین می‌گوید او در حین گفتگو با رئیسی دچار استرس بوده و به همین دلیل کراوات خود را دو بار منظم کرده است.

مطالب زیر تکرار مکررات است 

نمونه ای از هوک کردن ساده پنجره Msgbox با کلاس 32770# که در سایر سایت های خارجی قرارداده و پاس داده می شود مثل بنده ، تست شده و عمل میکند البته توابع دیگری هم دارد که آنها ذکر نشده مثل GetClass که از تابع GetClassNameA کتابحانه user32.Dll  استفاده شده ( کارِ این تابعِ API ، پرکردنِ بافری است که مشخص کرده اید و جواب این تابع ، تعداد کاراکترهایی است که در بافر پر کرده.) برای گرفتن Text مربوط به Button یا هر کنترل دیگر در تابع زیر از GetWinText استفاده شده  و در این تابع یا Function از این کتابخانه و تابع با نام GetWindowTextA بهره برده ایم و عملکرد این تابع مثل GetClassNameA می باشد.یکسری ثابت ها در زیر بیان شده مثل GW_CHILD و GW_HWNDNEXT که به ترتیب 2 و 5 هستند و ثابت WH_CBT نیز (4-) است.

MsgboxGrailly "www.accessvba.blogsky.com", vbYesNo, "Salam"

Subclass کردن پنجره Msgbox  با تابع ساختگی تصویر بالا و  ارسال تکست  "WM_RBUTTONDOWN"به ناحیه Caption  زمان RightClick  : تماماً از سایت های بیگانه استخراج شده ولی با مطالعه و تست موفق طبق تصویر زیر

ناحیه Static ارتفاعش زیاد نیست بنابراین نمی توان بیش از حدود 30 تا 36 درجه چرخش داد و یه مشکل وجود دارد اگر سایز فونت ( در ارسال پیام به پنجره با LOGFONT ) بیشتر شود طول پنجره زمان نمایش بیشتر نخواهد شد مگر اینکه قبل از ارسال عرض متن مشخص شود و با تابع MoveWindow یا SetWindowPos تنظیم گردد.

Case &H2 'WM_DESTROY

        DeleteObject hFont

        SetWindowLongPtr hWnd, GWL_WNDPROC, lOrigWinProc

        Exit Function

Font

Public Const WM_SETFONT = &H30

Dim lf As LOGFONT

Dim hFont

 lf.lfHeight = 16

 lf.lfEscapement = 3

If GetClass(hwndChild) = "Static" Then

                hFont = CreateFontIndirect(lf)

                SendMessageA hwndChild, WM_SETFONT, hFont, 1

End If

bitmap

stm-setimage  ' Static ارسال آیکون به ناحیه 

senddlgitemmessagea 'ارسال آیکون

ms940367(v=msdn.10)

wm-nextdlgctl 'set the keyboard focus to a different control in the dialog box.

تنظیم فوکس کیبورد به یک کنترل متفاوت در جعبه دیالوگ مثل Msgbox 

getdlgitem ' If the function succeeds, the return value is the window handle of the specified control.

تابع بالا هندل کنترل مشخص شده را بر می گرداند البته اگر درست عمل کند و موفقیت آمیز باشد.

WM_USER=&H400
BM_SETIMAGE = &HF7
STM_SETICON = &H170
STM_GETICON = &H171
STM_SETIMAGE = &H172

dm-getdefid  ''the low-order word contains the control identifier 'lparam & wparam must be zero

loword(clng(SendMessage wparam,DM_GETDEFID,0,0))

از clng استفاده شد تا خطا ندهد ( عدد بزرگ است ) . مسیج بالا قسمت low word آن البته اگر باتن فشاری نباشد حاوی نشانگر کنترل است و در آرگومان دوم تابع getdlgitem هم می توان استفاده نمود.

DM_GETDEFID = (WM_USER + 0)

DM_SETDEFID = (WM_USER + 1) 

مطالعه کنید و لذت ببرید 

To create a SysLink, call the CreateWindow or CreateWindowEx function, specifying the WC_LINK window class. 95741118

wm-notify

commctrl-nmlink

commctrl-litem

nm-click-syslink

Type NMHDR
hwndFrom As LongPtr
idFrom As Long
uCode As Lonh
End Type

Type LITEM
mask As Long
iLink As Integer
state As Long
stateMask As Long
szID As String
szUrl As String
End Type

Type NMLINK
hdr As NMHDR
item As LITEM
End Type

hWndBtn = CreateWindowEx(0, "Button", "MyButton", WS_CHILD Or WS_VISIBLE, 32, 32, 64, 64, hwnd, 0, 0, 0)

hWndEdit = CreateWindowEx(WS_EX_CLIENTEDGE, "Edit", "MyEdit", WS_CHILD Or WS_VISIBLE, 200, 10, 100, 100, hwnd, 0, 0, 0)

hWndBtn = CreateWindowEx(WS_EX_CLIENTEDGE, "Static", "MyLabel", WS_CHILD Or WS_VISIBLE, 10, 100, 100, 40, hwnd, 0, 0, 0)

Public Function WindProc(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

     If wMsg = WM_COMMAND Then

          If lParam = hWnd_Btn Then MsgBox "Button was clicked!"

    End If

   WindProc = CallWindowProc(WndProcOld&, hwnd&, wMsg&, wParam&, lParam&)

    End Function

Private Function loword(DWord As Long) As Integer

    If DWord And &H8000& Then

        loword = DWord Or &HFFFF0000

    Else

        loword = DWord And &HFFFF&

    End If

End Function

'Create SysLink (HyperLink) Control

Const WS_CHILD = &H40000000
Const WS_VISIBLE = &H10000000
Const WC_LINK = "SysLink"
Const ICC_LINK_CLASS = &H8000&
Dim hwnd As Long, hSysLink As Long Dim tIccex As InitCommonControlsEx Dim sCaption As String
With tIccex
.Size = LenB(tIccex)
.ICC = ICC_LINK_CLASS
End With
If InitCommonControlsEx(tIccex) Then sCaption = "<a href=" & Chr(34) & "www.google.com" & Chr(34) & ">click here</a>"
hSysLink = CreateWindowEx(0, StrPtr(WC_LINK),StrPtr(sCaption), WS_CHILD + WS_VISIBLE, _ 20, 20, 300, 20, hwnd, 0,vbNullString, 0)
End If
End Sub

createfontindirecta  'GDI32.DLL

getdevicecaps 'GDI32.DLL

getdc 'USER32.DLL

Dim PixelsPerInch       As Long
    PixelsPerInch = GetDeviceCaps(hDC, LOGPIXELSY)

Private Const LOGPIXELSY As Long =90

-((PointSize * PixelsPerInch) \ 72)

alphablend

taskdialogindirect

جمیله علم‌الهدی، همسر رئیسی : از من خواستند مشابه کتاب میشل اوباما را بنویسم ، همسرم هم تایید کرد / مرز اصلی جنگ نرم ، عفاف و حجاب است

SendDlgItemMessage(hwnd,ID_BTN,BM_CLICK,0,0)

Type NMHDR
hwndFrom As LongPtr
idFrom As Long
uCode As Long
End Type

Type LITEM
mask As Long
iLink As Integer
state As Long
stateMask As Long
szID As String
szUrl As String
End Type

Type NMLINK
hdr As NMHDR
item As LITEM
End Type

اطلاعات در lparam است لذا برای کپی اطلاعات به حافظه و استفاده از اطلاعاتی که نیاز داریم از تابع RtlCopyMemory استفاده می نمائیم که در اینجا با نام استعار CopyMemory اظهار شده.با آرگومانهای زیر 

CopyMemory Destination,Source,Length

'Be aware that the last parameter, Length, is the number 'of bytes to copy into Destination, not the size of 'the Destination.

'use the CopyMemory API to Get a Copy into the 'Variable we setup

Select Case uMsg
       Case WM_NOTIFY
             Dim nmh As NMHDR
             CopyMemory nmh, ByVal lParam, Len(nmh)
                     Select Case lParam.uCode
                          Case NM_CLICK
                         Case NM_RETURN
                             Dim nml As NMLINK
                            CopyMemory nml,ByVal lParam,Len(nml)

                   End Select

End Select

using-window-procedures

اِفاضات در 2بهمنِ1400

ایرنا نوشت: معاون پارلمانی رئیس جمهور گفت: برخی هیاهو می‌کنند که داریم کشور را به چین و روسیه می‌فروشیم در صورتی که اصلاً این گونه نیست و هیچ‌گاه این اتفاق نخواهد افتاد.... ( در ساخت پالایشگاه اراک چینی ها هم سهیم بودند و مردان و زنان چینی هم در پروژه کار می کردند سال های 88 تا 93 ) 

نفرت جاده ای دو طرفه است و وقتی نسبت به افرادی نفرت پراکنی می شود، آنها و اطرافیان شان نیز نفرت متقابل ایجاد می کنند. چند روز قبل، حجه الاسلام محمدرضا زائری فاش ساخت که به خاطر لباس روحانیتی که بر تن دارد، مدام به او در خیابان توهین می شود و اخیراً نیز فیلمی از آزار یک روحانی در فضای مجازی پخش شد. قطعا توهین به هر انسانی و از جمله روحانیون ناروا و محکوم است اما آیا دستکم بخشی از این رفتارها، ریشه در همین نفرت افکنی هایی ندارد که متاسفانه برخی خطیبان مرتکب اش می شوند؟ البته توهین ها بخاطر عملکرد بد مسئولین نظام هست مثل فروش اجباری بیمه عمر به درمان تکمیلی بازنشستگان که در بالا ذکر شد.

فاضل میبدی گفت: فقط صدای یک طیفی در مقام تعریف از دولت و مجلس شنیده می‌شود، باید کسانی که مخالف لایحه بودجه و یا  سفر رئیس‌جمهور هستند و نقد دارند در صداوسیما آزادانه بنشینند و نقد کنند اگر این اتفاقات بیفتد و گفت‌وگو صورت بگیرد، مشکلات ما خیلی کمتر خواهد بود، اما متاسفانه صدا و سیما در دست یک جریان خاصی است و هر چیزی را که امروز در کشور است، تبلیغ و توجیه می‌کنند و هیچ راه و سخنی برای هیچ مقام مخالفی نگذاشته است که این کشور ما را به سمت و سویی می‌برد که نباید برود

در کد زیر که در تایمر فرم اصلی قرار داده شده ، پنجره با کلاس 32770# ( پنجره ویندوزی ) و کپشن Security را پیدا میکند سپس در این دایالوگ باکس ، هندل باتن با کپشن Ok را گرفته و پیام کلیک روی آن را ارسال می کند در ضمن اگر کپشنِ ویندو ، Choose File بود هندل کلاس باتن با کپشن Open را گرفته و تکستی را با پیام WM_SETTEXT به کنترل EditBox کلاس ComboBoxEx32 که کلاس ویندوزی است ارسال می نماید و در آحر پیام فشردن کلید را به باتن Open ارسال می نماید.

Private Sub Timer1_Timer()
Dim x As Long, editx As Long
Dim Button As Long

x = FindWindow("#32770", "Security Alert")
If X Then
    Button = FindWindowEx(x, 0&, "Button", "&Yes")
    If Button Then
        Call SendMessageLong(Button, WM_KEYDOWN, VK_SPACE, 0&)
        Call SendMessageLong(Button, WM_KEYUP, VK_SPACE, 0&)
    End If
Else
    x = FindWindow("#32770", "Choose file")
    If X Then
        editx = FindWindowEx(x, 0&, "ComboBoxEx32", vbNullString)
        If editx Then 
            Button = FindWindowEx(x, 0&, "Button", "&Open")
            If Button Then
                Call SendMessageByString(editx, WM_SETTEXT, 0&, Text5)
                Call SendMessageLong(Button, WM_KEYDOWN, VK_SPACE, 0&)
                Call SendMessageLong(Button, WM_KEYUP, VK_SPACE, 0&)
                Command3_Click ' < whatever this does?
            End If
        End If
    End If
End If
End Sub

تذکر مهم : اگر کدها کار نکرد یا سیستم دچار هنگ یا Crash شد به این دلیل است که یا نحوه اظهار تابع اشتباه است یا کتابخانه که بعد از "Lib" ذکر شده Wrong است و در win64 یا vb7 هستید ولی کدهای شما مربوط به win32 است یا ByVal نگذاشته اید در ابتدای پارامترها و یا دیتا تایپ شما در جایی که نباید Long باشد از Long استفاده شده در حالیکه شما در سیستم 64بیتی هستید پس نحوه اظهار کردن توابع API در WIN32 و WIN64 متفاوت هستند و دیتا تایپ ها نیز مهم هستند لذا اگر سیستم هنگ کرد باید تابع را از اول تا آخر بررسی کنید هم نام تابع و هم آرگومانهای داخلش ، اگر در تابعی فقط آرگومان اول برای شما مهم است و بقیه را احتیاج ندارید باید از کلمه Optional استفاده کنید و اگر پارامترهایی بعد از این نیز دارید باید همه Optional شوند. مثل  ( در ویندوز 32 بیتی )  : 

Public Declare Function FindWindowExA Lib "user32" (ByVal hwnd As Long,Optional ByVal hwndAfter As Long,Optional ByVal sClass As String,Optional ByVal sCaption As String)

اگر بصورت Pivate یا خصوصی بجای Public اظهار شود فقط در همان رویه ( Procedure ) یا استاندارد ماژول( STD Module ) می شود استفاده کرد و دسترسی به این تابع در جای دیگر محیط VBE را به شما نخواهد داد. نحوه اظهار تابع بالا درVB7 یا WIN64 بدین صورت است که کلمه PtrSafe قبل از Function قرار می گیرد و دو پارامتر hwnd اول دیتا تایپ LongPtr بجای Long می گیرند.( اساتید تازه کار بین کلمات حتما فاصله یا Space باشد !!!)

<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="onLoad">
  <ribbon startFromScratch="false">
    <tabs>
      <tab id="Tab1" label="figure" insertBeforeMso="TabHome" keytip="S">
        <group id="Group1" label="SetLayeredWindowAttributes">
          <button id="ShowFormButton" label="sfbtn" keytip="S"
                  supertip="xxxxx" onAction="onAction" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const LWA_COLORKEY = &H1

Private Const LOGPIXELSX = 88 ' Logical pixels / inch in X
Private Const LOGPIXELSY = 90 ' Logical pixels / inch in Y

hDC = GetDC(hWnd)
  XPixelsPerInch = GetDeviceCaps(hDC, LOGPIXELSX)
  YPixelsPerInch = GetDeviceCaps(hDC, LOGPIXELSY)
  ReleaseDC hWnd, hDC

Image1.BackColor = vbRed 
BackColor = Image1.BackColor

ExStyle = GetWindowLong(hWnd, GWL_EXSTYLE)
  ExStyle = ExStyle Or WS_EX_LAYERED
  Call SetWindowLong(hWnd, GWL_EXSTYLE, ExStyle)
  Call SetLayeredWindowAttributes(hWnd, BackColor, 0, LWA_COLORKEY)

Private rbRibbonUI As IRibbonUI  

Sub onLoad(ribbon As IRibbonUI)
  Set rbRibbonUI = ribbon 
  rbRibbonUI.Invalidate 
End Sub

Sub onAction(control As IRibbonControl)
 On Error Resume Next
  
  Select Case control.ID
    Case "ShowFormButton"
      
    Case Else
      Beep 
      MsgBox Prompt:=control.ID & "rrrr", Buttons:=vbCritical + vbSystemModal, Title:="eee"
      Exit Sub
  End Select
    Exit Sub

سایز فونت در DC 

Type FNTSIZE
Cx As Long
Cy As Long
End Type

Dim textSize As FNTSIZE

'The GetTextExtentPoint32 function 'computes the width and height of the 'specified string of text.

GetTextExtentPoint32 tempDC, StrPtr(xText), Len(xText), textSize 

When the character orientation and the print orientation are 90 degrees apart for the same string, this function returns the dimensions of the string in the SIZE structure as { cx : 18, cy : 116 }.

LOGPIXELSX = 88     ' horizontal DPI (assumed by Windows)
    LOGPIXELSY = 90     ' vertical DPI (assumed by Windows)

گرفتن ابعاد صفحه با تابع getsystemmetrics

Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN=0
Const SM_CYSCREEN=1

Sub ScreenRes()
Dim w As Long, h As Long
    w = GetSystemMetrics32(0) ' width in points
    h = GetSystemMetrics32(1) ' height in points

End Sub

lngExStyle=WS_EX_STATICEDGE '&H20000

lngExStyle=lngExStyle+WS_EX_WINDOWEDGE '&H100

lngExStyle=lngExStyle+WS_EX_TRANSPARENT '&H20

hStatic = CreateWindowEx(lngExStyle,"STATIC", "Text" , WS_VISIBLE +WS_CHILD + SS_BITMAP,
100, 100, 200, 200, hWnd, (HMENU)10000, Application.hwndAccessApp, 0&)

' SetWindowLongPtr hWndCreate,GWL_EXSTYLE,GetWindowLongPtr(hWnd,GWL_EXSTYLE) Or WS_EX_LAYERED

'SetLayeredWindowAttributes hWndCreate, 0, (255 * 20) /100,LWA_ALPHA)

'load bitmap into static

SendMessage hStatic,STM_SETIMAGE, (WPARAM)IMAGE_BITMAP, (LPARAM)hBitmap

'destroy bitmap when it is not required any more

DeleteObject hBitmap

درگ فایل داخل فرم و گرفتن آدرس آن : 

Declare Sub DragAcceptFiles Lib "shell32.dll" _
        (ByVal hWnd As Long, _
        ByVal fAccept As Long)

Declare Sub DragFinish Lib "shell32.dll" _
        (ByVal hDrop As Long)

Declare Function DragQueryFile Lib "shell32.dll" _
        Alias "DragQueryFileA" (ByVal hDrop As Long, _
                                ByVal lFile As Long, _
                                ByVal lpFileName As String, _
                                ByVal cbLen As Long) As Long

'SubClass Window & UnSubClass 

'Call DragAcceptFiles + Subclass win

Sub SubClassHookForm()

DragAcceptFiles(frm.hWnd, 1)
lpPrevWndProc = SetWindowLong(frm.hWnd, GWL_WNDPROC, _
AddressOf WindowProc)
End Sub
'Remove Hook And Cancel Drag Files
Sub SubClassUnHookForm()
SetWindowLong(frm.hWnd, GWL_WNDPROC, lpPrevWndProc)
DragAcceptFiles(frm.hWnd, 0)
End Sub

dragqueryfilew

Const GetNumOfFiles=&HFFFF

Case WM_DROPFILES

'Get the number of dropped files
NumOfFiles = DragQueryFile(hDrop, GetNumOfFiles, 0&, 0)

For i=0 To NumOfFiles

l=DragQueryFile(hDrop:wParam,i,txt,len(txt)

s=s &;Left(Buff$,l)

Next

Write in WindowProc :

'Win MSG

Dim rcClient As RECT
Dim ptClientUL As POINTAPI
Dim ptClientLR As POINTAPI
static ptsBegin As PONITAPI

static ptsEnd As POINTAPI

static ptsPrevEnd As POINTAPI

??static fPrevLine As Boolean= FALSE

Select Case uMsg

case WM_LBUTTONDOWN

SetCapture hwndMain

GetClientRect hwndMain,rcClient 

ptClientUL.x = rcClient.left

ptClientUL.y = rcClient.top
ptClientLR.x = rcClient.right + 1

ptClientLR.y = rcClient.bottom + 1

ClientToScreen hwndMain,ptClientUL

ClientToScreen hwndMain,ptClientLR

SetRect rcClient, ptClientUL.x,ptClientUL.y, ptClientLR.x, ptClientLR.y

ClipCursor rcClient

ptsBegin = MAKEPOINTS(lParam)

'lparam And &HFFFF

'lparamOr & HFFFF

Exit Function

Case WM_MOUSEMOVE

case WM_MOUSEMOVE
  Select Case wParam
       Case MK_LBUTTON  ' 1 wm-lbuttondown
          hdc = GetDC(hwnd)

'wingdi-setrop2  ... gdi32.setrop2

     SetROP2 hdc, R2_NOTXORPEN ' 10

if  fPrevLine Then

MoveToEx hdc, ptsBegin.x, ptsBegin.y,0&)

LineTo hdc, ptsPrevEnd.x,ptsPrevEnd.y

End if 

ptsEnd = MAKEPOINTS(lParam) 'Get loword & Hiword
MoveToEx hdc, ptsBegin.x, ptsBegin.y,0&
LineTo hdc, ptsEnd.x, ptsEnd.y

fPrevLine = TRUE
ptsPrevEnd =ptsEnd
ReleaseDC hwnd, hdc

End Select

Exit Function

Case WM_LBUTTONDOWN

ClipCursor Null

ReleaseCapture

Exit Function

End Select

بیمه عمر