1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : A-R | المشاهدات : 293 | الردود : 9
  1. A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    347
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    [​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
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: اكواد فيجوال بيسك



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

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



     
  3. A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    347
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: اكواد فيجوال بيسك





    مرورك الاجمل منور حبيب​
     
  4. فہٰايہٰروسہٰ موقوف لمخالفة الشروط

    الأنتساب:
    ‏25 أكتوبر 2015
    المشاركات:
    71
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Perl
    رد: اكواد فيجوال بيسك

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

    الأنتساب:
    ‏13 نوفمبر 2015
    المشاركات:
    420
    الإعجابات المتلقاة:
    381
    نقاط الجائزة:
    155
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    C#
    رد: اكواد فيجوال بيسك

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

    الأنتساب:
    ‏3 أكتوبر 2015
    المشاركات:
    141
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    رد: اكواد فيجوال بيسك

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

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    347
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: اكواد فيجوال بيسك



    الله يبارك بيكم حبايب منورين &:":​
     
  8. Mira Mrmr .::|| زهره منتدى عراق تيم ||::. مشرفات المنتدى

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    696
    الإعجابات المتلقاة:
    149
    نقاط الجائزة:
    105
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    نظام التشغيل:
    windows 8.1
    Facebook:
    YouTube:
    رد: اكواد فيجوال بيسك

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

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    347
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: اكواد فيجوال بيسك

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

    الأنتساب:
    ‏25 نوفمبر 2015
    المشاركات:
    46
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    نظام التشغيل:
    windows 8.1
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: اكواد فيجوال بيسك

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

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