السلام عليكم ورحمة الله وبركاتة
كيف الحال اخواني .......
مساكم الله بالخير والمسرات ....
عندي كم سؤال وأتمنى الأجابة لها بأسرع ما يمكن
==========================
هو كيف استعمل الاداه
VScroll1
يعني ابغا اضعها في الجنب واجعل الفورم صغير بشرط عندما احرك السهم الى اسفل تتحرك الصوره وتأتي الصوره التي بعدها يعني في نفس الفورم.
السؤال الثاني:-
عندما اضع صوره على البرنامج اريد ان يتمكن المستخدم من حفظ هذه الصوره بالظغط عليها اي عندما يضغط عليها تضهر الصوره في براوزر بشرط دون الاتصال بالانترنت يعني تكون الصوره في البرنامج ولكن في براوزر خاص
السؤال الثالث:-
كيفية عمل
ProgressBar
بشرط ان يتحرك من اسفل الى اعلي أكيد فهمتووووا قصدي
السؤال الاخير:-
هو كيف ان اصنع برنامج يمكن من خلاله ان ارسل ايميل الى الهوت مايل او الياهو او اي سيرفر اخر
======================
وأستفسار بعد واحد
واريد ان اسأل عن ما هو عمل هذا الكود وكيف طريقة تركيبة تكفووون
============
Public Function SegmentURL(ByVal strUrl As String) As String()
Dim lngPtr As Long
Dim lngLen As Long
Dim strSection As String
Dim strSegment(0 To 5) As String
If (Len(strUrl) = 0) Then Exit Function
For lngPtr = usSCHEME To usQUERY
strSection = Space$(260&)
lngLen = Len(strSection)
If (UrlGetPart(strUrl, strSection, lngLen, lngPtr, 0&) _
= 0) Then
strSegment(lngPtr - 1) = Left$(strSection, lngLen)
End If
Next
SegmentURL = strSegment
End Function
'SAMPLE USAGE
Dim strOutput As String
mstrDefaultURL _
= "http://userassword@www.myco.com:8080/index.html?r=yo%20momma"
mstrSegmentedURL = SegmentURL(mstrDefaultURL)
strOutput = Join(mstrSegmentedURL, vbCrLf)
MsgBox strOutput
----------------------------------------------------
وهل بستطاعتي عمل برنامج يمكنني من خلاله تخطي المواقع المغلقه ؟
بالنسبه للكود الموجود في الاعلى هل يمكن ان يساعد في هذا الموضوع لاني اعرف شخص استطاع ان يعمل برنامجا بالجافا يمكن تخطي المواقع طبعا انا اعلم ان الكود الذي في
الاعلى هو كود فجول بيسك قلت لكم الجافا فقط من باب التنوير
=============
أجووووا انكم تفيدوني
وتقبلوووا تحياتي
أخوكم
الكابوس