VB,VBSCRIPT,?
創(chuàng)新互聯(lián)建站憑借在網(wǎng)站建設(shè)、網(wǎng)站推廣領(lǐng)域領(lǐng)先的技術(shù)能力和多年的行業(yè)經(jīng)驗(yàn),為客戶提供超值的營銷型網(wǎng)站建設(shè)服務(wù),我們始終認(rèn)為:好的營銷型網(wǎng)站就是好的業(yè)務(wù)員。我們已成功為企業(yè)單位、個(gè)人等客戶提供了網(wǎng)站設(shè)計(jì)制作、網(wǎng)站設(shè)計(jì)服務(wù),以良好的商業(yè)信譽(yù),完善的服務(wù)及深厚的技術(shù)力量處于同行領(lǐng)先地位。
-------------
VB:
Microsoft Visual Basic
一種可視化的,面向?qū)ο竦木幊陶Z言.
VBSCRIPT:
一種網(wǎng)頁的腳本語言.用于編寫腳本.
VB.NET
和VB差不多.但功能上有加強(qiáng).語法上也有改變.
------------------------
什么是COM,什么是.NET
說起來很多.但我想你的意思是指在網(wǎng)絡(luò)上的.所以我只說在網(wǎng)絡(luò)上的不同.
引用別人的:
是用來劃分國際互聯(lián)網(wǎng)域名體系的,.net .com是其中的一類:
一、頂級(jí)域名
域名由兩個(gè)或兩個(gè)以上的詞構(gòu)成, 中間由點(diǎn)號(hào)分隔開。最右邊的那個(gè)詞稱為頂級(jí)域名。下面是幾個(gè)常見的頂級(jí)域名及其用法:
“.COM”--用于商業(yè)機(jī)構(gòu)。它是最常見的頂級(jí)域名。任何人都可以注冊.COM 形式的域名。
“.NET”--最初是用于網(wǎng)絡(luò)組織,例如因特網(wǎng)服務(wù)商和維修商。現(xiàn)在任何人都可以注冊以.NET結(jié)尾的域名。
“.ORG”--是為各種組織包括非盈利組織而定的。現(xiàn)在任何人都可以注冊以.ORG 結(jié)尾的域名。
二、國家代碼
由兩個(gè)字母組成的頂級(jí)域名如.cn, .uk, .de等稱為國家代碼頂級(jí)域名(ccTLDs), 其中.cn是中國專用的頂級(jí)域名, 其注冊歸CNNIC管理, 以.cn結(jié)尾的二級(jí)域名我們我們稱為中國國家頂級(jí)域名(俗稱國內(nèi)域名)。注冊國家代碼頂級(jí)域名下的二級(jí)域名的規(guī)則和政策與不同的國家的政策有關(guān)。
三、二級(jí)域名
頂級(jí)域名的下一級(jí),就是我們所說的二級(jí)域名。如"sohu.com"是一個(gè)頂級(jí)域名,在此域名以下的域名,如"new.sohu.com","mail.sohu.com"等都是二級(jí)域名。在這種情況下,new、mail就被稱為主名或分域名。
你定義的委托需要帶參數(shù)才行,DataReceived事件中沒有接收數(shù)據(jù)代碼,下面的代碼經(jīng)測試可用
Delegate Sub SetTextCallback(ByVal InputString As String)
Private Sub ShowString(ByVal comData As String)
txt_Rect.Text += comData '將收到的數(shù)據(jù)入接收文字框中
txt_Rect.SelectionStart = txt_Rect.Text.Length
txt_Rect.ScrollToCaret()
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim inData As String = SerialPort1.ReadExisting
Dim d As New SetTextCallback(AddressOf ShowString)
BeginInvoke(d, inData)
End Sub
.net不能獲得【指定】網(wǎng)卡的信息,給個(gè)思路,先遍歷所有網(wǎng)卡,然后找到你需要的的那個(gè)網(wǎng)卡的信息。
用 vb.net socket通信
Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6 th.Start()
7 End Sub
8
9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10 Try
11 If IP "" Then
12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14 Dim reqStream As New IO.StreamWriter(tcpStream)
15 reqStream.Write(SendMsg)
16 reqStream.Flush()
17 tcpStream.Close()
18 tcpc.Close()
19 End If
20 Catch ex As Exception
21 MsgBox(ex.Message.ToString)
22 End Try
23 End Sub
24 Private Sub MyListen()Sub MyListen()
25 Try
26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28 tcpl.Start()
29 While True
30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31 Dim MyBuffer(1024) As Byte
32 Dim i As Integer
33 i = s.Receive(MyBuffer)
34 If i 0 Then
35 Dim lstrRec As String
36 Dim j As Integer
37 For j = 0 To i - 1
38 TextBox1.Text += Chr(MyBuffer(j)) ","
39 Next
40 End If
41 End While
42 Catch ex As Exception
43 MsgBox(ex.Message.ToString)
44 End Try
45 End Sub
46
47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub
本文名稱:vb.net網(wǎng)絡(luò)助手 vb net
URL分享:http://vcdvsql.cn/article12/doooddc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站營銷、企業(yè)建站、移動(dòng)網(wǎng)站建設(shè)、域名注冊、手機(jī)網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)