Winhttp SimpleRequest cookies anzeigen

    • [ offen ]

      Winhttp SimpleRequest cookies anzeigen

      HI ich mache folgendes

      Func _POST($sURL, $sParameter)
      _LOg("test")
      Local $http
      $http = _WinHttpSimpleRequest($HttpConnect, "POST", $sURL, "HTTP/1.1", $sParameter, Default, True, Default)

      ConsoleWrite($http[0])
      Return $Http[1]

      EndFunc ;==>_POST

      MIt $http[0] kann ich ja den Header ausgeben weil ich ja $fgetHeader = True setze nur ich finde die Cookies nicht.

      Kann mir vielleicht einer sagen wie ich die Cookies auslesen kann die momentan aktuell sind?

      Danke
      HI, das Problem habe ich nun gelöst ich kann nun die Cookies korrekt auslesen.

      Nun habe ich ein weiteres Problem und zwar werden Sie mir nicht im Firefox angezeigt.

      Wenn ich die sqlite datenbank mit einem Manager öffne sehe ich die werte die ich über autoit eingetragen haben.

      Ich habe auch schon versucht die Cookies einzutragen alls FF zu war aber nix wird mir angezeigt im FF nur in der sqlite db selber.

      AutoIt-Quellcode

      1. Func _OpenFirefoxDB()
      2. Local $oQuery, $aRow, $aResult, $sMsg
      3. $aDB = _GetFilesFolder_Rekursiv(@AppDataDir & "\Mozilla\Firefox\Profiles", 'cookies.sqlite', 0) ;Wird noch angepasst damit es für jeden User geht
      4. _LOg(@AppDataDir & "\Mozilla\Firefox\Profiles")
      5. $dbn = _SQLite_Open($aDB[1])
      6. _InsertCookies("Test12345","ValueTest123456")
      7. EndFunc ;==>_OpenFirefoxDB
      8. Func _InsertCookies($_moz_name, $_moz_value)
      9. $_moz_host = "url.com"
      10. $_moz_expiry = _CalcBuildtime("24h") + _Timestamp() ; Die dauer berechnen 24h dies klapppt
      11. $_moz_path = "/"
      12. $_moz_isSecure = "0"
      13. $_moz_isHttpOnly = "0"
      14. $_moz_lastAccessed = " "
      15. $_moz_base = "url.de"
      16. $_moz_create = _Timestamp()
      17. _SQLite_Exec($dbn, _
      18. "INSERT INTO moz_cookies (name,value,host,path,expiry,lastAccessed,isSecure,isHttpOnly,baseDomain,creationTime) " & _
      19. "VALUES('" & _
      20. $_moz_name & "','" & _
      21. $_moz_value & "','" & _
      22. $_moz_host & "','" & _
      23. $_moz_path & "','" & _
      24. $_moz_expiry & "','" & _
      25. $_moz_lastAccessed & "','" & _
      26. $_moz_isSecure & "','" & _
      27. $_moz_isHttpOnly & "','" & _
      28. $_moz_base & "','" & _
      29. $_moz_create & _
      30. "');")
      31. EndFunc ;==>_InsertCookies
      32. ;==================================================================================================
      33. ; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0 ,[$sDelim='0']]]])
      34. ; Description: Rekursive Auflistung von Dateien und/oder Ordnern
      35. ; Parameter(s): $sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
      36. ; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
      37. ; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
      38. ; optional: $iRetType 0 gibt Array, 1 gibt String zurück
      39. ; optional: $sDelim legt Trennzeichen für Stringrückgabe fest
      40. ; 0 -@CRLF (Standard) 1 -@CR 2 -@LF 3 -';' 4 -'|'
      41. ; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
      42. ; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
      43. ; Author(s): BugFix (bugfix@autoit.de)
      44. ;==================================================================================================
      45. Func _GetFilesFolder_Rekursiv($sPath, $sExt = '*', $iDir = -1, $iRetType = 0, $sDelim = '0')
      46. Global $oFSO = ObjCreate('Scripting.FileSystemObject')
      47. Global $strFiles = ''
      48. Switch $sDelim
      49. Case '1'
      50. $sDelim = @CR
      51. Case '2'
      52. $sDelim = @LF
      53. Case '3'
      54. $sDelim = ';'
      55. Case '4'
      56. $sDelim = '|'
      57. Case Else
      58. $sDelim = @CRLF
      59. EndSwitch
      60. If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
      61. If $sExt = -1 Then $sExt = '*'
      62. If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
      63. _ShowSubFolders($oFSO.GetFolder($sPath), $sExt, $iDir, $sDelim)
      64. If $iRetType = 0 Then
      65. Local $aOut
      66. $aOut = StringSplit(StringTrimRight($strFiles, StringLen($sDelim)), $sDelim, 1)
      67. If $aOut[1] = '' Then
      68. ReDim $aOut[1]
      69. $aOut[0] = 0
      70. EndIf
      71. Return $aOut
      72. Else
      73. Return StringTrimRight($strFiles, StringLen($sDelim))
      74. EndIf
      75. EndFunc ;==>_GetFilesFolder_Rekursiv
      76. Func _ShowSubFolders($Folder, $Ext = '*', $Dir = -1, $Delim = @CRLF)
      77. If Not IsDeclared("strFiles") Then Global $strFiles = ''
      78. If ($Dir = -1) Or ($Dir = 0) Then
      79. For $file In $Folder.Files
      80. If $Ext <> '*' Then
      81. If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
      82. $strFiles &= $file.Path & $Delim
      83. Else
      84. $strFiles &= $file.Path & $Delim
      85. EndIf
      86. Next
      87. EndIf
      88. For $Subfolder In $Folder.SubFolders
      89. If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & $Delim
      90. _ShowSubFolders($Subfolder, $Ext, $Dir, $Delim)
      91. Next
      92. EndFunc ;==>_ShowSubFolders
    autoit.de Webutation