标签存档: REALbasic

iWangWang v0.3.0 Released

作者: 日期: 5月 23, 2010 25 条评论

在上一个版本发布之后，过了两个月的时间，终于又有一个可以发布的版本了。

使用菜单中的“检查更新”既可完成更新，或者前往 Google Code 下载。

这次的更新如下：

  • [FIX] 修正在 Snow Leopard 中无法在 Dock 上显示未读消息数目的bug
  • [FIX] 修正在网页中点击旺旺图标无法打开聊天窗口的bug
  • [FIX] 修正无法使用“指定发送”和“添加好友”功能的bug
  • [FIX] 修正表情选择框在一些情况下引起程序崩溃的bug
  • [FIX] 修正在聊天窗口中无法指定发送功能无法使用的bug
  • [FIX] 修正一些菜单无法在所有窗口中使用的bug
  • [NEW] 现在可以使用 Ctrl+N 同时运行多个 iWangWang 来实现同时登录多个淘宝帐号
  • [NEW] 现在如果聊天时消息发送失败，可以重新输入验证码
  • [NEW] 登录后会恢复上一次退出时主窗口的位置
  • [NEW] 表情选择框现在可以用 ESC 键关闭
  • [NOTE] 有bug可以在 http://code.google.com/p/iwangwang/issues/entry 提出

这次主要修正了 iWangWang 在 Snow Leopard 下的兼容性，之前的开发环境是 Leopard，没能在 …

阅读全文 »

iWangWang v0.1.2 for Mac 发布

作者: 日期: 3月 18, 2010 70 条评论

iWangWang 是一个在 Mac OS X 下使用的 Web 旺旺的客户端，使用 Mac 用户在淘宝购物时也可以方便地与卖家沟通，不需要每次打开 Web 旺旺，以及弥补 Web 旺旺不支持联系人列表及聊天记录的缺陷，并且目前只支持淘宝网帐号登录。

iWangWang 使用 REALbasic 编写，因为是基于 Web 旺旺的，所以 Web 旺旺不支持的功能 iWangWang 也没有实现，包括但不限于旺旺群、自定义表情、文件传送，并且和某一个联系人第一次聊天时，需要输入验证码。

注意：

  1. 这纯粹是我个人出于兴趣而制作的一个程序，与公司无关。
  2. 因为使用非公开接口，协议通过黑盒分析所得，因此有可能会由于 Web 旺旺修改通信协议而导致程序无法使用。
  3. 由于缺乏艺术细胞，因此程序界面仿照 MacQQ，如果觉得有内容侵犯了您的权利，请及时联系我修改，谢谢 :)
  4. 因为淘宝帐号涉及到金钱，所以如果不放心请不要使用这个程序 :)

如果有任何问题或建议，请联系 ohdarling88 # gmail dot com，或者点击菜单“文件》填写使用反馈”来填写反馈内容。

14:40 Update 更新下载链接，修正了接收带有自定义表情的消息时会导致程序崩溃的bug，如果已经下载，可以直接点击菜单“iWangWang > 检查更新”…

阅读全文 »

在 REALbasic 中注册 AppleEvent

作者: 日期: 1月 31, 2010 2 条评论

之前为了注册一个自定义协议，需要通过注册 AppleEvent 来实现，在 Objective-C 中，可以很方便的使用 NSAppleEventManager 来注册 AppleEvent 句柄，但是在 REALbaisc 中，是没有办法直接去调用 NSAppleEventManager 的，所以需要通过声明然后调用 C API 来实现相应的功能。

与 NSAppleEventManager 中功能相对应的 C API 有 AEInstallEventHandler, NewAEEventHandlerUPP 等，通过这些 API 我们也可以在 REALbasic 中来注册 AppleEvent 了，再配合 Info.plist 中的 URLScheme 声明，即可实现 URL 自定义协议处理句柄。

#if TargetCarbon
    soft declare function AEInstallEventHandler Lib CarbonLib ( _
    theAEEventClass as Integer,
…

阅读全文 »

REALbasic 中使用结构体作为 Win32 API 的参数及使用 Win32 API 停止服务

作者: 日期: 11月 10, 2009 没有评论

在之前，我使用 ShellExecute 这个 API 来执行命令（《REALbasic 中使用 ShellExecute 执行命令》），然后通过这个方法来停止某个服务，但是今天想加服务运行状态检测，这样就可以在服务没有运行的情况下不再询问用户是否需要停止某个服务。

为了省事，我一开始决定同样使用 cmd 去执行一个命令，将服务状态输出到一个临时文件中，再通过读取这个临时文件，查找特征字符串来判断服务是否运行：

// 伪代码
ShellExecute("cmd.exe /c sc query service_name > tmpfile")
dim serviceStatus as string
serviceStatus = TextInputStream.Open(tmpfile).ReadAll()
if instr(serviceStatus, "STOPPED") < 1 then
  // 提示用户是否停止服务
end if

但是这样做不太靠谱，因为 sc 这个命令执行是要时间的，而 ShellExecute 是异步的，这就导致了在调用 ShellExecute 执行完 sc query 之后，临时文件 tmpfile 里并不是马上就有服务状态的内容了。

为了防止这个情况，我再加了一个临时文件内容的检测，如果为空的话，sleep …

阅读全文 »

Chromium Updater for Mac

作者: 日期: 11月 7, 2009 1 条评论

图片附件为了随时更新到 Chromium 的最新 nightly build，又不想每次去 Chromium 的网站下，还有解压，移动，麻烦……为了省事，直接用 REALbasic 写了一个 Chromium Updater，专门用来更新 Chromium。目前只支持 Mac :)

详细说明

下载（使用右键下载）：ChromiumUpdater (3.5M)

图片附件

关于 REALbasic 中使用 AutoDiscovery 时发生错误 40 的问题

作者: 日期: 11月 2, 2009 没有评论

今天在使用 AutoDiscovery 发送数据时，发生了错误码为 40 的错误，直接在 UDPSocket 的属性列表里找了一下，没有找到对应的错误码。

在网上搜了一下，找到这篇帖子，里面提到在发送大量数据时，UDPSocket 就会报错误，并且这个错误没有在文档中提到，因此这应该是一个系统级别的错误。

MonkeybreadSoftware 提到了 unix 的错误码定义：

#define    EMSGSIZE    40     /* Message too long */

联想到在程序中是在今天开始有问题的，而且今天添加了一大堆数据，看来的确是同于 UDP 消息过大造成的错误 40。

在网上找了找，使用 UDP 发送消息时，报文的大小最好不要超过 MTU，否则会就容易丢包。我在测试时是使用的 127.0.0.1，包大小为 12.5K，照理说应该是直接走 loopback 而不需要走路由的，就算超过 MTU 也应该能发送，不清楚是不是因为 OS 内部实现机制的问题。

为了彻底解决这个问题，最后还是采用了 TCP 来传递大量数据，只使用 UDP 来传递一些控制信息。

REALbasic 中使用 ShellExecute 执行命令

作者: 日期: 10月 16, 2009 7 条评论

在 REALbasic 中，如果需要执行 cmd 命令，可以直接使用 Shell 类，但是这样的话，编译成 Windows 程序时会额外需要一个 Shell.dll 的动态链接库，这对于我这样的 1exe 爱好者是不能忍受的。但是对于 Mac OS X 和 Linux 的生成目标来说，是不存在这个问题的，因为 Mac OS X 的应用程序本身就是一个文件夹，而 Linux 的目标不会生成额外的链接库。因此，需要针对 Windows 进行特殊处理。于是在网上搜索解决方案，找到了 VB 中执行程序的几种方法：

1. 使用 CreateProcess

通过 CreateProcess 以及使用管道，可以执行外部程序并获取输出，但是这个方法过于烦琐，并且我也不需要外部进程执行完毕后的输出结果，因此不采用。

2. 使用 Shell 方法

VB 里有一个 Shell 方法，但是在 RB 中并没有，所以此路不通。

3. 使用 ShellExecute

这个方法同样是一个系统 API，可以直接通过 …

阅读全文 »