Winhttp SimpleRequest cookies anzeigen

  • 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

    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
    Alles anzeigen
Webutation