دخول

**anes**

(31-05-17, 03:36 AM)silverlight كتب : الأخ الفاضل أنيس
ان شاء الله سألقي نظرة عليه و ان فهمت شئ سوف اصححه
و اعذرني لأني نسيت الفيجوال 6 من 2001

شكرا لك اخي
لكن الكود بالدت نت
,وهذا الكود الاصلي

كود :

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

    Private Type POINTAPI ' This holds the logical cursor information

      x As Integer

      y As Integer

   End Type

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function GetTickCount Lib "kernel32" () As Long

Dim SecCode(100) As String

Dim AdfLinks(100) As String

Dim RNDADF1 As Integer

Dim RNDADF2 As Integer

Dim RndCh As Boolean

Dim endnth As Boolean

Dim AutoHash As String

Dim fresult As String

Dim tmesc1 As Long

Dim tmesc2 As Long

Private Sub Command1_Click()

If RndCh = False Then

Caption = "Please Wait..."

RndCh = True

RNDADF2 = Val(Right(GetTickCount, 2)) / 2 + 50

Caption = "Locked"

End If

tmesc1 = Hour(Time) * 3600 + Minute(Time) * 60 + Second(Time)

ShellExecute 0, "open", AdfLinks(RNDADF1), 0, 0, 1

End Sub

Private Sub Command2_Click()

If RndCh = False Then

Caption = "Please Wait..."

RndCh = True

RNDADF1 = Val(Right(GetTickCount, 2)) / 2

Caption = "Locked"

End If

tmesc2 = Hour(Time) * 3600 + Minute(Time) * 60 + Second(Time)

ShellExecute 0, "open", AdfLinks(RNDADF2), 0, 0, 1

End Sub

Private Sub Form_Load()

Left = (Screen.Width - Width) / 2

Top = (Screen.Height - Height) / 2

AutoHash = GetHash

InitValues

RNDADF1 = Val(Right(GetTickCount, 2)) / 2

RNDADF2 = Val(Right(GetTickCount, 2)) / 2 + 50

Winsock1.LocalPort = 19762

Winsock1.Close

Winsock1.Listen

Winsock2.LocalPort = 19761

Winsock2.Close

Winsock2.Listen

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

Winsock1.Close

Winsock1.Accept requestID

End Sub

Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)

Winsock2.Close

Winsock2.Accept requestID

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

ntmesc1 = Hour(Time) * 3600 + Minute(Time) * 60 + Second(Time)

Dim vdata As String

Dim txtsend As String

Dim hdtxt As String

If (ntmesc1 - tmesc1) > 9 Then

Winsock1.GetData vdata, , bytesTotal

If InStr(1, vdata, "Referer:") Then

spdt = Split(vdata, "/?")

If UBound(spdt) > 0 Then

spdtt = Split(spdt(1), " HTTP")

Else

spdtt = Split(" HTTP", " HTTP")

End If

If spdtt(0) = SecCode(RNDADF1) Then

txtsend = "<html><head><title>Thank you</title></head><body><script type=""text/javascript"">    var adfly_id = 17015923;    var popunder_frequency_delay = 0;</script><script src=""https://cdn.adf.ly/js/display.js""></script>"

txtsend = txtsend + "<div align=""center"">  <center>  <br><br><br><table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""50%"">    <tr>      <td width=""100%"" bgcolor=""#C0C0C0"">      <p align=""center"" style=""line-height: 150%"">Thank you</td>    </tr>    <tr>      <td width=""100%"">      <p align=""center"" style=""line-height: 200%"">If you encounter any Poblems       Visit us      <span style data-icon=""null"" data-select=""group"" data-group=""all"" data-fulltext=""btnmlive"" data-text=""btnmlive"" data-type=""ent:group"" data-uid=""795602183894216"" data-si=""true"" class=""entity _4v1s"">      <a href=""https://www.facebook.com/groups/"">      btnmlive</a></span></td>    </tr>  </table>  </center></div></body></html>"

Command1.Enabled = False

Command1.Caption = "ÔßÜÜÑÇ"

hdtxt = "HTTP/1.1 200 OK" + vbNewLine + "Content-Length: " + LTrim(Str(Len(txtsend))) + vbNewLine + "Content-Type: " + "text/html" + vbNewLine

Winsock1.SendData hdtxt + vbNewLine

Winsock1.SendData txtsend

Else

txtsend = "<html><head><title>Error</title></head><body><script type=""text/javascript"">    var adfly_id = 17015923;    var popunder_frequency_delay = 0;</script><script src=""https://cdn.adf.ly/js/display.js""></script>"

txtsend = txtsend + "<div align=""center"">  <center><br><br><br>  <table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""50%"">    <tr>      <td width=""100%"" bgcolor=""#FF0000"">      <p align=""center"" style=""line-height: 150%""><font color=""#FFFF00"">Error</font></td>    </tr>    <tr>      <td width=""100%"">      <p align=""center"" style=""line-height: 150%"">You can't unlock this       application Like That. You should support us to continue</td>    </tr></table>  </center></div></body></html>"

hdtxt = "HTTP/1.1 200 OK" + vbNewLine + "Content-Length: " + LTrim(Str(Len(txtsend))) + vbNewLine + "Content-Type: " + "text/html" + vbNewLine

Winsock1.SendData hdtxt + vbNewLine

Winsock1.SendData txtsend

endnth = True

End If

Else

txtsend = "<html><head><title>Error</title></head><body><script type=""text/javascript"">    var adfly_id = 17015923;    var popunder_frequency_delay = 0;</script><script src=""https://cdn.adf.ly/js/display.js""></script>"

txtsend = txtsend + "<div align=""center"">  <center><br><br><br>  <table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""50%"">    <tr>      <td width=""100%"" bgcolor=""#FF0000"">      <p align=""center"" style=""line-height: 150%""><font color=""#FFFF00"">Error</font></td>    </tr>    <tr>      <td width=""100%"">      <p align=""center"" style=""line-height: 150%"">You can't unlock this       application Like That. You should support us to continue</td>    </tr></table>  </center></div></body></html>"

hdtxt = "HTTP/1.1 200 OK" + vbNewLine + "Content-Length: " + LTrim(Str(Len(txtsend))) + vbNewLine + "Content-Type: " + "text/html" + vbNewLine

Winsock1.SendData hdtxt + vbNewLine

Winsock1.SendData txtsend

endnth = True

End If

Else

txtsend = "<html><head><title>Error</title></head><body><script type=""text/javascript"">    var adfly_id = 17015923;    var popunder_frequency_delay = 0;</script><script src=""https://cdn.adf.ly/js/display.js""></script>"

txtsend = txtsend + "<div align=""center"">  <center><br><br><br>  <table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""50%"">    <tr>      <td width=""100%"" bgcolor=""#FF0000"">      <p align=""center"" style=""line-height: 150%""><font color=""#FFFF00"">Error</font></td>    </tr>    <tr>      <td width=""100%"">      <p align=""center"" style=""line-height: 150%"">You can't unlock this       application Like That. You should support us to continue</td>    </tr></table>  </center></div></body></html>"

hdtxt = "HTTP/1.1 200 OK" + vbNewLine + "Content-Length: " + LTrim(Str(Len(txtsend))) + vbNewLine + "Content-Type: " + "text/html" + vbNewLine

Winsock1.SendData hdtxt + vbNewLine

Winsock1.SendData txtsend

endnth = True

End If

End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)

ntmesc2 = Hour(Time) * 3600 + Minute(Time) * 60 + Second(Time)

Dim vdata As String

Dim txtsend As String

Dim hdtxt As String

If (ntmesc2 - tmesc2) > 9 Then

Winsock2.GetData vdata, , bytesTotal

If InStr(1, vdata, "Referer:") Then

spdt = Split(vdata, "/?")

If UBound(spdt) > 0 Then

spdtt = Split(spdt(1), " HTTP")

Else

spdtt = Split(" HTTP", " HTTP")

End If

If spdtt(0) = SecCode(RNDADF2) Then

txtsend = "<html><head><title>Thank you</title></head><body><script type=""text/javascript"">    var adfly_id = 17015923;    var popunder_frequency_delay = 0;</script><script src=""https://cdn.adf.ly/js/display.js""></script>"

txtsend = txtsend + "<div align=""center"">  <center>  <br><br><br><table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""50%"">    <tr>      <td width=""100%"" bgcolor=""#C0C0C0"">      <p align=""center"" style=""line-height: 150%"">Thank you</td>    </tr>    <tr>      <td width=""100%"">      <p align=""center"" style=""line-height: 200%"">If you encounter any Poblems       Visit us      <span style data-icon=""null"" data-select=""group"" data-group=""all"" data-fulltext=""btnmlive&nbsp;Family&nbsp;2"" data-text=""btnmlive&nbsp;Family&nbsp;2"" data-type=""ent:group"" data-uid=""795602183894216"" data-si=""true"" class=""entity _4v1s"">      <a href=""https://www.facebook.com/groups/"">      btnmlive</a></span></td>    </tr>  </table>  </center></div></body></html>"

Command2.Enabled = False

Command2.Caption = "ÔßÜÜÑÇ"

hdtxt = "HTTP/1.1 200 OK" + vbNewLine + "Content-Length: " + LTrim(Str(Len(txtsend))) + vbNewLine + "Content-Type: " + "text/html" + vbNewLine

Winsock2.SendData hdtxt + vbNewLine

Winsock2.SendData txtsend

Else

txtsend = "<html><head><title>Error</title></head><body><script type=""text/javascript"">    var adfly_id = 17015923;    var popunder_frequency_delay = 0;</script><script src=""https://cdn.adf.ly/js/display.js""></script>"

txtsend = txtsend + "<div align=""center"">  <center><br><br><br>  <table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""50%"">    <tr>      <td width=""100%"" bgcolor=""#FF0000"">      <p align=""center"" style=""line-height: 150%""><font color=""#FFFF00"">Error</font></td>    </tr>    <tr>      <td width=""100%"">      <p align=""center"" style=""line-height: 150%"">You can't unlock this       application Like That. You should support us to continue</td>    </tr></table>  </center></div></body></html>"

hdtxt = "HTTP/1.1 200 OK" + vbNewLine + "Content-Length: " + LTrim(Str(Len(txtsend))) + vbNewLine + "Content-Type: " + "text/html" + vbNewLine

Winsock2.SendData hdtxt + vbNewLine

Winsock2.SendData txtsend

endnth = True

End If

Else

txtsend = "<html><head><title>Error</title></head><body><script type=""text/javascript"">    var adfly_id = 17015923;    var popunder_frequency_delay = 0;</script><script src=""https://cdn.adf.ly/js/display.js""></script>"

txtsend = txtsend + "<div align=""center"">  <center><br><br><br>  <table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""50%"">    <tr>      <td width=""100%"" bgcolor=""#FF0000"">      <p align=""center"" style=""line-height: 150%""><font color=""#FFFF00"">Error</font></td>    </tr>    <tr>      <td width=""100%"">      <p align=""center"" style=""line-height: 150%"">You can't unlock this       application Like That. You should support us to continue</td>    </tr></table>  </center></div></body></html>"

hdtxt = "HTTP/1.1 200 OK" + vbNewLine + "Content-Length: " + LTrim(Str(Len(txtsend))) + vbNewLine + "Content-Type: " + "text/html" + vbNewLine

Winsock2.SendData hdtxt + vbNewLine

Winsock2.SendData txtsend

endnth = True

End If

Else

txtsend = "<html><head><title>Error</title></head><body><script type=""text/javascript"">    var adfly_id = 17015923;    var popunder_frequency_delay = 0;</script><script src=""https://cdn.adf.ly/js/display.js""></script>"

txtsend = txtsend + "<div align=""center"">  <center><br><br><br>  <table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""50%"">    <tr>      <td width=""100%"" bgcolor=""#FF0000"">      <p align=""center"" style=""line-height: 150%""><font color=""#FFFF00"">Error</font></td>    </tr>    <tr>      <td width=""100%"">      <p align=""center"" style=""line-height: 150%"">You can't unlock this       application Like That. You should support us to continue</td>    </tr></table>  </center></div></body></html>"

hdtxt = "HTTP/1.1 200 OK" + vbNewLine + "Content-Length: " + LTrim(Str(Len(txtsend))) + vbNewLine + "Content-Type: " + "text/html" + vbNewLine

Winsock2.SendData hdtxt + vbNewLine

Winsock2.SendData txtsend

endnth = True

End If

End Sub

Private Sub Winsock1_SendComplete()

Winsock1.Close

If endnth = True Then

End

Else

If Command1.Visible = False And Command2.Visible = False Then

Me.Hide

'Shell App.Path & "\btnmliveP.exe", vbNormalFocus

'SaveSettingLong HKEY_LOCAL_MACHINE, "SOFTWARE\Windows 3.1 Migration Status\IniFiles", "DWORD", 0

Unload Me

End If

End If

End Sub

Private Sub Winsock2_SendComplete()

Winsock2.Close

If endnth = True Then

End

Else

If Command1.Visible = False And Command2.Visible = False Then

Me.Hide

'Shell App.Path & "\btnmliveP.exe", vbNormalFocus

'SaveSettingLong HKEY_LOCAL_MACHINE, "SOFTWARE\Windows 3.1 Migration Status\IniFiles", "DWORD", 0

Unload Me

End If

End If

End Sub

Private Function InitValues()

SecCode(0) = "5289EAB6EC"

SecCode(1) = "1289EAB6EC"

SecCode(2) = "2289EAB6EC"

SecCode(3) = "3289EAB6EC"

SecCode(4) = "4289EAB6EC"

SecCode(5) = "6289EAB6EC"

SecCode(6) = "7289EAB6EC"

SecCode(7) = "8289EAB6EC"

SecCode(8) = "9289EAB6EC"

SecCode(9) = "0289EAB6EC"

SecCode(10) = "1289EAB6mC"

SecCode(11) = "2389EAB6EC"

SecCode(12) = "3489EAB6EC"

SecCode(13) = "4589EAB6EC"

SecCode(14) = "5689EAB6EC"

SecCode(15) = "6789EAB6EC"

SecCode(16) = "7889EAB6EC"

SecCode(17) = "8989EAB6EC"

SecCode(18) = "9189EAB6EC"

SecCode(19) = "1189EAB6EC"

SecCode(20) = "2189EAB6EC"

SecCode(21) = "3189EAB6EC"

SecCode(22) = "4189EAB6EC"

SecCode(23) = "5189EAB6EC"

SecCode(24) = "6189EAB6EC"

SecCode(25) = "7189EAB6EC"

SecCode(26) = "7189EAB6EC26"

SecCode(27) = "7189EAB6EC27"

SecCode(28) = "7189EAB6EC28"

SecCode(29) = "7189EAB6EC29"

SecCode(30) = "7189EAB6EC30"

SecCode(31) = "7189EAB6EC31"

SecCode(32) = "7189EAB6EC32"

SecCode(33) = "7189EAB6EC33"

SecCode(34) = "7189EAB6EC34"

SecCode(35) = "7189EAB6EC35"

SecCode(36) = "7189EAB6EC36"

SecCode(37) = "7189EAB6EC37"

SecCode(38) = "7189EAB6EC38"

SecCode(39) = "7189EAB6EC39"

SecCode(40) = "7189EAB6EC40"

SecCode(41) = "7189EAB6EC41"

SecCode(42) = "7189EAB6EC42"

SecCode(43) = "7189EAB6EC43"

SecCode(44) = "7189EAB6EC44"

SecCode(45) = "7189EAB6EC45"

SecCode(46) = "7189EAB6EC46"

SecCode(47) = "7189EAB6EC47"

SecCode(48) = "7189EAB6EC48"

SecCode(49) = "7189EAB6EC49"

SecCode(50) = "7189EAB6EC50"

SecCode(51) = "7189EAB6EC51"

SecCode(52) = "7189EAB6EC52"

SecCode(53) = "7189EAB6EC53"

SecCode(54) = "7189EAB6EC54"

SecCode(55) = "7189EAB6EC55"

SecCode(56) = "7189EAB6EC56"

SecCode(57) = "7189EAB6EC57"

SecCode(58) = "7189EAB6EC58"

SecCode(59) = "7189EAB6EC59"

SecCode(60) = "7189EAB6EC60"

SecCode(61) = "7189EAB6EC61"

SecCode(62) = "7189EAB6EC62"

SecCode(63) = "7189EAB6EC63"

SecCode(64) = "7189EAB6EC64"

SecCode(65) = "7189EAB6EC65"

SecCode(66) = "7189EAB6EC66"

SecCode(67) = "7189EAB6EC67"

SecCode(68) = "7189EAB6EC68"

SecCode(69) = "7189EAB6EC69"

SecCode(70) = "7189EAB6EC70"

SecCode(71) = "7189EAB6EC71"

SecCode(72) = "7189EAB6EC72"

SecCode(73) = "7189EAB6EC73"

SecCode(74) = "7189EAB6EC74"

SecCode(75) = "7189EAB6EC75"

SecCode(76) = "7189EAB6EC76"

SecCode(77) = "7189EAB6EC77"

SecCode(78) = "7189EAB6EC78"

SecCode(79) = "7189EAB6EC78"

SecCode(80) = "7189EAB6EC80"

SecCode(81) = "7189EAB6EC81"

SecCode(82) = "7189EAB6EC82"

SecCode(83) = "7189EAB6EC83"

SecCode(84) = "7189EAB6EC84"

SecCode(85) = "7189EAB6EC85"

SecCode(86) = "7189EAB6EC86"

SecCode(87) = "7189EAB6EC87"

SecCode(88) = "7189EAB6EC88"

SecCode(89) = "7189EAB6EC89"

SecCode(90) = "7189EAB6EC90"

SecCode(91) = "7189EAB6EC91"

SecCode(92) = "7189EAB6EC92"

SecCode(93) = "7189EAB6EC93"

SecCode(94) = "7189EAB6EC94"

SecCode(95) = "7189EAB6EC95"

SecCode(96) = "7189EAB6EC96"

SecCode(97) = "7189EAB6EC97"

SecCode(98) = "7189EAB6EC98"

SecCode(99) = "7189EAB6EC99"

AdfLinks(0) = "http://adf.ly/1mkvkR"

AdfLinks(1) = "http://adf.ly/1mkzDV"

AdfLinks(2) = "http://adf.ly/1mkzFM"

AdfLinks(3) = "http://adf.ly/1mkzHR"

AdfLinks(4) = "http://adf.ly/1mkzJ9"

AdfLinks(5) = "http://adf.ly/1mkzMv"

AdfLinks(6) = "http://adf.ly/1mkzO1"

AdfLinks(7) = "http://adf.ly/1mkzPD"

AdfLinks(8) = "http://adf.ly/1mkzRS"

AdfLinks(9) = "http://adf.ly/1mkzTE"

AdfLinks(10) = "http://adf.ly/1ml47X"

AdfLinks(11) = "http://adf.ly/1mkzZ9"

AdfLinks(12) = "http://adf.ly/1ml4A0"

AdfLinks(13) = "http://adf.ly/1ml4BM"

AdfLinks(14) = "http://adf.ly/1ml4Dm"

AdfLinks(15) = "http://adf.ly/1ml4F0"

AdfLinks(16) = "http://adf.ly/1ml4Ib"

AdfLinks(17) = "http://adf.ly/1ml4W5"

AdfLinks(18) = "http://adf.ly/1ml4Ww"

AdfLinks(19) = "http://adf.ly/1ml4Yt"

AdfLinks(20) = "http://adf.ly/1ml4bH"

AdfLinks(21) = "http://adf.ly/1ml4cK"

AdfLinks(22) = "http://adf.ly/1ml4dO"

AdfLinks(23) = "http://adf.ly/1ml4eT"

AdfLinks(24) = "http://adf.ly/1ml4hK"

AdfLinks(25) = "http://adf.ly/1ml4iO"

AdfLinks(26) = "http://adf.ly/1ml5K5"

AdfLinks(27) = "http://adf.ly/1ml5Kt"

AdfLinks(28) = "http://adf.ly/1ml5LP"

AdfLinks(29) = "http://adf.ly/1ml5M0"

AdfLinks(30) = "http://adf.ly/1ml5N8"

AdfLinks(31) = "http://adf.ly/1ml5ZJ"

AdfLinks(32) = "http://adf.ly/1ml5a3"

AdfLinks(33) = "http://adf.ly/1ml5b0"

AdfLinks(34) = "http://adf.ly/1ml5bp"

AdfLinks(35) = "http://adf.ly/1ml5cn"

AdfLinks(36) = "http://adf.ly/1ml5dA"

AdfLinks(37) = "http://adf.ly/1ml5db"

AdfLinks(38) = "http://adf.ly/1ml5eD"

AdfLinks(39) = "http://adf.ly/1ml5ei"

AdfLinks(40) = "http://adf.ly/1ml5fF"

AdfLinks(41) = "http://adf.ly/1ml5fx"

AdfLinks(42) = "http://adf.ly/1ml5gQ"

AdfLinks(43) = "http://adf.ly/1ml5h7"

AdfLinks(44) = "http://adf.ly/1ml5hW"

AdfLinks(45) = "http://adf.ly/1ml5iC"

AdfLinks(46) = "http://adf.ly/1ml5j5"

AdfLinks(47) = "http://adf.ly/1ml5ke"

AdfLinks(48) = "http://adf.ly/1ml5lW"

AdfLinks(49) = "http://adf.ly/1ml5mO"

AdfLinks(50) = "http://adf.ly/1ml5pZ"

AdfLinks(51) = "http://adf.ly/1ml63C"

AdfLinks(52) = "http://adf.ly/1ml64J"

AdfLinks(53) = "http://adf.ly/1ml650"

AdfLinks(54) = "http://adf.ly/1ml66O"

AdfLinks(55) = "http://adf.ly/1ml678"

AdfLinks(56) = "http://adf.ly/1ml67n"

AdfLinks(57) = "http://adf.ly/1ml68U"

AdfLinks(58) = "http://adf.ly/1ml69M"

AdfLinks(59) = "http://adf.ly/1ml6Ay"

AdfLinks(60) = "http://adf.ly/1ml6C3"

AdfLinks(61) = "http://adf.ly/1ml6DS"

AdfLinks(62) = "http://adf.ly/1ml6Ez"

AdfLinks(63) = "http://adf.ly/1ml6Fr"

AdfLinks(64) = "http://adf.ly/1ml6Gx"

AdfLinks(65) = "http://adf.ly/1ml6HO"

AdfLinks(66) = "http://adf.ly/1ml6I6"

AdfLinks(67) = "http://adf.ly/1ml6Io"

AdfLinks(68) = "http://adf.ly/1ml6JR"

AdfLinks(69) = "http://adf.ly/1ml6KE"

AdfLinks(70) = "http://adf.ly/1ml6L3"

AdfLinks(71) = "http://adf.ly/1ml7s5"

AdfLinks(72) = "http://adf.ly/1ml7wz"

AdfLinks(73) = "http://adf.ly/1ml7z1"

AdfLinks(74) = "http://adf.ly/1ml80b"

AdfLinks(75) = "http://adf.ly/1ml830"

AdfLinks(76) = "http://adf.ly/1ml84s"

AdfLinks(77) = "http://adf.ly/1ml86z"

AdfLinks(78) = "http://adf.ly/1ml89X"

AdfLinks(79) = "http://adf.ly/1ml8Dt"

AdfLinks(80) = "http://adf.ly/1ml8Gc"

AdfLinks(81) = "http://adf.ly/1ml8MA"

AdfLinks(82) = "http://adf.ly/1ml8NW"

AdfLinks(83) = "http://adf.ly/1ml8U8"

AdfLinks(84) = "http://adf.ly/1ml8Wo"

AdfLinks(85) = "http://adf.ly/1ml8X3"

AdfLinks(86) = "http://adf.ly/1ml8ar"

AdfLinks(87) = "http://adf.ly/1ml8fh"

AdfLinks(88) = "http://adf.ly/1ml8hD"

AdfLinks(89) = "http://adf.ly/1ml8jk"

AdfLinks(90) = "http://adf.ly/1ml8om"

AdfLinks(91) = "http://adf.ly/1ml8q2"

AdfLinks(92) = "http://adf.ly/1ml8qN"

AdfLinks(93) = "http://adf.ly/1ml8tT"

AdfLinks(94) = "http://adf.ly/1ml8v4"

AdfLinks(95) = "http://adf.ly/1ml8wY"

AdfLinks(96) = "http://adf.ly/1ml8wo"

AdfLinks(97) = "http://adf.ly/1ml8xH"

AdfLinks(98) = "http://adf.ly/1ml8xa"

AdfLinks(99) = "http://adf.ly/1ml8yA"

End Function

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	ما هو الخطاء في الكود ProgressBar1	Mostafa201255411	1	197	26-11-25, 08:19 PM آخر رد: asmarsou
	[VB.NET] مساعدة تعديل على الكود	ZEEN4ZEEN	2	218	08-10-25, 02:20 PM آخر رد: salamandal
	[كود] تصحيح الخطاء في الكود	محمد مسافر	2	1,054	28-08-25, 09:13 AM آخر رد: محمد مسافر
	[كود] تصحيح الخطاء في الكود	محمد مسافر	0	847	27-08-25, 04:05 PM آخر رد: محمد مسافر
	ما هو الخطأ فى هذا الكود	خالد كامل1	10	1,190	28-05-25, 09:16 PM آخر رد: خالد كامل1
	ارجو تعديل الكود بواستطة الاجراء المخزن	new_programer	3	681	03-04-25, 02:44 PM آخر رد: princelovelorn
	مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت	سيد أحمد	5	825	23-03-25, 10:54 PM آخر رد: سيد أحمد
	ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال	new_programer	0	626	05-02-25, 01:51 AM آخر رد: new_programer
	ارجو تقيم الكود المرفق - جلب اعلي رقم لتسلسل نصي للباركود	new_programer	4	608	30-01-25, 08:26 AM آخر رد: new_programer
	تصحيح الأخطاء التابعة للموديل	أحمد فتح الرحمن	1	332	28-01-25, 11:25 PM آخر رد: أحمد فتح الرحمن