Beiträge von wolkenloser

BlockInput(1)
AutoItSetOption("MouseCoordMode", 1)
Run("rundll32.exe shell32.dll,Options_RunDLL 1")
Winwait("Eigenschaften von Taskleiste und Startmenü", "Taskleiste")
ControlCommand("Eigenschaften von Taskleiste und Startmenü", "Taskleiste", "Button5","Check", "")
;ControlClick("Eigenschaften von Taskleiste und Startmenü", "Taskleiste", "Button5")
Sleep(500)
ControlClick("Eigenschaften von Taskleiste und Startmenü", "Taskleiste", "Button11");OK
WinWaitClose("Eigenschaften von Taskleiste und Startmenü", "Taskleiste")
BlockInput(0)
exit

#include <GUIConstants.au3>
;Generated with Form Designer preview
$Form1 = GUICreate("AForm1", 194, 404, 189, 120)
$Button1 = GUICtrlCreateButton("1", 15, 35, 156, 26)
$Button2 = GUICtrlCreateButton("2", 15, 70, 156, 26)
$Button3 = GUICtrlCreateButton("3", 15, 105, 156, 26)
$Button4 = GUICtrlCreateButton("4", 15, 140, 156, 26)
$Button5 = GUICtrlCreateButton("5", 15, 175, 156, 26)
GUISetState(@SW_SHOW)
While 1
	$msg = GuiGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE
		ExitLoop
	Case Else
		;;;;;;;
	EndSelect
WEnd
Exit

; Dieses Script holte die neusten Virusdefinitionen vom Symantec Server ab


#include <ftp.au3>
dim $dl_file
 
$server = 'ftp.symantec.com'
$username = 'anonymous'
$pass = 'anonymous@test.de'




$Open = _FTPOpen('MyFTP Control')
If @error Then Failed("Open")
$Conn = _FTPConnect($Open, $server, $username, $pass)
If @error Then Failed("Connect")


Dim $Handle
Dim $DllRect


$FileInfo = _FtpFileFindFirst($Conn, '/public/english_us_canada/antivirus_definitions/norton_antivirus/*i32.exe*', $Handle, $DllRect)
If $FileInfo[0] Then
   Do
;~        MsgBox(0, "Find", $FileInfo[1] & @CR & $FileInfo[2] & @CR & $FileInfo[3] & @CR & $FileInfo[4] & @CR & $FileInfo[5] & @CR & $FileInfo[6] & @CR & $FileInfo[7] & @CR & $FileInfo[8] & @CR & $FileInfo[9] & @CR & $FileInfo[10])
       $dl_file = $FileInfo[10]
	   $FileInfo = _FtpFileFindNext($Handle, $DllRect)

   Until Not $FileInfo[0]
EndIf




_FtpFileFindClose($Handle, $DllRect)
MsgBox(0,"FTP File", "für DL vorgesehen:" & $dl_file)
$Ftpg = _FTPGetFile($Conn, "/public/english_us_canada/antivirus_definitions/norton_antivirus/" & $dl_file,"c:" & $dl_file)




$Ftpc = _FTPClose($Open)
If @error Then Failed("Close")


Exit


Func Failed($F)
   MsgBox(0, "FTP", "Failed on: " & $F)
   Exit 1
EndFunc

; =================================================  FTP Functions for UDF  ==========================================================




Local Const $FTP_ASCII = 1
Local Const $FTP_BINARY = 2
Local Const $FTP_OVERWRITE = 0
Local Const $FTP_DONTOVERWRIRE = -1
Local Const $FTP_PASSIVE = 0x8000000
Local Const $FTP_NONPASSIVE = 0




;===============================================================================


;
; Function Name:    _FTPFileFindFirst()
; Description:      Find First File on an FTP server.
; Parameter(s):     $l_FTPSession - The Long from _FTPConnect()
;                   $s_RemoteFile   - The remote Location for the file.
;                   $l_Flags  - use the dwFlags parameter to specify 1 for transferring the file in ASCII (Type A transfer method) or 2 for transferring the file in Binary (Type I transfer method).
;                   $l_Context   - lContext is used to identify the application context when using callbacks. Since we’re not using callbacks we’ll pass 0.
; Requirement(s):   DllCall, wininet.dll
; Return Value(s):  On Success - 1
;                   On Failure - 0
; Author(s):        Dick Bronsdijk
;
;===============================================================================




#cs 
   typedef struct _WIN32_FIND_DATA {
       DWORD dwFileAttributes;
       FILETIME ftCreationTime;
       FILETIME ftLastAccessTime;
       FILETIME ftLastWriteTime;
       DWORD nFileSizeHigh;
       DWORD nFileSizeLow;
       DWORD dwReserved0;
       DWORD dwReserved1;
       TCHAR cFileName[MAX_PATH];
       TCHAR cAlternateFileName[14];
   } WIN32_FIND_DATA;
   typedef struct _FILETIME {
       DWORD dwLowDateTime;
       DWORD dwHighDateTime;
   } FILETIME; 
#ce
Func _FTPFileFindFirst($l_FTPSession, $s_RemoteFile, ByRef $h_Handle, ByRef $l_DllStruct, $l_Flags = 0, $l_Context = 0)


   Local $str  = "int;uint[2];uint[2];uint[2];int;int;int;int;char[256];char[14]"
   $l_DllStruct = DllStructCreate($str)
   if @error Then
 SetError(-2)
 Return ""
   endif


   Dim $a_FTPFileList[1]
   $a_FTPFileList[0] = 0


   Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'FtpFindFirstFile', 'long', $l_FTPSession, 'str', $s_RemoteFile, 'ptr', DllStructGetPtr($l_DllStruct), 'long', $l_Flags, 'long', $l_Context)
If @error OR $ai_FTPPutFile[0] = 0 Then
 SetError(-1)
 Return $a_FTPFileList
EndIf
   $h_Handle = $ai_FTPPutFile[0]
   $FileName = DllStructGetData($l_DllStruct, 9)


   Dim $a_FTPFileList[12]
   $a_FTPFileList[0] = 12
   $a_FTPFileList[1] = DllStructGetData($l_DllStruct, 1)      ; File Attributes
   $a_FTPFileList[2] = DllStructGetData($l_DllStruct, 2, 1)   ; Creation Time Low
   $a_FTPFileList[3] = DllStructGetData($l_DllStruct, 2, 2)   ; Creation Time High
   $a_FTPFileList[4] = DllStructGetData($l_DllStruct, 3, 1)   ; Access Time Low
   $a_FTPFileList[5] = DllStructGetData($l_DllStruct, 3, 2)   ; Access Time High
   $a_FTPFileList[6] = DllStructGetData($l_DllStruct, 4, 1)   ; Last Write Low
   $a_FTPFileList[7] = DllStructGetData($l_DllStruct, 4, 2)   ; Last Write High
   $a_FTPFileList[8] = DllStructGetData($l_DllStruct, 5)      ; File Size High
   $a_FTPFileList[9] = DllStructGetData($l_DllStruct, 6)      ; File Size Low
   $a_FTPFileList[10] = DllStructGetData($l_DllStruct, 9)     ; File Name
   $a_FTPFileList[11] = DllStructGetData($l_DllStruct, 10)    ; Altername


   Return $a_FTPFileList


EndFunc;==> _FTPFileFindFirst()


;===============================================================================


;
; Function Name:    _FTPFileFindNext()
; Description:      Find Next File on an FTP server.
; Parameter(s):     $l_FTPSession - The Long from _FTPConnect()
;                   $s_RemoteFile   - The remote Location for the file.
; Requirement(s):   DllCall, wininet.dll
; Return Value(s):  On Success - 1
;                   On Failure - 0
; Author(s):        Dick Bronsdijk
;
;===============================================================================




Func _FTPFileFindNext($h_Handle, $l_DllStruct)


   Dim $a_FTPFileList[1]
   $a_FTPFileList[0] = 0


   Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'InternetFindNextFile', 'long', $h_Handle, 'ptr', DllStructGetPtr($l_DllStruct))
If @error OR $ai_FTPPutFile[0] = 0 Then
 SetError(-1)
       Return $a_FTPFileList
EndIf


   Dim $a_FTPFileList[12]
   $a_FTPFileList[0] = 12
   $a_FTPFileList[1] = DllStructGetData($l_DllStruct, 1)      ; File Attributes
   $a_FTPFileList[2] = DllStructGetData($l_DllStruct, 2, 1)   ; Creation Time Low
   $a_FTPFileList[3] = DllStructGetData($l_DllStruct, 2, 2)   ; Creation Time High
   $a_FTPFileList[4] = DllStructGetData($l_DllStruct, 3, 1)   ; Access Time Low
   $a_FTPFileList[5] = DllStructGetData($l_DllStruct, 3, 2)   ; Access Time High
   $a_FTPFileList[6] = DllStructGetData($l_DllStruct, 4, 1)   ; Last Write Low
   $a_FTPFileList[7] = DllStructGetData($l_DllStruct, 4, 2)   ; Last Write High
   $a_FTPFileList[8] = DllStructGetData($l_DllStruct, 5)      ; File Size High
   $a_FTPFileList[9] = DllStructGetData($l_DllStruct, 6)      ; File Size Low
   $a_FTPFileList[10] = DllStructGetData($l_DllStruct, 9)     ; File Name
   $a_FTPFileList[11] = DllStructGetData($l_DllStruct, 10)    ; Altername


   Return $a_FTPFileList


EndFunc;==> _FTPFileFindNext()


;===============================================================================


;
; Function Name:    _FTPFileFindClose()
; Description:      Delete FindFile Structure.
; Parameter(s):     
; Requirement(s):   DllCall, wininet.dll
; Return Value(s):  On Success - 1
;                   On Failure - 0
; Author(s):        Dick Bronsdijk
;
;===============================================================================




Func _FTPFileFindClose($h_Handle, $l_DllStruct)


   DllStructDelete($l_DllStruct)

   Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'InternetCloseHandle', 'long', $h_Handle)
If @error OR $ai_FTPPutFile[0] = 0 Then
 SetError(-1)
       Return ""
EndIf


Return $ai_FTPPutFile[0]

EndFunc;==> _FTPFileFindClose()


;===============================================================================
;
; Function Name:    _FTPGetFile() - db Test
; Description:      Gets an file from an FTP server.
; Parameter(s):     $l_FTPSession    - The Long from _FTPConnect()
;                   $s_RemoteFile      - The remote Location for the file.
;                   $s_LocalFile     - The local file.
;                   $l_Flags        - use the dwFlags parameter to specify
;                                   -    1 for transferring the file in ASCII (Type A transfer method) or 
;                                   -    2 for transferring the file in Binary (Type I transfer method).
;                   $l_Fail         - Allow local file to be overwritten if it exists
;                                   -   -1 Don't allow overwrite (default)
;                                   -    0 Allow overwrite
;                   $l_Attributes   - Attributes for local file
;                   $l_Context      - lContext is used to identify the application context when using callbacks. Since we’re not using callbacks we’ll pass 0.
; Requirement(s):   DllCall, wininet.dll
; Return Value(s):  On Success - 1
;                   On Failure - 0
; Author(s):        Dick Bronsdijk
;
;===============================================================================




Func _FTPGetFile($l_FTPSession, $s_RemoteFile, $s_LocalFile, $l_Flags = 2, $l_Fail = -1, $l_Attributes = 0, $l_Context = 0)


   Local $ai_FTPGetFile = DllCall('wininet.dll', 'int', 'FtpGetFile', 'long', $l_FTPSession, 'str', $s_RemoteFile, 'str', $s_LocalFile, 'long', $l_Fail, 'long', $l_Attributes, 'long', $l_Flags, 'long', $l_Context)
   If @error OR $ai_FTPGetFile[0] = 0 Then
       SetError(-1)
       Return 0
   EndIf

   Return $ai_FTPGetFile[0]

EndFunc;==> _FTPGetFile()

#include <Constants.au3>
;~ Betaversion wird benötigt


$PID = InputBox("Fenstertitel zu PID finden","Bitte PID eingeben","")
$Befehl = 'tasklist /v |find "' & $PID & '"'


$read = Run(@ComSpec & ' /c ' & $Befehl, "c:", @SW_HIDE, $STDOUT_CHILD)
ProcessWaitClose($read)


While 1
   $out = StdoutRead($read)
    If @error = -1 Then ExitLoop
$out2 = StringSplit($out,":",1)
$out3 = StringTrimLeft($out2[3],3)
      	  MsgBox(0,"Festertitel zu PID:" & $PID,$out3)
Wend

Drucker_ermitteln9x()
Run ("notepad " & $AUSGABEFILE)
Func Drucker_ermitteln()


$FILE1 = FileOpen($AUSGABEFILE,1)
	FileWriteLine($FILE1, "")
	FileWriteLine($FILE1, "")
	FileWriteLine($FILE1, "[DRUCKER]")
	FileWriteLine($FILE1, "___________________________________________________________")


$var_n = 0
do 
$var_n = $var_n +1
$drucker = RegEnumKey("HKLM\SYSTEM\ControlSet001\Control\Print\printers",$var_n)
	if $drucker > "" Then 
		$port = RegRead("HKLM\SYSTEM\ControlSet001\Control\Print\printers" & $drucker,"Port")
		FileWriteLine($FILE1,$drucker & " -> PORT:" & $port)
	EndIf


Until $drucker = ""
FileClose($FILE1)
;Run("notepad " & $file)
EndFunc