تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ظهور البرنامج عند نسخ رابط
#1
السلام عليكم اخوتى
اريد حينما انسخ اى رابط من اليوتيوب يظهر لى تلقائى الفورم أمامى
يعنى حينما يتم تشغيل الفورم وأنزلته تحت فى شريط المهام ونسخت
رابط من اليوتيوب يظهر تلقائى امامى ويضع الرابط المنسوخ داخل التكست بوكس
...كيف ذلك الله يكرمكم ؟..
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ،،

يكون برنامج شغال في الخلفية وتعمل تايمر يراقب الحافظة (clipboard)
اذا فيها بيانات اظهر برنامج وضع المؤشر في التكست بوكس ومن ثم يلصق النص الموجود في الحافظة داخل التكست .
الرد }}}
تم الشكر بواسطة: ابو روضة
#3
PHP كود :
Private Sub Form1_Load(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
    SetClipboardViewer
(Me.Handle)
End Sub

<Runtime.InteropServices.DllImport("User32.dll")> _
Public Shared Function SetClipboardViewer(ByVal hWndNewViewer As IntPtr) As IntPtr
End 
Function
Protected 
Overrides Sub WndProc(ByRef m As Message)
    If 
m.Msg = &H308 Then
        Me
.TextBox1.Clear()
        If 
Clipboard.GetText.Trim.StartsWith("https://www.youtube.com/watch?v="Then
            Me
.TextBox1.Text Clipboard.GetText
            Me
.WindowState FormWindowState.Normal
        End 
If
    
End If
    
MyBase.WndProc(m)
End Sub 
الرد }}}
تم الشكر بواسطة: ابو روضة , sendbad100 , sendbad100
#4
(12-10-17, 04:49 AM)حريف برمجة كتب : وعليكم السلام ،،

يكون برنامج شغال في الخلفية وتعمل تايمر يراقب الحافظة (clipboard)
اذا فيها بيانات اظهر برنامج وضع المؤشر في التكست بوكس ومن ثم يلصق النص الموجود في الحافظة داخل التكست .



طب اعملها ازاى اخى

(12-10-17, 05:01 AM)a.ahmed كتب :
PHP كود :
Private Sub Form1_Load(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
    SetClipboardViewer
(Me.Handle)
End Sub

<Runtime.InteropServices.DllImport("User32.dll")> _
Public Shared Function SetClipboardViewer(ByVal hWndNewViewer As IntPtr) As IntPtr
End 
Function
Protected 
Overrides Sub WndProc(ByRef m As Message)
 
   If m.Msg = &H308 Then
        Me
.TextBox1.Clear()
 
       If Clipboard.GetText.Trim.StartsWith("https://www.youtube.com/watch?v="Then
            Me
.TextBox1.Text Clipboard.GetText
            Me
.WindowState FormWindowState.Normal
        End 
If
 
   End If
 
   MyBase.WndProc(m)
End Sub 

هو بينسخ الرابط داخل التكست بوكس فعلا لكن الفورم  لا ينبثق لى عند نسخ اى رابط..
مقصدى من سؤالى اخى هو انبثاق الفورم لى وظهوره امامى عند نسخ اى رابط
الرد }}}
تم الشكر بواسطة:
#5
PHP كود :
Dim result As String String.Empty
Dim iData As IDataObject Clipboard.GetDataObject()
If 
iData.GetDataPresent(DataFormats.TextThen
result 
+= CType(iData.GetData(DataFormats.Text), String)

End If 
'طبعا قبل تنفيذ الكود أعلاه يجب أن تنسخ اللينك الي Clipboard

PHP كود :
Dim link As String "Your Link"
Clipboard.SetDataObject(link

أيضا لتضع في اعتبارك أن جميع البرامج تستخدم Clipboard
لذلك عليك ن تتأكد أن ما ستعود به من Clipboard هو Valid link
ممكن مثلا تستخدم
If result.StartsWith("https://www.youtube
Retired
الرد }}}
تم الشكر بواسطة: sendbad100
#6
(12-10-17, 01:05 PM)silverlight كتب :
PHP كود :
Dim result As String String.Empty
Dim iData As IDataObject Clipboard.GetDataObject()
If 
iData.GetDataPresent(DataFormats.TextThen
result 
+= CType(iData.GetData(DataFormats.Text), String)

End If 
'طبعا قبل تنفيذ الكود أعلاه يجب أن تنسخ اللينك الي Clipboard

PHP كود :
Dim link As String "Your Link"
Clipboard.SetDataObject(link

أيضا لتضع في اعتبارك أن جميع البرامج تستخدم Clipboard
لذلك عليك ن تتأكد أن ما ستعود به من Clipboard هو Valid link
ممكن مثلا تستخدم
If result.StartsWith("https://www.youtube

جزاك الله كل خير اخى بس انا كدة اتكعبلت معاك لآن الأكواد بتاعة حضرتك متفرقة ومش عارف احط ده فين 
والاخر فين هههه...أقصد هو كود استاذ احمد شغال تمام وبينسخ لكنى اريد انبثاق الفورم امامى عند نسخ
أى رابط يوتيوب
الرد }}}
تم الشكر بواسطة: sendbad100 , sendbad100
#7
عندما تقوم بنسخ اللينك مباشرة تقوم بتنفيا الأتي :
PHP كود :
Dim link As String "Your Link"
Clipboard.SetDataObject(link

ثم الأتي :
PHP كود :
Dim result As String String.Empty
Dim iData As IDataObject Clipboard.GetDataObject()
If 
iData.GetDataPresent(DataFormats.TextThen
result 
+= CType(iData.GetData(DataFormats.Text), String
ثم تتأكد أن Result او ٍString الناتج ليس Nothing و أيضا يبدأ بالكلمة "https://www.youtube"
فإن كان Ture تقوم بتمرير Result الي التكست بوكس

علي فكرة انت لا تحتاج أن تستخدم clipboard
lمثلا بعد نسخ اللينك مباشرة تقوم بحفظها في ملف مؤقت علي فهرس المشروع
ثم تستدعيها من الملف حين تحتاجها
Retired
الرد }}}
تم الشكر بواسطة: sendbad100 , ابو روضة
#8
PHP كود :
Private Sub Form1_Load(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
    SetClipboardViewer
(Me.Handle)
End Sub

<Runtime.InteropServices.DllImport("User32.dll")> _
Public Shared Function SetClipboardViewer(ByVal hWndNewViewer As IntPtr) As IntPtr
End 
Function
Protected 
Overrides Sub WndProc(ByRef m As Message)
    If 
m.Msg = &H308 Then
        Me
.TextBox1.Clear()
        If 
Clipboard.GetText.Trim.StartsWith("https://www.youtube.com/watch?v="Then
            Me
.TextBox1.Text Clipboard.GetText
            Me
.WindowState FormWindowState.Normal
            Me
.Activate()
        
End If
    
End If
    
MyBase.WndProc(m)
End Sub 
الرد }}}
تم الشكر بواسطة: ابو روضة
#9
(12-10-17, 01:52 PM)silverlight كتب : عندما تقوم بنسخ اللينك مباشرة تقوم بتنفيا الأتي :
PHP كود :
Dim link As String "Your Link"
Clipboard.SetDataObject(link

ثم الأتي :
PHP كود :
Dim result As String String.Empty
Dim iData As IDataObject Clipboard.GetDataObject()
If 
iData.GetDataPresent(DataFormats.TextThen
result 
+= CType(iData.GetData(DataFormats.Text), String
ثم تتأكد أن Result او ٍString الناتج ليس Nothing و أيضا يبدأ بالكلمة "https://www.youtube"
فإن كان Ture تقوم بتمرير Result الي التكست بوكس

علي فكرة انت لا تحتاج أن تستخدم clipboard
lمثلا بعد نسخ اللينك مباشرة تقوم بحفظها في ملف مؤقت علي فهرس المشروع
ثم تستدعيها من الملف حين تحتاجها


ايوه صح اخى هذا ما كنت ابحث عنه وتم الحمدلله

جزاك الله كل خير

(12-10-17, 02:11 PM)a.ahmed كتب :
PHP كود :
Private Sub Form1_Load(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
    SetClipboardViewer
(Me.Handle)
End Sub

<Runtime.InteropServices.DllImport("User32.dll")> _
Public Shared Function SetClipboardViewer(ByVal hWndNewViewer As IntPtr) As IntPtr
End 
Function
Protected 
Overrides Sub WndProc(ByRef m As Message)
 
   If m.Msg = &H308 Then
        Me
.TextBox1.Clear()
 
       If Clipboard.GetText.Trim.StartsWith("https://www.youtube.com/watch?v="Then
            Me
.TextBox1.Text Clipboard.GetText
            Me
.WindowState FormWindowState.Normal
            Me
.Activate()
 
       End If
 
   End If
 
   MyBase.WndProc(m)
End Sub 

بارك الله فيك اخى الكريم احمد وجزاك كل الخيرات
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 673 14-12-23, 12:07 PM
آخر رد: asmarsou
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  [VB.NET] كيف يمكن إخفاء ظهور الشاشة السوداء فى الـــ console AmeenRashed 2 316 15-11-23, 03:51 PM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit

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


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