Beiträge von gmmg

#include <Word.au3>

$Logo = "D:\Scripte\Icons\flug.jpg"

Local $oWord = _Word_Create()
Local $oDoc = _Word_DocOpen($oWord, @ScriptDir & "\Schecktemplate.doc")
Local $aData = _Word_DocTableRead($oDoc, 1)

; Tabelle 1 Scheckempfänger und Absender
$oDoc.Tables(1).Cell(1, 1).Range.Text = "Test" ;Adresse Absender Scheckaus
$oDoc.Tables(1).Cell(2, 1).Range.Text = "Herr" ; Anrede
$oDoc.Tables(1).Cell(3, 1).Range.Text = "Max Muster" ; Vorname   Name Scheckempfänger
$oDoc.Tables(1).Cell(4, 1).Range.Text = "musterweg 1" ; Straße Scheckempfänger
$oDoc.Tables(1).Cell(5, 1).Range.Text = "0000000" ; PLZ Scheckempfänger
$oDoc.Tables(1).Cell(5, 2).Range.Text = "Musterstadt" ; Ort Scheckempfänger

; Firmenlogo Absender Tabelle 2
$oDoc.Tables(2).Cell(1, 1).Range.InlineShapes.AddPicture($Logo) ; Logo einfügen

_POST_DATA($URL, $JSON)


FUNC _POST_DATA($URL, $JSON)  ; Post with URL & JSON DATA

	$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
	$oHTTP.Open("POST", $URL, False)
	$oHTTP.SetRequestHeader("Content-Type", "application/json")
	$oHTTP.SetRequestHeader("Cache-Control", "no-cache")
	$oHTTP.Send($JSON)

	$oReceived = $oHTTP.ResponseText
	$oStatusCode = $oHTTP.Status

	If $oStatusCode <> 200 Then
		MsgBox(4096, "Error", $oStatusCode,2)
	EndIf
	;ConsoleWrite($oReceived)

EndFunc

$JSON = '{' & _
   '"UserLogin":"user",' & _
   '"Password":"pass",' & _
   '"Ticket":{ ' & _
      '"Title":"' & $JsonTitleSubject & '",' & _
      '"QueueID":"5",' & _
      '"LockID":"1",' & _
      '"TypeID":"4",' & _
      '"ServiceID":"",' & _
      '"SLAID":"",' & _
      '"StateID":"4",' & _
      '"PriorityID":"3",' & _
      '"CustomerUser":"' & $AbsenderMail & '"' & _
  '},' & _
   '"Article":{' & _
      '"ArticleTypeID":"8",' & _
      '"SenderTypeID":"1",' & _
      '"From":"' & $AbsenderMail & '",' & _
      '"Subject":"' & $JsonTitleSubject & '",' & _
      '"Body":"' & $JsonBody & '",' & _
      '"ContentType":"",' & _
      '"MimeType":"text/html",' & _
      '"Charset":"UTF8"' & _
	'},' & _
	'"Attachment":{' & _
        	 '"ContentType":"image/jpg",' & _
	         '"Filename":"Testbild.jpg",' & _
        	 '"Content":"' & $Attachment & '"' & _
	      '}' & _
'}'

;Xroot 2011
ClipPut("")
;$FN=FileOpenDialog("Pick The Image You Want...","C:My DocumentsImages","Images(*.*)",3)
;If @error Then
;    MsgBox(4096,"","No File Selected.....",2)
;    Exit
;EndIf

$FN = "D:\testbild.jpg"
$dat=FileRead(FileOpen($FN,16))
$objXML=ObjCreate("MSXML2.DOMDocument")
$objNode=$objXML.createElement("b64")
$objNode.dataType="bin.base64"
$objNode.nodeTypedValue=$dat
$objNode.Text = StringReplace($objNode.Text, @LF, '')  ;um den Zeilenumbruch zu entfernen
ClipPut($objNode.Text)

#include "wd_helper.au3"
#include "wd_core.au3"

Local $file

$GoogleChrome64bit = "C:\Program Files\Google\Chrome\Application\chrome.exe"
$GoogleChrome32bit = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

If FileExists($GoogleChrome64bit) Then $file = $GoogleChrome64bit
If FileExists($GoogleChrome32bit) Then $file = $GoogleChrome32bit

If FileExists($file) Then

	$google_chrome_version = FileGetVersion($file)
	$google_chrome_version_array = StringSplit($google_chrome_version,".")

	$webdriver = "chromedriver_" & $google_chrome_version_array[1] & ".exe"

	If Not FileExists(@ScriptDir & '\data\'& $webdriver) Then
		MsgBox(0,"Info","Google Chromedriver nicht vorhanden." & @CRLF & $webdriver)
		Exit
	EndIf
Else
	MsgBox(0,"Info","Google Chrome in folgenden Pfad nicht vorhanden." & @CRLF & @CRLF & $file)
	Exit
EndIf

$user = ""
$pass = ""

$_WD_DEBUG = $_WD_DEBUG_None  ;set to $_WD_DEBUG_None before compiling.

;Global $_WD_DRIVER
Local $sDesiredCapabilities
Local $iIndex

$url = "https://autoit.de/wcf/login/?url=https%3A%2F%2Fautoit.de%2F"

SetupChrome()

_WD_Startup()
$sSession = _WD_CreateSession($sDesiredCapabilities)
_WD_Window($sSession, "Maximize", "{}")
_WD_Navigate($sSession, $url)
_WD_LoadWait($sSession, 1500)

;WinSetState ("","",@SW_MAXIMIZE)

_WD_WaitElement($sSession, $_WD_LOCATOR_ByXPath, "//*[@id='username']")
;ConsoleWrite("+ @error = " & @error & @CRLF)
$sElement_user = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//*[@id='username']")

_WD_WaitElement($sSession, $_WD_LOCATOR_ByXPath, "//*[@id='password']")
;ConsoleWrite("+ @error = " & @error & @CRLF)
$sElement_pass = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//*[@id='password']")

If @error = $_WD_ERROR_Success Then
   _WD_ElementAction($sSession, $sElement_user, 'value',$user)
EndIf
If @error = $_WD_ERROR_Success Then
   _WD_ElementAction($sSession, $sElement_pass, 'value',$pass)
EndIf

Sleep(1000)
;Send("{ENTER}")

$sElement = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "/html/body/div[1]/section/div/div/div[1]/form/section[1]/div/input[1]")
;_WD_HighlightElement($sSession, $sElement, 3)

If @error = $_WD_ERROR_Success Then
	_WD_ElementAction($sSession, $sElement, 'click')
Sleep(500)
EndIf

_WD_Shutdown()
_WD_DeleteSession($sSession)

Exit

Func SetupChrome()

	;_WD_Option('Driver', 'chromedriver.exe')
	_WD_Option('Driver', 'data\'& $webdriver)
	_WD_Option('Port', 9515)
	_WD_Option('DriverParams', '--log-path="' & @UserProfileDir & '\chrome.log"')
	_WD_Option('DriverParams')

	$sDesiredCapabilities = '{"capabilities": {"alwaysMatch": {"unhandledPromptBehavior": "ignore", ' & _
    '"goog:chromeOptions": {"w3c": true, "excludeSwitches": ["enable-automation"], "useAutomationExtension": false, ' & _
    '"prefs": {"credentials_enable_service": false},' & _
	'"args": ["--disable-search-engine-choice-screen"] }}}}'

EndFunc