关于vb.net魔法封包的信息

vb.net 封装公共方法

''' summary

创新互联建站专注于兴安盟网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供兴安盟营销型网站建设，兴安盟网站制作、兴安盟网页设计、兴安盟网站官网定制、微信小程序定制开发服务，打造兴安盟网络公司原创品牌,更为您提供兴安盟网站排名全网营销落地服务。

''' 封装后的方法

''' /summary

''' param name="str"传入参数/param

''' returns/returns

Public Function z(ByVal str As String)

Dim zz As String = Nothing

Dim reg As New Regex("Found valid key:\[ffffffffffff\][\d\D]*?--sector:\s*(\d+)")

Dim m As Match = reg.Match(str)

If m.Success Then

zz = m.Groups(1).ToString

End If

Return zz

End Function

''调用示例

Dim zz As String = z(Form1.prompt.Text)

VB的截取封包和发送封包源码

参考资料：VB截取封包 关于VB开发外挂 尤其是API HOOK方面的分歧较多 其实vb做外挂一点也不逊色!

上过MSDN的开发者都知道 vb vc c# vj的样例是统一的 仅仅是语法表达不一样罢了!也就是说用VC写的功能 同样也能用VB写出来!

下面提供一段VB利用API截获RAW SOCKET封包的代码,请不吝赐教!

Dim soc As Long, dwRc As Long

Dim RemoteAddr As sockaddr

Dim LocalAddr As sockaddr

Dim inBuffer, outBuffer As String

Dim byteReturn As Long

Dim RetMsg As String

Dim strData As String

Dim nReceived As Long

Const MAX_PACK_LEN = 4096

Dim keepRun As Boolean

Dim asc() As Byte

Private Type TcpHeader 'typedef struct tcp_hdr //定义TCP首部

th_sport As Integer '; //16位源端口

th_dport As Integer '; //16位目的端口

th_seq As Long '; //32位序列号

th_ack As Long '; //32位确认号

th_lenres As Byte '; //4位首部长度/6位保留字

th_flag As Byte '; //6位标志位

th_win As Integer '; //16位窗口大小

th_sum As Integer '; //16位校验和

th_urp As Integer '; //16位紧急数据偏移量

End Type

........ 资料地址：

用vb.net编写的程序怎么封装?

两个方法：

1、Visual Studio，新建项目，最后一个类别就是封装程序用的

我说的是左边的大类(VB.net,C#,J#那些的最后一个)，不是右边的子类

2、LS说的方法虽然可以，但是一般不是用debug，要用release版本！调试程序的地方会有debug,release两个选择，正式使用要用release!

但是LZ要注意，dotNet开发的程序，离开了FrameWork就基本不能运行，所以你拿到别的机器用，先确认安装了Framework！如果你用第一种方法，那么会自动监测系统是不是装了Framework；第二种方法的话，没有Framework程序是直接报错！

vb.net 封包问题，大神请进

第一个和第二个都是POST，正确地址是：;loginName=XXXXpassword=XXXXautoLogin=trueisPhone=false

loginName、password这些就需要你改了，string.Format你应该会的