三国杀携带版 1.2（单文件便携三国杀OL,开源,1月23日更新）

benladen

简介：程序内调用三国杀官方网页版（FLASH）进行游戏，方便携带，不用记网址了。还有截图、控制音量、老板键等功能。帮助中附有常用网址，可以直接进入。单文件，方便U盘携带。

支持的话，请多多评分

1.1修正高分辨率情况下显示问题。

1.2修正截图保存文件名的问题。

被批评技术含量不高，就是方便自己使用的东西……附上源码吧，一起交流。

三国杀携带版1.2.rar (515.48 KB, 下载次数: 448)

2011-1-24 12:11 上传

点击文件名下载附件

.版本 2
.支持库 xplib
.支持库 shellEx
.支持库 eMMedia
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 左音量, 整数型
.程序集变量 右音量, 整数型
.程序集变量 最大音量, 整数型
.程序集变量 F, Flash播放类
.程序集变量 F1, 整数型
.程序集变量 F5, 整数型

.子程序 __启动窗口_创建完毕

XP风格 (1)
_启动窗口.宽度 ＝ 1020
F1 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签10.取窗口句柄 (), 0, #F1键)
F5 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签10.取窗口句柄 (), 0, #F5键)
系统音量1.打开 (4)
最大音量 ＝ 系统音量1.取最大音量 ()  
系统音量1.取音量 (左音量, 右音量)  
滑块条1.位置 ＝ 到整数 ((左音量 ＋ 右音量) ÷ 2 × 100 ÷ 最大音量 ＋ 1)  
F.窗口_创建 (_启动窗口.取窗口句柄 (), 7, 10, 1000, 600, 1, , )

.子程序 _运行游戏_被选择

F.载入_Flash文件 (“http://web.sanguosha.com/SGSLoaderV5.swf”, , )

.子程序 _关闭游戏_被选择

.如果 (信息框 (“您确定要关闭游戏吗吗？请不要在每局游戏开始后关闭！”, #警告图标 ＋ #是否钮, “警告”) ＝ #是钮)
    F.控制_清除已载入文件 ()

.否则

.如果结束

.子程序 _截图_被选择
.局部变量 矩形, 矩形数据
.局部变量 新图, 字节集

矩形.右边 ＝ 1000
矩形.底边 ＝ 600
通用对话框1.默认文件后缀 ＝ “jpg”
通用对话框1.过滤器 ＝ “图片文件|*.jpg;*.gif;*.png”
.如果 (通用对话框1.打开 () ＝ 真)
    转换图像格式 (截取窗口区域 (F.窗口_取句柄 (), 矩形), 2, 新图)
    写到文件 (通用对话框1.文件名, 新图)
.否则

.如果结束

.子程序 __启动窗口_可否被关闭, 逻辑型

.如果 (信息框 (“您确定要退出三国杀小助手吗？”, #警告图标 ＋ #是否钮, “警告”) ＝ #是钮)
    返回 (真)
.否则
    返回 (假)
.如果结束

.子程序 _退出_被选择

.如果 (信息框 (“您确定要退出三国杀小助手吗？”, #警告图标 ＋ #是否钮, “警告”) ＝ #是钮)
    销毁 ()
.否则

.如果结束


.子程序 _系统静音_被选择

.如果 (系统静音.选中 ＝ 假)
    系统静音.选中 ＝ 真
    系统音量1.置静音 (真)

.否则
    系统音量1.置静音 (假)
    系统静音.选中 ＝ 假
.如果结束


.子程序 _游戏充值_被选择

彗星打开指定网址 (“https://pay.sdo.com/index.aspx?type=neworder&sel_game=205”)

.子程序 _卡牌资料_被选择

彗星打开指定网址 (“http://www.sanguosha.com/web2/ziliao/ziliao_1_2.asp”)

.子程序 _功勋官职_被选择

彗星打开指定网址 (“http://www.sanguosha.com/web2/ziliao/ziliao_1_10.asp”)

.子程序 _战功称号_被选择

彗星打开指定网址 (“http://www.sanguosha.com/web2/ziliao/ziliao_1_11.asp”)

.子程序 _三国杀主页_被选择

彗星打开指定网址 (“http://www.sanguosha.com/web2/index.asp”)

.子程序 _三国杀论坛_被选择

彗星打开指定网址 (“http://bbs.sanguosha.com/”)

.子程序 _关于_被选择

载入 (关于窗口, , 真)

.子程序 _滑块条1_位置被改变

系统音量1.置音量 (最大音量 × 滑块条1.位置 ÷ 100, 最大音量 × 滑块条1.位置 ÷ 100)

.子程序 _选择框1_被单击

系统音量1.置静音 (选择框1.选中)

.子程序 _标签10_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型


.如果真 (参数一 ＝ F1)
    _截图_被选择 ()
.如果真结束

.如果真 (参数一 ＝ F5)
    .如果 (_启动窗口.可视)
        _启动窗口.可视 ＝ 假
    .否则
        _启动窗口.可视 ＝ 真
    .如果结束

.如果真结束



.子程序 _按钮2_被单击

.如果 (_启动窗口.可视)
    _启动窗口.可视 ＝ 假
.否则
    _启动窗口.可视 ＝ 真
.如果结束


.子程序 _作者主页_被选择

彗星打开指定网址 (“http://www.mtao.cn”)

.子程序 _按钮1_被单击

_截图_被选择 ()

roxiel

好东西 支持啊~~

疯狂的猪猪

汗 三国杀有那么好玩吗？没玩过

c203770116

支持啊,就不用下载三国杀了,可以随时玩~~~~~~~~

zrq19850918

不错，谢谢分享了

博弈

很方便哦。。。

guo789

顶一个,谢谢分享,学习了!

wxf

这游戏很火，可惜不会玩

tmg99

谢谢分享...顶一个