Beiträge von andynbg9000

Func HotKeyPressed()
    Switch @HotKeyPressed ; The last hotkey pressed.
        Case "{ENTER}" 
			if WinActive("Form1") Then
			Else
			   HotKeySet("{ENTER}")
			   Send("{ENTER}")
			   HotKeySet("{ENTER}", "HotKeyPressed")
			Endif
    EndSwitch
EndFunc   ;==>HotKeyPressed

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
HotKeySet("{ENTER}", "HotKeyPressed")




GUICreate("Form1")
GUISetState(@SW_SHOW)
 While 1
	 Switch GUIGetMsg()
		 Case $GUI_EVENT_CLOSE
			 ExitLoop
	 EndSwitch
  WEnd




Func HotKeyPressed()
	Switch @HotKeyPressed ; The last hotkey pressed.
        Case "{ENTER}"
			if WinActive("Form1") Then
			   ;MsgBox(1, "", "Enter ist deaktiviert")
			Else
			   Send("{ENTER}")
			Endif
    EndSwitch
EndFunc   ;==>HotKeyPressed

HotKeySet("{ENTER}", "HotKeyPressed")


Func HotKeyPressed()
Send("{ENTER}")
 EndFunc   ;==>HotKeyPressed




While 1


WEnd

#include <Winhttp.au3>
;========================>
$HttpOpen = _WinHttpOpen("test")
$HttpConnect = _WinHttpConnect($HttpOpen, "wpXXXXX.server-he.de")
$HttpOpenRequest = _WinHttpOpenRequest($HttpConnect, "GET", "/html/test/Version1.exe", "HTTP/1.1", "http://wpXXXXX.server-he.de/")
If _WinHttpSetCredentials($HttpOpenRequest, $WINHTTP_AUTH_TARGET_SERVER, $WINHTTP_AUTH_SCHEME_BASIC, "BENUTZER", "PASSWORT") = 0 Then
MsgBox(16, "Fehler", "_WinHttpSetCredentials ist fehlgeschlagen. Errorcode: " & @error)
EndIf
_WinHttpSendRequest($HttpOpenRequest)
_WinHttpReceiveResponse($HttpOpenRequest)
If _WinHttpQueryDataAvailable($HttpOpenRequest) Then
    $header = _WinHttpQueryHeaders($HttpOpenRequest)
EndIf
Local $data = Binary("")
While 1
    $chunk = _WinHttpReadData($HttpOpenRequest, 2) ; Binär!
    If Not @extended Then ExitLoop ; @extended = Länge der Rückgabe
    $data &= $chunk
WEnd
$fOpen = FileOpen(@ScriptDir & "\Version1.exe", 26)
FileWrite($fOpen,$data)

#include <Winhttp.au3>
;========================>
$HttpOpen = _WinHttpOpen("test")
$HttpConnect = _WinHttpConnect($HttpOpen, "wpXXXXX.server-he.de")
$HttpOpenRequest = _WinHttpOpenRequest($HttpConnect, "GET", "/html/test/Version1.exe", "HTTP/1.1", "http://wpXXXXX.server-he.de/")




If _WinHttpSetCredentials($HttpOpenRequest, $WINHTTP_AUTH_TARGET_SERVER, $WINHTTP_AUTH_SCHEME_BASIC, "test", "testerich") = 0 Then
MsgBox(16, "Fehler", "_WinHttpSetCredentials ist fehlgeschlagen. Errorcode: " & @error)
EndIf




_WinHttpSendRequest($HttpOpenRequest)
_WinHttpReceiveResponse($HttpOpenRequest)
If _WinHttpQueryDataAvailable($HttpOpenRequest) Then
    $header = _WinHttpQueryHeaders($HttpOpenRequest)
EndIf
Local $data = Binary("")
While 1
    $chunk = _WinHttpReadData($HttpOpenRequest, 2) ; Binär!
    If Not @extended Then ExitLoop ; @extended = Länge der Rückgabe
    $data &= $chunk
WEnd
$fOpen = FileOpen(@ScriptDir & "\Version1.exe", 26)
FileWrite($fOpen,$data)

#include <Winhttp.au3>
;========================>
$HttpOpen = _WinHttpOpen("test")
$HttpConnect = _WinHttpConnect($HttpOpen, "wpXXXXX.server-he.de")
$HttpOpenRequest = _WinHttpOpenRequest($HttpConnect, "GET", "/html/test/Version1.exe", "HTTP/1.1", "http://wpXXXXX.server-he.de/")
If _WinHttpSetCredentials($HttpOpenRequest, $WINHTTP_AUTH_TARGET_SERVER, $WINHTTP_AUTH_SCHEME_BASIC, "test", "testerich") = 0 Then
MsgBox(16, "Fehler", "_WinHttpSetCredentials ist fehlgeschlagen. Errorcode: " & @error)
EndIf
_WinHttpSendRequest($HttpOpenRequest)
_WinHttpReceiveResponse($HttpOpenRequest)
If _WinHttpQueryDataAvailable($HttpOpenRequest) Then
    $header = _WinHttpQueryHeaders($HttpOpenRequest)
EndIf
Local $data = ""
Do
    $data &= _WinHttpReadData($HttpOpenRequest,1)
Until @error
$fOpen = FileOpen(@ScriptDir & "\Version1.exe", 26)
FileWrite($fOpen,$data)

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


; Download a file in the background.
; Wait for the download to complete.


Example()


Func Example()
    ; Save the downloaded file to the temporary folder.
    Local $sFilePath = _WinAPI_GetTempFileName(@TempDir)


    ; Download the file in the background with the selected option of 'force a reload from the remote site.'
    Local $hDownload = InetGet("http://www.autoitscript.com/autoit3/files/beta/update.dat", $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)


    ; Wait for the download to complete by monitoring when the 2nd index value of InetGetInfo returns True.
    Do
        Sleep(250)
    Until InetGetInfo($hDownload, $INET_DOWNLOADCOMPLETE)


    ; Retrieve the number of total bytes received and the filesize.
    Local $iBytesSize = InetGetInfo($hDownload, $INET_DOWNLOADREAD)
    Local $iFileSize = FileGetSize($sFilePath)


    ; Close the handle returned by InetGet.
    InetClose($hDownload)


    ; Display details about the total number of bytes read and the filesize.
    MsgBox($MB_SYSTEMMODAL, "", "The total download size: " & $iBytesSize & @CRLF & _
            "The total filesize: " & $iFileSize)


    ; Delete the file.
    FileDelete($sFilePath)
EndFunc   ;==>Example

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <EditConstants.au3>


global $text
HotKeySet ("{F4}", "startf4")


Opt("GUIOnEventMode", 1)
GUICreate("GUI", 200, 100, -1, -1)
$Input = GUICtrlCreateEdit("",5,5,190,21*3, BitOR($ES_WANTRETURN,$ES_AUTOVSCROLL))
GUICtrlCreateButton("ok", 70, 70, 60, 20)
GUICtrlSetOnEvent(-1, "speichern")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState()


While 1
	Sleep(100)
WEnd


Func _Exit()
	Exit
EndFunc


Func speichern()
   $text = GUICtrlRead ($Input)
   MsgBox($MB_SYSTEMMODAL,"", "Dein Text wurde auf F4 hinterlegt:" &@CRLF&@CRLF& $text)
EndFunc


Func startf4 ()
   Send ($text)
EndFunc