Hicham Al Sayed ahmed

اهلا و سهلا بكم في منتدى تقنيات الحاسوب 2013

منتدى و عالم تقنيات الحاسوب و البرمجة وانظمة التشغيل و الصيانة 2013

تؤمن لكل من يحب ان يتعلم البرمجة و كل من يدرس في هذا الاختصاص برامج و مواضيع و افكار جديدة و كيفية العمل و الكثير و الكثير و ايضا تتيح لاي شخص ان ينضم لهذا المنتدى و خاصة طلاب تقنيات الحاسوب و انظمة التشغيل و الصيانة المادية و البرمجية
تعلم الفجوال بيسك - الدلفي - السي ++ - الباسكال و الكثير و الكثير

اطرح سؤالك على فريق العمل في الفيسبوك

تابعنا على الفيسبوك

Log in

I forgot my password

اضحط امرح افرح

Who is online?

In total there is 1 user online :: 0 Registered, 0 Hidden and 1 Guest

None


Most users ever online was 85 on Tue Nov 05, 2013 5:00 am

كود جميل ورائع جربه واعرف بنفسك ماذا يعمل

Fri Jan 06, 2012 6:46 pm by al-Master

santa' بدون تعديل ضع هذا الكود في الفورم
الرجاء وضع تايمرين قبل التشغيل

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private …

[ Full reading ]
هام هام هام ارجو من الجميع الاتطلاع

Fri Jan 06, 2012 6:54 pm by al-Master

الى جميع اعضاء المنتدى والى جميع الزوار
انتظروا مفــــــــــــــــــاجئة 2012
من ابن الـــــــــســـــــــــــو يداء )
(al-master)
ومن اهم البرامج في مجموعتي
سوف تكون بين ايديكم
وعام سعيد على ابناء السويداء
والوطــــــــــــــن وقائده king

رسم دوائر رائعة بإستخدام الماوس جربه بنفسك

Fri Jan 20, 2012 7:18 pm by al-Master

' ضع هذا الكود في الفورم وقم بإضافة زر عليها cheers cheers confused confused confused

Private Sub Command1_Click()
Form1.Cls
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
i = Rnd * 15
If Button = 1 Then
Me.Circle (X, Y), 200, QBColor(i)
End If
End Sub

رسم دوائر رائعة بإستخدام الماوس جربه بنفسك

Fri Jan 20, 2012 7:18 pm by al-Master

' ضع هذا الكود في الفورم وقم بإضافة زر عليها cheers cheers confused confused confused

Private Sub Command1_Click()
Form1.Cls
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
i = Rnd * 15
If Button = 1 Then
Me.Circle (X, Y), 200, QBColor(i)
End If
End Sub

اوقف عمل الفأرة والكيبورد عن طريق هذا الكود

Fri Jan 06, 2012 6:04 pm by al-Master

' ضع هذا الكود في الفورم

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
DoEvents
BlockInput True
Sleep 1000
BlockInput False
End Sub

جديد من al-master لطلب الاتصال بالإنترنت عن طريق الفيجوال

Fri Jan 06, 2012 5:58 pm by al-Master

' ضع هذا الكود في الفورم cat

Const FTP_TRANSFER_TYPE_UNKNOWN = &H0
Const FTP_TRANSFER_TYPE_ASCII = &H1
Const FTP_TRANSFER_TYPE_BINARY = &H2
Const INTERNET_DEFAULT_FTP_PORT = 21 ' default

'for FTP servers
Const INTERNET_SERVICE_FTP = 1
Const INTERNET_FLAG_PASSIVE = &H8000000 ' used

'for FTP connections
Const INTERNET_OPEN_TYPE_PRECONFIG = 0 '

'use registry configuration
Const INTERNET_OPEN_TYPE_DIRECT = 1 '

'direct to net
Const INTERNET_OPEN_TYPE_PROXY = 3 '

'via named proxy
Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4 ' prevent using …

[ Full reading ]
جديد من al-master لكل طلاب المعهد التقني والمهتمون كود التحكم بسواقة جهازك عن طريق الفيجوال بيسك

Fri Jan 06, 2012 5:54 pm by al-Master

' ضع هذا الكود في الفورم Surprised

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub OpenCDDriveDoor(ByVal State As Boolean)
If State = True Then
Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
Else
Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
End If
End Sub

Private Sub Command1_Click()
OpenCDDriveDoor (True)
End Sub

Private Sub Command2_Click()
OpenCDDriveDoor (False)
End Sub


'


[ Full reading ]
أحلى جديد اخفي اقراص جهازك عن طريق هذا الكود

Fri Jan 06, 2012 6:13 pm by al-Master

' ضع هذا الكود في الفورم

Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
WSH.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives", 4, "REG_DWORD"
'يمكنك اختيار القرص عن طريق مضاعفة الرقم 4
affraid

قم بتغير دقة الشاشة من هذا الكود الصغير

Fri Jan 06, 2012 6:58 pm by al-Master

' ضع هذا الكود في المودل cat

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const CCDEVICENAME = 32
Public Const CCFORMNAME = 32
Public Const DM_BITSPERPEL = &H40000
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000
Public Const CDS_UPDATEREGISTRY = &H1
Public Const CDS_TEST = &H4
Public Const DISP_CHANGE_SUCCESSFUL = 0
Public Const DISP_CHANGE_RESTART = 1

Type typDevMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer


[ Full reading ]

دردشة

الدردشة|منتديات تقنيات الحاسوب بالسويداء

RSS feeds


Yahoo! 
MSN 
AOL 
Netvibes 
Bloglines 

December 2018

SunMonTueWedThuFriSat
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendar Calendar

التبادل الاعلاني


انشاء منتدى مجاني



Statistics

Our users have posted a total of 439 messages in 164 subjects

We have 50 registered users

The newest registered user is مهند الصادق

Current date/time is Fri Dec 14, 2018 11:25 pm