找回密码
 加入
搜索
查看: 1809|回复: 2

[ 發包 ] 高手熟 _inet _ie _string 控件,意者請詳內文

[复制链接]
发表于 2009-8-11 19:57:29 | 显示全部楼层 |阅读模式
1. 有興趣的請短我你的 SKYPE 或是 MSN 帳號
2. 發包方式例如 : 請製作某個 function ,指定傳什麼參數進去回傳什麼結果值出來 (下面有格式的例子),使用 v3.2.12.0 版本
3. 需要滿多功能的, 有興趣的請短我吧~~ 另外粗略的報個價,看一個 func 收多少錢, 用支付寶支付或是網轉都可以.
4. 目前需求功能 :
  • 自動登入 discuz dvbbs , 傳入值三個  $x = 帳號 , $y= 密碼 , $z = 選擇 discuz or dvbbs (請注意各種版本及狀況)
  • 自動註冊 discuz dvbbs , 傳入值三個  $x = 帳號 , $y= 密碼 , $z = 選擇 discuz or dvbbs (請注意各種版本及狀況)
 
func google_get($x,$y)
 InetGet("http://www.google.com/search?q="&$x&"&num="&$y&"&filter=1&ie=big5&hl=zh-TW&as_filetype=php&lr=","temp.txt",1,0)
 While @InetGetActive
  sleep (50)
 WEnd
 $obody = StringLower(FileRead ("temp.txt"))
 FileDelete ("temp.txt")
 If StringInStr($obody,"<ol>") = 0 Then Return MsgBox(0,"沒有任何資料","結束")
 $allstr = _StringBetween($obody,"<ol>","</ol>")
 
 $sp01 = _StringBetween($allstr[0],"class=r","/h3")
 For $i = 1 To UBound($sp01)
  $sp02 = _StringBetween($sp01[$i-1],"href="," ")
  $kweb = StringReplace($sp02[0],chr(34),"")
  IniWrite ("data.ini",GUICtrlRead($inp_getdiz_web),"getwebsouce_"&$i,$kweb)
 Next 
EndFunc 
 
发表于 2009-8-11 20:50:46 | 显示全部楼层
一般登录无验证码,这个解决非常简单了
但注册时候都需要验证码,暂时无能力识别
 楼主| 发表于 2009-8-12 02:23:40 | 显示全部楼层
可加  if  圖像或是任何驗證  then return -1  -2  -3  代表各種意義, 轉為手動
不會要求寫到圖像辨識的
有興趣的報價接吧!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-15 21:38 , Processed in 0.074330 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表