xndo 发表于 2010-9-12 23:44:17

20RMB 求人帮修改

xndo 发表于 2010-9-12 23:45:47


我想把提取出来的QQ号码 跟网民直接保存到TXT文本里。。。
那些帮修改一下 20RMB酬谢支付宝 财付通都可以支付

xndo 发表于 2010-9-12 23:49:17

thesnoW囧(133333542)23:56:53
_FileWriteFromArray

thesnoW囧 提示一下

afan 发表于 2010-9-12 23:50:17

这个… 加一行代码即可

xndo 发表于 2010-9-13 00:01:21

回复 5# afan


    afan帮忙修改一下

afan 发表于 2010-9-13 00:03:52

回复 6# xndo
省掉了 #include <Array.au3>
#include <GUIToolbar.au3>
Local $File = 'qqinfo.txt', $out = ''
$qq = QQInfo()
For $i = 1 To $qq
        $out &= $qq[$i] & ' = ' & $qq[$i] & @CRLF
Next
FileWrite($File, $out)

Func QQInfo()
        Local $info, $sR, $i, $i_C, $txt
        Local $hTb = ControlGetHandle('', '', 'ToolbarWindow321')
        For $i = 0 To _GUICtrlToolbar_ButtonCount($hTb) - 1
                $i_C = _GUICtrlToolbar_IndexToCommand($hTb, $i)
                $txt = _GUICtrlToolbar_GetButtonText($hTb, $i_C)
                $sR = StringRegExp($txt, '^QQ\:\h?(.+)\((\d{5,}|.+@.+)\)', 3)
                If Not @error Then
                        $info += 1
                        ReDim $info[$info + 1]
                        $info[$info] = $sR
                        $info[$info] = $sR
                EndIf
        Next
        Return $info
EndFunc   ;==>QQInfo

xndo 发表于 2010-9-13 00:10:39

回复 7# afan


    谢谢支付宝 或者财付通账户发我

afan 发表于 2010-9-13 00:28:16

回复 8# xndo


    请询一下 thesnoW囧(133333542) 捐助论坛通道是否健在？ 在的话就捐助论坛吧~

qq1244521 发表于 2010-9-13 15:59:27

{:face (411):} 哈哈

lsqyx528 发表于 2010-9-13 18:16:43

回复 9# afan


    好人。。。。

风行者 发表于 2010-9-13 21:34:13

以前早就有类似的帖子了，楼主怎么不搜索啊

qq1244521 发表于 2010-9-14 01:12:07

{:face (239):} 支持afan

xndo 发表于 2010-9-15 10:18:29

回复 9# afan


    Fly10:38:57
怎么捐助论坛呢
thesnoW囧14:10:11
蛋疼了不是?
thesnoW囧14:10:16
有钱自己喝酒去啊
thesnoW囧14:10:18
囧


可能现在没有吧下次在捐吧之前捐过一次

xndo 发表于 2010-9-15 10:19:34

回复 9# afan


    xndo 20.00RMB之前捐过20元， 下次可以捐的时候 在继续捐吧

xndo 发表于 2010-9-15 10:19:47

回复 15# xndo


    用户 数量
备注

路人甲(匿名) 50.00RMB   
路人丁(请联系我) 30.00RMB   
路人戊(请联系我) 01.00RMB   
路人已(请联系我) 04.60RMB   
路人庚(请联系我) 100.00RMB   
路人辛(请联系我) 01.00RMB   
流觞曲水 85.00RMB   
芜 30.00RMB   
my788521 30.00RMB   
阿福 300.00RMB   
hzxymkb 01.30RMB   
LPXX 50.00RMB   
haorui658 10.00RMB   
wangwen916 30.00RMB   
xndo 20.00RMB
页: [1] 2
查看完整版本: 20RMB 求人帮修改