怎么在VB下实现发送手机短信

[老田低代码]

各位大哥救命：我们老板要让我弄个发送手机短信的程序，但是我现在刚刚走出校门，接触到的东西真的很少很少，所以现在没有办法。会被老板炒鱿鱼的啦！！！！！

[shootoke]

有没有试过“月影短信”？？有VB的接口哟！
去www.skycn.com的编程类软件中找,有两个开发包都是操作手机短信的。

[知识2018]

给我一个吧![e-mail]
谢谢!

[mingtian2008]

也给我一个 谢谢了 [e-mail]

[zjsx12]

邮箱：[e-mail]

[woundedsoul]

给我一份：[e-mail]
谢谢！

[xuminghua]

[e-mail]

[aijie099]

放谢谢给我也发个：
[e-mail]

[「已注销」]

[e-mail]
谢谢各位大侠慷慨。
给我发一份。

[lirun]

请给我一份吧，，我也要的
[e-mail]

[smset]

飞天短信设备网专为软件厂商开发了短信二次开发平台、短信网关服务器，可实现与您现有的系统无缝连接，使您的软件在最短的时间内具备短信功能，它们适用于OA、CRM、ERP、物流系统等需要实现短信通讯的应用系统。支持网络多客户端共用短信设备。 　

一、 短信二次开发平台简介
　　为了减少短信应用软件的开发周期，减少开发工作，提高系统稳定性和可靠性，减少您的开发工作量，提高应用软件的可靠性，我们专门开发了本套二次开发平台。

　　使用飞天短信二次开发平台，您可以简单快捷的进行OEM和二次开发，将短信系统与企业信息管理系统全面融合。广泛应用在企业MIS系统、调度通知系统、ERP应用、OA办公网络、客户服务中心等关键环节，将短消息服务与针对不同行业度身定制的信息管理系统相结合，根据不同客户、不同需求，高效提供更多个性化的服务、产品和信息。

二、飞天短信二次开发平台的特点
1．SMSCLIENT.DLL提供一系列控制函数库，用户通过在自行开发的软件中调用这些API函数，就可实现短信的收发功能。适用于主流开发平台（VB、 Delphi 、VC、VFP等），帮助您的应用系统快速集成短信功能。

2. 基于本平台，可使同一局域网内众多客户端共享一个短信服务器进行短信收发，既实现了资源的共享和有效使用，又便于企业对进出信息的管理、监控和统计。

3. 基于此平台可快速开发网络短信的应用，您无需了解复杂的GSM通信控制协议，只需简单调用几个API函数，即可让系统快速集成短信功能。

4.低成本实施, 采用GSM模块接入普通电脑，配合本套软件，无须上网即可收发短信，使用和维护简单方便，有效保障企业利益。
三、短信二次开发平台包括的内容

FTSMSGW.EXE 飞天短信网关服务器程序
GWMANUAL.DOC 飞天短信网关服务器使用手册
SMSCLIENT.DLL 短信二次开发函数库
DLLREADME.DOC 动态库使用说明
EXAMPLE目录 包括VC和Delphi等调用例程源代码
TOOLS目录 包括串口测试工具和短信测试工具



三、API函数说明

int InitConnect(char *hostname);
功能：初始化SMS客户程序与SMS服务程序的连接
参数说明：hostname--指运行SMS服务程序的计算机的网络名称
返回：-1--失败 0--成功

int SendMsg(char *SCA,char *DA,char *UD);
功能：发送一条短消息（实际上是提交一条消息给SMS服务程序，由SMS服务程序发出去）
参数说明：SCA--短消息中心号码(如成都移动就是："13800280500")
DA--接收方手机号码(如"13980711226")
UD--消息内容(如"你好！");
返回：-1:提交给SMS网关服务程序失败
0：提交给SMS服务程序成功

int QueryMsg();
功能：查询SMS接收情况
参数说明：无
返回：-1--查询失败，SMS网关服务程序无响应。
0--查询成功，SMS服务程序端没有收到的消息。
N(1,2,...)--查询成功，SMS服务程序有N条收到的消息。

char *ReadMsg();
功能：读取一条消息
参数说明：无
返回：""--读取失败，SMS服务程序无响应
"EMPTY"--读取成功，但SMS服务程序内没有收到的消息。
"OA:..."--读取成功，而且SMS服务程序有收到的消息。
具体格式
"OA:发送方号码 TIME:接收到该消息的时间 UD:消息内容"

四、数据库接口
除API接口外，我们的网关平台同时提供了数据库接口，使集成方式更加灵活易用。只需要访问SMS_TOREAD表和SMS_TOSEND表即可。支持各种数据库，包括Access,MS SQL Server,Oracle等。


飞天 FT35A GSM MODEM

　手机短信作为一种使用方便、费用低廉的即时通讯方式，在众多通信手段中脱颖而出，得到越来越多广泛的应用。 在许多商业和工业级短信应用中，均要求短信收发设备非常可靠，发送速度快，能够适应长期不间断工作，而普通手机的工作方式则难以满足要求。
　　FT35A GSM专门针对短信应用设计，内嵌西门子工业级TC35模块，简化了通信接口，性能稳定可靠，符合各种商业和工业级短信应用要求, 适用于各行各业，各个领域作无线数据通信，短信息通告，短信查询等应用， 您可以完全放心地将它集成到您的系统中。

我们为您提供性价比极佳的短信集成和短信开发方案,敬请访问：
http://www.smset.com


联系方式：
成都卓骏科技有限公司
销售热线：
028-89088290 许先生
Email:[e-mail]
技术咨询Email:[e-mail]
传真:[phone]
地址：成都市科华中路5号B座510

[huajie06]

我也想要一份，谢谢！
[e-mail]

[Huaraco]

没来晚吧！我也要[e-mail]

[drj0324]

朋友，我是一位新手，不太懂的这方面知识，
如果可以的话请多给我发有用的vb过来好吗，我的E-mail:[e-mail]

[vileboy]

给我也来一份。
[e-mail]

[sy5tem]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long


Private Sub Command1_Click()
my0 = Combo1.Text
If my0 = "先生" Then my00 = "0"
If my0 = "小姐" Then my00 = "1"
my1 = Text1.Text
n1 = lstrlen(my1 + Chr(0))
my2 = Text2.Text
n2 = lstrlen(my2 + Chr(0))
my3 = Text3.Text


If my1 = "" Or my2 = "" Or my3 = "" Or n1 < 10 Then
MsgBox "没填写完整或填写有误！", vbExclamation, "出错"
ElseIf Left(my1, 3) <> "130" Or n2 > 100 Then
MsgBox "只能发130短信息，且发送内容不超过50个中文", vbExclamation, "出错"
Else
Command1.Enabled = False
Form1.Caption = "连接中...."
Inet1.Protocol = icHTTP
Inet1.Execute "http://sms.szunicom.com/cgi-bin/tims/webgsm?gsm_no=" & my1 & "&mobile_type=C&firstname=" & my3 & "&title=" & my00 & "&message=" & my2, "get"
End If
End Sub

Private Sub Form_Load()
Combo1.ListIndex = 0
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

Select Case State
Case icHostResolvingHost
Form1.Caption = "连接中...."
Case icConnecting
Form1.Caption = "连接中...."
Case icError
MsgBox "连接出错:无法连结", vbExclamation, "出错"
Form1.Caption = "短消息发送(130)"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command1.Enabled = True

Case icResponseCompleted
Form1.Caption = "短消息发送(130)"
MsgBox "短消息发送成功!", vbExclamation, "恭喜!"
Command1.Enabled = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Select


End Sub


Private Sub Label4_Click()
Dim HyperJump
Dim w
w = "mailto:" & Label4.Caption
HyperJump = ShellExecute(0&, vbNullString, w, vbNullString, vbNullString, vbNormalFocus)
End Sub
Z

[sy5tem]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long


Private Sub Command1_Click()
my0 = Combo1.Text
If my0 = "先生" Then my00 = "0"
If my0 = "小姐" Then my00 = "1"
my1 = Text1.Text
n1 = lstrlen(my1 + Chr(0))
my2 = Text2.Text
n2 = lstrlen(my2 + Chr(0))
my3 = Text3.Text


If my1 = "" Or my2 = "" Or my3 = "" Or n1 < 10 Then
MsgBox "没填写完整或填写有误！", vbExclamation, "出错"
ElseIf Left(my1, 3) <> "130" Or n2 > 100 Then
MsgBox "只能发130短信息，且发送内容不超过50个中文", vbExclamation, "出错"
Else
Command1.Enabled = False
Form1.Caption = "连接中...."
Inet1.Protocol = icHTTP
Inet1.Execute "http://sms.szunicom.com/cgi-bin/tims/webgsm?gsm_no=" & my1 & "&mobile_type=C&firstname=" & my3 & "&title=" & my00 & "&message=" & my2, "get"
End If
End Sub

Private Sub Form_Load()
Combo1.ListIndex = 0
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

Select Case State
Case icHostResolvingHost
Form1.Caption = "连接中...."
Case icConnecting
Form1.Caption = "连接中...."
Case icError
MsgBox "连接出错:无法连结", vbExclamation, "出错"
Form1.Caption = "短消息发送(130)"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command1.Enabled = True

Case icResponseCompleted
Form1.Caption = "短消息发送(130)"
MsgBox "短消息发送成功!", vbExclamation, "恭喜!"
Command1.Enabled = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Select


End Sub


Private Sub Label4_Click()
Dim HyperJump
Dim w
w = "mailto:" & Label4.Caption
HyperJump = ShellExecute(0&, vbNullString, w, vbNullString, vbNullString, vbNormalFocus)
End Sub
注：可以发联通短信。其它的类似！

[LEO1]

[e-mail]
xiele!

[hxy2003]

收藏

[Lyer]

收藏

[jeefyan]

我也 想要！[e-mail]