一个简单的网页游戏源码

社区服务
高级搜索
猴岛论坛电脑百科一个简单的网页游戏源码
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
« 返回列表
13个回复

一个简单的网页游戏源码

 楼层直达
つ　　兔大白。

ZxID：13942109

等级: 中尉
接D单,可封,可压.特价中...  50G以内封的200/秒解轮训400.  需要的 ..

举报 只看楼主 使用道具 楼主   发表于: 2012-01-14 0
别人让我写的，
我也不知道他是要做什么
代码如下。

复制代码
  1. .版本 2
  2. .支持库 shell
  3. .支持库 HtmlView
  4. .支持库 EThread
  6. .程序集 窗口程序集1
  7. .程序集变量 网页操作, 普通填表
  9. .子程序 _按钮_登录_被单击
  11. .如果 (编辑框_登录_账号.内容 ＝ “”)
  12.     信息框 (“请输入您的帐号.”, 0, )
  13. .否则
  14.     .如果 (编辑框_登录_密码.内容 ＝ “”)
  15.         信息框 (“请输入您的密码.”, 0, )
  16.     .否则
  17.         写配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “帐号”, 编辑框_登录_账号.内容)
  18.         写配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “密码”, 编辑框_登录_密码.内容)
  19.         写配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “记住密码”, “是否记住”, “T”)
  20.         写配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “游戏大区”, “线”, 编辑框_登录_大区.内容)
  21.         _启动窗口.可视 ＝ 假
  22.         载入 (游戏窗口, , 真)
  23.     .如果结束
  25. .如果结束
  28. .子程序 _选择框_记住密码_被单击
  30. 写配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “帐号”, 编辑框_登录_账号.内容)
  31. 写配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “密码”, 编辑框_登录_密码.内容)
  32. 写配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “记住密码”, “是否记住”, “T”)
  33. 写配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “游戏大区”, “线”, 编辑框_登录_大区.内容)
  35. .子程序 __启动窗口_创建完毕
  37. 编辑框_登录_账号.内容 ＝ 读配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “帐号”, “”)
  38. 编辑框_登录_密码.内容 ＝ 读配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “密码”, “”)
  39. 编辑框_登录_是否记住.内容 ＝ 读配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “记住密码”, “是否记住”, “F”)
  40. 编辑框_登录_大区.内容 ＝ 读配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “游戏大区”, “线”, “”)
  41. 编辑框_登录_是否自动登录.内容 ＝ 读配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “是否自动登录”, “自动登录”, “F”)
  42. .如果 (编辑框_登录_是否记住.内容 ＝ “T”)
  43.     选择框_记住密码.选中 ＝ 真
  44. .否则
  46. .如果结束
  48. .如果 (编辑框_登录_是否自动登录.内容 ＝ “T”)
  49.     选择框_自动登录.选中 ＝ 真
  50.     _按钮_登录_被单击 ()
  51. .否则
  53. .如果结束
  55. 创建快捷方式 (取特定目录 (3) ＋ “\” ＋ _启动窗口.标题 ＋ “.ink”, 取当前目录 () ＋ 取执行文件名 (), , , )
  57. .子程序 _选择夹1_被单击
  59. 编辑框_注册_帐号.获取焦点 ()
  60. 超文本浏览框_帐号注册.地址 ＝ “http://www.37wan.com/users/register.php”
  63. .子程序 _按钮_注册_注册帐号_被单击
  65. 启动线程 (&POST提交_注册帐号, , )
  67. .子程序 POST提交_注册帐号, 逻辑型, , ⊙⊙本代码由精易会员专用浏览器生成
  68. .局部变量 局_提交地址, 文本型
  69. .局部变量 局_提交数据, 文本型
  70. .局部变量 局_返回文本, 文本型
  72. 局_提交地址 ＝ “http://www.37wan.com/users/register.php”
  73. 局_提交数据 ＝ “action=save&login_account=” ＋ 编辑框_注册_帐号.内容 ＋ “&password=” ＋ 编辑框_注册_密码.内容 ＋ “&password1=” ＋ 编辑框_注册_确认密码.内容 ＋ “&email=” ＋ 编辑框_注册_电子邮件.内容 ＋ “&username=” ＋ 编辑框_注册_真实姓名.内容 ＋ “&id_card_number=” ＋ 编辑框_注册_身份证号.内容 ＋ “&refer=&redirect=”
  74. 局_返回文本 ＝ 到文本 (网页_访问 (局_提交地址, 1, , , 局_提交数据, ))  ' 最后一个参数为返回的编码方式
  75. .判断开始 (寻找文本 (局_返回文本, “alert('璇疯緭鍏ユ纭殑韬唤璇佸彿鐮侊紒');”, , 假) ≠ -1)
  76.     信息框 (“注册成功.”, 0, )
  77.     标签_注册_成功状态.标题 ＝ “注册结果为：注册帐号成功.”
  78.     标签_注册_成功状态.文本颜色 ＝ #绿色
  79.     返回 (真)
  80. .判断 (寻找文本 (局_返回文本, “alert('璇疯緭鍏?8浣嶈韩浠借瘉鍙风爜锛?)”, , 假) ≠ -1)
  81.     信息框 (“注册失败.请尝试修改您的注册信息后在提交.”, 0, )
  82.     标签_注册_成功状态.标题 ＝ “注册结果为：注册帐号失败.”
  83.     标签_注册_成功状态.文本颜色 ＝ #红色
  84.     返回 (假)
  85. .默认
  86.     输出调试文本 (局_返回文本)  ' 如果前面2个没判断成功，把返回文件输出来
  87. .判断结束
  88. 返回 (假)
  90. .子程序 _选择框_自动登录_被单击
  92. .如果 (选择框_自动登录.选中 ＝ 真)
  93.     写配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “是否自动登录”, “自动登录”, “T”)
  94. .否则
  95.     写配置项 (取特定目录 (1) ＋ “37wan傲视遮天帐号密码配置文件.37wannapw”, “是否自动登录”, “自动登录”, “F”)
  96. .如果结束








复制代码
  1. .版本 2
  2. .支持库 eAPI
  3. .支持库 HtmlView
  4. .支持库 EThread
  6. .程序集 窗口程序集2
  8. .子程序 _游戏窗口_将被销毁
  10. .如果真 (信息框 (“1.如果您要切换帐号请点【否钮】” ＋ #换行符 ＋ “2.如果您要结束游戏请点【是钮】”, 3, “您要执行那个操作?”) ＝ #否钮)
  11.     _启动窗口.可视 ＝ 真
  12.     _启动窗口.宽度 ＝ 340
  13.     _启动窗口.高度 ＝ 240
  14.     销毁 ()
  15.     返回 ()
  16. .如果真结束
  17. 终止进程 (取执行文件名 ())
  18. 结束 ()
  21. .子程序 _游戏窗口_创建完毕
  23. _启动窗口.宽度 ＝ 取用户区宽度 ()
  24. _启动窗口.高度 ＝ 取用户区高度 ()
  25. 超文本浏览框1.高度 ＝ 游戏窗口.高度 － 5
  26. 超文本浏览框1.宽度 ＝ 游戏窗口.宽度 － 5
  27. .如果真 (信息框 (“是否登录您的帐号?”, 4, “登陆么?”) ＝ #是钮)
  28.     子程序执行POSt ()
  29. .如果真结束
  34. .子程序 _游戏窗口_尺寸被改变
  36. 超文本浏览框1.高度 ＝ 游戏窗口.高度 － 5
  37. 超文本浏览框1.宽度 ＝ 游戏窗口.宽度 － 5
  40. .子程序 POST提交_登录游戏, 逻辑型, , ⊙⊙本代码由精易会员专用浏览器生成
  41. .局部变量 局_提交地址, 文本型
  42. .局部变量 局_提交数据, 文本型
  43. .局部变量 局_返回文本, 文本型
  45. 局_提交地址 ＝ “http://aszt.37wan.com/login.php?action=loginGame”
  46. 局_提交数据 ＝ “login_account=” ＋ _启动窗口.编辑框_登录_账号.内容 ＋ “&password=” ＋ _启动窗口.编辑框_登录_密码.内容
  47. 局_返回文本 ＝ 到文本 (网页_访问 (局_提交地址, 1, , , 局_提交数据, ))  ' 最后一个参数为返回的编码方式
  48. .判断开始 (寻找文本 (局_返回文本, “true”, , 假) ≠ -1)
  49.     超文本浏览框1.地址 ＝ “http://aszt.37wan.com/game_login.php?server=S” ＋ _启动窗口.编辑框_登录_大区.内容
  50.     返回 (真)
  51. .判断 (寻找文本 (局_返回文本, “鎮ㄨ緭鍏ヤ簡閿欒鐨勫瘑鐮侊紒”, , 假) ≠ -1)
  52.     返回 (假)
  53. .默认
  54.     输出调试文本 (局_返回文本)  ' 如果前面2个没判断成功，把返回文件输出来
  55. .判断结束
  56. 返回 (假)
  58. .子程序 子程序执行POSt
  60. 启动线程 (&POST提交_登录游戏, , )
  62. .子程序 _超文本浏览框1_即将跳转, 逻辑型
本帖de评分： 共 1 条评分 ＤＢ +3
ＤＢ+3 2012-01-15

-
隐藏
打赏 收藏 新鲜事

相关主题

接D单,可封,可压.特价中...

30G以内封的200/秒解轮训400.

50G以内封的400/秒解轮训800.

需要的请联系我：550370421

接cc单,有单速度丢,

另出一套cc工具,

出肉鸡位置,出正规扫描服务器/爆破服务器

带徒弟,不免费,教技术,骗测试滚蛋,没钱不办事!

教攻击,教免杀,教Linux知识,教攻击类部分技术!

接打各种IP, 机房,网吧,宽带,游戏,(正规合法不接)
回复 引用
　 鲜花[0]　 鸡蛋[0]
撸管小王子

ZxID：15036773

等级: 大尉
什么是神马

举报 只看该作者 沙发   发表于: 2012-01-14 0
完全看不懂
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
最冷酷的微笑

ZxID：16578875

等级: 大校
。

举报 只看该作者 板凳   发表于: 2012-01-14 0
当我不存在吧
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
爱国者·权小熙

ZxID：19232209

等级: 少尉
举报 只看该作者 地板   发表于: 2012-07-27 0
           以前看贴总是不回，一直没提升等级和经验  

现在俄明白了！！

反正回贴可以升级  !

也可以赚经验跟DB 而升级又需要经验跟DB  

我就把这句话复制下来  
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
宅男~

ZxID：19141997

等级: 上校
举报 只看该作者 4楼  发表于: 2012-07-27 0
什么意思？
看不懂
你直接源码!
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
つ低调渲染那一抹

ZxID：16947523

等级: 少尉
举报 只看该作者 5楼  发表于: 2012-07-27 0
谢谢大家支持
本文来自猴岛游戏论坛 ：http://bbs.houdao.com/r6155899_u16947523/
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
誓言是蛊惑

ZxID：17237691

等级: 上尉
举报 只看该作者 6楼  发表于: 2012-07-27 0
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
败★TV

ZxID：18465989

等级: 中校
我的官大吗？
举报 只看该作者 7楼  发表于: 2012-07-27 0
是什么啊？

际遇之神

 奖励

版主上厕所忘带手纸，败★TV高价转让手纸，得5ＤＢ
不会弄·－　－
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
hticm_77

ZxID：18089351

等级: 中士
Seven.
举报 只看该作者 8楼  发表于: 2012-07-27 0
大哥......这是什么...
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
爱国者·权小熙

ZxID：19232209

等级: 少尉
举报 只看该作者 9楼  发表于: 2012-07-28 0
            以前看贴总是不回，一直没提升等级和经验  

现在俄明白了！！

反正回贴可以升级  !

也可以赚经验跟DB 而升级又需要经验跟DB  

我就把这句话复制下来  
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
″搁浅唯

ZxID：19550955

等级: 下士
举报 只看该作者 10楼  发表于: 2013-01-01 0
果断，，，源码发来
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
_都滚”

ZxID：17492876

等级: 上等兵
举报 只看该作者 11楼  发表于: 2013-06-01 0
发热我我我我我我我我我我我我问过舒服是个
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
qq_1342063278

ZxID：18844995

等级: 列兵
举报 只看该作者 12楼  发表于: 2013-06-01 0
反正回贴可以升级

也可以赚经验跟DB 而升级又需要经验跟DB  

我就把这句话复制下来  

遇贴就回，捞DB就闪
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
« 返回列表
发帖 回复