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[0][0]
        $out &= $qq[$i][0] & ' = ' & $qq[$i][1] & @CRLF
Next
FileWrite($File, $out)

Func QQInfo()
        Local $info[1][2], $sR, $i, $i_C, $txt
        Local $hTb = ControlGetHandle('[class:Shell_TrayWnd]', '', '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[0][0] += 1
                        ReDim $info[$info[0][0] + 1][2]
                        $info[$info[0][0]][0] = $sR[1]
                        $info[$info[0][0]][1] = $sR[0]
                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

哈哈

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

回复 9# afan

好人。。。。

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

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

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

支持afan

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

回复 9# afan

Fly  10: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

		自动登录	找回密码
密码			加入

[求购] 20RMB 求人帮修改

QQ

本帖子中包含更多资源