نرم افزار و برنامه نویسی ویندوز

نرم افزار و برنامه نویسی ویندوز

آموزش برنامه نویسی Visual Basic 2010-2019
نرم افزار و برنامه نویسی ویندوز

نرم افزار و برنامه نویسی ویندوز

آموزش برنامه نویسی Visual Basic 2010-2019

آموزش اتصال به SQL Server با گوشی هوشمند اندروید

آموزش نحوه اتصال به SQL Server با گوشی هوشمند اندروید (Android)

SQL Server 2008 R2
SQL Client
Firewall
IP Address
SQL Server Management Studio
SQL Server Configuration Manager

https://aparat.com/v/nQDgK

https://aparat.com/v/nQDgK


آموزش فعال کردن شماره خطوط برای ویرایشگر متن PowerShell در ویژوال استودیو

آموزش نحوه فعال کردن شماره خطوط برای ویرایشگر متن PowerShell در ویژوال استودیو 2019

https://www.aparat.com/v/Z4CGN

https://www.aparat.com/v/Z4CGN


آموزش دستور دریافت متن از کاربر در PowerShell Script

آموزش نحوه دریافت متن از کاربر در PowerShell Script

Visual Studio 2019
PowerShell Script Project

https://aparat.com/v/bFT9y

https://aparat.com/v/bFT9y


نکات مهم درباره Visual Studio Extensions

نکات مهم درباره نصب، فعال و یا غیر فعال کردن و حذف Visual Studio Extensions

https://aparat.com/v/YS6Qy

https://aparat.com/v/YS6Qy


آموزش ساخت دستور خارجی ایجاد میانبر فایل - PowerShell and Command Prompt

آموزش ساخت Console Application ایجاد میانبر فایل و بکارگیری بعنوان دستور خارجی (External Command) در PowerShell و Command Prompt

Imports IWshRuntimeLibrary

Module Module1

    Sub Main(ByVal Args() As String)

        Dim Target As String = ""

        Dim ShortcutPath As String = ""

        Dim Description As String = ""

        Console.WriteLine("{0}Length={2} ,{1}", vbTab, Join(Args, Space(1)), Args.Length)

        If Args.Length Mod 2 <> 0 Then

            Console.ForegroundColor = ConsoleColor.Red

            Console.WriteLine("{0}Wrong Parameters for 'CreateShortcut' External Command!", vbTab)

            Console.ResetColor()

            Exit Sub

        End If

        Dim Expr As String = ""

        Try

            For i = 0 To Args.Length - 1 Step 2

                Expr = Args(i + 1)

                Select Case Args(i).ToLower

                    Case "-target"

                        Target = Expr

                    Case "-path"

                        ShortcutPath = Expr

                    Case "-comment"

                        Description = Expr

                End Select

            Next

            Dim WSH As New WshShell

            Dim Shortcut As WshShortcut = WSH.CreateShortcut(ShortcutPath)

            With Shortcut

                .TargetPath = Target

                .Description = Description

                .Save()

            End With

        Catch ex As Exception

            Console.ForegroundColor = ConsoleColor.Red

            Console.WriteLine("{0}{1}", vbTab, ex.Message)

            Console.ResetColor()

        End Try

    End Sub

End Module

https://aparat.com/v/120aZ

https://aparat.com/v/120aZ