1. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    [​IMG]






    والصلاة , و السلام على , أشرف المرسليـن , الحمد لله وحده , نحمده و ,نشكره و نستعينه , و نستغفره

    ونعود , بالله من , شرور , أنفسنا و من , سيئات , أعمالنا من يهده ,الله فلا مظلله , و من يظلل , فلن , تجد

    له و ولياً مرشدا , وأشهد , ألا إلاه إلا الله , وحده لا شريك , له , وأن محمداً , عبده ورسوله , صلى الله , عليه وسلم

    وعلى , آله وصحبه , أجمعين , و من تبعهم , بإحسان , إلى يوم , آلدين

    أمـآ , بـعد

    فآن , آصدق آلحديث , كتآب , الله تعآلى , وخير , آلهدى هدي , سيدنـآ محمد ,صلى الله علية , وسلم

    وشر , آلأمور محدثآتة , وكل , محدثة بدعة وكل , بدعة , ضلآلة وكل , ضلآلة في ,آلنأر

    فآللهم , آجرنآ وقتنآ , وعذآبة , برحمتك , يآ آرحم , آلرأحمـين

    |[ ------------------------------------------------------------------ ]|

    بعد غيابي عن المنتدا رجعت


    وحبيت طرح بعض اكواد الفيجوال بيسك

    [FONT=tahoma, geneva, lucida, lucida grande, arial, helvetica, sans-serif]كيف الحال مشرفين واعضاء وزوار [/FONT]
    [FONT=tahoma, geneva, lucida, lucida grande, arial, helvetica, sans-serif]
    [/FONT]
    [FONT=tahoma, geneva, lucida, lucida grande, arial, helvetica, sans-serif]::::::: [/FONT][FONT=tahoma, geneva, lucida, lucida grande, arial, helvetica, sans-serif]عراق تيم [/FONT][FONT=tahoma, geneva, lucida, lucida grande, arial, helvetica, sans-serif]:::::::[/FONT]



    _________________________________________________________


    كود الاتصال في ftp مع ارسال امر user


    كود:
    'في قسم التعاريف
    Imports System.Net.Sockets
    Imports System.Text
    Imports System.Net
    'الكود 
            Dim server As String = "ftp.microsoft.com"
            Dim port As Integer = 21
            Dim userName As String = "James"
            Dim controlSocket As Socket
            Try
                controlSocket = New _
                Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
                controlSocket.Connect(New IPEndPoint(Dns.Resolve(server).AddressList(0), port))
                If controlSocket.Connected Then
                    Console.WriteLine("Connected. Waiting for reply...")
                    Dim bytes(511) As Byte ' an array of 512 bytes
                    Dim receivedByteCount As Integer
                    ' receive the server's response on successful connect
                    receivedByteCount = controlSocket.Receive(bytes)
                    ' send the USER command
                    Dim command As String
                    command = "USER " & userName & ControlChars.CrLf
                    controlSocket.Send(Encoding.ASCII.GetBytes(command), command.Length, 0)
                End If
            Catch
            End Try


    التحكم ب web browser


    كود:
    AxWebBrowser1.Navigate ("www.arabteam2000-forum.com") 'فتح موقع أنترنيت
    AxWebBrowser1.GoBack 'للخلف
    AxWebBrowser1.GoForward 'للأمام
    AxWebBrowser1.Stop 'توقف
    AxWebBrowser1.Refresh 'تحديث
    AxWebBrowser1.GoHome ' الذهاب إلى الصفحة الرئيسية
    AxWebBrowser1.GoSearch ' الذهاب إلى صفحة البحث
    اخذ عنوان الاي بي اددريس الخاص بموقع الانترنيت


    كود:
    'في قسم التعاريف
    Imports System.Net
    'الكود 
            Try
                Dim server As String = "microsoft.com" 'or any other domain name
                Dim hostEntry As IPHostEntry = Dns.Resolve(server)
                Dim ipAddresses As IPAddress() = hostEntry.AddressList
                Dim ipAddress As IPAddress
                For Each ipAddress In ipAddresses
                    MsgBox(ipAddress.ToString())
                Next
            Catch Ex As Exception
                MsgBox(Ex.Message)
            End Try

    استخراج الروابط من صفحات html


    كود:
    'التابع 
        Public Function ParseLinks(ByVal HTML As String) As ArrayList
            ' Remember to add the following at top of class:
            ' - Imports System.Text.RegularExpressions
            Dim objRegEx As System.Text.RegularExpressions.Regex
            Dim objMatch As System.Text.RegularExpressions.Match
            Dim arrLinks As New System.Collections.ArrayList()
            ' Create regular expression
            objRegEx = New System.Text.RegularExpressions.Regex( _
            "a.*href\s*=\s*(?:""(?<1>[^""]*)""|(?<1>\S+))", _
            System.Text.RegularExpressions.RegexOptions.IgnoreCase Or _
            System.Text.RegularExpressions.RegexOptions.Compiled)
            ' Match expression to HTML
            objMatch = objRegEx.Match(HTML)
            ' Loop through matches and add <1> to ArrayList
            While objMatch.Success
                Dim strMatch As String
                strMatch = objMatch.Groups(1).ToString
                arrLinks.Add(strMatch)
                objMatch = objMatch.NextMatch()
            End While
            ' Pass back results
            Return arrLinks
        End Function
    'في أي مكان أكتب
            Dim Htl As String = My.Computer.FileSystem.ReadAllText("c:\1.htm")
            Dim Links As ArrayList = ParseLinks(Htl)
            Dim LinksCol As String
            For Each LinksCol In Links
                MsgBox(LinksCol)
            Next
    استخراج روابط الصور من صفحات html


    كود:
    'التابع 
        Public Function ParseImages(ByVal HTML As String) As ArrayList
            ' Remember to add the following at top of class:
            ' - Imports System.Text.RegularExpressions
            Dim objRegEx As System.Text.RegularExpressions.Regex
            Dim objMatch As System.Text.RegularExpressions.Match
            Dim arrLinks As New System.Collections.ArrayList()
            ' Create regular expression
            objRegEx = New System.Text.RegularExpressions.Regex( _
            "img.*src\s*=\s*(?:""(?<1>[^""]*)""|(?<1>\S+))", _
            System.Text.RegularExpressions.RegexOptions.IgnoreCase Or _
            System.Text.RegularExpressions.RegexOptions.Compiled)
            ' Match expression to HTML
            objMatch = objRegEx.Match(HTML)
            ' Loop through matches and add <1> to ArrayList
            While objMatch.Success
                Dim strMatch As String
                strMatch = objMatch.Groups(1).ToString
                arrLinks.Add(strMatch)
                objMatch = objMatch.NextMatch()
            End While
            ' Pass back results
            Return arrLinks
        End Function
    'في أي مكان أكتب
            Dim Htl As String = My.Computer.FileSystem.ReadAllText("c:\1.htm")
            Dim Links As ArrayList = ParseImages(Htl)
            Dim LinksCol As String
            For Each LinksCol In Links
                MsgBox(LinksCol)
            Next
    صنع اختصار انترنيت في المفضلة

    كود:
    Public Sub CreateShortcut(ByVal Title As String, ByVal URL As String)
    ' Creates a shortcut in the users Favorites folder
    Dim strFavoriteFolder As String
    ' Retrieve the favorite folder
    strFavoriteFolder = System.Environment.GetFolderPath( _
    Environment.SpecialFolder.Favorites)
    ' Create shortcut file, based on Title
    Dim objWriter As System.IO.StreamWriter = _
    System.IO.File.CreateText(strFavoriteFolder & _
    "\" & Title & ".url")
    ' Write URL to file
    objWriter.WriteLine("[InternetShortcut]")
    objWriter.WriteLine("URL=" & URL)
    ' Close file
    objWriter.Close()
    End Sub

    معرفة اذا كنت متصل بالنت نعم ام لا


    كود:
    Public Function TestCon() As Boolean
            If My.Computer.Network.IsAvailable Then
                Return True
            Else
                Return False
            End If
        End Function
    تحويل النص داخل الاداة rich textbox الى نص html

    كود:
    Public Function ConvertToHTML(ByVal Box As RichTextBox) As String
            ' Takes a RichTextBox control and returns a
            ' simple HTML-formatted version of its contents
            Dim strHTML As String
            Dim strColour As String
            Dim blnBold As Boolean
            Dim blnItalic As Boolean
            Dim strFont As String
            Dim shtSize As Short
            Dim lngOriginalStart As Long
            Dim lngOriginalLength As Long
            Dim intCount As Integer
            ' If nothing in the box, exit
            If Box.Text.Length = 0 Then Exit Function
            ' Store original selections, then select first character
            lngOriginalStart = 0
            lngOriginalLength = Box.TextLength
            Box.Select(0, 1)
            ' Add HTML header
            strHTML = "<html>"
            ' Setup initial parameters
            strColour = Box.SelectionColor.ToKnownColor.ToString
            blnBold = Box.SelectionFont.Bold
            blnItalic = Box.SelectionFont.Italic
            strFont = Box.SelectionFont.FontFamily.Name
            shtSize = Box.SelectionFont.Size
            ' Include first 'style' parameters in the HTML
            strHTML += "<span style=""font-family: " & strFont & _
              "; font-size: " & shtSize & "pt; color: " & strColour & """>"
            ' Include bold tag, if required
            If blnBold = True Then
                strHTML += "<b>"
            End If
            ' Include italic tag, if required
            If blnItalic = True Then
                strHTML += "<i>"
            End If
            ' Finally, add our first character
            strHTML += Box.Text.Substring(0, 1)
            ' Loop around all remaining characters
            For intCount = 2 To Box.Text.Length
                ' Select current character
                Box.Select(intCount - 1, 1)
                ' If this is a line break, add HTML tag
                If Box.Text.Substring(intCount - 1, 1) = Convert.ToChar(10) Then
                    strHTML += "<br>"
                End If
                ' Check/implement any changes in style
                If Box.SelectionColor.ToKnownColor.ToString <> strColour _
                    Or Box.SelectionFont.FontFamily.Name <> strFont Or _
                    Box.SelectionFont.Size <> shtSize Then
                    strHTML += "</span><span style=""font-family: " _
                      & Box.SelectionFont.FontFamily.Name & _
                      "; font-size: " & Box.SelectionFont.Size & _
                      "pt; color: " & _
                      Box.SelectionColor.ToKnownColor.ToString & """>"
                End If
                ' Check for bold changes
                If Box.SelectionFont.Bold <> blnBold Then
                    If Box.SelectionFont.Bold = False Then
                        strHTML += "</b>"
                    Else
                        strHTML += "<b>"
                    End If
                End If
                ' Check for italic changes
                If Box.SelectionFont.Italic <> blnItalic Then
                    If Box.SelectionFont.Italic = False Then
                        strHTML += "</i>"
                    Else
                        strHTML += "<i>"
                    End If
                End If
                ' Add the actual character
                strHTML += Mid(Box.Text, intCount, 1)
                ' Update variables with current style
                strColour = Box.SelectionColor.ToKnownColor.ToString
                blnBold = Box.SelectionFont.Bold
                blnItalic = Box.SelectionFont.Italic
                strFont = Box.SelectionFont.FontFamily.Name
                shtSize = Box.SelectionFont.Size
            Next
            ' Close off any open bold/italic tags
            If blnBold = True Then strHTML += "</b>"
            If blnItalic = True Then strHTML += "</i>"
            ' Terminate outstanding HTML tags
            strHTML += "</span></html>"
            ' Restore original RichTextBox selection
            Box.Select(lngOriginalStart, lngOriginalLength)
            ' Return HTML
            Return strHTML
        End Function
    اخذ ال ip

    كود:
    Dim objEntry As System.Net.IPHostEntry = _
                System.Net.Dns.GetHostByName( _
                System.Net.Dns.GetHostName)
            Dim strIP As String = CType( _
                objEntry.AddressList.GetValue(0), _
                System.Net.IPAddress).ToString
            MessageBox.Show("Your IP address is " & strIP)
    ايقاف تشغيل الفيديو في مواقع الانترنيت


    كود:
    Public Sub DisplayInlineVideos(ByVal Enable As Boolean)
           Select Case Enable
               Case True
                   My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Videos", "Yes")
               Case False
                   My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Videos", "no")
           End Select
       End Sub

    التحكم بالتغيير الصور التلقائي داخل المتصفح


    كود:
    Public Sub EnableAutoImageResize(ByVal Enable As Boolean)
           Select Case Enable
               Case True
                   My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable AutoImageResize", "Yes")
               Case False
                   My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable AutoImageResize", "no")
           End Select
       End Sub



    تحديد الايام لحذف المحفوضات


    كود:
    Public Sub DaysToRemoveHistory(ByVal days As Integer)
           If days = Nothing Then
               MsgBox("No Value ", MsgBoxStyle.Critical, "Error")
           Else
               My.Computer.Registry.SetValue("HKEY_USERS\S-1-5-21-1644491937-746137067-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Url History", "DaysToKeep", days, Microsoft.Win32.RegistryValueKind.DWord)
           End If
       End Sub

    رفع ملف الى الانترنيت


    كود:
    My.Computer.Network.UploadFile("c:\1.txt", "www.google.com")



    تغيير اي بي الشبكة


    كود:
    Imports System 
    Imports System.Text 
    Imports Microsoft.Win32 
    
    
    Module ChangeIP 
    
    
      Sub Main() 
        Dim regKey As RegistryKey 
        Dim strServiceName As String 
    
    
        ' Open the key to read the network card details 
        regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\1") 
    
    
        ' Save the 'ServiceName' value 
        strServiceName = regKey.GetValue("ServiceName") 
        regKey.Close() 
    
    
        ' Open the 'Tcpip' key for this service 
        regKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\" & strServiceName & "\Parameters\Tcpip", True) 
    
    
        ' Set the value of the IP address, writing the bytes and NOT the string 
        regKey.SetValue("IPAddress", Encoding.ASCII.GetBytes("10.1.1.1\0\0")) 
        regKey.Close() 
    
    
     End Sub 
    
    
    End Module

    تحميل موقع انترنيت الى textbox


    كود:
    'في قسم التعاريف
    Imports System.IO
    Imports System.Net
    Imports System.Text
    'الكود
    Dim uri As New Uri(textUrl.Text)
            Dim builder As New StringBuilder()
            builder.Append("AbsolutePath: " & uri.AbsolutePath & ControlChars.CrLf)
            builder.Append("AbsoluteUri: " & uri.AbsoluteUri & ControlChars.CrLf)
            builder.Append("Host: " & uri.Host & ControlChars.CrLf)
            builder.Append("HostNameType: " & uri.HostNameType.ToString() & _
                           ControlChars.CrLf)
            builder.Append("LocalPath: " & uri.LocalPath & ControlChars.CrLf)
            builder.Append("PathAndQuery: " & uri.PathAndQuery & ControlChars.CrLf)
            builder.Append("Port: " & uri.Port & ControlChars.CrLf)
            builder.Append("Query: " & uri.Query & ControlChars.CrLf)
            builder.Append("Scheme: " & uri.Scheme)
            MsgBox(builder.ToString())
            Dim request As WebRequest = WebRequest.Create(uri)
            Dim response As WebResponse = request.GetResponse()
            builder = New StringBuilder()
            builder.Append("Request type: " & request.GetType().ToString() & _
                           ControlChars.CrLf)
            builder.Append("Response type: " & response.GetType().ToString() & _
                           ControlChars.CrLf)
            builder.Append("Content length: " & response.ContentLength & _
                           " bytes" & ControlChars.CrLf)
            builder.Append("Content type: " & response.ContentType & _
                           ControlChars.CrLf)
            MsgBox(builder.ToString())
            Dim stream As Stream = response.GetResponseStream()
            Dim reader As New StreamReader(stream)
            Dim data As String = reader.ReadToEnd()
            reader.Close()
            stream.Close()
            textData.Text = data

    التحكم في تشغيل الموسيقا في الخلفية


    كود:
    Public Sub PlayBackgroundSounds(ByVal Enable As Boolean)
           Select Case Enable
               Case True
                   My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Background_Sounds", "Yes")
               Case False
                   My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Background_Sounds", "no")
           End Select
       End Sub

    اتمنا الاكواد تعجبكم


    في امان الله







     
  2. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ

    ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ Developer

    الأنتساب:
    ‏26 فبراير 2015
    المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    رد: اكواد فيجوال بيسك



    {1!$7} اكواد جميلة جدا اخى ولكن {1!$7}
    انتظر منك الافضل

    [​IMG][​IMG][​IMG][FONT=ae_almothnna]
    [/FONT]



     
  3. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    رد: اكواد فيجوال بيسك





    مرورك الاجمل منور حبيب​
     
  4. فہٰايہٰروسہٰ

    فہٰايہٰروسہٰ موقوف لمخالفة الشروط

    الأنتساب:
    ‏25 أكتوبر 2015
    المشاركات:
    71
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    المخالفات
    3
    رد: اكواد فيجوال بيسك

    بارك الله بيك اكواد مفيده
     
  5. !_عبدالله عباس_!

    !_عبدالله عباس_! DeveloPer Plus

    الأنتساب:
    ‏13 نوفمبر 2015
    المشاركات:
    420
    الإعجابات المتلقاة:
    380
    نقاط الجائزة:
    63
    رد: اكواد فيجوال بيسك

    عاشت ايدك يا مبدع
     
  6. لوفي العراقي HACKER

    لوفي العراقي HACKER Developer

    الأنتساب:
    ‏3 أكتوبر 2015
    المشاركات:
    141
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    رد: اكواد فيجوال بيسك

    عاشت ايدك
     
  7. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    رد: اكواد فيجوال بيسك



    الله يبارك بيكم حبايب منورين &:":​
     
  8. Mira

    Mira .::|| Tale of Remorse ||::. مشرفات المنتدى

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    659
    الإعجابات المتلقاة:
    120
    نقاط الجائزة:
    43
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    رد: اكواد فيجوال بيسك

    [​IMG]عاشت الايادي على الاكواد[​IMG]
     
  9. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    رد: اكواد فيجوال بيسك

    :ُce@: ايدج العايشة منورة mira :ُce@:​
     
  10. Rexos

    Rexos موقوف لمخالفة الشروط

    الأنتساب:
    ‏25 نوفمبر 2015
    المشاركات:
    46
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    المخالفات
    3
    رد: اكواد فيجوال بيسك

    احسنت بارك الله بيك حبيبي
     

مشاركة هذه الصفحة