منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
لدي برنامج autotyper يقوم بكتابة نصوص مدخلة مسبقا فيه في مكان مؤشر الكتابة
البرانامج يطبع النصوص حسب تايمر من 1 الى 65 ثانية كيف يمكن زياده التايمر ليصبح من 1 الى 300 ثانية
سوف ادفع 10 دولار باي بال لمن يقوم بحل المشكلة

مرفق البرامج التنفيدي والسورس كود VB6

ضع في خاصية interval الخاصة بالتايمر 300000 فقط و مابدنا 10 دولار .

(24-06-19, 01:21 PM)asemshahen5 كتب : [ -> ]ضع في خاصية interval الخاصة بالتايمر 300000 فقط و مابدنا 10 دولار .

هلا اخي .. حياك الله على مرورك وشكرا لاهتمامك

اقصى قيمة يمكن ان يأخدها timer interval هي 65536

وعند وضع قيمة اكبر من 65536 البرنامج يعطي خطأ

بتمنى منك مساعدتي

(24-06-19, 01:21 PM)asemshahen5 كتب : [ -> ]ضع في خاصية interval الخاصة بالتايمر 300000 فقط و مابدنا 10 دولار .

هذا رد واحد ﻷستاذ من أساتذة المنتدى الرائع
عفوا أكتب من الجوال

عفوا من الأخ الكريم السورس والملف في المرفقات مضروب الرجاء تحميله مرة اخرى

(24-06-19, 06:53 PM)KamelArab كتب : [ -> ]عفوا من الأخ الكريم السورس والملف في المرفقات مضروب الرجاء تحميله مرة اخرى

هلا اخي وشكرا على اهتمامك حياك الله
مرفق نسخة بدون تعديل

(24-06-19, 12:26 PM)yasserps كتب : [ -> ]السلام عليكم
لدي برنامج autotyper يقوم بكتابة نصوص مدخلة مسبقا فيه في مكان مؤشر الكتابة
البرانامج يطبع النصوص حسب تايمر من 1 الى 65 ثانية كيف يمكن زياده التايمر ليصبح من 1 الى 300 ثانية
سوف ادفع 10 دولار باي بال لمن يقوم بحل المشكلة

مرفق البرامج التنفيدي والسورس كود VB6

(لست مبرمج VB6)

وجدت لك هذا الكود وانتظر ال 10 دولار لأني بحاجتها.

(24-06-19, 08:30 PM)wared كتب : [ -> ]

(24-06-19, 12:26 PM)yasserps كتب : [ -> ]السلام عليكم
لدي برنامج autotyper يقوم بكتابة نصوص مدخلة مسبقا فيه في مكان مؤشر الكتابة
البرانامج يطبع النصوص حسب تايمر من 1 الى 65 ثانية كيف يمكن زياده التايمر ليصبح من 1 الى 300 ثانية
سوف ادفع 10 دولار باي بال لمن يقوم بحل المشكلة

مرفق البرامج التنفيدي والسورس كود VB6

(لست مبرمج VB6)

وجدت لك هذا الكود وانتظر ال 10 دولار لأني بحاجتها.

كود :

'in a bas module:
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
  'do what you need here
End Sub



'in a form:
'...
SetTimer Me.hwnd, 0, 3600000, AddressOf TimerProc
'...

Private Sub Form_Unload(Cancel As Integer)
   'Kill our API-timer
   KillTimer Me.hwnd, 0
End Sub

هلا بيك اخي وحياك الله

اشتغل معك البرنامج

و عليكم السلام و رحمة الله و بركاته

لزيادة مدة المؤقت و تكرار الكود كل 5 دقائق يصبح الكود كالتالي