www.traffic-up.com .


 
العودة   منتديات ابناء الاردن > تكنولوجيا > الحاسوب والصيانه > قسم لغات البرمجة
Connect with Facebook
 

قسم لغات البرمجة php java c++ جافا Visual Basic فيجوال بيسك c# Delphi دلفي API PERL HTML و TML JavaScript ASP XML Oracle اوركال MySql sql server Access

رد
 
 
أدوات الموضوع إبحث في الموضوع طرق مشاهدة الموضوع
قديم منذ /03-25-2010, 06:32 PM   #1

Abo Shlash , wan3m


الصورة الرمزية سهل محادين

سهل محادين غير متصل

 رقم انتسآبڪ : 7
 تاريخ انتسآبڪ : May 2008
 العمر : 19
 مڪآنڪ : كمنه الابيه
 العمل : سايق فرشه محمل لحاف
 مشآركآتڪ : 23,898
 النقاط : سهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enough
 تقييم المستوى : 6802
 SMS :

I Like To Be Alone , When There is Some One With Me ,,, لا اشتاق لطلوع الصباح بقدر اشتياقي لها :)

 
رسالتے ??? المزيد ....

إرسال رسالة عبر مراسل MSN إلى سهل محادين إرسال رسالة عبر مراسل Yahoo إلى سهل محادين
افتراضي [ درس ] كيفية عمل متصفح انترنت خاص بك بالفيجوال بيسك how to make webbrowser vb6

|

مرحبااااااااااا
جبتلكو اشي زاكي ..
بدي اياكو تعرفو كيف تعملو متصفح خاص فيكو ...نقره لعرض الصورة في صفحة مستقلة

يله تابعو معي

اول اشي بتضيف 6 ازرار بالاسماء التالية ...
Go
Back
Forward
Stop
Refresh
home
text1 يعني صندوق نص
وضيف web browser وبكون موجود بالكمبوننت Component

وبلش ضيف التالي في الازرار


Go

كود PHP:
webbrowser1.navigate (text1.text
Back
كود PHP:
 webbrowser1.goback 
Forward
كود PHP:
webbrowser1.goforward 
Stop

كود PHP:
webbrowser.stop 
Refresh

كود PHP:
webbrowser1.refresh 
Home

كود PHP:
webbrowser.navigate("قم باضافة رابط موقعك او اي رابط تريد ليكون الصفحة الرئيسية"

وساقوم باضافة باقي الاكواد بعد قليل







 

قنبلة الموسم

 

 

  رد مع اقتباس
قديم منذ /03-25-2010, 06:43 PM   #2

Abo Shlash , wan3m


الصورة الرمزية سهل محادين

سهل محادين غير متصل

 رقم انتسآبڪ : 7
 تاريخ انتسآبڪ : May 2008
 العمر : 19
 مڪآنڪ : كمنه الابيه
 العمل : سايق فرشه محمل لحاف
 مشآركآتڪ : 23,898
 النقاط : سهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enough
 تقييم المستوى : 6802
 SMS :

I Like To Be Alone , When There is Some One With Me ,,, لا اشتاق لطلوع الصباح بقدر اشتياقي لها :)

 
رسالتے ??? المزيد ....

إرسال رسالة عبر مراسل MSN إلى سهل محادين إرسال رسالة عبر مراسل Yahoo إلى سهل محادين
افتراضي رد: [ درس ] كيفية عمل متصفح انترنت خاص بك بالفيجوال بيسك how to make webbrowser vb6

|

وعشان يشتغل بطريقة افضل وبمميزات افضل اضف الكود التالي باي مكان في مربع الكودات
( الكود هاذ بيضهر اخر الحركات شوف كيف يعنيي
) مثل الي internet explorer

نقره لعرض الصورة في صفحة مستقلة

'
كود PHP:
This to make the progress bar work and to show a status message, and an image.

Private 
Sub WebBrowser1_ProgressChange(ByVal Progress As LongByVal ProgressMax As Long)

On Error Resume Next

    
If Progress = -1 Then ProgressBar1.Value 100 'the name of the progress bar is "ProgressBar1".

        Label1.Caption = "Done"

        ProgressBar1.Visible = False '
This makes the progress bar disappear after the page is loaded.

        
Image1.Visible True

    
If Progress And ProgressMax 0 Then

        ProgressBar1
.Visible True

        Image1
.Visible False

        ProgressBar1
.Value Progress 100 ProgressMax

        Label1
.Caption Int(Progress 100 ProgressMax) & "%"

    
End If

    Exit 
Sub

 
End Sub 







 

قنبلة الموسم

 

 

  رد مع اقتباس
قديم منذ /03-25-2010, 06:46 PM   #3

Abo Shlash , wan3m


الصورة الرمزية سهل محادين

سهل محادين غير متصل

 رقم انتسآبڪ : 7
 تاريخ انتسآبڪ : May 2008
 العمر : 19
 مڪآنڪ : كمنه الابيه
 العمل : سايق فرشه محمل لحاف
 مشآركآتڪ : 23,898
 النقاط : سهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enough
 تقييم المستوى : 6802
 SMS :

I Like To Be Alone , When There is Some One With Me ,,, لا اشتاق لطلوع الصباح بقدر اشتياقي لها :)

 
رسالتے ??? المزيد ....

إرسال رسالة عبر مراسل MSN إلى سهل محادين إرسال رسالة عبر مراسل Yahoo إلى سهل محادين
افتراضي رد: [ درس ] كيفية عمل متصفح انترنت خاص بك بالفيجوال بيسك how to make webbrowser vb6

|

واضف الكود التالي باي مكان بدك اياه بمربع الكودات
الكود هاذ بيسسمح للمتصفح انه يفتح اي رابط بصفحة جديدة .. لانه المتصفح بيفتح كل اشي بنفس الصفحه الي انت فيها ...

'
كود PHP:
This to open a new window with our browser.

Private 
Sub WebBrowser1_NewWindow2(ppDisp As ObjectCancel As Boolean)

Dim frm As Form1

Set frm 
= New Form1

Set ppDisp 
frm.WebBrowser1.Object

frm
.Show

End Sub 







 

قنبلة الموسم

 

 

  رد مع اقتباس
قديم منذ /03-25-2010, 06:48 PM   #4

Abo Shlash , wan3m


الصورة الرمزية سهل محادين

سهل محادين غير متصل

 رقم انتسآبڪ : 7
 تاريخ انتسآبڪ : May 2008
 العمر : 19
 مڪآنڪ : كمنه الابيه
 العمل : سايق فرشه محمل لحاف
 مشآركآتڪ : 23,898
 النقاط : سهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enough
 تقييم المستوى : 6802
 SMS :

I Like To Be Alone , When There is Some One With Me ,,, لا اشتاق لطلوع الصباح بقدر اشتياقي لها :)

 
رسالتے ??? المزيد ....

إرسال رسالة عبر مراسل MSN إلى سهل محادين إرسال رسالة عبر مراسل Yahoo إلى سهل محادين
افتراضي رد: [ درس ] كيفية عمل متصفح انترنت خاص بك بالفيجوال بيسك how to make webbrowser vb6

|

الكود هاذ بيحفض اي شيئ قم بفتحه يعني history ضيفة باي مكان بمربع الكودات

كود PHP:
'This keeps the visited sites history and also changes the title of the browser as the page title.

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

    On Error Resume Next

    Dim i As Integer

    Dim bFound As Boolean

    Me.Caption = WebBrowser1.LocationName

    For i = 0 To Combo1.ListCount - 1

        If Combo1.List(i) = WebBrowser1.LocationURL Then

            bFound = True

            Exit For

        End If

    Next i

    mbDontNavigateNow = True

    If bFound Then

        Combo1.RemoveItem i

    End If

    Combo1.AddItem WebBrowser1.LocationURL, 0

    Combo1.ListIndex = 0

    mbDontNavigateNow = False

End Sub 







 

قنبلة الموسم

 

 

  رد مع اقتباس
قديم منذ /03-25-2010, 07:01 PM   #5

Abo Shlash , wan3m


الصورة الرمزية سهل محادين

سهل محادين غير متصل

 رقم انتسآبڪ : 7
 تاريخ انتسآبڪ : May 2008
 العمر : 19
 مڪآنڪ : كمنه الابيه
 العمل : سايق فرشه محمل لحاف
 مشآركآتڪ : 23,898
 النقاط : سهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enough
 تقييم المستوى : 6802
 SMS :

I Like To Be Alone , When There is Some One With Me ,,, لا اشتاق لطلوع الصباح بقدر اشتياقي لها :)

 
رسالتے ??? المزيد ....

إرسال رسالة عبر مراسل MSN إلى سهل محادين إرسال رسالة عبر مراسل Yahoo إلى سهل محادين
افتراضي رد: [ درس ] كيفية عمل متصفح انترنت خاص بك بالفيجوال بيسك how to make webbrowser vb6

|

واهم اشي الاشيائات هاي ..
خصائص الصفحة ...
طباعة الصفحة ومن الاشيائات هاي يعني
1- الكود هاذ لخصائص الصفحة

كود PHP:
WebBrowser1.ExecWB OLECMDID_PROPERTIESOLECMDEXECOPT_DODEFAULT 
2- طباعة الصفحة





كود PHP:
WebBrowser1.ExecWB OLECMDID_PRINTOLECMDEXECOPT_DODEFAULT 
3- حفض الصفحة ..

كود PHP:
WebBrowser1.ExecWB OLECMDID_SAVEASOLECMDEXECOPT_DODEFAULT 


حذف الكوكيز cookies
كود PHP:
'This code is used to empty the cookies from the user's computer We call function from here.

Private Declare Function 
GetUserName _

Lib 
"advapi32.dll" Alias "GetUserNameW" _

ByVal lpBuffer 
As Long_

ByRef nSize 
As Long) As Long

Private Declare Function SHGetSpecialFolderPath _

Lib 
"shell32.dll" Alias "SHGetSpecialFolderPathA" _

ByVal hwnd 
As Long_

ByVal pszPath 
As String_

ByVal csidl 
As Long_

ByVal fCreate 
As Long) As Long

Private Const CSIDL_COOKIES As Long = &H21

'This calls the function that deletes the cookies.

Public Sub Command1_Click()

Dim sPath As String

sPath = Space(260)

Call SHGetSpecialFolderPath(0, sPath, CSIDL_COOKIES, False)

sPath = Left$(sPath, InStr(sPath, vbNullChar) - 1) & "\*.txt*"

On Error Resume Next

Kill sPath

 
End Sub 







 

قنبلة الموسم

 

 

  رد مع اقتباس
قديم منذ /03-25-2010, 07:03 PM   #6

Abo Shlash , wan3m


الصورة الرمزية سهل محادين

سهل محادين غير متصل

 رقم انتسآبڪ : 7
 تاريخ انتسآبڪ : May 2008
 العمر : 19
 مڪآنڪ : كمنه الابيه
 العمل : سايق فرشه محمل لحاف
 مشآركآتڪ : 23,898
 النقاط : سهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enough
 تقييم المستوى : 6802
 SMS :

I Like To Be Alone , When There is Some One With Me ,,, لا اشتاق لطلوع الصباح بقدر اشتياقي لها :)

 
رسالتے ??? المزيد ....

إرسال رسالة عبر مراسل MSN إلى سهل محادين إرسال رسالة عبر مراسل Yahoo إلى سهل محادين
افتراضي رد: [ درس ] كيفية عمل متصفح انترنت خاص بك بالفيجوال بيسك how to make webbrowser vb6

|

وهاذ بيضهر خصائص الصفحة page source

كود PHP:
Private Sub Form_Load()

Text1.Text Form1.browser.Document.documentElement.innerHTML

End Sub 







 

قنبلة الموسم

 

 

  رد مع اقتباس
قديم منذ /03-25-2010, 07:04 PM   #7

Abo Shlash , wan3m


الصورة الرمزية سهل محادين

سهل محادين غير متصل

 رقم انتسآبڪ : 7
 تاريخ انتسآبڪ : May 2008
 العمر : 19
 مڪآنڪ : كمنه الابيه
 العمل : سايق فرشه محمل لحاف
 مشآركآتڪ : 23,898
 النقاط : سهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enough
 تقييم المستوى : 6802
 SMS :

I Like To Be Alone , When There is Some One With Me ,,, لا اشتاق لطلوع الصباح بقدر اشتياقي لها :)

 
رسالتے ??? المزيد ....

إرسال رسالة عبر مراسل MSN إلى سهل محادين إرسال رسالة عبر مراسل Yahoo إلى سهل محادين
افتراضي رد: [ درس ] كيفية عمل متصفح انترنت خاص بك بالفيجوال بيسك how to make webbrowser vb6

|

واهم اشي اهم اشي
الكود الي بيمنع النوافذ الاعلانية ....

كود PHP:
Private Function IsPopupWindow() As Boolean

On Error Resume Next

If WebBrowser1.Document.activeElement.tagName "BODY" Or WebBrowser1.Document.activeElement.tagName "IFRAME" Then

IsPopupWindow 
True

Else

IsPopupWindow False

End 
If

End Function

Private 
Sub webbrowser1_NewWindow2(ppDisp As ObjectCancel As Boolean)

Dim frm As Form1

Cancel 
IsPopupWindow

If Cancel False Then

Set frm 
= New Form1

Set ppDisp 
frm.WebBrowser1.object

frm
.Show

End 
If

End Sub 







 

قنبلة الموسم

 

 

  رد مع اقتباس
قديم منذ /03-25-2010, 07:09 PM   #8

Abo Shlash , wan3m


الصورة الرمزية سهل محادين

سهل محادين غير متصل

 رقم انتسآبڪ : 7
 تاريخ انتسآبڪ : May 2008
 العمر : 19
 مڪآنڪ : كمنه الابيه
 العمل : سايق فرشه محمل لحاف
 مشآركآتڪ : 23,898
 النقاط : سهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enough
 تقييم المستوى : 6802
 SMS :

I Like To Be Alone , When There is Some One With Me ,,, لا اشتاق لطلوع الصباح بقدر اشتياقي لها :)

 
رسالتے ??? المزيد ....

إرسال رسالة عبر مراسل MSN إلى سهل محادين إرسال رسالة عبر مراسل Yahoo إلى سهل محادين
افتراضي رد: [ درس ] كيفية عمل متصفح انترنت خاص بك بالفيجوال بيسك how to make webbrowser vb6

|

وطبعا هاذ اشي مهم وضروري جدا
وهو يتحكم بحجم المتصفح
يعني العرض والطول
ضيفه وسكر ع المضووع هههههههههه

كود PHP:
Private Sub Form_Resize()

On Error Resume Next

WebBrowser1
.Width Me.ScaleWidth

WebBrowser1
.Height Me.ScaleHeight 1680

End Sub 







 

قنبلة الموسم

 

 

  رد مع اقتباس
قديم منذ /03-25-2010, 07:11 PM   #9

Abo Shlash , wan3m


الصورة الرمزية سهل محادين

سهل محادين غير متصل

 رقم انتسآبڪ : 7
 تاريخ انتسآبڪ : May 2008
 العمر : 19
 مڪآنڪ : كمنه الابيه
 العمل : سايق فرشه محمل لحاف
 مشآركآتڪ : 23,898
 النقاط : سهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enoughسهل محادين will become famous soon enough
 تقييم المستوى : 6802
 SMS :

I Like To Be Alone , When There is Some One With Me ,,, لا اشتاق لطلوع الصباح بقدر اشتياقي لها :)

 
رسالتے ??? المزيد ....

إرسال رسالة عبر مراسل MSN إلى سهل محادين إرسال رسالة عبر مراسل Yahoo إلى سهل محادين
افتراضي رد: [ درس ] كيفية عمل متصفح انترنت خاص بك بالفيجوال بيسك how to make webbrowser vb6

|

وانتهى الموضوع ....








 

قنبلة الموسم

 

 

  رد مع اقتباس
قديم منذ /03-25-2010, 07:13 PM   #10


الصورة الرمزية الورده البيضاء

الورده البيضاء غير متصل

 رقم انتسآبڪ : 3170
 تاريخ انتسآبڪ : Mar 2010
 مشآركآتڪ : 10,999
 النقاط : الورده البيضاء will become famous soon enoughالورده البيضاء will become famous soon enough
 تقييم المستوى : 109
 
رسالتے ??? المزيد ....

افتراضي رد: [ درس ] كيفية عمل متصفح انترنت خاص بك بالفيجوال بيسك how to make webbrowser vb6

|

شكرن الك








 

تستطيع أن ترى الصورة بحجمها الطبيعي بعد الضغط عليها


 

 

  رد مع اقتباس
 
رد

مواقع النشر

     
 
العبارات الدلالية
متصفح, انترنت, بالفيجوال, بيسك, make, كيفية, webbrowser
 
     


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع إبحث في الموضوع
إبحث في الموضوع:

البحث المتقدم
طرق مشاهدة الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

كود BB متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع إلى

RSS RSS 2.0 XML MAP HTML

منتديات ابناء الاردن

↑ Grab this Headline Animator


جميع الأوقات بتوقيت GMT +3. الساعة الآن 06:13 AM.


Powered by vBulletin® Version 3.8.6
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

تعريب » شبكة عرب فور هوست

جميع الحقوق محفوظه لابناء الاردن