عبد الله فتحي

(f)الكود الحادي والخمسون(f) تحديد دقة عرض الشاشة Dim x,y As Integer x = Screen.Width / 15 y = Screen.Height / 15 If x = 640 And y = 480 Then MsgBox ("640 * 480") If x = 800 And y = 600 Then MsgBox ("800 * 600") If x = 1024 And y = 768 Then MsgBox ("1024 * 768"…

(f)(f)(f) شكراً (f) جزيلاً (f)(f)(f)

كلامك صحيح أخي NOP، وسأحاول أن أجد حلاً آخر لهذه المشكلة.

أختي: شجون إليك تحياتي، كما أتمنى أن تقومي بالتصويت على موضوعي ( تصويت : أكواد للمبتدئين)، وأتمنى أن تقومي بزيارة الرابط التالي: http://members.lycos.co.uk/alhosamnet/vb/index.php?s=

جزاك الله خيراً أخي hamohd70(f)(f)(f)

أخوتي الأعزاء (f) أنس (f) الفاروق (f) مصطفى (f) جزاكم الله خيراً على اهتمامكم وأجوبتكم. علما بأن نوع البيوس لدي Pentium 4 INtel 1.7. وإليكم جزيل الشكر والعرفان أخوكم عبد الله

أخي NOP أبشرك الويندوز ملينيوم تبعي بدأ يخرف،:confused: وكله بسبب برنامجك;) أرجو أن تخبرني ما الذي فعله البرنامج بالويندوز تبعي:'(

(gift)جزاك الله خيراً(f)

ألف شكر أخي عرفة(f)، وإلى الأمام دائماً(f)(f)

اخي NOP لقد قمت بتحميل البرنامج على الإكس بي، ولكنه لم يشتغل ولم يعطني أي رسالة خطأ، وقمت بتحميله على الملينيوم وبالفعل اشتغل ولكني لم أفهم ما المقصود منه بالضبط، وما عرفت أخرج منه:D. ما رأيك لوقمت بزيارة لمنتدى الأخ عرفة;) http://members.lycos.co.uk/alhosamne…

البرنامج جميل فعلاً:)، ولكنه ليس من صنع الكتكوت:D حمله أخوي (f) عرفه (f) ولا تخاف.

قم بالتغيير في الأرقام بالنسبة للسطرين الموجودين في الموديول: Const OpacityWidth As Integer = 2 Const StepSize As Integer = 4

يبدو أنك لم تقرأ إجابتي السابقة أخي NOP:confused:

أخي NOP (f)(f)(f) الكود صحيح ولا مشكلة فيه، فقط قم بتغيير السطر: Open "c:/vote" For Input As #1 إلى: Open "c:/vote.txt" For Input As #1 :D:D:D

دروس [WEB] http://www.geocities.com/hrm420/new_page_1.htm [/WEB]

أخي العزيز (f) NOP (f) بعد التحية: بالنسبة للكود العكسي لكود جعل الفورم شفافة: فبداية بإمكانك إرجاعها إلى ما كانت عليه من خلال التغيير في الأرقام بالنسبة للسطرين الموجودين في الموديول: Const OpacityWidth As Integer = 2 Const StepSize As Integer = 4 -----------…

في انتظار أكوادك المميزة أخي en_gold:D

(f)كود لمعرفة اسم الكمبيوتر(f) Private Const MAX_COMPUTERNAME_LENGTH As Long = 31 Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Load() Dim dwLen As Long Dim s…

(f)كود للتحكم في حركة الماوس(f) 'This project needs 2 Buttons Private Type POINTAPI x As Long y As Long End Type Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Private Declare Function SetCursorPos Lib "u…

(f)الكود الخمسون(f) لإمهال النظام 60 ثانية قبل إغلاقه ' Shutdown Flags Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_FORCE = 4 Const SE_PRIVILEGE_ENABLED = &H2 Const TokenPrivileges = 3 Const TOKEN_ASSIGN_PRIMARY = &H1 Const TOKEN_…