كود تغيير عنوان ip + كود لفحص البورت بفيجوال بيسك 6
بسم الله الرحمن الرحيم
السلام عليكم
بدون ما أطولها عليكم نبدأ بسم الله ....
كود تغيير عنوان ip :
Imports System
Imports System.Net
Imports System.Net.NetworkInformation
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
****************l("netsh interface ip set address name= " & Chr(34) & lstOutput.Text & Chr(34) & " dhcp")
****************l("netsh interface ip set dns name=" & Chr(34) & lstOutput.Text & Chr(34) & " dhcp")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
Dim ni As System.Net.NetworkInformation.NetworkInterface() = System.Net.NetworkInformation.NetworkInterface.Get AllNetworkInterfaces()
For Each Items As System.Net.NetworkInformation.NetworkInterface In ni
Me.lstOutput.Items.Add(Items.Name)
If i = 0 Then
lstOutput.Text = Items.Name
End If
i = i + 1
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
****************l("netsh interface ip set address name= " & Chr(34) & lstOutput.Text & Chr(34) & " static " & txtip.Text & " " & txtsub.Text & " " & txtgate.Text)
****************l("netsh interface ip set dns name=" & Chr(34) & lstOutput.Text & Chr(34) & " static " & txtdns.Text)
End Sub
End Class
كود لفحص البورت :
Dim hostname As String = txthost.Text
Dim portno As Integer = Val(txtport.Text)
Try
Dim ts As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient(hostname, portno)
MsgBox("The port is Open")
Catch ex As System.Net.Sockets.SocketException
If (ex.ErrorCode = 10061) Then
MsgBox("The port is Closed")
End If
End Try
منقول للفائدة فقط
" ======================================================= "
" انتهى الاعلان او الموضوع او الخبر "
خبير سيو تواصل معي : خبير سيو
ميز اعلانك من هنا : اعلان رابط نصي دو فلو على منتديات هندسة بلا حدود 5$ فقط لشهر واحد - متجر خدمة لي
اعلان مميز : امتلك متجر الكتروني احترافي مع منصة استقل
خدمات تحسين سيو المواقع
" فضلا وليس امرا شارك الموضع مع الجميع عبر المواقع لتعم الفائدة "
البلد
الاوسمة الخاصة
الجنس : 
عدد المساهمات : 
الإثنين 08 سبتمبر 2014, 7:19 am
هام جداً: قوانين المساهمة في المواضيع. انقر هنا للمعاينة 
