[سعود]

كود :

Dim b As Integer = 0
    Dim c As Integer = b
    Private Sub tuser_importer_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles tuser_importer.DoWork

        ff("تعديل قيمة العمود salt لرفع الطول")
        Dim con2 As New MySqlConnection(gmybbstr)
        Dim cmed As New MySqlCommand("", con2)
        cmed.CommandText = "alter table `mybb_users` MODIFY COLUMN `salt` varchar(30)"

        If con2.State = ConnectionState.Closed Then
            con2.Open()
        End If
        Try
            cmed.ExecuteNonQuery()

        Catch ex As Exception
            ff(Err.Description)
        End Try


        ff("الان .. النظر في جدول المستخدمين")
        Dim vbcon As New MySqlConnection(gvbstr)
        Dim struser As String = "select * from `user` order by `userid` ASC LIMIT " & c & ",100"
        Dim cmduser As New MySqlCommand(struser, vbcon)
        Dim rduser As MySqlDataReader
        If vbcon.State = ConnectionState.Closed Then
            vbcon.Open()
        End If
        rduser = cmduser.ExecuteReader
        If rduser.HasRows Then
            Do While rduser.Read
                tuser_importer.ReportProgress(b)
                Dim theid As String = rduser.Item("userid")
                Dim url As String = "http://127.0.0.1/" & gvbfolder() & "/member.php?u=" & rduser.Item("userid")
                Dim html As String = ""
                Dim wc As New WebClient
                wc.Headers.Add("cookie", gco)
                html = wc.DownloadString(url)
                Dim hdoc As New HtmlAgilityPack.HtmlDocument
                hdoc.LoadHtml(html)

                Dim nod As HtmlAgilityPack.HtmlNode = hdoc.GetElementbyId("userinfo")
                Dim u As New HtmlAgilityPack.HtmlDocument
                u.LoadHtml(nod.InnerHtml)

                Dim th As HtmlAgilityPack.HtmlNode = u.DocumentNode.SelectSingleNode("//span[@class='member_username']")
                Dim th2 As HtmlAgilityPack.HtmlNode = u.DocumentNode.SelectSingleNode("//span[@class='usertitle']")

                Dim about As HtmlAgilityPack.HtmlNode = hdoc.GetElementbyId("view-aboutme")

                Dim h As New HtmlAgilityPack.HtmlDocument
                h.LoadHtml(about.InnerHtml)
                Dim toqee As HtmlAgilityPack.HtmlNode = h.DocumentNode.SelectSingleNode("//div//div")








                Dim mybbcon As New MySqlConnection(gmybbstr)
                Dim mybbcomm As New MySqlCommand("", mybbcon)
                mybbcomm.CommandText = "insert into `mybb_users`(username,password,salt,email,postnum,threadnum,website,usertitle,usergroup,additionalgroups,signature,buddylist,ignorelist,pmfolders,notepad,usernotes) values(@username,@password,@salt,@email,@postnum,@threadnum,@website,@usertitle,@usergroup,@additionalgroups,@signature,@buddylist,@ignorelist,@pmfolders,@notepad,@usernotes)"
                ff("________________________________________" & vbNewLine & "حفظ اسم المستخدم: " & th.InnerText.Trim)
                mybbcomm.Parameters.AddWithValue("@username", th.InnerText.Trim)

                mybbcomm.Parameters.AddWithValue("@password", rduser.Item("password"))

                mybbcomm.Parameters.AddWithValue("@salt", rduser.Item("salt"))

                mybbcomm.Parameters.AddWithValue("@email", rduser.Item("email"))

                mybbcomm.Parameters.AddWithValue("@postnum", "0")

                mybbcomm.Parameters.AddWithValue("@threadnum", "0")

                mybbcomm.Parameters.AddWithValue("@website", rduser.Item("homepage"))

                mybbcomm.Parameters.AddWithValue("@usertitle", th2.InnerText.Trim)


                If rduser.Item("usergroupid") = "1" Then
                    mybbcomm.Parameters.AddWithValue("@usergroup", "1")
                ElseIf rduser.Item("usergroupid") = "2" Then
                    mybbcomm.Parameters.AddWithValue("@usergroup", "2")
                ElseIf rduser.Item("usergroupid") = "3" Then
                    mybbcomm.Parameters.AddWithValue("@usergroup", "5")

                ElseIf rduser.Item("usergroupid") = "4" Then
                    mybbcomm.Parameters.AddWithValue("@usergroup", "5")

                ElseIf rduser.Item("usergroupid") = "5" Then
                    mybbcomm.Parameters.AddWithValue("@usergroup", "3")

                ElseIf rduser.Item("usergroupid") = "6" Then
                    mybbcomm.Parameters.AddWithValue("@usergroup", "4")

                ElseIf rduser.Item("usergroupid") = "7" Then
                    mybbcomm.Parameters.AddWithValue("@usergroup", "6")

                ElseIf rduser.Item("usergroupid") = "8" Then
                    mybbcomm.Parameters.AddWithValue("@usergroup", "7")
                End If



                mybbcomm.Parameters.AddWithValue("@additionalgroups", rduser.Item("membergroupids"))

                mybbcomm.Parameters.AddWithValue("@signature", toqee.InnerHtml)

                mybbcomm.Parameters.AddWithValue("@buddylist", "")

                'ignorelist
                mybbcomm.Parameters.AddWithValue("@ignorelist", "")
                'pmfolders

                mybbcomm.Parameters.AddWithValue("@pmfolders", "")
                'notepad
                mybbcomm.Parameters.AddWithValue("@notepad", "")
                'usernots
                mybbcomm.Parameters.AddWithValue("@usernotes", "")

                If mybbcon.State = ConnectionState.Closed Then
                    mybbcon.Open()
                End If
                '  Try
                ff("بانتظار تفعيل وتنفيذ الحفظ.....")
                mybbcomm.ExecuteNonQuery()
                ff("تم حفظ العضو: " & th.InnerText.Trim) '& " بنجاح" & vbNewLine & "________________________________________")
                ' Catch ex As Exception
                'ff(Err.Description)
                '  End Try
            Loop

        End If
        rduser.Close()

    End Sub

    Private Sub tuser_importer_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles tuser_importer.ProgressChanged
        b += 1
    End Sub

    

    Private Sub tuser_importer_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles tuser_importer.RunWorkerCompleted
        If e.Cancelled Then
            ff("تم الايقاف")
        ElseIf IsNothing(e.Error) = False Then
            ff("عفوا يوجد خطا " & vbNewLine & Err.Description)
        ElseIf IsNothing(e.Error) Then
            ff("################################" & vbNewLine & "# تم استيراد الاعضاء  عدد السجلات المضافة : " & b & vbNewLine & "################################")
            c += b
            If tuser_importer.IsBusy = False Then
                tuser_importer.RunWorkerAsync()
            End If
        End If

    End Sub