Enviar sugerencias o enviar email

yasmany · Mensaje por **yasmany** » 10 Sep 2015, 21:30

Un buen día a todos, tengo una duda mas.
Trato de poner en mi software como hacer para que me envíen sugerencias los usuarios o al menos saber las veces que ha sido instalado.
he pensado utilizar la función _INetSmtpMail que según la ayuda dice que sirve pero le hice algunas modificaciones, pero no tengo resultados, poniendo mi correo [email protected].

Ahora bien, ya que no logré hacer lo anterior, trato de que se escriba a través de un archivo .txt ubicado en esta dirección.
http://yasmanyorion.site11.com/?downloa ... encias.txt
desde el filezilla client tiene otorgado todos los permisos existentes.

¿Habrá como utilizar FileWrite? por que como lo he hecho reutilizando codigo de ayuda no me resulta, disculpen la ignorancia
en este enlace se puede tener acceso a los archivos que tengo subidos: http://yasmanyorion.site11.com/

Código: Seleccionar todo

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>

Example()

Func Example()

	Local Const $sFilePath = 'http://yasmanyorion.site11.com/?download=sugerencias.txt'

	If Not FileWrite($sFilePath, "Start of the FileWrite example, line 1. " & @CRLF) Then
		MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst writing the temporary file.")
		Return False
	EndIf

	Local $hFileOpen = FileOpen($sFilePath, $FO_APPEND)
	If $hFileOpen = -1 Then
		MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst writing the temporary file.")
		Return False
	EndIf

	FileWrite($hFileOpen, "Line 2")
	FileWrite($hFileOpen, "This is still line 2 as a new line wasn't appended to the last FileWrite call." & @CRLF)
	FileWrite($hFileOpen, "Line 3" & @CRLF)
	FileWrite($hFileOpen, "Line 4")

	FileClose($hFileOpen)

	MsgBox($MB_SYSTEMMODAL, "", "Contents of the file:" & @CRLF & FileRead($sFilePath))

;~ 	FileDelete($sFilePath)
EndFunc   ;==>Example

Bueno espero su pronta ayuda, mas o menos asi sería la ventanita para escribir la sugerencia y procesarla para el envío ya sea a email o escribir el txt... o existe alguna forma de subir un archivo txt desde el codigo de autoit

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Gui Sugerencias", 470, 319, 192, 124)
$Button1 = GUICtrlCreateButton("Enviar Sugerencia", 184, 264, 115, 25)
GUICtrlCreateEdit("", 16, 16, 433, 233)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

Gracias de antemano

Dany · Mensaje por **Dany** » 11 Sep 2015, 01:28

Usa un metodo POST.

busca en google ando con flojera ahorita.

Saludos

yasmany · Mensaje por **yasmany** » 12 Sep 2015, 01:30

Esto he conseguido consultando en un lado y otro
Pero no se como hacer para que apartir de un boton de mi gui enviarlo, sin necesidad de cargar la pagina en mi gui, mas bien crear un input en mi gui y lo que escriba lo envie.....

Código: Seleccionar todo

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Example()

Func Example()
	Local $iMsg
	Local $oIE = ObjCreate("Shell.Explorer.2")

	GUICreate("Embedded Web control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
	GUICtrlCreateObj($oIE, 10, 40, 600, 360)

	GUISetState(@SW_SHOW) ;Show GUI

	$oIE.navigate("http://yasmanyorion.site11.com/data/principal.php")

	While 1
		$iMsg = GUIGetMsg()

		Select
			Case $iMsg = $GUI_EVENT_CLOSE
				ExitLoop

		EndSelect
	WEnd
	GUIDelete()
EndFunc   ;==>Example

en este archivo se puede constatar los envíos: http://yasmanyorion.site11.com/?downloa ... iasAvy.txt

CODIFICACION DE ARCHIVO PRINCIPAL [ principal.php ] (es donde muestra el input y el boton de enviar)

Código: Seleccionar todo

<HTML>
<HEAD>
<TITLE> POST YAS </TITLE>
</HEAD>
<BODY>

<FORM method="post" action="funcion.php">
	<input type="text" name="text"><p/>
	<input type="submit" name="boton" value="enviar">
</FORM>
</BODY>
</HTML>

CODIFICACION ARCHIVO QUE RECIBE LOS DATOS PARA ESCRIBIRLOS EN UN TXT [ funcion.php ]

Código: Seleccionar todo

<?php
$texto = $_POST['text'];
echo"$texto";
$file = fopen("sugerenciasAvy.txt", "a");
fwrite($file, "-----------------------------------------------------------------------------------" . PHP_EOL);
fwrite($file, $texto . PHP_EOL);
fclose($file);
?>

Si alguien puede ayudar a solucionar para hacerlo directo de la GUI, me apreciarìa su ayuda

Dany · Mensaje por **Dany** » 12 Sep 2015, 01:47

No necesitas usar IE.
Puedes hacerlo así.

Código: Seleccionar todo

Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("POST", "http://yasmanyorion.site11.com/data/funcion.php", False)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Local $sPost="text=Hola Yasmany soy Una sugerencia"
$oHTTP.Send($sPost)


Local $sRecivido = $oHTTP.ResponseText
Local $iStatusCode = $oHTTP.Status

If $iStatusCode <> 200 then
 MsgBox(4096, "", $iStatusCode)
EndIf

MsgBox(0,"",$sRecivido)

Saludos

yasmany · Mensaje por **yasmany** » 12 Sep 2015, 02:36

Mil gracias Dany ,

excelentìsima ayuda....

Autoit.ES

Enviar sugerencias o enviar email

Enviar sugerencias o enviar email

Re: Enviar sugerencias o enviar email

Re: Enviar sugerencias o enviar email

Re: Enviar sugerencias o enviar email

Re: Enviar sugerencias o enviar email