关于SIM卡上的STK开发,网上真是找不到相关的话题,看来这块由于技术含量低基本上无人关注或无需讨论了.
苦于本人最近做了一个BYTECODE开发工具,闲着也是闲着,想用它来换点银子.
如果有需要的人请和我联系.定价为 500RMB/License
P.S:虽然没技术含量不高,但也是提高效率的好帮手.
请遵重原创软件.谢谢
------解决方案--------------------
//Create by smart
//modify by lj
//2006-3-9 16:22
//2006-4-18 添加Clear(01 00) Clear(01 00)
//各种头文件的引用顺序不能错
#include <groupsms.h>
#include <autosms.h>
#include <superadn.h>
#include <extype.h>
#include <stdtype.h>
#include <call.h>
version SMART.lj.0006
language = GB2312
#define exitaid 00000000
#define exitstk ffffffff
#define norecord 91"无记录"
#define jieshouzhefull 91"接收者列表已满"
#define delete 91"是否删除?"
#define alreadydelete 91"已删除"
#define success 91"操作成功!"
#define zuiduo 91"临时号码最多为10个!"
#define msg0 91"短信群发完毕,共有"
#define msg1 "封发送失败,请查看接收者列表"
#define guoduo 91"所选接收者过多"
#define chenyuanman 91"成员已满"
#define fenzuman 91"分组已满"
#define deleteall 91"是否清空?"
#define saveok 91"已存储"
#define addnew 91"确认增加?"
#define addok 91"成功加入"
ORG 0
01C001 {
( "已有短信" )
FD [
( norecord )
( jieshouzhefull )
( delete )
( alreadydelete )
( success )
( zuiduo )
( msg0 )
( msg1 )
( guoduo )
( addok )
]
FA0000
000000 <
smartbegin:
Init_SMS_List( 卡内没有短信 )
back( exitaid )
Display_SMS_List( 提取短信内容 )
goto( $-- )
back( smartbegin )
提取短信内容:
Move_SMS_To_Editbuf( 00 )
编辑短信内容:
GetInputPro( 21 00 8d( 91"编辑内容:" )0172 0d0100 )
goto( 调用选择接收者子程序 )
back( exitaid )
卡内没有短信:
Display( 818D01 $norecord )
goto( exitaid )
调用选择接收者子程序:
longcall( this 清空接收者列表 this 编辑短信内容 )
>
A00000 <
清空接收者列表:
Clear_All_Recv( 01 )
goto( 中国人民万岁 )
longreturn()
back( $-- )
中国人民万岁:
SelectItem( 00 8F( 01"选择分组" ) 8f( 02"选择号码") 8F( 03"输入号码" ) )
>
A10000 < //选择分组
判断是否有分组:
Judge_Group_Is_NULL_Or_Full( 00 卡内没有分组 )
back( 中国人民万岁 )
显示分组列表:
Display_Groups_List()
Set_Group_Id()
Judge_Member_Is_NULL_Or_Full( 00 组内没有组员 )
Judge_Recv_Is_NULL_Or_Full( 00 32 所选分组成员过多所以不能加入 打倒日本帝国主义1 )
back( 中国人民万岁 )
卡内没有分组:
Display( 818D01 $norecord )
goto( 中国人民万岁 )
back( 显示分组列表 )
组内没有组员:
Display( 818D01 $norecord )
goto( 中国人民万岁 )
back( 中国人民万岁 )
所选分组成员过多所以不能加入:
Display( 818D01 $guoduo )
goto( 打倒日本帝国主义1 )
打倒日本帝国主义1:
call( 变态的脚本1 变态的脚本1 )
back( 显示分组列表 )