منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اكواد منوعه في Vb.net
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كاتب الموضوع : جهاد العريقي


بسم الله الرحمنالرحيم

مجموعة من الاكواد لمهام متعدده

تجميد الفأره

كود :
[color=#000000][COLOR=#0000bb][/color][color=#007700]Private Declare Function [/color][color=#0000bb]BlockInput Lib [/color][color=#dd0000]"user32" [/color][color=#007700]([/color][color=#0000bb]ByVal fBlock [/color][color=#007700]As [/color][color=#0000bb]Boolean[/color][color=#007700]) As [/color][COLOR=#0000bb]Boolean
                 [/COLOR][COLOR=#dd0000]' إيقاف الادخال من الماوس والكيبورد
                BlockInput(True)
                 ' [/COLOR][COLOR=#0000bb]إعادة امكانية الإدخال من الماوس والكيبورد
                BlockInput[/COLOR][color=#007700]([/color][color=#0000bb]False[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

الاتصال بطابعه


كود :
[color=#000000][COLOR=#0000bb][/color][color=#007700]Public Declare Function [/color][color=#0000bb]ConnectToPrinterDlg Lib [/color][color=#dd0000]"winspool.drv" [/color][color=#0000bb]Alias [/color][color=#dd0000]"ConnectToPrinterDlg" [/color][color=#007700]([/color][color=#0000bb]ByVal hwnd [/color][color=#007700]As [/color][color=#0000bb]Integer[/color][color=#007700], [/color][color=#0000bb]ByVal flags [/color][color=#007700]As [/color][color=#0000bb]Integer[/color][color=#007700]) As [/color][COLOR=#0000bb]Integer

    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
        ConnectToPrinterDlg[/COLOR][color=#007700]([/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Handle[/color][color=#007700].[/color][color=#0000bb]ToInt32[/color][color=#007700], [/color][color=#0000bb]2[/color][COLOR=#007700])
    [/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

اخذ عنوان IP



كود :
[COLOR=#000000][COLOR=#0000bb]
Imports System[/COLOR][color=#007700].[/color][COLOR=#0000bb]Net
[/COLOR][COLOR=#dd0000]'الكود  
        Try
            Dim server As String = "microsoft.com" '[/COLOR][color=#007700]or [/color][COLOR=#0000bb]any other domain name
            Dim hostEntry [/COLOR][color=#007700]As [/color][color=#0000bb]IPHostEntry [/color][color=#007700]= [/color][color=#0000bb]Dns[/color][color=#007700].[/color][color=#0000bb]Resolve[/color][color=#007700]([/color][color=#0000bb]server[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]Dim ipAddresses [/color][color=#007700]As [/color][color=#0000bb]IPAddress[/color][color=#007700]() = [/color][color=#0000bb]hostEntry[/color][color=#007700].[/color][COLOR=#0000bb]AddressList
            Dim ipAddress [/COLOR][color=#007700]As [/color][COLOR=#0000bb]IPAddress
            [/COLOR][color=#007700]For [/color][COLOR=#0000bb]Each ipAddress In ipAddresses
                MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]ipAddress[/color][color=#007700].[/color][color=#0000bb]ToString[/color][COLOR=#007700]())
            [/COLOR][COLOR=#0000bb]Next
        [/COLOR][color=#007700]Catch [/color][color=#0000bb]Ex [/color][color=#007700]As [/color][COLOR=#0000bb]Exception
            MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]Ex[/color][color=#007700].[/color][color=#0000bb]Message[/color][COLOR=#007700])
        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]Try  
[/COLOR][color=#0000bb][/color][/COLOR]

لعرض البرنامج في شريط المهام

كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
        Dim a [/COLOR][color=#007700]As New [/color][COLOR=#0000bb]NotifyIcon
        a[/COLOR][color=#007700].[/color][color=#0000bb]Icon [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][COLOR=#0000bb]Icon
        a[/COLOR][color=#007700].[/color][color=#0000bb]Visible [/color][color=#007700]= [/color][COLOR=#0000bb]True
        Me[/COLOR][color=#007700].[/color][color=#0000bb]Hide[/color][COLOR=#007700]()
[/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]