Wesentlich einfacher (und übersichtlicher) wäre es, wenn du alles in eine Section (zb. "Zeit") packst, anstatt ganz viele sections zu machen.
Dann kannst du ganz einfach mit _IniReadSection() und _arraysort() arbeiten.
Beiträge von SEuBo
-
-
[autoit]
While 1
[/autoit]
sleep(1)
Wend
Ans Ende deines skriptes. -
übrigens ist es egal ob mit oder ohne leerzeichen - die werden nämlich weggetrimmt.
-
Version 1:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>HotKeySet("{F9}","Start")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{F10}","Pause")
HotKeySet("{F11}","Beenden")Opt('TrayMenuMode', 1) ; Tray-Standardmenü ausschalten
[/autoit] [autoit][/autoit] [autoit]
Opt('TrayAutoPause', 0) ; AutoPause ausschalten
Opt('TrayIconHide', 1) ; Tray-Menü verstecken$ToogleTray = TrayCreateItem('Anzeigen') ; Tray-Menü erstellen
[/autoit] [autoit][/autoit] [autoit]
$TrayExit = TrayCreateItem('Beenden') ; Tray-Menü erstellen
$hide = 0$GUI_Main = GUICreate("Test", 274, 258, 593, 314)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Pic1 = GUICtrlCreatePic("C:\Users\Robin\Saved Games\Desktop\CS MAPPEN\Bilder\Bg_Texturen.jpg", 0, 0, 273, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Hotkeys", 200, 0, 73, 17)
GUISetState(@SW_SHOW)Func _toogleGUI()
[/autoit] [autoit][/autoit] [autoit]
Switch $hide
Case 1
GUISetState(@SW_SHOW)
GUISetstate(@SW_RESTORE)
Opt('TrayIconHide', 1) ; Tray-Menü verstecken
$hide = 0
Case 0
GUISetState(@SW_MINIMIZE)
GUISetState(@SW_HIDE)
$hide = 1
Opt('TrayIconHide', 0) ; Tray-Menü anzeigen
TrayTip("Im Tray...","Programm wurde in den Tray minimiert",1)
While $hide = 1
Switch TrayGetMsg()
Case $TrayExit
Beenden()
Case $ToogleTray
_ToogleGUI()
EndSwitch
WEnd
EndSwitch
EndFunc
Func Start()
;hier die funktion
EndFuncFunc Pause()
[/autoit] [autoit][/autoit] [autoit]
;hier die funktion
EndFuncFunc Beenden()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncWhile 1
[/autoit]
$gMsg = GUIGetMsg()
Switch $gMsg
Case $GUI_EVENT_CLOSE
_toogleGUI()
Case $Button1
MsgBox(0,"","F9 = Starten F10 = Pausieren F11 = Beenden")
EndSwitch
WEndVersion 2:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>HotKeySet("{F9}","Start")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{F10}","Pause")
HotKeySet("{F11}","Beenden")Opt('TrayMenuMode', 1) ; Tray-Standardmenü ausschalten
[/autoit] [autoit][/autoit] [autoit]
Opt('TrayAutoPause', 0) ; AutoPause ausschalten$ToogleTray = TrayCreateItem('Anzeigen/Verstecken') ; Tray-Menü erstellen
[/autoit] [autoit][/autoit] [autoit]
$TrayExit = TrayCreateItem('Beenden') ; Tray-Menü erstellen
$hide = 0$GUI_Main = GUICreate("Test", 274, 258, 593, 314)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Pic1 = GUICtrlCreatePic("C:\Users\Robin\Saved Games\Desktop\CS MAPPEN\Bilder\Bg_Texturen.jpg", 0, 0, 273, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Hotkeys", 200, 0, 73, 17)
GUISetState(@SW_SHOW)Func _toogleGUI()
[/autoit] [autoit][/autoit] [autoit]
Switch $hide
Case 1
GUISetState(@SW_SHOW)
GUISetstate(@SW_RESTORE)
TrayTip("Im Tray...","Programm wurde in den Tray minimiert",1)
$hide = 0
Case 0
GUISetState(@SW_MINIMIZE)
GUISetState(@SW_HIDE)
$hide = 1
EndSwitch
EndFunc
Func Start()
;hier die funktion
EndFuncFunc Pause()
[/autoit] [autoit][/autoit] [autoit]
;hier die funktion
EndFuncFunc Beenden()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncWhile 1
[/autoit] [autoit][/autoit] [autoit]
$gMsg = GUIGetMsg()
Switch $gMsg
Case $GUI_EVENT_CLOSE
_toogleGUI()
Case $Button1
MsgBox(0,"","F9 = Starten F10 = Pausieren F11 = Beenden")
EndSwitch$tMsg = TrayGetMsg()
[/autoit]
Switch $tMsg
Case $TrayExit
Beenden()
Case $ToogleTray
_ToogleGUI()
EndSwitch
WEndSchau dir bitte vor deiner nächsten fragen das hier an:
http://www.autoit.de/dokumentation_aktuell/AutoIt.htm
http://wiki.autoit.de/wiki/index.php/Tutorial
http://wiki.autoit.de/wiki/index.php/Tutorial2https://autoit.de/index.php?page=Thread&threadID=11898
http://www.autoit.de/dokumentation/faq.htm -
Wenn der thread gelöst ist, stell ihn doch bitte auch auf "Gelöst" indem du deinen ersten Post bearbeitest, und bei Präfix "gelöst" auswählst.
-
hmm naja wenn man sich da wirklich ausgiebig mit befasst kann man auch das komplette konvertieren automatisieren -> Wenns ein PDF ist, soll es vom Acrobat reader aus exportiert werden. Bei nem .doc halt von Word/OpenOffice aus. Möglich ist mit AutoIt (fast) alles
Auf 64 Bit umgebung wird es mit sicherheit laufen - dafür haben 64 bit systeme ja 32 bit emulatoren.
Und auf Linux funktioniert diese Version zu 99% auch. Dank Wine. (kanns leider nich testen - Mein pc hat kein ubuntu mehr... )hier übrigens die "auskommentierte" version - falls es dich groß interessiert was da genau passiert..
Spoiler anzeigen
[autoit]#Include <File.au3> ; dieses Include wird von den Funktionen _FileListToArray und _FileWriteFromArray benötigt.
[/autoit] [autoit][/autoit] [autoit]$Pfad = @UserProfileDir&"\Desktop\HTML\" ; Hier der gewünschte Pfad.
[/autoit] [autoit][/autoit] [autoit]
$Files = _FileListToArray($Pfad,"*",1) ; Liest die Dateien im o.g. Pfad in einen Array.If Not @error Then ; Wenn das ganze Fehlerfrei ablief,
[/autoit] [autoit][/autoit] [autoit]
;Kann die eigentliche Aufgabe starten...
;Hier folgt nun der Text der kommen soll
Dim $text[10] ; mit Dim wird ein Array definiert, der deinen Text enthält.
$text[0] = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
$text[1] = '<html xmlns="http://www.w3.org/1999/xhtml">'
$text[2] = '<head>'
$text[3] = '<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />'
$text[4] = '<title>Untitled Document</title>'
$text[5] = '</head>'
$text[6] = @CRLF
$text[7] = '<body>'
$text[8] = '</body>'
$text[9] = '</html>'For $i = 1 to $Files[0] ; startet eine schleife, mit so vielen durchläufen wie Dateien gefunden wurden
[/autoit]
_FileWriteFromArray($Pfad&"\"&$Files[$i]&".html",$text) ;Erstellt die jeweilige Datei und schreibt den Text in selbige.
Next ; Danach...
MsgBox(0,"","Fertig") ;Selbsterklärend.
Else
MsgBox(0,"","Fehler!!!") ;Selbsterklärend.
EndIf -
Nich dass ich jetzt anfange wild vor mich hin zu programmieren.. Wie werden denn die Dateien zu html umgewandelt? Ich setzt mich mal schnell an das erstellen der (fast) leeren HTML dateien.. wenn ich fertig bin meld ich mich nochmal per /edit
EDIT:
Spoiler anzeigen
[autoit]#Include <File.au3>
[/autoit]
$Pfad = @UserProfileDir&"\Desktop\HTML\"
$Files = _FileListToArray($Pfad,"*",1)
If Not @error Then
Dim $text[10]
$text[0] = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
$text[1] = '<html xmlns="http://www.w3.org/1999/xhtml">'
$text[2] = '<head>'
$text[3] = '<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />'
$text[4] = '<title>Untitled Document</title>'
$text[5] = '</head>'
$text[6] = @CRLF
$text[7] = '<body>'
$text[8] = '</body>'
$text[9] = '</html>'
_ArrayDisplay($text)
For $i = 1 to $Files[0]
_FileWriteFromArray($Pfad&"\"&$Files[$i]&".html",$text)
Next
MsgBox(0,"","Fertig")
Else
MsgBox(0,"","Fehler!!!")
EndIfIch hoffe es ist das was du suchst. ansonsten kannst du ja einfach nochmal für dumme SEuBo's erklären
-
[autoit]
Exit
[/autoit] -
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>$gui_main = GUICreate("Beispiel",500,400)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$gui_child1 = GUICreate("",457,336,20,42,$WS_CHILD,-1,$gui_main);Child GUI mit Tabs
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateTab(0,0,457,336)
GUICtrlCreateTabItem("Untertab 1")
GUICtrlCreateTabItem("Untertab 2")
GUICtrlCreateTabItem("Untertab 3")
GUICtrlCreateTabItem("Untertab 4")
GUICtrlCreateTabItem("Untertab 5")
GUICtrlCreateTabItem("")
GUISetState(@SW_HIDE)$gui_child2 = GUICreate("",455,336,21,42,$WS_CHILD,-1,$gui_main);Child GUI mit Tabs
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0xFFFFFF)
GUICtrlCreateButton("Hallo",20,30)
GUISetState(@SW_SHOW)GUISwitch($gui_main)
[/autoit] [autoit][/autoit] [autoit]
$gui_MainTab = GUICtrlCreateTab(20,20,460,360)
GUICtrlCreateTabItem("Tab Nummer 1")
GUICtrlCreateTabItem("Tab Nummer 2")
GUICtrlCreateTabItem("Tab Nummer 3")
GUICtrlCreateTabItem("Tab Nummer 4")
GUICtrlCreateTabItem("Tab Nummer 5")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)While 1 * Sleep(20)
[/autoit]
$msg = GUIGetMsg()
Switch $msg
Case $gui_MainTab
Switch GUICtrlRead($gui_MainTab)
Case 0
GUISetState(@SW_HIDE, $gui_child1)
GUISetState(@SW_SHOW, $gui_child2)
Case 1
GUISetState(@SW_SHOW, $gui_child1)
GUISetState(@SW_HIDE, $gui_child2)
Case 2
GUISetState(@SW_SHOW, $gui_child1)
GUISetState(@SW_HIDE, $gui_child2)
Case 3
GUISetState(@SW_SHOW, $gui_child1)
GUISetState(@SW_HIDE, $gui_child2)
Case 4
GUISetState(@SW_HIDE, $gui_child1)
GUISetState(@SW_SHOW, $gui_child2)
Case 5
GUISetState(@SW_HIDE, $gui_child1)
GUISetState(@SW_HIDE, $gui_child2)
EndSwitch
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEndGrad mal auf die schnelle gebastelt. Das ist die "komplizierte" version, aber dafür hast du die möglichkeit schriftgröße & co noch individuell zu gestalten. die andere möglichkeit wäre die benutzung von
[autoit]_GUICtrlTab_Create
[/autoit] -
ja genau so ich verwechsle als die namen xD sry ich meine SEuBo thx und den anderen es lag daran das da ein bild ist deshalb könnt ich den button nicht klicken kann man das irgendwie so amchen das ich den button trozdem klicken kann wenn das bild da ist
[autoit]$Pic1 = GUICtrlCreatePic("C:\Users\Robin\Saved Games\Desktop\CS MAPPEN\Bilder\Bg_Texturen.jpg", 0, 0, 273, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
[/autoit]
GUICtrlSetState(-1,$GUI_DISABLE)Zufrage 2
[autoit]
[/autoit][autoit][/autoit][autoit]
WinActivate()
Send();Oder diese Version, die auch im hintergrund funktionert aber etwas mehr aufwand ist ( und auch nicht in jedem programm
[/autoit][autoit][/autoit][autoit]ControlSend()
[/autoit]Da sich das hier zunehmend in Richtugn "Bot" entwickelt, würde ich gerne mal vorweg auf die Forenregeln,besonders auf Teil 2 verweisen.
-
So? oder hab ich das missverstanden?
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 274, 258, 593, 314)
$Pic1 = GUICtrlCreatePic("C:\Users\Robin\Saved Games\Desktop\CS MAPPEN\Bilder\Bg_Texturen.jpg", 0, 0, 273, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Hotkeys", 200, 0, 73, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###HotKeySet("{F9}","Start")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{F10}","Pause")
HotKeySet("{F11}","Beenden")While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0,"","F9 = Starten F10 = Pausieren F11 = Beenden")EndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEndFunc Start()
[/autoit] [autoit][/autoit] [autoit]
;hier die funktion
EndFuncFunc Pause()
[/autoit] [autoit][/autoit] [autoit]
;hier die funktion
EndFuncFunc Beenden()
[/autoit]
;hier die funktion
EndFuncÜbrigens - wenn du die Hotkeysets hinter die While-Schleife setzt, werden sie erst beim beenden des Skripts definiert. deswegen solltest du sie an gegebener stelle ( meistens ganz am Anfang ) definieren.
-
Schau dir malt Hotkeysetan wenn die funk zeile an ist wird keine funktion geöffnet wenn ein inhalt ist dann wird die Funktion aufgerufen
gruss Simon
Du solltest unbedingt langsamer schreiben oder nochmal lesen was du da schreibst... denn selbst ich versteh den Satz nicht :O (nich bös' gemeint ^^)Hiermit kannst du einen hotkey an einer beliebigen stelle in deinem skript setzen.
[autoit]
[/autoit]
HotKeySet("{ENTER}","Enterpressed()")Und hiermit entfernst du den hokey wider.
[autoit]
[/autoit]
HotKeySet("{ENTER}","") -
Hmm du trägst zwar Username/Passwort fleißig in variablen ein, aber die werden dem Server ja nicht übermittelt. Smtp mit authentifizierung funktioniert nur mit der benutzerdefinierten Funktion _InetSmtpAuth() von bernd670. Verusch doch einfach mal das hier ans ende deines scriptes zu hängen:
Spoiler anzeigen
[autoit];===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _INetSmtpMailAuth()
; Description: Sends an email using SMTP over TCP IP.
; Parameter(s): $s_SmtpServer - SMTP server to be used for sending email
; $s_FromName - Name of sender
; $s_FromAddress - eMail address of sender
; $s_ToAddress - Address that email is to be sent to
; $s_Username - Username for Authentication (bernd670)
; $s_Passwd - Password for Authentication (bernd670)
; $s_Subject - Subject of eMail
; $as_Body - Single dimension array containing the body of eMail as strings
; $s_helo - Helo identifier (default @COMPUTERNAME) sometime needed by smtp server
; $s_first - send before Helo identifier (default @CRLF) sometime needed by smtp server
; $b_trace - trace on a splash window (default 0 = no trace)
; Requirement(s): None
; Return Value(s): On Success - Returns 1
; On Failure - 0 and sets
; @ERROR = 1 - Invalid Parameters
; @ERROR = 2 - Unable to start TCP
; @ERROR = 3 - Unable to resolve IP
; @ERROR = 4 - Unable to create socket
; @ERROR = 5x - Cannot open SMTP session
; @ERROR = 50x - Cannot send body
; @ERROR = 5000 - Cannot close SMTP session
; Authors: Original function to send email via TCP - Asimzameer
; Conversion to UDF - Walkabout
; Correction Helo, timeout, trace - Jpm
; Correction send before Helo - Jpm
; Include Authentication - bernd670
;
;===============================================================================
Func _INetSmtpMailAuth($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Username, $s_Passwd, $s_Subject = "", $as_Body = "", $s_helo = "", $s_first = "-1", $b_trace = 0)
Local $v_Socket
Local $s_IPAddress
Local $i_Count
Local $s_Send[9]
Local $s_ReplyCode[9];Return code from SMTP server indicating success
If $s_SmtpServer = "" Or $s_FromAddress = "" Or $s_ToAddress = "" Or $s_Username = "" Or $s_Passwd = "" Or $s_FromName = "" Or StringLen($s_FromName) > 256 Then
SetError(1)
Return 0
EndIf
If $s_helo = "" Then $s_helo = @ComputerName
If TCPStartup() = 0 Then
SetError(2)
Return 0
EndIf
StringRegExp($s_SmtpServer, "(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)")
If @extended Then
$s_IPAddress = $s_SmtpServer
Else
$s_IPAddress = TCPNameToIP($s_SmtpServer)
EndIf
If $s_IPAddress = "" Then
TCPShutdown()
SetError(3)
Return 0
EndIf
$v_Socket = TCPConnect($s_IPAddress, 25)
If $v_Socket = -1 Then
TCPShutdown()
SetError(4)
Return (0)
EndIf
$s_Send[0] = "EHLO " & $s_helo & @CRLF
;~ If StringLeft($s_helo,5) <> "EHLO " Then $s_Send[0] = "EHLO " & $s_helo & @CRLF
$s_ReplyCode[0] = "250"$s_Send[1] = "AUTH LOGIN" & @CRLF
[/autoit] [autoit][/autoit] [autoit]
$s_ReplyCode[1] = "334"
$s_Send[2] = _Base64Encoding($s_Username) & @CRLF
$s_ReplyCode[2] = "334"
$s_Send[3] = _Base64Encoding($s_Passwd) & @CRLF
$s_ReplyCode[3] = "235"
$s_Send[4] = "MAIL FROM: <" & $s_FromAddress & ">" & @CRLF
$s_ReplyCode[4] = "250"
$s_Send[5] = "RCPT TO: <" & $s_ToAddress & ">" & @CRLF
$s_ReplyCode[5] = "250"
$s_Send[6] = "DATA" & @CRLF
$s_ReplyCode[6] = "354"
$s_Send[7] = "From: " & $s_FromName & " <" & $s_FromAddress & ">" & @CRLF & _
"To: " & "<" & $s_ToAddress & ">" & @CRLF & _
"Subject: " & $s_Subject & @CRLF & _
"Mime-Version: 1.0" & @CRLF & _
"Content-Type: text/plain; charset=US-ASCII" & @CRLF & _
@CRLF
$s_ReplyCode[7] = ""
$s_Send[8] = @CRLF & "." & @CRLF
$s_ReplyCode[8] = "250"; open stmp session
[/autoit] [autoit][/autoit] [autoit]
If _SmtpSend($v_Socket, $s_Send[0], $s_ReplyCode[0], $b_trace, "220", $s_first) Then
SetError(50)
Return 0
EndIf; send header
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
For $i_Count = 0 To UBound($s_Send) - 2
If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then
SetError(50 + $i_Count)
Return 0
EndIf
Next
; send body records (a record can be multiline : take care of a subline beginning with a dot should be ..)
For $i_Count = 0 To UBound($as_Body) - 1
; correct line beginning with a dot
If StringLeft($as_Body[$i_Count], 1) = "." Then $as_Body[$i_Count] = "." & $as_Body[$i_Count]
If _SmtpSend($v_Socket, $as_Body[$i_Count] & @CRLF, "", $b_trace) Then
SetError(500 + $i_Count)
Return 0
EndIf
Next
; close the smtp session
$i_Count = UBound($s_Send) - 1
If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then
SetError(5000)
Return 0
EndIf
TCPCloseSocket($v_Socket)
TCPShutdown()
Return 1
EndFunc ;==>_INetSmtpMailAuth;===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _Base64Encoding()
; Description: Kodiert eine Zeichenfolge mit dem Base64-Verfahren
; (http://de.wikipedia.org/wiki/Base64)
; Parameter(s): $String - Zeichenfolge die kodiert werden soll
; Requirement(s): None
; Return Value(s): Kodierte Zeichenfolge
; Authors: bernd670
;
;===============================================================================
Func _Base64Encoding($String)$strUmsetzung = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
[/autoit] [autoit][/autoit] [autoit]
$strRetValue = ""For $i = 1 To StringLen($String) Step 3
[/autoit] [autoit][/autoit] [autoit]
$strTok = StringMid($String, $i, 3)
Switch StringLen($strTok)
Case 3
$iTokVal = (Asc(StringMid($strTok, 1, 1)) * 256 + _
Asc(StringMid($strTok, 2, 1))) * 256 + _
Asc(StringMid($strTok, 3, 1))
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1)
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$strRetValue &= $strTokCrytCase 2
[/autoit] [autoit][/autoit] [autoit]
$iTokVal = (Asc(StringMid($strTok, 1, 1)) * 256 + _
Asc(StringMid($strTok, 2, 1))) * 256
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1)
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$strRetValue &= $strTokCryt & "="Case 1
[/autoit] [autoit][/autoit] [autoit]
$iTokVal = Asc(StringMid($strTok, 1, 1)) * 65536
$iTokVal = BitShift($iTokVal, 12)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1)
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$strRetValue &= $strTokCryt & "=="EndSwitch
[/autoit] [autoit][/autoit] [autoit]
NextReturn $strRetValue
[/autoit]
EndFunc ;==>_Base64EncodingUnd deine Mail statt mit
[autoit]
[/autoit]
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject)
[autoit]
mit dem hier zu senden:
[/autoit]
Dim $as_Body[2]
$as_Body[0] = "Hallo,"
$as_Body[1] = "Ich teste das hier nur mal schnell"
$Response = _INetSmtpMailAuth($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_UName, $s_PWD, $s_Subject, $as_Body)Keine Garantie
-
Habe mir gerade das hier zum testen gebastelt. Das ganze ist noch sehr infantil und natürlich verbesserungsfähig aber im grunde tut es das was du willst.
Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
#Include <File.au3>
HotKeySet("{PAUSE}","_compare")
$Pfad = @UserProfileDir&"\Desktop"
$Junction = $Pfad&"\Junction.txt"If Not FileExists($Junction) Then _createJunction()
[/autoit] [autoit][/autoit] [autoit]Func _createJunction()
[/autoit] [autoit][/autoit] [autoit]
$ausgelesen = _FileListToArray($Pfad,"*",2)
_ArrayDelete($ausgelesen,0)
_FileWriteFromArray($Junction, $ausgelesen)
TrayTip("Fertig","Junction angelegt",1)
EndFuncFunc _compare()
[/autoit] [autoit][/autoit] [autoit]
Local $NeuListe, $AltListe
$NeuListe = _FileListToArray($Pfad,"*",2)
_FileReadToArray($Junction,$AltListe)
If UBound($NeuListe)-1 > UBound($AltListe)-1 Then
MsgBox(0,"Neue Ordner","Gefunden!!!")
For $i = 1 to UBound($AltListe)-1
$nummer = _ArraySearch($NeuListe,$AltListe[$i],1)
_ArrayDelete($NeuListe,$nummer)
Next
_ArrayDelete($NeuListe,0)
_ArrayDisplay($NeuListe)
Else
MsgBox(0,"Neue Ordner","Keine neuen ordner gefunden..")
EndIf
EndFuncWhile 1 * Sleep(20)
[/autoit]
WEndFühr' das skript einfach mal aus, erstelle dann einen neuen ordner auf deinem desktop und drück die Pause-Taste auf deiner tastatur um die Compare() funktion zu starten. Ich hoffe ich habe dien problem jetzt nicht missverstanden.
Gruß SEuBo -
ich glaube das ist der sinn der sache.. nach einem klick auf deinen "prozess killen" buttons soll dem unsichtbaren der focus gegeben werden - voila keine umrandung mehr. Das denk ich mir zumindest.
-
[autoit]
ControlSend($WinHandle,"",$ControlHandle,"^{a}{Backspace}Hallo{Enter}")
[/autoit]sendet strg+a, danach backspace, danach den text "Hallo", danach ein Enter
oder ist das nicht, was du möchtest?
-
möglich ist es. Es wird dir aber mit 99%er Sicherheit Niemand zu diesem Theman helfen. Du kannst dir sicherlich denken warum. Wer einen Prozess verstecken will hat was zu verbergen. Und wenn es legal / unbedenklich wär, hättest du nichts was du verbergen müsstest.
Gruß
-
Wenn ich das richtig verstanden habe möchtest du also die Hardware direkt "anzapfen"?
Das heißt, selbst wenn der Cursor sich auf dem Bildschirm nicht bewegt, obwohl die Maus (auf dem Mauspad) bewegt wird, soll trotzdem eine veränderung der Mausposition festgestellt werden?Ich weiß nicht ob es hilft, aber schau dir mal das hier an:
(Habs nur überflogen , aber ich glaube es ist das was du suchst. kann aber auch falsch liegen)
http://msdn.microsoft.com/en-us/library/…28VS.85%29.aspx
http://msdn.microsoft.com/en-us/library/…28VS.85%29.aspx -
Das Problem ist einfach dass beim verschlüsseln immer ein komplett neuer String generiert wird.
ZB:
Hallo -> BOLBAG4342MSF
Welt -> BIPPSSF2956SVX
aber
HalloWelt ist dann nicht BOLBAG4342MSFBIPPSSF2956SVX sondern 534636OOOSCXX
dadurch kann man halt nicht mal eben das "neu verschlüsselte" auslesen. sonder muss immer die komplette datei encrypten. -
[autoit]
RegWrite($REG1 & ", " & $VAL1 & ", " & $TYP1 & ", " & $VALL1)
[/autoit]sollte das nicht eher
[autoit]RegWrite($REG1,$VAL1,$TYP1,$VALL1)
[/autoit]
sein?EDIT: @ schnitzel : HAHA ich war schneller