تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] تعديل هذا الكود اذا امكن
#1
مثلآ
كود :
SendKeys.Send("Notepad","{S}")
يعنى يرسل الحرف فقط الى Notepad حتى لو Notepade Hide
هذا الكود يعمل على هذه الحاله
كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim hWnd As IntPtr = FindWindow(Nothing, "s - Notepad")
        If hWnd.Equals(IntPtr.Zero) Then
            Return
        Else
            SendKeys.Send("{W}")
            SetForegroundWindow(hWnd)
        End If
    End Sub
المشكله فى هذا الكود عندما يعمل لا استطيع فتح اى شيء اخر يظهر Notepade امامى ولا يكون لى الحرية فى استخدام اى شيء هل يمكن التعديل عليه
الرد }}}}
تم الشكر بواسطة:
#2
أعتقد
يجب عليك إضافة
Application.DoEvents

PHP كود :
Private Sub Timer1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer1.Tick
        Dim hWnd 
As IntPtr FindWindow(Nothing"s - Notepad")
Application.DoEvents
        
If hWnd.Equals(IntPtr.ZeroThen
            
Return
Application.DoEvents        
Else
            
SendKeys.Send("{W}")
Application.DoEvents 
           SetForegroundWindow
(hWnd)
Application.DoEvents
        End 
If
Application.DoEvents
    End Sub 
منقطع .. للدراسة Confused
الرد }}}}
تم الشكر بواسطة: أسامة
#3
(22-12-13, 11:04 PM)mamas1 كتب : أعتقد
يجب عليك إضافة
Application.DoEvents

PHP كود :
Private Sub Timer1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer1.Tick
        Dim hWnd 
As IntPtr FindWindow(Nothing"s - Notepad")
Application.DoEvents
        
If hWnd.Equals(IntPtr.ZeroThen
            
Return
Application.DoEvents        
Else
            
SendKeys.Send("{W}")
Application.DoEvents 
           SetForegroundWindow
(hWnd)
Application.DoEvents
        End 
If
Application.DoEvents
    End Sub 

شكرآ اخى لاكن نفس المشكله لا يمكننى تحريك او اغلاق اى شيء
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم...

طبيعي أنه كلما اشتغل كود الـ Timer ستظهر المفكرة (Notepad) - إذا كانت شغالة - في المقدمة بسبب وجود الدالة SetForegroundWindow.

سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة:
#5
(23-12-13, 01:35 AM)ناجي إبراهيم كتب : السلام عليكم...

طبيعي أنه كلما اشتغل كود الـ Timer ستظهر المفكرة (Notepad) - إذا كانت شغالة - في المقدمة بسبب وجود الدالة SetForegroundWindow.

سلام.

اعلم اخى لاكن هل توجد طريقة غير التيمر
الرد }}}}
تم الشكر بواسطة:
#6
آه إعتقدت أنك قلت أن الحاسوب يهنج ...
كما قال الأخ ناجي إبراهيم ستظهر المفكرة
لكن يمكنك فقط تصغير أبعاد النوتباد لتكون لديك الحرية
منقطع .. للدراسة Confused
الرد }}}}
تم الشكر بواسطة:
#7
اكتب مباشره علي ملف
ثم افتحه متي تريد عن طريق
PHP كود :
import system.IO
public class form1
private sub click)
file.writealltext(path,text)
end sub 
وبيمشي الحال
microsoft partner
Team administrator
MCPD,MCITP,OCP,MP,MCC
Xprema Systems
الرد }}}}
تم الشكر بواسطة:
#8
PHP كود :
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringByVal lpWindowName As String) As Integer
    
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As IntegerByVal hWndChildAfter As IntegerByVal lpClassName As StringByVal lpWindowName As String) As Integer
    
Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntegerByVal wMsg As IntegerByVal wParam As IntegerByVal lParam As String) As Integer

    
Public Const WM_SETTEXT = &HC

    
Public Sub SetNotepadText()
        Static 
StringToSend As String ""

        
Dim notepadHwnd FindWindow(Nothing"Untitled - Notepad")
        
Dim editHwnd FindWindowEx(notepadHwnd0"Edit"Nothing)


        
StringToSend &= "Hello World! "

        
SendMessageByString(editHwndWM_SETTEXT0StringToSend)
    
End Sub 


جرب هذا الكود !
سبحان الله وبحمده سبحان الله العظيم

الرد }}}}
تم الشكر بواسطة:
#9
شكرآ لكل من ساهم فى مساعدتى
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 67 أمس, 04:06 PM
آخر رد: ali.alfoly
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 37 29-11-16, 01:37 AM
آخر رد: hglogtd
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 62 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 92 22-11-16, 02:38 PM
آخر رد: thevirus
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 188 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 95 10-11-16, 06:25 PM
آخر رد: أبو عمر
  كيف اضيف هذا الكود في module nabil.1710 6 122 01-11-16, 03:23 PM
آخر رد: silverlight
  كيف انقل هذا الكود منForm2 اليForm1 3asfa~mdmra 2 71 30-10-16, 01:47 PM
آخر رد: 3asfa~mdmra
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 133 29-10-16, 03:42 PM
آخر رد: أبووسم
  ممكن شرح هذا الكود؟ rafaag777 0 68 26-10-16, 10:18 AM
آخر رد: rafaag777

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم