虽然我不是冲着会员来的,但看着代码并不复杂,刚好也有空,就当引砖了
**** 信息内容如果有中文,可能需要转换为URL编码
;~ #NoTrayIcon
Local Const $szUID = '飞信登录手机号&'
Local Const $szPWD = '飞信登录密码'
Local Const $szRecv = '接收飞信的手机号'
Local Const $szMsg = '飞信内容'
; http://quanapi.sinaapp.com/fetion.php?u=飞信登录手机号&p=飞信登录密码&to=接收飞信的手机号&m=飞信内容
Local Const $szSend = StringFormat( _
'http://quanapi.sinaapp.com/fetion.php?u=%s&p=%s&to=%s&m=%s', _
$szUID, $szPWD, $szRecv, $szMsg)
Local Const $szURL = 'http://www.haxf.cn/aa.php'
Local $str_Temp, $aTemp, $nYingLi, $nZhiShu
While 1
$str_Temp = InetRead($szURL, 11)
If IsBinary($str_Temp) Then $str_Temp = BinaryToString($str_Temp, 4)
$aTemp = StringRegExp($str_Temp, '(?mi)\<td\>([\d|\.]+)\<\/td\>', 3)
If 0 == @error Then
$nYingLi = Number($aTemp[1])
$nZhiShu = Number($aTemp[2])
If ($nYingLi > 300) Or ($nZhiShu > 3) Then InetRead($szSend, 11)
EndIf
Sleep(3 * 60 * 1000)
WEnd
Exit
|