تصحيح الكود - نسخة قابلة للطباعة

كود :
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