PureBasic Forums - English

Code: Select all

;epidemicz 3/26/2010
;quick and dirty (really dirty) proof of concept gmail new mail checker

;be sure to fill out user & pass
user$ = "user" 
pass$ = "pass"

email$ = user$ + "%40gmail%2Ecom"


;needed for content-length: header -- google api doc doesn't say you need this
;but if you don't send content-length header with the request it will give error
;len is basically the length of the last section of the first request$
len = 57 + Len(email$) + Len(pass$)

InitNetwork()

*Buffer = AllocateMemory(3000)

connid = OpenNetworkConnection("mail.google.com", 80)

;request to get a ClientLogin authentication token from google
;http://code.google.com/apis/accounts/docs/AuthForInstalledApps.html
request$ = "POST https://www.google.com/accounts/ClientLogin HTTP/1.0" + Chr(10)
request$ + "Content-type: application/x-www-form-urlencoded" + Chr(10) 
request$ + "Connection: keep-alive" + Chr(10)
request$ + "Content-length: " + Str(Len) + Chr(10) + Chr(10) 
request$ + "&Email=" + email$ + "&Passwd=" + pass$ + "&accountType=HOSTED_OR_GOOGLE&service=mail"

SendNetworkString(connid, request$)

Debug "Logging in.."


Delay(2000)

Repeat
  cEvent = NetworkClientEvent(connid)
  
  Select cEvent
    Case #PB_NetworkEvent_Data
      ReceiveNetworkData(connid, *Buffer, 3000)
      response$ = PeekS(*Buffer)
      
      FreeMemory(*Buffer)  
      *Buffer = AllocateMemory(3000) 
      
      For x = 1 To CountString(response$, Chr(10))
        curline$ = StringField(response$, x, Chr(10))
        
        Debug curline$
        
        If FindString(curline$, "Auth=", 0)
          ;for some reason the auth token must have GX= in front of it
          auth$ = "GX=" + Mid(curline$, 6)
          
          Debug "sending request for mail feed.."

          ;forming request for gmail atom feed
          request$ = "GET /mail/feed/atom/ HTTP/1.1" + Chr(10) 
          request$ + "Host: mail.google.com" + Chr(10)
          request$ + "Cookie: " + auth$ + Chr(10) + Chr(10)
          
          SendNetworkString(connid, request$)
          
          Delay(2000)          
        EndIf
      Next x
  EndSelect    
  
Until cEvent = 0

Code: Select all

ProgramName.s="Youtubeupload"  
Address.s="www.google.com"
Type.s="POST"
URL.s="/youtube/accounts/ClientLogin"
Http.s="HTTP/1.1"
  
iSession=InternetOpen_(@ProgramName,0,#Null,#Null,0)
iConnection = InternetConnect_(iSession,@Address,443,#Null,#Null,3,0,0)
iOpenRequest = HttpOpenRequest_(iConnection,@Type,@URL,@http,#Null,0,$800000|$1000|$2000,0)
Encoding.S  =   "Content-Type: application/x-www-form-urlencoded"+Chr(10)+Chr(13)
HttpAddRequestHeaders_(iOpenRequest,@Encoding,Len(Encoding),$80000000 | $20000000)
PostMessage.S="Email=<username>&Passwd=<Password>&service=youtube&source=Test"
If HttpSendRequest_(iOpenRequest,#Null,#Null,@PostMessage,Len(PostMessage))
  *buffer=AllocateMemory(1024)
  BYTES=0
  InternetReadFile_(iOpenRequest,*buffer,1024,@bytes)
Else
  ;ERROR LOGGING IN
EndIf

Code: Select all

InternetCloseHandle_(iOpenRequest)
InternetCloseHandle_(iConnection)
InternetCloseHandle_(iSession)