[yasserps]

(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

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

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