07-10-12, 01:17 AM
Raggi Tech كتب :اولا اسف للضحك ولكن انا لحظت ان حضرتك ركزتي على اني لم اساعد حضرتك اكثر من تركيز حضرتك على طلبك
ثانيا كنت احب ان اشرح الكود و لكن اليك الكود
كود :
Private Sub fpages()كود :
[color=#000080][SIZE=2][FONT=tahoma][b] On Error Resume Next[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] 'لاتوجد مشاركات في هذا القسم.[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Dim search = "لاتوجد مشاركات في هذا القسم."[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Dim where = InStr(WB.Document.Body.InnerHtml, search)[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] If where <= 0 Then[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Dim Elems As HtmlElementCollection[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Dim WebOC As Windows.Forms.WebBrowser = WB[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Dim numpost As Integer = 0[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Elems = WebOC.Document.GetElementsByTagName("TD")[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] For num = 0 To Elems.Count[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] If InStr(Elems.Item(num).InnerHtml, "vbmenu_control") Then[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] If numpost = 0 Then[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Dim Testpage As String = Elems.Item(num).InnerHtml[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Dim MyOutput, MyOutput2 As String[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] MyOutput = GetStringBetween(Testpage, "<TD style=" & Chr(34) & "FONT-WEIGHT: normal" & Chr(34) & " class=vbmenu_control>", "</TD>")[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] text1.Text = MyOutput[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Dim x = InStr(text1.Text, "صفحة " & pagenum.Text & " من ")[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] If x > 0 Then[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] text1.SelectionStart = x - 1[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] text1.SelectionLength = Len("صفحة " & pagenum.Text & " من ")[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] text1.SelectedText = ""[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] lastpagenum.Text = text1.Text[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] If pagenum.Text > 1 Then[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] prevpage.Enabled = True[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] If pagenum.Text = lastpagenum.Text Then[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] nextpage.Enabled = False[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] ElseIf pagenum.Text < lastpagenum.Text Then[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] nextpage.Enabled = True[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] End If[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] ElseIf pagenum.Text = 1 Then[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] prevpage.Enabled = False[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] nextpage.Enabled = True[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] End If[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] pages.Text = "Page " & pagenum.Text & " OF " & lastpagenum.Text[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] getposts()[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] gb2.Enabled = True[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] pages.Left = 50[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Else[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] pages.Text = "Only One Page"[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] pagenum.Text = "0"[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] lastpagenum.Text = "0"[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] nextpage.Enabled = False[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] prevpage.Enabled = False[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] getposts()[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] gb2.Enabled = True[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] End If[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] numpost = 1[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] End If[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] End If[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Next[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] End If[/b][/FONT][/SIZE][/color]
هذا الكود جزء من مشروع و سيأخذ جهد من حضرتك لكي تستوعبي ما هو عمل البرنامج
وهذا هو السبب اني لم اطرح الحل اني ليس لدي وقت لتوضيح الفكره كامله وتركت الموضوع للاخوه الاعضاء
واسف لحضرتك مره ثانية
وشكراً
ملاحظه : انا مجرد مبتدئ في البرمجه و ليس بالضروري اني مراقب منتدى فاكن محترف في البرمجه الرقابه ما هي الا متابعة المواضيع والمساعدة قدر الامكان
واسف لحضرتك مره ثالثه
تحياتي لك
مؤمن
ردك كتير مشوش ولم يعمل معي.