• 全部

一个VB短心平台,速要,急给分,高手门看看

kevin520bj 2008-03-26 05:56:31
Private Sub Command1_Click()

If txtServer.Text = "" Then
MsgBox ("请输入服务器IP地址！")
Exit Sub
End If

serverIP = txtServer.Text
Call Conn1_serverIP

If Jindi.IsOpen Then


Command1.Enabled = False
Label1.Caption = "正在运行" & vbCrLf & vbCrLf & Now()
Label1.Refresh

Timer1.Enabled = False

Dim SQL As String
On Error GoTo conn_error
Call Conn_Open
SQL = "select * from sms where status=0"
rs.Open SQL, conn, 3, 3
k = 0
Do While Not rs.EOF


If Jindi.SendMsg(rs("to_number"), rs("content")) = 0 Then
rs("status") = 1
rs("finish_time") = Now()
rs.Update
rs.MoveNext
i = i + 1

Else
If k < 2 Then
If Jindi.SendMsg(rs("to_number"), rs("content")) = 0 Then
rs("status") = 1
rs("finish_time") = Now()
rs.Update
rs.MoveNext
i = i + 1
k = 0
Else
k = k + 1
End If
Else
rs("status") = 2
rs("finish_time") = Now()
rs.Update
rs.MoveNext
j = j + 1
End If
End If

Label1.Caption = "正在运行 已成功发送" & i & "条短信" & vbCrLf & vbCrLf & Now()
Label1.Refresh
Sleep (1000)

Loop

Call Conn_Close

Label1.Caption = "正在运行 已成功发送" & i & "条短信"
If j <> 0 Then
Label1.Caption = Label1.Caption & "，" & vbCrLf & vbCrLf & j & "条短信发送失败"
End If
Label1.Caption = Label1.Caption & vbCrLf & vbCrLf & Now()
Timer1.Enabled = True

Else
MsgBox "请先打开短信设备"
Exit Sub
End If

Exit Sub

conn_error:
MsgBox ("连接服务器失败，请检查IP地址！")
Command1.Enabled = True
End Sub

在以上代码中我要实现让他自动检测数据库表然后发送信息!哪里需要改进呢? 谢谢各位!
现在状况只能开启一次 检测一次 发送一次!
...全文
61 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
zmrok 2008-03-28
你这个写得好乱,自动收发怎么写得那么麻烦?
建议你将发送短信并改变数据库的值写成一个函数,
刚好我做了一个自动接收的程序,可以给你一点参考
Private Sub FAutoRecive() '---------自动接收信息
If isBusy = True Then
MsgBox "设备繁忙..."
Exit Sub
End If
'-----------------------------------------------
StatusBar1.Panels(2).Text = "正在执行自动接收短信..."
setGrid1
Timer1.Interval = 6000
isBusy = True

End Sub
Private Sub Timer1_Timer()
On Error GoTo errbFRcive
' If isOK = False Then
' MsgBox "设备初始化失败。"
' Exit Sub
' End If
' If isBusy = True Then
' StatusBar1.Panels(2).Text = "设备处于繁忙状态..."
' Exit Sub
' End If
' isBusy = True
'-----------------------------------------获得一个随机UUID

'---------接收短信
FMsgRecive strUUID
'-----------------
Exit Sub
errbFRcive:
StatusBar1.Panels(2).Text = Err.Description
End Sub
 回复 赞
kevin520bj 2008-03-28
我就从新拖了一个Timer控件!
在事件里面写了command1_chick()事件里的东西!
 回复 赞
kevin520bj 2008-03-28
Private Sub Command1_Click()

If txtServer.Text = "" Then
MsgBox ("请输入服务器IP地址！")
Exit Sub
End If

serverIP = txtServer.Text
Call Conn1_serverIP

If Jindi.IsOpen Then


Command1.Enabled = False
Label1.Caption = "正在运行" & vbCrLf & vbCrLf & Now()
Label1.Refresh

Timer1.Enabled = False

Dim SQL As String
On Error GoTo conn_error
Call Conn_Open
SQL = "select * from sms where status=0"
rs.Open SQL, conn, 3, 3
k = 0
Do While Not rs.EOF


If Jindi.SendMsg(rs("to_number"), rs("content")) = 0 Then
rs("status") = 1
rs("finish_time") = Now()
rs.Update
rs.MoveNext
i = i + 1

Else
If k < 2 Then
If Jindi.SendMsg(rs("to_number"), rs("content")) = 0 Then
rs("status") = 1
rs("finish_time") = Now()
rs.Update
rs.MoveNext
i = i + 1
k = 0
Else
k = k + 1
End If
Else
rs("status") = 2
rs("finish_time") = Now()
rs.Update
rs.MoveNext
j = j + 1
End If
End If

Label1.Caption = "正在运行 已成功发送" & i & "条短信" & vbCrLf & vbCrLf & Now()
Label1.Refresh
Sleep (1000)

Loop

Call Conn_Close

Label1.Caption = "正在运行 已成功发送" & i & "条短信"
If j <> 0 Then
Label1.Caption = Label1.Caption & "，" & vbCrLf & vbCrLf & j & "条短信发送失败"
End If
Label1.Caption = Label1.Caption & vbCrLf & vbCrLf & Now()
Timer1.Enabled = True

Else
MsgBox "请先打开短信设备"
Exit Sub
End If

Exit Sub

conn_error:
MsgBox ("连接服务器失败，请检查IP地址！")
Command1.Enabled = True
End Sub

Private Sub Timer2_timer()
If txtServer.Text = "" Then
MsgBox ("请输入服务器IP地址！")
Exit Sub
End If

serverIP = txtServer.Text
Call Conn1_serverIP

If Jindi.IsOpen Then


Command1.Enabled = False
Label1.Caption = "正在运行" & vbCrLf & vbCrLf & Now()
Label1.Refresh

Timer2.Enabled = False

Dim SQL As String
On Error GoTo conn_error
Call Conn_Open
SQL = "select * from sms where status=0"
rs.Open SQL, conn, 3, 3
k = 0
Do While Not rs.EOF


If Jindi.SendMsg(rs("to_number"), rs("content")) = 0 Then
rs("status") = 1
rs("finish_time") = Now()
rs.Update
rs.MoveNext
i = i + 1

Else
If k < 2 Then
If Jindi.SendMsg(rs("to_number"), rs("content")) = 0 Then
rs("status") = 1
rs("finish_time") = Now()
rs.Update
rs.MoveNext
i = i + 1
k = 0
Else
k = k + 1
End If
Else
rs("status") = 2
rs("finish_time") = Now()
rs.Update
rs.MoveNext
j = j + 1
End If
End If

Label1.Caption = "正在运行 已成功发送" & i & "条短信" & vbCrLf & vbCrLf & Now()
Label1.Refresh
Sleep (1000)

Loop

Call Conn_Close

Label1.Caption = "正在运行 已成功发送" & i & "条短信"
If j <> 0 Then
Label1.Caption = Label1.Caption & "，" & vbCrLf & vbCrLf & j & "条短信发送失败"
End If
Label1.Caption = Label1.Caption & vbCrLf & vbCrLf & Now()

Timer2.Interval = 1000 //补充的

Timer2.Enabled = True


Else
MsgBox "请先打开短信设备"
Exit Sub
End If

Exit Sub

conn_error:
MsgBox ("连接服务器失败，请检查IP地址！")
Command1.Enabled = True
End Sub


高手在看下!我这样改对吗? 谢谢啊 !我真的快疯了!
 回复 赞
zmrok 2008-03-28
你应该把command_click里的语句放到Timer1_Timer()事件里,再给Timer1的
timer1.Interval设成你想要的值
 回复 赞
zmrok 2008-03-28
这个不关设备的事情,是timer里的事件逻辑没有处理好
 回复 赞
DoemingRau 2008-03-27
更正一下
PUB SUB TIMER 'timer事件（我忘记了是什么，暂用这个代替）

strSql="select msg,phonenum from TBL_MSG ORDER BY msdSendTime "
con.open rs,strsql
if rs.eof=true and rs.bof=true then
else
发送短信
更新短信状态

endif
END SUB
 回复 赞
DoemingRau 2008-03-27
timer控件不是用来检测有多少条态为0的记录，而是只要查到有一条就立即调用SEND函数
PUB SUB TIMER 'timer事件（我忘记了是什么，暂时这么些）

strSql="select msg,phonenum from TBL_MSG ORDER BY msdSendTime "

con.open rs,strsql
if rs.eof=true and rs.bof=true then
else
发送短信
endif

‘更新短信状态
update（）

END SUB
 回复 赞
kevin520bj 2008-03-27
timer控件有!但他是控制的查询一次有多少条状态为0的记录!
当第二次就不起作用了!代码中有!
您觉得这timer控件写的什么位置合适?
 回复 赞
DoemingRau 2008-03-27
我以前就是用金笛的短信控件帮公司做了一个短信群发的服务端，短信客户端控件，可惜的是我U盘被人偷了，
你应该放置一个TIME控件，每隔多少时间去检测数据库中状态为0的短信，然后发送出去，失败了，更新
下短信标志位，成功的话，更新一个标志位。
 回复 赞
shakoe 2008-03-27
你不会自己调试么。

别人设备都没怎么帮你分析
 回复 赞
相关推荐
就一行代码字符串相加不成功求各位高手帮忙看看 前两天在用Canvas实现一个绘制路径的小功能。做完之后发现加以完善可以“复刻”一下PS里面的钢笔工具。 PS里的钢笔工具对我来说是PS中最好用的工具！ 所以本文主要介绍如何用Canvas来实现Photoshop中的钢笔工具 需求...
推荐一本写给IT项目经理的好书 推荐一本写给IT项目经理的好书 原文：http://www.cnblogs.com/cbook/archive/2011/01/19/1939060.html 清理电脑,十数年来,无数资料,近来每天抽空好好整理整理, 做IT的特别是整ERP的,四个字形容:命苦可怜.发现本...
我的回忆和有趣的故事 by李维（台湾） 我的回忆和有趣的故事 by李维（台湾）
IT公司速查手册的各大IT公司薪资和待遇内幕 IT公司速查手册的各大IT公司薪资和待遇内幕 （原文地址：http://blog.csdn.net/china_video_expert/article/details/7213306 ）   编号   1. 杭州 诺基亚   2. 南京 趋势科技 Trend   3. 北京 联想...
看你努力了吗？ 　实习的时候一个月8天8夜没睡觉 人瘦倒70多斤，我160 　工作了加班倒夜里2点。。  2. 最拼命的时候大概就是几年前考研的时候了，我的本科是全排300名开外的学校，然后到了大三升大四的时候，突然说考研，我就...
来自IT公司速查手册的各大IT公司薪资和待遇内幕 来自IT公司速查手册的各大IT公司薪资和待遇内幕
梦成真——一个普通学校计算机系学生的出国梦 2月24 号，周四，正如看手相那个人跟我说的...至此，我才有勇气去为这一路写一个总结，向自己微笑。。为了这一天，我付出了太多太多。这一路上，帮助过我的人太多太多。关于过去这四年。。。有很多很多话想说。。。。。
修炼一名程序员的职业水准 程序就是一系列按步骤进行的操作序列，它有好多种级别，比如最低级的微程序、次低级的汇编程序、高级的各种编程语言程序、最高级的脚本语言程序，也许我列的不对，但没关系，我要...因此如果一个程序员的逻辑能力不高，
【找工作必读】来自IT公司速查手册的各大IT公司薪资 编号 1. 杭州 诺基亚 2. 南京 趋势科技 Trend 3. 北京 联想（北京）有限公司 4. 深圳 华为 5. 深圳 中兴通讯 6. 上海 SAP 7. 上海 盛大网络 8. 北京 金山公司 9. 北京 用友软件 10.深圳 金蝶软件 11....
【经典箴言 || 人生感悟 】//wodeganwu3034 == 8. 回溯做过的事情，如Review自己曾经写过的代码或者设计，... 人的一生中只有七次机会，平均每七年拥有一次，大概在25岁到75岁，第一次通常抓不到，因为太年轻，最后一次也抓不到，因为太老。中途还有2次因为自己错过，所以抓不到...一个人如果素质不好，行为不好，那么即使你再...
系分考试论文实例12篇 3月4日 -3月7日加入组员： LEO，蒋彪，草籽，Albert，狮子头，小狐狸的樱桃，春林 ...系分论文1 企业人事信息系统的应用 【摘要】 本文讨论《企业人事信息系统》项目的需求分析方法与工...
一本你必须知道的.net 《你必须知道的.NET》 作者简介：王涛 微软C# MVP，高级软件工程师，机械工程硕士，主要研究方向为.NET底层架构和企业级系统应用。现就职于某软件公司负责架构设计、软件开发和项目管理方面的工作。...
文章标题 【转】修炼一名程序员的职业水准 原文：http://weimou66.iteye.com/blog/1416993程序就是一系列按步骤进行的操作序列，它有好多种级别，比如最低级的微程序、次低级的汇编程序、高级的各种编程语言程序、最高级的...
最拼命最努力的时候(转) 1.读书高考的时候吃饭都在背题　实习的时候一个月8天8夜没睡觉 人瘦倒70多斤，我160　工作了加班倒夜里2点。。 2. 最拼命的时候大概就是几年前考研的时候了，我的本科是全排300名开外的学校，然后到了大三升大四的...
软件项目管理 目 录 前言 2 如何做业务调研？ 2.1 调研工作如何组织？ 2.2 调研准备阶段容易犯哪些错误？ 2.3 调研准备阶段容易犯哪些错误？) 2.4 调研准备阶段容易犯哪些错误？...2.5 现场调研阶段容易犯哪些错误？...
PPT模板下载 PPT模板下载我只是想要点积分啊　
vue-devtools chrome 插件 chrome（谷歌浏览器）vue代码调试插件， 已打包。解压后，通过chrome扩展程序加载即可使用。 使用方法： 1、chrome浏览器输入地址“chrome://extensions/”进入扩展程序页面 2、勾选开发者模式 3、点击“加载已解压的扩展程序...”按钮，选择解压后的chrome文件夹，即可添加成功。 4、添加完vue-devtools扩展程序之后，我们在调试vue应用的时候，ch rome开发者工具中会看一个vue的一栏，点击之后就可以看见当前页面vue对象的一些信息
linux网络内核书合集06 本合集是本人搜集的关于linux网络内核的书籍，都是经典，包含：（1）Linux网络体系结构：Linux内核中网络协议的设计与实现.chm （2）Linux网络内核分析与开发.pdf （3）嵌入式Linux网络体系结构设计与TCP／IP协议栈.pdf （4）深入理解LINUX网络技术内幕.pdf 第一本是英文版chm格式，其余三本均为中文版，扫描清晰
tera term 4.72源代码 tera term 是一款开源的的串口通讯软件,功能强大,而且开源,是windows下连接linux设备的首选软件
rtl8188eu_USB_linux.tar.gz TP-LINK TL-WN725N V2 Linux 驱动安装
24个带后台的小程序源码 24个带有后台的小程序源码下载,供大家交流学习(后台语言多种)
cisco路由器手册 这是从网络搜集的cisco路由器配置手册1-20册，和ios配置命令
敏捷软件开发－原则、模式与实践.pdf 本书讲授了一些原则、模式以及实践，它们可以帮助软件开发人员在追求美的程序、设计以及团队的道路上迈出第一步。本书探索了基本的设计原则，软件设计结构的通用模式以及有利于团队融为一个有机整体的一系列实践。本书包含了许多代码，仔细研读这些代码是学习本书所教授的原则、模式及时间的最有效方法
sqlcipher.rar打开微信数据库 sqlcipher gui版本和命令行版本 可以打开android微信加密的数据库， 亲测可用！
MFC上位机与STM32下位机通讯精讲 本课程主要介绍C++类库MFC上位机与STM32单片机的RS232、RS422、RS485、USB、LWIP以太网、CAN等接口进行稳定通信。课程主要从MFC和STM32基础开始，以编写上位机以及下位机为主，非常注重实践。 本课程主要目标是让大家学会MFC上位机的编程、STM32下位机编程。单单的会上位机或者下位机有时候体会不到通讯的乐趣，如果你单单会下位机，你学了本课程，你可以把你的数据以任何方式在windows上呈现出来，如果你只会上位机，你学了本课程你可以通过windows的串口、以太网、USB控制任何硬件设备。本课程的目标就是补偿大家的短处，让大家成为综合性人才，同时让大家体会到通讯中的更多乐趣。
juniper路由器学习资料 从网络搜集的关于juniper的资源，包含 fru-mx960-acoustic.pdf fru-mx960-cable-manager.pdf JNCIA_学习指南中文.pdf Juniper_EX交换机中文操作手册V1.0.pdf Juniper_MX_路由器介绍.pdf Juniper_MX960配置模板v1.2.docx Juniper_netscreen.ppt Juniper路由器（M10i）配置手册.pdf Juniper路由器命令行配置手册.pdf Juniper路由器实验手册.pdf junos-cli.pdf junos-release-notes-13.3.pdf mx960-hwguide.pdf mx960-install-quick-start.pdf MX960操作维护介绍.pdf MX960路由器操作手册.pdf mx-series-line-card-guide.pdf
中国象棋人工智能论文集 这是本人收集的有关中国象棋人工智能的论文集 2009计算机博弈专辑文章.pdf Computer Games Are an Efficient Tool for Event Game Theory.pdf MINORS HASH TABLE IN COMPUTER CHINESE CHESS.pdf 中国象棋机器博弈的时间自适应分配策略研究.pdf 中国象棋计算机博弈中搜索算法的研究与改进.pdf 中国象棋计算机博弈关键技术分析.pdf 人工神经元网络结合TD(λ)算法在中国象棋机器博弈中的应用.pdf 博弈论的里程碑成果与局限性分析.pdf 基于剪枝策略的中国象棋搜索引擎研究.pdf 基于机器博弈的作战模拟系统探讨.pdf 大师级象棋机器人研究与开发.pdf 机器博弈研究面临的各种挑战.pdf 棋牌游戏与事件对策.pdf 积极开展民间棋类的计算机博弈活动.pdf 解剖大象的眼睛-中国象棋开发.pdf 计算机博弈原理与方法学概述.pdf
（2,1,6）卷积码的维特比译码 标准（2,1,6）卷积码及其删除码的维特比译码，可以自动判断模糊、码率
C语言大型软件设计的面向对象 C语言代码一旦达到一定规模，就特别强调良好的架构设计，以保证代码的可读性好、代码简洁以及可复用。此时，软件设计师势必要用C语言来做面向对象的设计。不能克服面向对象这一关，也是很多人无法读懂Linux内核、驱动等架构比较庞大的软件的主要技术壁垒之一，因为这些软件里面充满了对象式的设计。 本课程以案例来详细讲解，用C语言如何设计面向对象的程序。 本课程以案例来详细讲解，用C语言教大家如何设计面向对象的程序。
时间线js 根据时间进度 显示节点位置 时间线js 根据时间进度 显示节点位置 可用于项目跟踪等 页面显示 本人所写 有问题找本人
发帖
VB基础类
创建于2007-09-28

7490

社区成员

19.7w+

社区内容

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-26 05:56
社区公告
暂无公告