حسين عبدالله أحمد حسن

كيف حالك عبد الغني ؟ أذا كنت تستخدم الهوتميل فالرسالة تذهب JUNK MAIL جرب فتح جانك مايل وخبرني عن النتيجة ؟ أخوك حسين عبالله ;) والله ولي التوفيق

‘لمعرفة مجلد الويندوز Private Declare Function GetSystemDirectory Lib "kernel32" Alias _ "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long ‘الدالة الثانية هي GetWindowsDirectory تستخدم للحصول على نص مسار مجلد الويندوز Private Declar…

Private Sub Command1_Click() Dim LonStatus As Long Dim flag As Long Dim result As Integer Dim prompt As String Dim Title As String prompt = "هل تريد بالتأكيد إيقاف تشغيل Windows ؟" Title = "برنامج إيقاف تشغيل Windows" result = MsgBox(prompt, _ 4 + 32 + 524288 …

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 '--------------- Private Sub Timer1_Timer() Timer1.…

عزيزي عبدالغنى في الكود نفسه عليك بكتابة احد السرفرات الداعمة مثل mail.hotmail.com وهذا البرنامج كامل عسى الله يوفقك لكل خير خاصتا ضد اليهود أستخدم حفظ باسم والله الموفق ;)

أستخدم حفظ باسم والله الموفق

مومشكله عزيزي اهم شيء عندك اهو أمر PRINT و printout و الباقي بهارات تقدر تستغني عنهم ;) والله ولي التوفيق

Private Sub Command1_Click() On Error Resume Next Printer.Print If Err = 482 Then 'printer is not installed MsgBox Err.Description Exit Sub End If 'Printer.Orientation = vbPRORLandscape Printer.Orientation = vbPRORPortrait Printer.FontName = Form1.FontName Pri…

كيف حالكم شباب الله يعطيكم العافيه ماشاء الله عليكم اضغط بزر الماوس الايمن و اختار حفظ الهدف باسم من هنا نزل البرنامج والله ولى التوفيق ;)

Dim Response As String, Reply As Integer, DateNow As String Dim first As String, Second As String, Third As String Dim Fourth As String, Fifth As String, Sixth As String Dim Seventh As String, Eighth As String Dim Start As Single, Tmr As Single Sub SendEmail(M…

Dim Response As String, Reply As Integer, DateNow As String Dim first As String, Second As String, Third As String Dim Fourth As String, Fifth As String, Sixth As String Dim Seventh As String, Eighth As String Dim Start As Single, Tmr As Single Sub SendEmail(M…

قم بإضافة كوماند بوتن com1 command1 وإضافة كنترول Winsock وخل اسمه = emailsock وخمسه تكست بوكس وتسمياهم موجوده في الكود عسا ان اكون نفعتك في شيء بسيط والله الموفق Private emailhost As String Private emailto As String Private emailfrom As String Private emailme…

أخي عبد الغني كيف حالك وشكرا لك على المشاركات الفعالة لتغير BackGround لعمل ذلك .. قم بفتح شاشة الكود واكتب الشفرة التالية في البداية (كأول سطر): Private Declare Function SystemParametersInfo Lib "user32" Alias _ "SystemParametersInfoA" (ByVal uAction As Long,…

تشكر عزيزي ;) والله ولي التوفيق

وهذا ايميلي hussein979@hotmail.com والله ولي التوفيق ;)

Dim winPath As String winPath = Environ$("windir")

هذا الكود لتجزئة جملة نصية باختيار الحرف الفاصل ووضع كل كلمة داخل مسج بوكس Private Sub Command1_Click() Dim str As String Dim wd() As String str = "الفريق * العربي * 2000" wd() = Split(str, "*") For Each y In wd() MsgBox y Next End Sub

شيء حلو الله يبارك فيك ونتمنى مشاهدة المزيد والله ولى التوفيق ;)

خل ملفات الكرارك في نفس الفولدر الى ultrasuite 3.2 وبعدين سو له كرك ;) والى زيادة المعلومات يمكنك مراجعة هذه الصفحة http://www.arabteam2000.com/modules.php?na...ltra_Suite_3.01

طبعا انا لم انسى الموضوع وان شاء الله اذا امكن سوف اضع الكود وان شاء الله يكون قريب والله ولى التوفيق ;)