【RF軟體】TimeSaver常用檢索程式
novakon2009/08/25软件综合 IP:广东
這個程式提供了迅捷的Google和維基連結,以及英文字典。

a.jpg
程式源碼是簡單的字元處理。
attachment icon timesaver.rar 5.92KB RAR 27次下载
来自:计算机科学 / 软件综合
11
已屏蔽 原因:{{ notice.reason }}已屏蔽
{{notice.noticeContent}}
~~空空如也
jimmyxu
14年10个月前 IP:未同步
144972
破叉用上繁體字了……不過程式里的字元是繁簡同形的……呃……

交几个Bug,小问题,可以无视的:
1、开链接最好能直接运行"XXXXXXXXXXXXXXXXXXXXXX/"而不是"iexplore XXXXXXXXXXXXXXXXXXXXXX/",还是习惯Firefox等非Trident内核浏览器;
2、疑似不兼容NT 6.1或IE 8,IE窗口打开后至少等了2min都是空白页,且地址栏也无数据(程序调用了两个iexplore进程,分别为“"C:\\Program Files\\Internet Explorer\\iexplore.exe" -nohome”和“"C:\\Program Files\\Internet Explorer\\iexplore.exe" SCODEF:4548 CREDAT:79873”);
3、建议维基的链接改成“XXXXXXXXXXXXXXXXXXXXXXX/w/XXXXXXXXp?title=Special:Search&search=%s”,这样会比较友好;
4、(可以直接无视)貌似写coded by就行了;
5、似乎没转义Unicode(%xx%xx什么的),不过由于兼容性问题,没法查证。

另,为啥把维基和百度百科放在一起……囧。

补:
6、没处理窗体缩放。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
jimmyxu
14年10个月前 IP:未同步
144978
吐个槽,.NET程序一向都这么大……写个Follow Up玩……Chia莫吐槽……

需要.NET Framework 2.0或以上版本,如无则会出现初始化失败。
attachment icon ChiaFollowUp.rar 52.56KB RAR 22次下载
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
93°
14年10个月前 IP:未同步
144991

    
Public Function Unicode(ByVal Chinese As String) As String
        Dim tmp As String = Chinese
        Dim tmpBy As Byte() = XXXXXXXXXXXXXXXXXXXXXXXXXXXXtBytes(tmp)
        Dim newBy As Byte() = XXXXXXXXXXXXXXXXXXXXXXXnvert(System.Text.Encoding.UTF8, XXXXXXXXXXXXXXXXXXXXXXXfault, tmpBy)
        Dim URL As String = ""
        For i As Long = 0 To newBy.Length - 1
            URL = URL + "%" + Hex(newBy(i)).XXXXXXXXXXXim
        Next
        'Return ("XXXXXXXXXXXXXXXXXXXXXX/" + XXXXXXim)
        Return (XXXXXXim)
    End Function

引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
jimmyxu
14年10个月前 IP:未同步
145024
93这样会不会过度转义?中文在URL里是不用转义的……要转义的只有那几个特殊字符。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
93°
14年10个月前 IP:未同步
145027


    Public Sub NewTopic()
        Dim o_yeah As String

        o_yeah = ""

        o_yeah += "co=" + Unicode(TextBox4.Text) + "&ct=385875968&tn=ajaxThreadSubmit&word=" _
        + result(0) + "&word1=" + Trim(TextBox1.Text) + "&lm=" + result(1) + "&z=0&sc=0&cm=0" _
        + "&bs=" + bs + "&str2=&str3=" + result(2) + "&str4=" + result(3) _
        + "&bu=" + Unicode(TextBox2.Text) + "&code=1" + "&ti=" + Unicode(TextBox5.Text) _
        + "&str1=http%3A%2F%2F&ch1=on&rs1=1&_="

        bytes = XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtBytes(o_yeah)
    End Sub

引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年10个月前 IP:未同步
145032
引用第1楼jimmy_xu_wrk于09-08-25 02:07发表的  :
破叉用上繁體字了……不過程式里的字元是繁簡同形的……呃……

交几个Bug,小问题,可以无视的:
1、开链接最好能直接运行"XXXXXXXXXXXXXXXXXXXXXX/"而不是"iexplore XXXXXXXXXXXXXXXXXXXXXX/",还是习惯Firefox等非Trident内核浏览器;
2、疑似不兼容NT 6.1或IE 8,IE窗口打开后至少等了2min都是空白页,且地址栏也无数据(程序调用了两个iexplore进程,分别为“"C[s:7]rogram FilesInternet Exploreriexplore.exe" -nohome”和“"C[s:7]rogram FilesInternet Exploreriexplore.exe" SCODEF:4548 CREDAT:79873”);
.......

1 我使用的是您的注册表内记录的默认浏览器路径。在我这里会自动启动GreenBrowser.
2 我这里只有IE6,所以对于IE8是何种形式写入注册表的,我不知道,所以放了源码,大家修改
3 维基的链接我是希望可以直接进入页面
4 无视
5 转义不需要。
6 THIS IS ONLY A SMALL PROGRAM
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
phpskycn
14年10个月前 IP:未同步
145106
Cstring
用好MFC,告别编码烦恼
再凑足20字节
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
jimmyxu
14年10个月前 IP:未同步
145109
转义这个一定要做的,要不万一输入了点什么&啊,?啊的,那就不正常了。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
phpskycn
14年10个月前 IP:未同步
145157
VC里可以直接限制编辑框输入内容
还有实在不行反回个/a
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
93°
14年10个月前 IP:未同步
145221
引用第9楼phpskycn于2009-08-25 14:21发表的  :
VC里可以直接限制编辑框输入内容
还有实在不行反回个/a
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
noname剑人
14年10个月前 IP:未同步
145337
只能膜拜,不能学习……严重不懂
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论

想参与大家的讨论?现在就 登录 或者 注册

所属专业
上级专业
同级专业
novakon
学者 机友 笔友
文章
1256
回复
8385
学术分
16
2008/03/29注册,2年3个月前活动

已走,勿送

主体类型:个人
所属领域:无
认证方式:手机号
IP归属地:未同步
文件下载
加载中...
{{errorInfo}}
{{downloadWarning}}
你在 {{downloadTime}} 下载过当前文件。
文件名称:{{resource.defaultFile.name}}
下载次数:{{resource.hits}}
上传用户:{{uploader.username}}
所需积分:{{costScores}},{{holdScores}}下载当前附件免费{{description}}
积分不足,去充值
文件已丢失

当前账号的附件下载数量限制如下:
时段 个数
{{f.startingTime}}点 - {{f.endTime}}点 {{f.fileCount}}
视频暂不能访问,请登录试试
仅供内部学术交流或培训使用,请先保存到本地。本内容不代表科创观点,未经原作者同意,请勿转载。
音频暂不能访问,请登录试试
支持的图片格式:jpg, jpeg, png
插入公式
评论控制
加载中...
文号:{{pid}}
投诉或举报
加载中...
{{tip}}
请选择违规类型:
{{reason.type}}

空空如也

加载中...
详情
详情
推送到专栏从专栏移除
设为匿名取消匿名
查看作者
回复
只看作者
加入收藏取消收藏
收藏
取消收藏
折叠回复
置顶取消置顶
评学术分
鼓励
设为精选取消精选
管理提醒
编辑
通过审核
评论控制
退修或删除
历史版本
违规记录
投诉或举报
加入黑名单移除黑名单
查看IP
{{format('YYYY/MM/DD HH:mm:ss', toc)}}