linkedin job search

[iamtheky]

This function will search the jobs on linkedin for the specified string and sort the return by date descending. It will then crawl the first page of results for only the ones with an apply now button (since I just use it as a lottery and to gain interview experience anyway, i dont have the want to "apply on company website"). It then opens your firefox browser with the resulting pages tabbed.

Any suggestions for speeding this routine? My next effort is to allow for it to move on to the next page of results if desired, and maybe gather enough substance from laying around on the forum for it to be worthwhile to others.

And the firefox path is a regread which could very well only be on my box, may have to edit that.

expandcollapse popup

#include <Array.au3>
 
 
_ApplyNow("CISSP")
 
 
Func _ApplyNow($search)
 
$jobs = Inetget("http://www.linkedin.com/jsearch?keywords=" & $search & "&searchLocationType=Y&sortCriteria=DD" , @TempDir & "\jobs.html" , 1 , 0)
 
$jobFile = fileread(@TempDir & "\jobs.html")
 
$URL_Array = stringregexp ($jobFile , "jobs\?viewJob=&jobId=\d+" , 3)
 
$SearchArray = _ArrayUnique ($URL_Array)
 
For $i = ubound($SearchArray) - 1 to 1 step -1
 
Inetget("http://www.linkedin.com/" & $SearchArray[$i] , @TempDir & "\search.html" , 1 , 0)
 
$read = fileread(@TempDir & "\search.html")
 
If Not stringinstr($read , "Apply Now" , 1) Then
    _ArrayDelete ($SearchArray , $i)
EndIf
 
next
 
filedelete (@TempDir & "\*.html")
 
for $i = 1 to ubound($Searcharray) - 1
    $SearchArray[$i] = "http://www.linkedin.com/" & $SearchArray[$i]
Next
 
_ArrayDelete ($SearchArray , 0)
$arraystring = _ArrayToString ($Searcharray , " ")
 
run (regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\firefox.exe" , "") & " " & $arraystring)
 
EndFunc

Edited October 26, 2011 by boththose