[dubai.eig]

(04-01-17, 11:11 PM)dubai.eig كتب :

(04-01-17, 10:50 PM)Basil Abdallah كتب : اهلا اخي العزيز
اولا ما هذه الصفحة http://log.com/h6-page ؟
صفحة فارغة ؟

قم بانشاء منتدى خاص فيك على شركة احلى منتدى
ومن خلال المنتدى قم بعمل صفحة html وضع الكود الي انت سويته
رابطط الشركة
https://www.ahlamontada.com/create-free-forum
من السهل التسجيل فيها ولكن
هذ الفيديو يشرح طريقة التسجيل
https://www.youtube.com/watch?v=MMr332orLcE

بعد ذلك قم بتفعيل منتداك من الرابط االي رح يوصلك  ع الايميل

بعد ذلك اذهب لمنتداك عن طريق الرابط الي اخترته في اثناء عملية التسجيل
وبعد دخولك للمنتدى قم بتسجيل الدخول مع العلم ان اسمالمستخدم هو Admin وكلمة المرور هي الي اخترتها اثناء التسجيل
بعد تسجيل الدخول اانتقل الى اسفل الصفحة الرئيسية لتجد كلمة لوحة الادارة في الاسفل اخر شي

اضغط عليها ثم ستنتقل الى لوحة التحكم الخاصة بالمنتدى
انقر على خيار عناصر اضافية
ثم بعد ذلك انتقل الى اسفل الصفحة لتجد على اليمين زر ادارة صفحات HTML اضغط عليه
ثم انقر على  (WYSIWYG) إنشاء باستعمال النمط البسيط
بعد ذلك الخيارات تكون كما ففي الصورة 



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


الان اصبحت لدييك صفحة ممرفوعة على الانترنت

اذا ما فهمت راسلني خاص

اهلا بك عزيزي

هذه الصفحة http://log.com/h6-page   

مثال فقط

انا املك موقع خاص انزل في الملف

بس هل هذا الكود  صحيج

كود :

  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  <p id="vi">3.0 BETA</p>
  <p id="link">http://log.com/Log.exe</p>

كود :

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
      Try
          TextBox1.Text = WebBrowser1.Document.GetElementById("vi").OuterText
          TextBox2.Text = WebBrowser1.Document.GetElementById("link").OuterText
          Timer1.Interval = 10000
          Timer1.Start()
      Catch ex As Exception

      End Try

  End Sub
  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

      Timer1.Stop()
      Try

          If Not TextBox1.Text = "2.0 BETA" Then
              Dim result As Integer = MessageBox.Show("A new version is available would like to install it now ?", "install now version", MessageBoxButtons.YesNo)
              If result = DialogResult.Yes Then
                  My.Computer.Network.DownloadFile(TextBox2.Text, ".\Log.exe ")
                  MsgBox("update was successful!", MsgBoxStyle.Information)
                  Me.Hide()
                  Process.Start(".\Log.exe ")
                  End
              ElseIf result = DialogResult.No Then
              End If


          End If
      Catch ex As Exception
          MsgBox("Errer", MsgBoxStyle.Exclamation)
      End Try

  End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       WebBrowser1.Navigate("http://log.com/h6-page")
   End Sub

لان يطلب مني التحديث دائما خصوصا بان رقم الاصدار متشابه

---

الملف موب راضي ينزل

حدث خطأ

شكرا لك ضبط معاي