锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net自动发送 vbnet doevent

IT技术ByVal

请问各位大侠，利用VB.NET如何实现下位机发送的不短变化的数据，在VB界面上也能自动实时显示 。1、发送数据需要协议支持
自己设计一个协议 ， 协议是什么，是两个通信段之间的约定 。比如我说，我打一个奥特曼的手势表示已经看到美女了，这就是一个协议 。协议完成将bit转换为对应的含义 。
2、需要编程技术的支持
你怎样获取数据，将数据如何处理，怎样保存 。这个需要你自己的技术支持，这里的回答没法帮你 。花钱报个班吧，如果你还在上大学，那么选个选修课好好听课 。下课多做小程序，就会学会了 。
请问asp.net 注册会员后自动发送邮件到会员所填写的邮箱这个功能怎么实现呢？ 用vb.net! 谢谢大家了！发邮件 ， 最好能有自己的邮件服务器 ， 没有的话，也可以用网易或139邮箱等，示例代码：
SmtpClient client = new SmtpClient(smtp, smtpport)
{
UseDefaultCredentials = false,
Credentials = new NetworkCredential(登录名, 密码),
DeliveryMethod = SmtpDeliveryMethod.Network
};
var from = new MailAddress("发件人邮箱", "发件人姓名");
MailMessage message = new MailMessage
{
Sender = from,
From = from,
IsBodyHtml = false,
//Priority = MailPriority.High,
BodyEncoding = Encoding.UTF8
};
/*添加收件人列表*/
message.To.Add(new MailAddress("收件人邮箱", "收件人姓名"));
message.Subject = 邮件标题;
message.Body = 邮件内容;
//添加附件
message.Attachments.Add(new Attachment("C:\\abc.txt"));
client.Send(message);
怎样用vb.net读取本地.txt文件？imports System.IO
读取指定文件
'
'读取指定文本文件
Public Function readtext(ByVal path As String)
If path = "" Then
readtext = "操作失败vb.net自动发送！"
Exit Function
End If
Try
If File.Exists(path) = True Then
Dim fs As New FileStream(path, FileMode.Open)
Dim sr As New StreamReader(fs)
Dim str As String
str = sr.ReadToEnd.ToString
sr.Close()
fs.Close()
readtext = str
Else
readtext = "操作失败vb.net自动发送！"
End If
Catch ex As Exception
readtext = "操作失败vb.net自动发送！"
End Try
End Function
'向指定文件写入数据
Public Function writetext(ByVal path As String, ByVal opi As Integer, ByVal msg As String)
If path = "" Then
writetext = "操作失败vb.net自动发送！"
Exit Function
End If
Dim op As FileMode
Select Case opi
Case 1
op = FileMode.Append
Case 2
op = FileMode.Create
Case Else
op = FileMode.Create
End Select
Try
If File.Exists(path) = True Then
Dim fs As New FileStream(path, op)
Dim sr As New StreamWriter(fs)
sr.WriteLine(msg)
sr.Close()
fs.Close()
writetext = "操作完成vb.net自动发送！"
Else
writetext = "操作失败！"
End If
Catch ex As Exception
writetext = "操作失败！"
End Try
End Function
参考这个吧
'
'vb.net源代码来自
'
VB.net 怎么制作按键连发功能用API函数，以下代码Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = H2
Private Const LWA_COLORKEY = H1Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMosT = -1
Private Const SWP_NOMOVE = H2
Private Const SWP_NosIZE = H1
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_KEYDOWN = H100
Const WM_KEYUP = H101
Const WM_CHAR = H102
Const VK_F1 = H70
Private Sub SendF1(hwnd)'调用这个过程即可对目标窗体发送F1键
Call PostMessage(hwnd, WM_KEYDOWN, VK_F1, 0)
Call PostMessage(hwnd, WM_KEYUP, VK_F1, 0)
End Sub这里是发送F1的实例，各个按键对应的虚拟键码，要到网上查
VB.NET串口通讯怎么发送和接收十六进制？串口通信最终都是用二进制传输的，你用代码把二进制转化成十六进制就可以了 。不需要额外设置 。
vb.net 请问SmtpClient发送邮件后, MailMessage是否自动释放?这段代码我执行无误，不太清楚题主是如何异步发送的，题主也没给出错误究竟是什么，所以无从判断 。
只能说需要手动释放，或者用 message = Nothing 也可以释放 。
【针对问题补充的回答】
注释行已去掉 ， 仍能正常运行，可能跟网络环境有关 。
另外不知题主 AddHandler client.SendCompleted, AddressOf SendCompletedCallback 这行中的回调函数 SendCompletedCallback 是怎么写的，我写的是：
Private Function SendCompletedCallback(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
If e.Cancelled Then
REM 邮件发送被取消
ElseIf e.Error.ToString"" Then
REM 邮件发送失败
Else
REM 发送成功
End If
End Function
另外建议用 Try-Ctach-End Try 结构，并在释放前设置延时函数 。
【vb.net自动发送 vbnet doevent】关于vb.net自动发送和vbnet doevent的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何获取BFV服务器？ bfv服务器怎么获取

    下一篇：flutter手游开发，flutter安卓开发