vb发送封包源码下载（vb 发布安装包）
本文目录一览：
- 1、VB发送封包代码（请大神修改一下）
- 2、如何用VB发送十六进制封包
- 3、VB发送网页游戏WPE封包! 很简单 但不会！！！
- 4、▇▊▋谁给我提供一个可用的发送电子邮件的VB源码啊
- 5、VB的截取封包和发送封包源码
- 6、请教如何用vb像wpe一样模拟程序发封包
VB发送封包代码（请大神修改一下）
Private Sub Command1_Click()
Winsock1.RemoteHost = "203.195.128.203" '此为目标IP地址
Winsock1.RemotePort = "443" '此为目标IP地址的端口
Winsock1.Connect
end sub
Private Sub Winsock1_Connect()
Winsock1.SendData "00 BC 04 10 00 00 00 00 08 86 8E 06 08 86 8E 06"
Winsock1.SendData "08 92 8E 06 08 86 8E 06 08 92 8E 06 08 92 8E 06"
Winsock1.SendData "08 FB 8E 06 08 F5 8E 06 08 91 8E 06 08 86 8E 06"
Winsock1.SendData "08 91 8E 06 08 E9 8E 06 08 97 8E 06 08 F6 8E 06"
Winsock1.SendData "08 86 8E 06 08 97 8E 06 08 91 8E 06 08 97 8E 06"
Winsock1.SendData "08 F8 8E 06 08 94 8E 06 08 EA 8E 06 08 94 8E 06"
Winsock1.SendData "08 94 8E 06 08 85 8E 06 08 85 8E 06 08 85 8E 06"
Winsock1.SendData "08 89 8E 06 08 ED 8E 06 08 89 8E 06 08 89 8E 06"
Winsock1.SendData "08 89 8E 06 08 88 8E 06 08 EC 8E 06 08 8C 8E 06"
Winsock1.SendData "08 8C 8E 06 08 8C 8E 06 08 8C 8E 06 08 8C 8E 06"
Winsock1.SendData "08 EF 8E 06 08 8B 8E 06 08 8B 8E 06 08 8B 8E 06"
End Sub
如何用VB发送十六进制封包
用winsock控件进行tcp连接
*属性
-------------------------------------------------------------------------
LocalHostName | 本地机器名
LocalIP | 本地机器IP地址
LocalPort | 本地机器通信程序的端口(0端口65536)
RemoteHost | 远程机器名
RemotePort | 远程机器的通信程序端口
state | 连接的当前状态(文后有详细说明)
Protocal | 使用TCP或UDP协议(这里我们选‘0-sckTCPProtocal’)
--------------------------------------------------------------------------
*方法
--------------------------------------------------------------------------
Listen
Listen方法用于服务器程序，等待客户访问。
格式：Winsock对象.listen
Connect
Connect方法用于向远程主机发出连接请求
格式：Winsock对象.connect [远程主机IP,远程端口]
Accept
Accept方法用于接受一个连接请求
格式：Winsock对象.accept Request ID
Senddata
此方法用于发送数据
格式：Winsock对象.senddata 数据
Getdata
用来取得接收到的数据
格式：Winsock对象.getdata 变量 [,数据类型 [,最大长度]]
Close
关闭当前连接
格式：Winsock对象.close
*事件
----------------------------------------------------------------------------
Close | 远程机器关闭连接时触发
Connect | 连接建立好，可以进行通信时触发(客户端)
ConnectRequest | 有请求连接到达时产生(服务器端)
DataArrival | 有数据到达时触发
Error | 发生错误时发生
SendProgress | 数据传送进度
-----------------------------------------------------------------------------
实例我没有啊 不好意思，不过winsock网上资料应该不少
祝好运
VB发送网页游戏WPE封包! 很简单 但不会！！！
vb想发送web封包并不简单，首先你要hook指定程序的 socket api
之后hook到socket 连接句柄，之后使用这个句柄send封包
尤其是用vb hook 简直是难上加难，要是用delphi C++之类的东西还好些，vb么
呵呵
▇▊▋谁给我提供一个可用的发送电子邮件的VB源码啊
有两种发法哦,代码如下,有点乱,如果需要打包范例文件我发给你?
Dim fpath As String
'Dim xlApp As Excel.Application '定义EXCEL类
'Dim xlBook As Excel.Workbook '定义工件簿类
'Dim xlsheet As Excel.Worksheet '定义工作表类
Dim bh As String
Dim sbh As String
Dim strMailAdd As String '收信人地址 如：yin07@21cn.com
Dim strAddName As String '收信人姓名 如：影是
Dim strSubject As String '发信的主题
Dim strNoteText As String '发信的内容
Dim strMailToo As String '发信人地址
Dim strTooName As String '发信人姓名
Option Explicit
Option Compare Text
Private WithEvents poSendMail As vbSendMail.clsSendMail
Private bSendFailed As Boolean
Private Sub Command1_Click()
On Error Resume Next
sbh = Trim(OLE1.object.Worksheets("sheet1").Cells(5, 3).Value)
If sbh = "" Then
MsgBox "请填写小样编号！", vbOKOnly, "警告"
Else
'strMailAdd = "xxx@mizuda.net" '收信人地址,
'strAddName = "sdf" '收信人姓名sdf
'strNoteText = "请查收计划单" + sbh + "技术评审结果" '发信的内容
'strSubject = sbh + "合约技术评审结果" '发信的主题
'MAPISession1.DownLoadMail = False '不立即进入用户的收信箱(非常有用的，不信你设为 True试一下)
'MAPISession1.LogonUI = True '显示一个启动动话框
'MAPISession1.UserName = "lqgdf"
'MAPISession1.Password = "2fd@mizuda"
'MAPISession1.SignOn '这因该算激活吧，注意：不要把FoxMail在IE中设置为默认电子邮件，否则会出现错误
'MAPIMessages1.SessionID = MAPISession1.SessionID
'MAPIMessages1.Compose '构成一条消息
'MAPIMessages1.RecipAddress = strMailAdd '收信人地址
'MAPIMessages1.ResolveName
'MAPIMessages1.RecipDisplayName = strAddName '收信人姓名
'MAPIMessages1.MsgSubject = strSubject '发信的主题
'MAPIMessages1.MsgNoteText = strNoteText '发信的内容
'MAPIMessages1.AttachmentIndex = 0 '当前附件的索引位置
'MAPIMessages1.AttachmentPathName = fpath + "已评审" + "\" + sbh + ".xls" '附件的路径
'MAPIMessages1.Send '开始发送
'MAPISession1.SignOff '可以算成关闭吧
Call send_Click
End If
End Sub
Private Sub send_Click()
Dim lCount As Long
Dim lCtr As Long
Dim t!
Set poSendMail = New clsSendMail
With poSendMail
.SMTPHostValidation = VALIDATE_HOST_DNS
.EmailAddressValidation = VALIDATE_SYNTAX
.Delimiter = ";"
End With
Screen.MousePointer = vbHourglass
'======================================================
'GetPrivateProfileInt "邮件清单", "attachment", txtAttach.Text, _
App.Path + "\config.ini"
'======================================================
With poSendMail
' **************************************************************************
' Set the basic properties common to all messages to be sent
' **************************************************************************
.SMTPHost = GetPrivateStringValue("邮件清单", "SMTPHost", _
App.Path + "\config.ini") ' Required the fist time, optional thereafter
.From = GetPrivateStringValue("邮件清单", "senderemail", _
App.Path + "\config.ini") ' Required the fist time, optional thereafter
.FromDisplayName = GetPrivateStringValue("邮件清单", "sendername", _
App.Path + "\config.ini") ' Optional, saved after first use
.Message = GetPrivateStringValue("邮件清单", "message", _
App.Path + "\config.ini") ' Optional
.Attachment = fpath + "已评审" + "\" + sbh + ".xls" '附件的路径 ' Optional, separate multiple entries with delimiter character
' get the message count and set the timer
lCount = 1
If lCount = 0 Then Exit Sub
t! = Timer
' **************************************************************************
' Send the mail in a loop. In a real app you would need to load a new
' recipient from a file or database each pass through the loop.
' **************************************************************************
' send method only (normal button)
' **************************************************************************
' For lCtr = 1 To lCount
' .Recipient = "lqg_k@163.com"
' .RecipientDisplayName = "lqg_k"
' .Subject = "zhuti"
' .Send
' Next
' .Disconnect
'***********************************************************
' connect, send, disconnect methods (bulk send button)
'***********************************************************
If .Connect Then
For lCtr = 1 To lCount
.Recipient = GetPrivateStringValue("邮件清单", "recipientemail", _
App.Path + "\config.ini")
.RecipientDisplayName = GetPrivateStringValue("邮件清单", "recipientname", _
App.Path + "\config.ini")
.Subject = sbh + GetPrivateStringValue("邮件清单", "subject", _
App.Path + "\config.ini") '发信的主题
.Send
Next
.Disconnect
End If
End With
Set poSendMail = Nothing
Screen.MousePointer = vbDefault
MsgBox "发送成功！", vbInformation, "提示"
End Sub
范例界面如下:
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像wpe一样模拟程序发封包
光发包的话
知道通讯协议和通讯规则以后
用SocketAPI来操作理论上就可以了
Winsock可能也可以
SocketAPI的话~自己努力吧
