منتديات كركوك تايمز

منتديات كركوك تايمز
 
الرئيسيةس .و .جالتسجيلدخول
أفضل 10 أعضاء في هذا المنتدى
فيــرو - 3141
 
شميران كركوكي - 2120
 
Rasti - 1769
 
zoba - 1578
 
كــاردينيــا - 1350
 
دمعة حزن - 579
 
A.O.J - 538
 
Aramos - 497
 
ديدار - 410
 
دانيار كوردى - 404
 
المواضيع الأخيرة
» استضافة مجانية مع دومين .com مجاني مدى الحياة
الخميس 10 ديسمبر 2015, 4:36 pm من طرف hayderaltimimi

» ليلى والخمسين حرامي .. بقلمي
الإثنين 09 نوفمبر 2015, 7:19 pm من طرف حجي تمساح

» شل c99 مع الشرح بالفيديو
الأربعاء 04 سبتمبر 2013, 4:56 pm من طرف فيــرو

» شل c99 مع الشرح بالفيديو
الأربعاء 04 سبتمبر 2013, 4:52 pm من طرف فيــرو

» ثغرة XSS
الثلاثاء 27 أغسطس 2013, 5:20 pm من طرف فيــرو

» موقع يقدم اخر الثغرات
السبت 24 أغسطس 2013, 7:04 am من طرف فيــرو

» ثغرة جديدة
السبت 24 أغسطس 2013, 7:01 am من طرف فيــرو

» برنامج الهجوم على المواقع
السبت 24 أغسطس 2013, 4:57 am من طرف فيــرو

عداد الزوار

hit counter

شاطر | 
 

 كود صهر الشـــــــــــاشة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
فيــرو
مؤســـس منتديـــات كركوك تايمزمؤســـس منتديـــات كركوك تايمز
avatar
بيانات العضو
الجنس : ذكر
عدد المساهمات : 3141
نقاط : 42628
تاريخ التسجيل : 20/09/2009
العمر : 28

مُساهمةموضوع: كود صهر الشـــــــــــاشة   الخميس 01 أكتوبر 2009, 8:21 pm

الكود:


Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub

Private Sub Form_Load()
Dim lngDC As Long
Dim intWidth As Integer, intHeight As Integer
Dim intX As Integer, intY As Integer

lngDC = GetDC(0)

intWidth = Screen.Width / Screen.TwipsPerPixelX
intHeight = Screen.Height / Screen.TwipsPerPixelY

form1.Width = intWidth * 15
form1.Height = intHeight * 15

Call BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy)
form1.Visible = vbTrue

Do
intX = (intWidth - 128) * Rnd
intY = (intHeight - 128) * Rnd

Call BitBlt(lngDC, intX, intY + 1, 128, 128, lngDC, intX, intY, vbSrcCopy)

DoEvents
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set form1 = Nothing
End
End Sub


'
[code]

df
توقيــع العضو فيــرو
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://xp10.ahlamontada.com
وردة هيت
عضو مميزعضو مميز
avatar
بيانات العضو
الجنس : انثى
عدد المساهمات : 106
نقاط : 14435
تاريخ التسجيل : 03/12/2009
العمر : 28

مُساهمةموضوع: رد: كود صهر الشـــــــــــاشة   الجمعة 04 ديسمبر 2009, 9:45 pm

عاشت ايدك
توقيــع العضو وردة هيت


الرجوع الى أعلى الصفحة اذهب الى الأسفل
شميران كركوكي
أدارةأدارة
avatar
بيانات العضو
الجنس : ذكر
عدد المساهمات : 2120
نقاط : 18432
تاريخ التسجيل : 23/09/2009
العمر : 29

مُساهمةموضوع: رد: كود صهر الشـــــــــــاشة   الخميس 02 سبتمبر 2010, 5:14 am

خیو عاشت ايدك
توقيــع العضو شميران كركوكي



بیر له‌ زیان بكه‌وه‌ به‌لام خه‌فه‌تی بو مه‌خو
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 

كود صهر الشـــــــــــاشة

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات كركوك تايمز :: منتديات الكومبيوتر و الانترنيت :: منتدى لغات البرمجة-
a
انتقل الى: