【RF軟體】TimeSaver常用檢索程式

17年5个月前IP:未同步

144972

1楼

破叉用上繁體字了……不過程式里的字元是繁簡同形的……呃……

交几个Bug，小问题，可以无视的：
1、开链接最好能直接运行"XXXXXXXXXXXXXXXXXXXXXXX"而不是"iexplore XXXXXXXXXXXXXXXXXXXXXXX"，还是习惯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、建议维基的链接改成“XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX”，这样会比较友好；
4、（可以直接无视）貌似写coded by就行了；
5、似乎没转义Unicode（%xx%xx什么的），不过由于兼容性问题，没法查证。

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

补：
6、没处理窗体缩放。

引用

jimmyxu

17年5个月前IP:未同步

144978

2楼

吐个槽，.NET程序一向都这么大……写个Follow Up玩……Chia莫吐槽……

需要.NET Framework 2.0或以上版本，如无则会出现初始化失败。

ChiaFollowUp.rar 52.56KB RAR 24次下载

引用

93°

17年5个月前IP:未同步

144991

3楼

Public Function Unicode(ByVal Chinese As String) As String
        Dim tmp As String = Chinese
        Dim tmpBy As Byte() = System.Text.Encoding.UTF8.GetBytes(tmp)
        Dim newBy As Byte() = System.Text.Encoding.Convert(System.Text.Encoding.UTF8, System.Text.Encoding.Default, tmpBy)
        Dim URL As String = ""
        For i As Long = 0 To newBy.Length - 1
            URL = URL + "%" + Hex(newBy(i)).ToString.Trim
        Next
        'Return ("XXXXXXXXXXXXXXXXXXXXXXX" + URL.Trim)
        Return (URL.Trim)
    End Function

引用

jimmyxu

17年5个月前IP:未同步

145024

4楼

93这样会不会过度转义？中文在URL里是不用转义的……要转义的只有那几个特殊字符。

引用

93°

17年5个月前IP:未同步

145027

5楼

    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 = System.Text.Encoding.Default.GetBytes(o_yeah)
    End Sub

引用

novakon

作者

17年5个月前IP:未同步

145032

6楼

引用第1楼jimmy_xu_wrk于09-08-25 02:07发表的 :
破叉用上繁體字了……不過程式里的字元是繁簡同形的……呃……

交几个Bug，小问题，可以无视的：
1、开链接最好能直接运行"XXXXXXXXXXXXXXXXXXXXXXX"而不是"iexplore XXXXXXXXXXXXXXXXXXXXXXX"，还是习惯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

引用