17-10-12, 09:10 PM
كاتب الموضوع : جهاد العريقي
بسم الله الرحمنالرحيم
بسم الله الرحمنالرحيم
مجموعة من الاكواد لمهام متعدده
تجميد الفأره
كود :
[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]