[ابو روضة]

كود :

Dim dd As String = ""
If Clipboard.GetText.StartsWith("http") And Clipboard.GetText.Contains("playlists") Then dd = Clipboard.GetText
Dim ss = InputBox("", "", dd)

---

تم تحسين الكود

لمساتك وحدها أخى بتعطى للكود رونقاً جميلاً صدقنى...

هناك أشخاصاً يظهرون ويختفون فجأة عباقرة ماشاء الله وأخاف أن يأتى يوماً وتختفى أنت الأخر فأحزن.

الله يديم عليك الصحة والعافية والزيادة ولا يحرم الجميع منك..

وللعلم أنا طلباتى بسيطة فى البرمجة يعنى أقول لك هذا الكلام لا لغرض الغرف من معلوماتك لالالا

إطلاقاً بل لآن هناك أشخاص هنا  وبالتأكيد انا ايضاً معهم يحتاجون لمثل هذه العبقرية التى معك.

[alsalamoni]

كود :

Dim dd As String = ""
If Clipboard.GetText.StartsWith("http") And Clipboard.GetText.Contains("playlists") Then dd = Clipboard.GetText
Dim ss = InputBox("", "", dd)

---

تم تحسين الكود

لمساتك وحدها أخى بتعطى للكود رونقاً جميلاً صدقنى...

هناك أشخاصاً يظهرون ويختفون فجأة عباقرة ماشاء الله وأخاف أن يأتى يوماً وتختفى أنت الأخر فأحزن.

الله يديم عليك الصحة والعافية والزيادة ولا يحرم الجميع منك..

وللعلم أنا طلباتى بسيطة فى البرمجة يعنى أقول لك هذا الكلام لا لغرض الغرف من معلوماتك لالالا

إطلاقاً بل لآن هناك أشخاص هنا  وبالتأكيد انا ايضاً معهم يحتاجون لمثل هذه العبقرية التى معك.

العفو اخي
فان اكثر اجوبتي نتيجه من البحث في جوجل
بارك الله فيك اخي