vb.net抓包软件,net 抓包

用vb.net实现网络通信

用 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

相关问答

Q1: VB.net编写一个通过UDP通讯的小软件出现Bug，只能发送不能接收，求助！

网上很多相关的现成的代码

你需要知道的一点是数据接收不是接收一次就完了 接收端根本不知道数据什么时候要过来 所以数据端应该一直重复着"等待-接收"的过程 于是就有了要在线程中接收数据的代码

Q2: 用VB.net打包后的软件，如何支持覆盖安装呢？

，如果客户终端非常多的时候，这就会是一项很麻烦的工作，一方面要安排我们的应用程序，另一方面要安装Oracle客户端，而且还要对Oracle客户端进行NET EASY配置，真是不胜其烦。

为此我研究了很久，现在终于做到了可以把Oracle客户端和应用程序一起打包，又自己用程序来配置NET EASY，刚好前两天有两个小弟问我如何把客户端打包和用程序配置NET EASY的问题，我今天就在这里说一下。

由于时间问题，今天就只能讲一下客户端打包的问题，另一个问题我会在下一篇给大家讲一下。

1、打包要知道的问题：

A、要打包哪些文件。

B、如何修改注册表。

C、如何设置环境变量。

D、打包使用哪些工具。

2、打包要使用的文件：

我们先找一个装有Oracle的机器，把以下的文件打包。为了保证Oracle能正常访问，我们需要保持原目录结构不变。

A、$ORACLE_HOMEBIN下边所有DLL，IMP.EXE，EXP.EXE，SQLPLUS.EXE，SQLPLUSW.EXE。($ORACLE_HOME指的是ORACLE的主目录,比如D:ORACLEORA8I)。

B、$ORACLE_HOMEnetwork目录下的三个目录：Admin、mesg、tnsapi，把它们全部打包。

C、$ORACLE_HOMEocommonnls目录。

D、$ORACLE_HOMEoracoremesg目录。

E、$ORACLE_HOMEsqlplus下的两个目录：admin、mesg。

3、如何修改注册表：

为不麻烦，我们可以把这个装有Oracle的机器的注册表里边Oracle信息照搬过来。全部照抄。

4、如何设置环境变量：

设置环境变量，我们要在PATH前边加上$ORACLE_HOMEBIN;

5、使用哪些打包工具：

我个人比较喜欢的工具是WiseInstaller，它的功能很强大，能导入整个文件目录（我感觉这一点比Install shilled要好）、导入注册表、也可以设置环境变量，以及设置NT服务等等（我好象是给它做广告似的）。

我们现在就可以使用它来做我们的客户端了。

第一步，先把我说的这些文件目录全部导入到我们的安装工程中去。

第二步，找到设置注册表选项，导入注册表中HKEY_LOCAL_MACHINESOFTWAREORACLE下边所有的注册表值。

第三步，找到环境变量设置选项，在它的PATH那里加上$ORACLE_HOMEBIN。这里的$ORACLE_HOME用来代替。

做完这一切，编译，发布，完成。

6、如何用手工来修改NET EASY：

现在假设我们已经做完了这个安装包，并且把它安装到了我们的电脑上边，那么，在开始菜单上是没有ORACLE这个选项的，如何设置Oracle NET EASY呢？

我们现在暂时可以这样做：

打开我们的Oracle客户端的安装目录，找到NETWORKADMIN子目录下边的tnsnames.ora这个文件，直接对它进行编辑就行了。

比如，我们现在想配置一个叫做NTSERVER的服务名，我们就可以这样写：

NTSERVER =

(DESCRIPTION =

(ADDRESS_LIST =

(ADDRESS = (PROTOCOL = TCP)(HOST = 机器名)(PORT = 端口号))

)

(CONNECT_DATA =

(SERVICE_NAME = 全局数据库名)

)

)

然后，直接把它加到tnsnames.ora这个文件的后边就行了。

如果NTSERVER这个服务名已经存在的话，我们可以直接修改它的机器名、端口号和全局数据库名就可以了。

Q3: vb.net 直接通过浏览器操作网页

你说的操作是像人一样用鼠标点击网页？

直接应该是不行的，可以考虑先抓包分析数据包，在模拟浏览器发送请求获取数据，然后进行相应处理

Q4: 谁能推荐一款能够将VB.net程序混淆的软件？

微软的 InstallShield 2011

打包注册表项，运行库，程序文件.....

{最好在XP-X86 环境下打包，上下兼容}

PS：其实自己也能做，就像读取文本再写进去过程中加下密，

就像RAR，然后利用一个可执行程序进行解压{俗称-安装，术语-封装}

在文库里搜索一下 封装教程 内容更多

建议和 加壳 一起学，

Q5: vb.net 获取其他软件内信息

那需要软件对接！ 然后获得控件名称，获取内容！比较复杂！！！