[مقال] كلام في استخدام الدوال والروتينات function and sub

PHP كود :

Private Function getpagestrings(ByVal url As String) As String
        Dim html As String = ""
        Dim wc As New WebClient
        wc.Encoding = Encoding.UTF8

aa:
        If My.Computer.Network.IsAvailable Then
            If My.Computer.Network.Ping(justdo.Trim) = False Then
                ' fil_frmstate("تم فقد الاتصال .. تفقد الاسلاك بينما نعاود المحاولة")
                fil_lblstate("تم فقد الاتصال .. تفقد الاسلاك بينما نعاود المحاولة")
                GoTo aa
            End If
        Else

            '  fil_frmstate("تم فقد الاتصال .. تفقد سلك الايثرنت بينما نعاود المحاولة")
            fil_lblstate("تم فقد الاتصال .. تفقد سلك الايثرنت بينما نعاود المحاولة")

            GoTo aa
        End If
        Try
            html = wc.DownloadString(url)

        Catch ex As Exception
            If url.Contains(justdo) Then
                ' fil_frmstate("تم فقد الاتصال .. تفقد سلك الايثرنت بينما نعاود المحاولة")
                fil_lblstate("تم فقد الاتصال .. تفقد سلك الايثرنت بينما نعاود المحاولة")
                GoTo aa
            End If
        End Try
        Return html
    End Function 

PHP كود :

Private Function getpicslinks(ByVal content As String) As List(Of String)
        '<img src="http://im80.gulfup.com/306wzE.png?dateline=1395740337"

        Dim piclink As New List(Of String)
        Dim str As String = "(<img src="").*\.(gif|png|jpg|jpeg|bmp)"
        Dim reg As New Regex(str)
        Dim coll As MatchCollection = reg.Matches(content)
        For Each ma As Match In coll

            ' MsgBox(ma.Value)
            piclink.Add(ma.Value)
        Next
        Return piclink
    End Function 

PHP كود :

'=======تحميل الصور
            For Each pic In getpicslinks(html)
                fil_lblstate("سرد الصور لحفظها")
                If thbgw.CancellationPending Then
                    Exit For
                    Exit Sub
                End If
                fil_lblstate("استبدال روابط الصور")
                html = html.Replace(pic.Split("""")(1), "images\" & IO.Path.GetFileName(pic.Split("""")(1)))
                If IO.File.Exists("mybb\images\" & IO.Path.GetFileName(pic.Split("""")(1))) = False Then
                    fil_lblstate("تحميل الصورة: " & pic.Split("""")(1))
                    downloadpic(pic.Split("""")(1))
                End If
            Next 

PHP كود :

Private Sub downloadpic(ByVal url As String)
        url = url.Replace("./", "")
        If url.StartsWith("http") = False Then
            url = url.Insert(0, bade & justdo & "/" & foru & "/")
        End If
        Dim wc As New WebClient
        wc.Encoding = Encoding.UTF8
aa:
        If My.Computer.Network.IsAvailable Then
            If My.Computer.Network.Ping(justdo) = False Then
                fil_lblstate("تم فقد الاتصال ..تاكد مما لديك بينما نحاول مرة اخرى")
                Threading.Thread.Sleep(200)
                GoTo aa
            End If
        Else
            fil_lblstate("تم فقد الاتصال ..تاكد من تركيب كبل الايثرنت")
            Threading.Thread.Sleep(200)

            GoTo aa
        End If
        fil_lblstate("تحميل الملف: " & IO.Path.GetFileName(url))
        On Error Resume Next
        wc.DownloadFile(url, Application.StartupPath & "/mybb/images/" & IO.Path.GetFileName(url))
    End Sub 

PHP كود :

url = url.Replace("./", "")
        If url.StartsWith("http") = False Then
            url = url.Insert(0, bade & justdo & "/" & foru & "/")
        End If 

PHP كود :

'=======================الصفحة الاولى==========================
            IO.File.WriteAllText(Application.StartupPath & "\mybb\" & IO.Path.GetFileName(turl), html, Encoding.UTF8)
            '=======================الصفحة الاولى========================== 