Search the Community

I have an AutoIT script It monitors 2 websites for content that applys to me and the services that I provide. One site is : www.Freelancer.com The other: www.PeoplePerHour.com Both sites publish new jobs on their site hourly or so. My AutoIT app, will view those sites and present new jobs to me in a grid that pops up on my screen. Lately, the app has stopped showing me any jobs from PeoplePerHour. For freelancer.com, Inetget is giving full html but for peopleperhour, now its not coming. Func _CheckPPH() Local Static $hTimer = 0 Local Static $hDownload = 0 Local $aTitlesandUrls = 0 Local Static $sTempFile = "" If $hTimer = 0 Then $hTimer = TimerInit() If $hDownload = 0 Then $sTempFile = _WinAPI_GetTempFileName(@TempDir) ConsoleWrite("Checking PPH..." & @CRLF) ConsoleWrite(">Downloading..." & @CRLF) ;~ $hDownload = InetGet("http://www.peopleperhour.com/freelance-jobs", $sTempFile, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND) $hDownload = InetGet("http://www.peopleperhour.com/freelance-jobs", $sTempFile, $INET_FORCERELOAD) ;~ Return 0 EndIf ;~ Sleep(30) ;~ Local $isCompleted = InetGetInfo($hDownload, $INET_DOWNLOADCOMPLETE) ;~ Local $isError = InetGetInfo($hDownload, $INET_DOWNLOADERROR) ;~ Sleep(30) ;~ If TimerDiff($hTimer) > 3000 And $isError Then ;~ ConsoleWrite("!PPH Fail" & @CRLF) ;~ InetClose($hDownload) ;~ $hDownload = 0 ;~ Return 0 ;~ EndIf ;~ Sleep(30) Local $Show = 0 ;~ If TimerDiff($hTimer) > 3000 And $isCompleted Then If $hDownload > 0 Then ConsoleWrite("+Downloaded..." & @CRLF) Local $sPPHHtml = FileRead($sTempFile) $aTitlesandUrls = _StringBetween($sPPHHtml, '"title">' & @LF, 'time>') ;~ _ArrayDisplay($aTitlesandUrls) Local $aPPH[0][4] Local $sTitle = "" Local $sUrl = "" Local $sID = "" Local $sDate = "" Local $iRet=0 Sleep(30) For $i = 0 To UBound($aTitlesandUrls) - 1 $sTitle = _StringBetween($aTitlesandUrls[$i], '<a title="', '" class') $sUrl = _StringBetween($aTitlesandUrls[$i], 'href="', '">') $sDate = _GetDate($aTitlesandUrls[$i]) If IsArray($sTitle) And IsArray($sUrl) Then $sID = _GetID($sUrl[0]) ;~ _ArrayAdd($aPPH, $sDate & "|" & $sTitle[0] & "|" & $sUrl[0] & "|" & $sID) $iRet = _BuildPopupsPPH($sID, $sDate, "PPH: " & $sTitle[0], $sUrl[0]) If $iRet Then $Show+=1 EndIf Next Sleep(30) ;~ If $Show > 0 Then ShowLatestJobs() ;~ _ArrayDisplay($aPPH) FileDelete($sTempFile) InetClose($hDownload) $hDownload = 0 $hTimer = 0 Return $Show EndIf Sleep(30) EndFunc ;==>_CheckPPH