Misc

Author: Danp2

wd_core.au3

@@ -755,7 +755,6 @@ Func _WD_ElementAction($sSession, $sElement, $sCommand, $sOption = '')
 			EndIf
 
 		Case 'value'
-			Local $sSplitValue = "[" & StringTrimRight(StringRegExpReplace($sOption, '.', '"$0",'), 1) & "]"
 			Local $sSplitValue = "[" & StringTrimRight(StringRegExpReplace($sOption, '\\u[[:alnum:]]{4}|.', '"$0",'), 1) & "]"
 
 			$sResponse = __WD_Post($_WD_BASE_URL & ":" & $_WD_PORT & "/session/" & $sSession & "/element/" & $sElement & "/" & $sCommand, '{"id":"' & $sElement & '", "text":"' & $sOption & '", "value":' & $sSplitValue & '}')
@@ -1073,7 +1072,6 @@ Func _WD_Option($sOption, $vValue = "")
 			EndIf
 			$_WD_BFORMAT = $vValue
 		Case Else
-			Return SetError(__WD_Error($sFuncName, $_WD_ERROR_InvalidDataType, "(Driver|DriverParams|BaseURL|Port) $sOption=>" & $sOption), 0, 0)
 			Return SetError(__WD_Error($sFuncName, $_WD_ERROR_InvalidDataType, "(Driver|DriverParams|BaseURL|Port|BinaryFormat) $sOption=>" & $sOption), 0, 0)
 	EndSwitch
 
@@ -1255,7 +1253,6 @@ Func __WD_Post($sURL, $sData)
 	If @error Then
 		$iResult = $_WD_ERROR_SocketError
 	Else
-		$sResponseText = _WinHttpSimpleRequest($hConnect, "POST", $aURL[6], -1, $sData)
 		$sResponseText = _WinHttpSimpleRequest($hConnect, "POST", $aURL[6], Default, StringToBinary($sData, $_WD_BFORMAT))
 		$iErr = @error
 		$_WD_HTTPRESULT = @extended