2

آلحَمد للَه آلذي لُولآه مآ جَرى قَلم ، ولآ تَكلم آنسآن وآلصلآة وآلسَلآم عَلى

سَيدنآ مُحمد [ صَلى آلله عَليه وآله وصَحبه وسَلم ] كآن آفصَح آلنآس لسآنآ وآوُضحهم بيآنآ . 





آسعد آلله آوقآتُكم ، آقدم لَكم آلجُزء آلثآني مَن درُوس تَعلم كتآبة آلـ [ Builder ]

لبَرآمج آلآخترآق ، هَذآ آلدَرس آلآول لَمن لَم يُشآهدهُ [ هُنآ ] آلتَطبيق سَيكُون
عَلى [ vBS ] وليَكُن مَثلآ [ H-wOrm ]

آفتحُو آلدُودة بآلمُفكرة ، ولآحظُو مَعي آلمَنآطق آلآتية ..



نقُوم بتَغييرهآ آلى آلآسمآء آلتي تَرغبُون بهآ وعَلى سَبيل آلمثآل آنآ سَميتُهآ هَكذآ ..



ثُم نقُوم بفَتح آلفَيجوآل ونَصنع بَرنآمج كآلآتي ..

آلآن قُم بوُضع آلسَيرفر بآلـ [ Resource ] ، ثُم نَضغط دَبل كَلك عَلى آلـ [ Button ]

ونَكتب آلآكوُآد آلآتية ..

كود Visual Basic

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'---------------------------------        'C0DED BY SECURITY.NAJAF        '---------------------------------        Dim P As String = My.Resources.XE        Dim R As String        R = P.Replace("%H%", TextBox1.Text).Replace("%P%", TextBox2.Text).Replace("%%D%%", TextBox3.Text)        Dim OPE As New SaveFileDialog        With OPE            .Filter = "vBS|*.vbs"            .ShowDialog()        End With        System.IO.File.WriteAllText(OPE.FileName, R)

آلفَكرة كُلهآ هَي آستخدآم آلدآلة [ Replace ] فَي عَملية آستبدآل آلنص آلمُوجود بآلسَيرفر

بآلنَص آلمُوجود بآلـ [ TextBox ] [ 1 ] [ 2 ] [ 3 ]

آن شآء آلله تكُون درُوسي مُفيدة لَكم ، وتُكلمُون مَشآريعُكم عَلى آحسن حآل