1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

اكواد فيجوال بيسك

الموضوع في 'قسم فيجول بيسك دوت نت VB.NET' بواسطة A-R, بتاريخ ‏22 نوفمبر 2015.

كاتب الموضوع : A-R المشاهدات : 386 الردود : 9 ‏22 نوفمبر 2015
  1. غير متصل

    A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    الإقامة:

    [​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. غير متصل

    ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ
    rankrank
    Developer

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

    رد: اكواد فيجوال بيسك



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

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



     


  3. غير متصل

    A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    الإقامة:

    رد: اكواد فيجوال بيسك





    مرورك الاجمل منور حبيب​
     


  4. غير متصل

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

    عضو منذ:
    ‏25 أكتوبر 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:

    رد: اكواد فيجوال بيسك

    بارك الله بيك اكواد مفيده
     


  5. غير متصل

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

    عضو منذ:
    ‏13 نوفمبر 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    382
    نقاط الجائزة:

    رد: اكواد فيجوال بيسك

    عاشت ايدك يا مبدع
     


  6. غير متصل

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

    عضو منذ:
    ‏3 أكتوبر 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: اكواد فيجوال بيسك

    عاشت ايدك
     


  7. غير متصل

    A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    الإقامة:

    رد: اكواد فيجوال بيسك



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


  8. غير متصل

    Mira Mrmr .::|| زهره منتدى عراق تيم ||::.
    V • I • P

    عضو منذ:
    ‏9 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    134
    نقاط الجائزة:
    الجنس:
    أنثى
    الإقامة:

    رد: اكواد فيجوال بيسك

    [​IMG]عاشت الايادي على الاكواد[​IMG]
     


  9. غير متصل

    A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    الإقامة:

    رد: اكواد فيجوال بيسك

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


  10. غير متصل

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

    عضو منذ:
    ‏25 نوفمبر 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: اكواد فيجوال بيسك

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


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

جاري تحميل الصفحة...