منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET تصحيح الكود
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
تصحيح الكود
anes غير متصل
عضو مبدع
المشاركات : 198
المواضيع 41
الإنتساب : Sep 2016
السمعة : 8
الشكر: 131
تم شكره 159 مرات في 83 مشاركات
#1
31-05-17, 02:54 AM (آخر تعديل لهذه المشاركة : 31-05-17, 03:01 AM {2} بواسطة anes.)
السلام عليكم ورمضانكم مبارك واعاده الله على الامة الاسلامية بالف خير انشاء الله
اخواني واساتذتي المبرمجين اريد تصحيح خطء صغير بالكود المرفق جزاكم الله خيرا


الملفات المرفقة
.rar   StrtForm.rar (الحجم : 39.04 ك ب / التحميلات : 45)
البحث
الرد }}}
تم الشكر بواسطة:
silverlight غير متصل
كبار الشخصيات
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة : 127
الشكر: 67
تم شكره 6159 مرات في 1035 مشاركات

mem0
#2
31-05-17, 02:58 AM
طيب ايه هوه الخطأ
الموقع البحث
الرد }}}
تم الشكر بواسطة:
anes غير متصل
عضو مبدع
المشاركات : 198
المواضيع 41
الإنتساب : Sep 2016
السمعة : 8
الشكر: 131
تم شكره 159 مرات في 83 مشاركات
#3
31-05-17, 03:11 AM (آخر تعديل لهذه المشاركة : 31-05-17, 05:09 AM {2} بواسطة anes.)
(31-05-17, 02:58 AM)silverlight كتب : طيب ايه هوه الخطأ

السلام عليكم استاذنا الكبير silverlight
اولا اشكرك على كل ماتقدمه لنا واتمنى من الله ان يجازيك عنا الف خير
اخي المشروع صغير معمول بالفيجول 6 وقد تم ترقية ببرنامج Mobilize.Net Visual Basic Upgrade Companionالى الدت نت
الى ان بعد ترقيته نتج بعض الاخطاء واخوك مبرمج كبير Big Grin  عجز على تصحيحها ارجو ان تفهمني استاذنا الكبير
البرنامج به روابط مختصرة  يقوم بالاتصال بادات الوينصوك بالمتصفح الافتراضي للجهاز ليتخطى الرابط المختصر وبعدها يعيد الاتصال بالبرنامج بعد تخطي الاعلان طبعا عبر ادات الوينصوك
اعرف انها قديمة لن لم اجد طريقة اخرى
وشكرا لك اخي
البحث
الرد }}}
تم الشكر بواسطة:
silverlight غير متصل
كبار الشخصيات
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة : 127
الشكر: 67
تم شكره 6159 مرات في 1035 مشاركات

mem0
#4
31-05-17, 03:36 AM
الأخ الفاضل أنيس
ان شاء الله سألقي نظرة عليه و ان فهمت شئ سوف اصححه
و اعذرني لأني نسيت الفيجوال 6 من 2001
الموقع البحث
الرد }}}
تم الشكر بواسطة:
anes غير متصل
عضو مبدع
المشاركات : 198
المواضيع 41
الإنتساب : Sep 2016
السمعة : 8
الشكر: 131
تم شكره 159 مرات في 83 مشاركات
#5
31-05-17, 03:48 AM (آخر تعديل لهذه المشاركة : 31-05-17, 05:07 AM {2} بواسطة 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
البحث
الرد }}}
تم الشكر بواسطة:
silverlight غير متصل
كبار الشخصيات
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة : 127
الشكر: 67
تم شكره 6159 مرات في 1035 مشاركات

mem0
#6
31-05-17, 05:23 AM
ان شاء الله سأراه لاحقا
lمبدئيا ممكن تستغني عن دوال API = GetCursorPos و تستخدم بدلا منها Cursor.Position Property
الموقع البحث
الرد }}}
تم الشكر بواسطة:
anes غير متصل
عضو مبدع
المشاركات : 198
المواضيع 41
الإنتساب : Sep 2016
السمعة : 8
الشكر: 131
تم شكره 159 مرات في 83 مشاركات
#7
31-05-17, 04:35 PM
(31-05-17, 05:23 AM)silverlight كتب : ان شاء الله سأراه لاحقا
lمبدئيا ممكن تستغني عن دوال API = GetCursorPos و تستخدم بدلا منها Cursor.Position Property

شكرال اخي الكريم ربنا يكرمك
البحث
الرد }}}
تم الشكر بواسطة:
anes غير متصل
عضو مبدع
المشاركات : 198
المواضيع 41
الإنتساب : Sep 2016
السمعة : 8
الشكر: 131
تم شكره 159 مرات في 83 مشاركات
#8
31-05-17, 08:51 PM (آخر تعديل لهذه المشاركة : 31-05-17, 08:51 PM {2} بواسطة anes.)
صيام مقبول انشاء الله
البحث
الرد }}}
تم الشكر بواسطة:
alma2 غير متصل
عضو مبدع
المشاركات : 161
المواضيع 0
الإنتساب : May 2017
السمعة : 28
الشكر: 0
تم شكره 214 مرات في 130 مشاركات
#9
31-05-17, 09:35 PM
ما الهدف من هذا البرنامج لتتضح الفكرة أكثر؟
البحث
الرد }}}
تم الشكر بواسطة: anes
anes غير متصل
عضو مبدع
المشاركات : 198
المواضيع 41
الإنتساب : Sep 2016
السمعة : 8
الشكر: 131
تم شكره 159 مرات في 83 مشاركات
#10
31-05-17, 09:44 PM
(31-05-17, 09:35 PM)alma2 كتب : ما الهدف من هذا البرنامج لتتضح الفكرة أكثر؟

اخي الكود هو لفورم واحد بالبرنامج الفورم يشتغل في المقدمة ليتم الظغط على الروابط المختصرة لكي يشتغل البرنامج الرئيسي فقط
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information ما هو الخطاء في الكود ProgressBar1 Mostafa201255411 1 197 26-11-25, 08:19 PM
آخر رد: asmarsou
  [VB.NET] مساعدة تعديل على الكود ZEEN4ZEEN 2 218 08-10-25, 02:20 PM
آخر رد: salamandal
Rainbow [كود] تصحيح الخطاء في الكود محمد مسافر 2 1,053 28-08-25, 09:13 AM
آخر رد: محمد مسافر
Rainbow [كود] تصحيح الخطاء في الكود محمد مسافر 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 824 23-03-25, 10:54 PM
آخر رد: سيد أحمد
  ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال new_programer 0 625 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
آخر رد: أحمد فتح الرحمن

التنقل السريع :


يقوم بقرائة الموضوع: