Ich habe eine Frage zu den IE-Funktionen.
Wenn ich mit _IENavigate auf eine Seite gehe und dann einen Link anklicke, werde ich ja zu der Seite weitergeleitet.
Kann ich nun irgendwie herausbekommen auf welcher Seite ich mich befinde
(also die Adresse).
Bei mir passiert garnichts. Wenn ich das Script im Editor öffne und debugge kommt immer nur:
-load bass.dll
-load bassext.dll
!initialize bass - FAILED
Vielleicht kann mir ja jemand einen Tipp geben...
Ohne Vorrede direkt zum Problem:
Ich habe eine Combobox; mit GUICtrlSetData habe ich die Daten "1|2|3|4" eingetragen.
Welche Funktion kann ich benutzen, damit die Checkbox z.B 3 anzeigt.
Ich will allerdings dafür NICHT die Daten in "3|1|2|4" ändern oder so.
Bitte um Hilfe...
Ich wollte mir ein Programm schreiben das anzeigt wielange mein PC so läuft.
Dazu brauche ich die Zeit der Hoch- und Herunterfahrens.
Die Zeit zum Hochfaren zu ermittlen ist einfach, aber wie kann ich bspw. auf Start -> Herunterfahren klicken und Autoit spiechert die aktuelle Zeit in einer Datei.
Kann man vielleicht eine neue Exit Funktion machen, denn ich denke mal das Windows zuerst versucht das Programm normal zu beenden bevor es den Prozess kickt.
Bitte Helfen
Die funktionert garnicht. Wenn ich auf SetItem klicke bekomme ich den folgenden Fehler:
[autoit]C:\Program Files (x86)\AutoIt3\Include\_Radio.au3 (395) : ==> The requested action with this object has failed.:
$hPlayer.URL = $sPathOrURL
$hPlayer.URL = $sPathOrURL^ ERROR
->19:08:37 AutoIT3.exe ended.rc:1
Geht das auch ohne die Bass.au3? Die funktionert nämlich bei mir nicht.
Würd ich auch sagen. Ich habe aber konkret dieses Probelm:
[autoit]Func _winmove()
If $up = 0 Then
For $pos = @DesktopHeight - 20 - 30 to @DesktopHeight - $guiheigth - 30 Step 5
WinMove($guiname,"",@Desktopwidth - $guiwidth,$pos)
Next
$up = 1
ElseIf $up = 1 Then
For $pos = @DesktopHeight - $guiheigth - 30 to @DesktopHeight - 20 - 30 Step 5
WinMove($guiname,"",@Desktopwidth - $guiwidth,@DesktopHeight - 20 - 30)
Next
$up = 0
EndIf
EndFunc
Diese FOR-Schleife wird nicht ausgeführt. Warum? 
Ich habe eine Frage:
Ist es möglich in einer IF-Abfrage eine FOR-Schleife durchzufüren?
Bsp:
[autoit]If $1 = 1 Then
For $2 to 10 Step 1
...
Next
Endif
Ich denke das sollte so funktioneren, tut es aber nicht.
Ich möchte eine Ellipse mit GDI+ rot füllen.
Dazu benutze ich:
_GDIPlus_GraphicsFillEllipse()
[/autoit]
Allerdings kann ich dort nicht die Farbe einstellen.
Generell würde ich bei GDI+ - Draw Funktionen die Farbe einstellen.
Kann mir keiner helfen?
Es gibt doch so eine Memory.au3 die das ja prinzipiell könnte.
Aber wie funktioniert die?
Ich arbeite gerade an einem Brettspiel.
Dafür soll es einen Button geben der Den Würfel wirft (und das Bild dreht).
Allerdings verschwindet der würfel nur.
#include <GDIplus.au3>
#include <GUIConstants.au3>
#include <Windowsconstants.au3>
#include <SliderConstants.au3>
#include <EditConstants.au3>
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit];~ #NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]Global $dice = _GDIPlus_BitmapCreateFromFile(@ScriptDir & "\dice.gif")
[/autoit] [autoit][/autoit] [autoit]Global $sizedice_x = _GDIPlus_ImageGetWidth($dice)
Global $sizedice_y = _GDIPlus_ImageGetHeight($dice)
$guiwidth = @DesktopWidth/2
$guiheigth = @DesktopHeight/1.5
Global $hWnd = GUICreate("Spiel zur Erlösung",$guiwidth,$guiheigth, -1, -1, Default)
$rolldicebutton = GUICtrlCreateButton("Roll Dice",$guiwidth-120,$guiheigth - 100,100,50)
$diceresultinput = GUICtrlCreateInput("",$guiwidth-120,$guiheigth - 40,100,20)
GUISetOnEvent($GUI_EVENT_CLOSE,"_exit",$hWnd)
GUICtrlSetOnEvent($rolldicebutton,"rolldice")
GUISetState(@SW_SHOW,$hWnd)
[/autoit] [autoit][/autoit] [autoit]Global $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hWnd)
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_GraphicsDrawImage($hGraphics, $dice,$guiwidth/1.4,$guiheigth/1.2)
[/autoit] [autoit][/autoit] [autoit]Global $hdiceBitmap = _GDIPlus_BitmapCreateFromGraphics($sizedice_x, $sizedice_y, $hGraphics)
Global $hdiceBackbuffer = _GDIPlus_ImageGetGraphicsContext($hdiceBitmap)
Global $hdiceMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($hdiceMatrix, $sizedice_x / 2, $sizedice_y / 2)
While 1
WEnd
Func rolldice()
GUICtrlSetData($diceresultinput,Random(1,6,1))
$count = 1
For $count = 1 to 12 Step 1
_GDIPlus_GraphicsClear($hdiceBackbuffer, 0xFFFFFFFF)
_GDIPlus_MatrixRotate($hdiceMatrix,10, 0)
_GDIPlus_GraphicsSetTransform($hdiceBackbuffer, $hdiceMatrix)
;~ _GDIPlus_GraphicsSetTransform($hGraphics, $hdiceMatrix)
;~ _GDIPlus_GraphicsDrawImage($hdiceBackbuffer, $dice, $sizedice_x / 2,$sizedice_y / 2)
_GDIPlus_GraphicsDrawImageRect($hdiceBitmap, $hdiceBackbuffer,$guiwidth/1.4,$guiheigth/1.2, $sizedice_x, $sizedice_y)
_GDIPlus_GraphicsDrawImage($hGraphics, $hdiceBitmap, $guiwidth/1.4,$guiheigth/1.2)
;~ _GDIPlus_GraphicsDrawImageRect($hGraphics, $hdiceBitmap,$guiwidth/1.4,$guiheigth/1.2, $sizedice_x, $sizedice_y)
Next
EndFunc
Func _Exit()
_GDIPlus_Shutdown()
Exit
EndFunc
Für Hilfe wäre ich dankbar. 
Mittlerweile habe ich dieses Problem:
[ offen ] RAM Problem
Ich habe mal versucht mir ein Programm zu schreiben mit dem ich auf Knopfdruck twittern kann.
Dazu habe ich mir dieses Script angeschaut:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include "Icons.au3"
#Include <WinAPI.au3>
#include <WinHTTP.au3>
Global $hw_open = _WinHttpOpen("Twitter Poster")
Global $hw_connect = _WinHttpConnect($hw_open, "twitter.com")
Global $Eingelogt = 0
Global Const $Token=_GetAuthenticity_Token()
[/autoit] [autoit][/autoit] [autoit]$MainGUI = GUICreate("Twitter Poster", 550, 170, Default, Default)
GUISetBkColor(0x5599BB)
$eText=GUICtrlCreateEdit("",_WinAPI_GetSystemMetrics(4), 10, 500, 60, BitOR($ES_WANTRETURN,$ES_CENTER) )
GUICtrlSetState($eText,$GUI_DISABLE)
$eBenutzername=GUICtrlCreateInput("", 10, 90, 60, 20 )
$ePw=GUICtrlCreateInput("", 10, 130, 60, 20, $ES_PASSWORD+$ES_AUTOHSCROLL )
$LoginInfo=GUICtrlCreateLabel("<< Benutzername", 80, 90, 140, 25 )
GUICtrlSetFont (-1, 12, 800, 4, "Comic Sans MS" )
$PasswortInfo=GUICtrlCreateLabel("<< Passwort", 80, 130, 140, 25 )
GUICtrlSetFont (-1, 12, 800, 4, "Comic Sans MS" )
$EinlogInfo=GUICtrlCreateLabel("Einloggen...", 80, 110, 140, 25 )
GUICtrlSetFont (-1, 12, 800, 2, "Comic Sans MS" )
GUICtrlSetState($EinlogInfo,$GUI_HIDE)
$AbsendenPic=GUICtrlCreatePic("", 400, 50 )
_SetImage($AbsendenPic, @ScriptDir&"\Birdies\128\3.png")
$LoginPic=GUICtrlCreatePic("", 220, 100, 50, 50)
_SetImage($LoginPic, @ScriptDir&"\Birdies\login_128.png")
$AusloggenPic=GUICtrlCreatePic("", 80, 100, 50, 50)
_SetImage($AusloggenPic, @ScriptDir&"\Birdies\delete_item_128.png")
GUICtrlSetState($AusloggenPic,$GUI_HIDE)
WinSetTrans("Twitter Poster","",0)
GUISetState(@SW_SHOW)
For $i=1 To 255 Step +2
Sleep (10)
WinSetTrans("Twitter Poster","",$i)
WinMove("Twitter Poster","",@desktopwidth/2 - (295+$i)/2-2,@desktopheight/2 - 170/2-30)
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $AbsendenPic
If GUICtrlRead($eText)<>'' Then
_Posten(GUICtrlRead($eText))
GUICtrlSetData($eText,"")
EndIf
Case $LoginPic
If GUICtrlRead($eBenutzername)<>'' And GUICtrlRead($ePw)<>'' Then
GUICtrlSetState ($LoginInfo, $GUI_HIDE )
GUICtrlSetState ($PasswortInfo, $GUI_HIDE)
GUICtrlSetState ($EinlogInfo,$GUI_SHOW)
_Einloggen(GUICtrlRead($eBenutzername),GUICtrlRead($ePw))
Else
MsgBox ( 48, "Logindaten fehlen", "Benutzername und Passwort bitte vorher eingeben" )
EndIf
Case $AusloggenPic
_Ausloggen()
EndSwitch
WEnd
Func _GetAuthenticity_Token()
Global $h_openRequest = _WinHttpOpenRequest($hw_connect,"GET", "/","HTTP/1.1", "http://twitter.com/")
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)
Local $data=""
Do
$data&=_WinHttpReadData($h_openRequest)
Until @error
_WinHttpCloseHandle($h_openRequest)
$result=StringRegExp($data,'<[^>]*?name="authenticity_token"[^>]*?value="(.*?)"',1)
If @error Then
$result=StringRegExp($data,'<[^>]*?value="(.*?)"[^>]*?name="authenticity_token"',1)
If @error Then Return SetError(1,0,"")
EndIf
Return $result[0]
EndFunc
Func _Einloggen($username,$pw)
Global $h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/sessions","HTTP/1.1", "http://www.twitter.com/")
$sPost = "authenticity_token="&$Token&"&session[username_or_email]="&_URIEncode($username)&"&session[password]="&_URIEncode($pw)&"&q="
[/autoit] [autoit][/autoit] [autoit]_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded"& @CRLF , $sPost)
_WinHttpReceiveResponse($h_openRequest)
Local $data=""
Do
$data&=_WinHttpReadData($h_openRequest)
Until @error
If StringInStr($data,"Wrong Username/Email and password combination.") Then
MsgBox ( 16, " Falsches Passwort ", "Das von ihnen eingegebene Passwort ist falsch" )
GUICtrlSetState ($LoginInfo, $GUI_SHOW)
GUICtrlSetState ($PasswortInfo, $GUI_SHOW)
GUICtrlSetState ($EinlogInfo,$GUI_HIDE)
Else
$Eingelogt = 1
GUICtrlSetState ($LoginPic, $GUI_HIDE )
GUICtrlSetState ($LoginInfo, $GUI_HIDE )
GUICtrlSetState ($PasswortInfo, $GUI_HIDE)
GUICtrlSetState ($eBenutzername, $GUI_DISABLE)
GUICtrlSetState ($ePw, $GUI_DISABLE)
GUICtrlSetState ($EinlogInfo,$GUI_HIDE)
GUICtrlSetState ($AusloggenPic,$GUI_SHOW)
GUICtrlSetState ($eText,$GUI_ENABLE)
EndIf
_WinHttpCloseHandle($h_openRequest)
EndFunc
Func _Posten($nachricht)
Global $h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/status/update","HTTP/1.1", "http://www.twitter.com/")
$sPost = "authenticity_token="&$Token&"&status="&_URIEncode($nachricht)&"&twttr=true&return_rendered_status=true"
[/autoit] [autoit][/autoit] [autoit]_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8"& @CRLF, $sPost)
_WinHttpReceiveResponse($h_openRequest)
;~ If _WinHttpQueryDataAvailable($h_openRequest) Then
;~ Local $data=""
;~ Do
;~ $data&=_WinHttpReadData($h_openRequest)
;~ Until @error
;~ FileWrite ("Posten.htm", $data)
;~ EndIf
;~ $header = _WinHttpQueryHeaders($h_openRequest)
;~ MsgBox(0, "Header", $header)
_WinHttpCloseHandle($h_openRequest)
EndFunc
Func _URIEncode($sData)
; Author: Prog@ndy
Local $aData = StringSplit(BinaryToString(StringToBinary($sData,4),1),"")
Local $nChar
$sData=""
For $i = 1 To $aData[0]
;~ ConsoleWrite($aData[$i] & @CRLF)
$nChar = Asc($aData[$i])
Switch $nChar
Case 45, 46, 48-57, 65 To 90, 95, 97 To 122, 126
$sData &= $aData[$i]
Case 32
$sData &= "+"
Case Else
$sData &= "%" & Hex($nChar,2)
EndSwitch
Next
Return $sData
EndFunc
Func _Ausloggen()
Global $h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/sessions/destroy","HTTP/1.1", "http://www.twitter.com/")
$sPost = "authenticity_token="&$Token
[/autoit] [autoit][/autoit] [autoit]_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded"& @CRLF , $sPost)
_WinHttpReceiveResponse($h_openRequest)
_WinHttpCloseHandle($h_openRequest)
GUICtrlSetState ($eText,$GUI_DISABLE)
GUICtrlSetState ($LoginPic, $GUI_SHOW )
GUICtrlSetState ($LoginInfo, $GUI_SHOW )
GUICtrlSetState ($PasswortInfo, $GUI_SHOW)
GUICtrlSetState ($eBenutzername, $GUI_ENABLE)
GUICtrlSetState ($ePw, $GUI_ENABLE)
GUICtrlSetState ($EinlogInfo,$GUI_HIDE)
GUICtrlSetState ($AusloggenPic,$GUI_HIDE)
EndFunc
Welches Perfekt funktioniert. Ich habe mir einige Code-Zeilen geklaut und daraus das gemacht:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include "Icons.au3"
#Include <WinAPI.au3>
#include <WinHTTP.au3>
#include "ModernMenuRaw.au3"
HotKeySet("^t","go")
Opt("guioneventmode",1)
Global $hw_open = _WinHttpOpen("Twitter")
Global $hw_connect = _WinHttpConnect($hw_open, "twitter.com")
Global $Eingelogt = 0
Global $tweetbutton, $gui
Global $run = 0
Global $input
Global Const $Token=_GetAuthenticity_Token()
While Sleep(20)
WEnd
_Einloggen(IniRead("login","login","name","name"),IniRead("login","login","pw","password"))
[/autoit] [autoit][/autoit] [autoit]Func go()
If $run = 0 Then
$run = 1
ElseIf $run = 1 THen
$run = 0
EndIf
If $run = 0 Then GUIDelete($gui)
If $run = 1 Then
$gui = GUICreate("Twitter",500,60,-1,-1)
$tweetbutton = GUICtrlCreateButton("Tweet",440,10,50,40)
$input = GUICtrlCreateInput("",10,20,420,20)
GUICtrlSetOnEvent($tweetbutton,"tweetbutton")
GUISetOnEvent($GUI_EVENT_CLOSE,"_endfunc")
GUISetState(@SW_SHOW)
EndIf
EndFunc
Func tweetbutton()
_Posten(GUICtrlRead($input))
EndFunc
Func _endfunc()
GUIDelete($gui)
EndFunc
Func _Einloggen($username,$pw)
Global $h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/sessions","HTTP/1.1", "http://www.twitter.com/")
$sPost = "authenticity_token="&$Token&"&session%5Busername_or_email%5D="&_URIEncode($username)&"&session%5Bpassword%5D="&_URIEncode($pw)&"&q="
[/autoit] [autoit][/autoit] [autoit]_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded"& @CRLF , $sPost)
_WinHttpReceiveResponse($h_openRequest)
Local $data=""
Do
$data&=_WinHttpReadData($h_openRequest)
Until @error
If StringInStr($data,"Wrong Username/Email and password combination.") Then
MsgBox ( 16, " Falsches Passwort ", "Das von ihnen eingegebene Passwort ist falsch" )
GUICtrlSetState ($LoginInfo, $GUI_SHOW)
GUICtrlSetState ($PasswortInfo, $GUI_SHOW)
GUICtrlSetState ($EinlogInfo,$GUI_HIDE)
Else
$Eingelogt = 1
GUICtrlSetState ($LoginPic, $GUI_HIDE )
GUICtrlSetState ($LoginInfo, $GUI_HIDE )
GUICtrlSetState ($PasswortInfo, $GUI_HIDE)
GUICtrlSetState ($eBenutzername, $GUI_DISABLE)
GUICtrlSetState ($ePw, $GUI_DISABLE)
GUICtrlSetState ($EinlogInfo,$GUI_HIDE)
GUICtrlSetState ($AusloggenPic,$GUI_SHOW)
GUICtrlSetState ($eText,$GUI_ENABLE)
EndIf
_WinHttpCloseHandle($h_openRequest)
EndFunc
Func _GetAuthenticity_Token()
Global $h_openRequest = _WinHttpOpenRequest($hw_connect,"GET", "/","HTTP/1.1", "http://twitter.com/")
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)
Local $data=""
Do
$data&=_WinHttpReadData($h_openRequest)
Until @error
_WinHttpCloseHandle($h_openRequest)
$result=StringRegExp($data,'<[^>]*?name="authenticity_token"[^>]*?value="(.*?)"',1)
If @error Then
$result=StringRegExp($data,'<[^>]*?value="(.*?)"[^>]*?name="authenticity_token"',1)
If @error Then Return SetError(1,0,"")
EndIf
Return
EndFunc
Func _Posten($nachricht)
Global $h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/status/update","HTTP/1.1", "http://www.twitter.com/")
$sPost = "authenticity_token="&$Token&"&status="&_URIEncode($nachricht)&"&twttr=true&return_rendered_status=true"
[/autoit] [autoit][/autoit] [autoit]_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8"& @CRLF, $sPost)
_WinHttpReceiveResponse($h_openRequest)
;~ If _WinHttpQueryDataAvailable($h_openRequest) Then
;~ Local $data=""
;~ Do
;~ $data&=_WinHttpReadData($h_openRequest)
;~ Until @error
;~ FileWrite ("Posten.htm", $data)
;~ EndIf
;~ $header = _WinHttpQueryHeaders($h_openRequest)
;~ MsgBox(0, "Header", $header)
_WinHttpCloseHandle($h_openRequest)
EndFunc
Func _URIEncode($sData)
; Author: Prog@ndy
Local $aData = StringSplit(BinaryToString(StringToBinary($sData,4),1),"")
Local $nChar
$sData=""
For $i = 1 To $aData[0]
;~ ConsoleWrite($aData[$i] & @CRLF)
$nChar = Asc($aData[$i])
Switch $nChar
Case 45, 46, 48-57, 65 To 90, 95, 97 To 122, 126
$sData &= $aData[$i]
Case 32
$sData &= "+"
Case Else
$sData &= "%" & Hex($nChar,2)
EndSwitch
Next
Return $sData
EndFunc
Func _Ausloggen()
Global $h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/sessions/destroy","HTTP/1.1", "http://www.twitter.com/")
$sPost = "authenticity_token="&$Token
[/autoit] [autoit][/autoit] [autoit]_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded"& @CRLF , $sPost)
_WinHttpReceiveResponse($h_openRequest)
_WinHttpCloseHandle($h_openRequest)
GUICtrlSetState ($eText,$GUI_DISABLE)
GUICtrlSetState ($LoginPic, $GUI_SHOW )
GUICtrlSetState ($LoginInfo, $GUI_SHOW )
GUICtrlSetState ($PasswortInfo, $GUI_SHOW)
GUICtrlSetState ($eBenutzername, $GUI_ENABLE)
GUICtrlSetState ($ePw, $GUI_ENABLE)
GUICtrlSetState ($EinlogInfo,$GUI_HIDE)
GUICtrlSetState ($AusloggenPic,$GUI_HIDE)
EndFunc
Dieses funktioniert allerdings nicht; es tweetet nichts. Warum?
Ich glaube du hast FileOpen und FileRead noch nicht so ganz verstanden....
Spoiler anzeigen
[autoit][/autoit]
$fileread1 = FileOpen(@Scriptdir&"\cache\1.txt",0)
$fileread2 = FileOpen(@Scriptdir&"\cache\2.txt",0)
$fileread3 = FileOpen(@Scriptdir&"\cache\3.txt",0)
$fileread4 = FileOpen(@Scriptdir&"\cache\4.txt",0)
GUICtrlSetData($input1,FileRead(@Scriptdir&"\cache\1.txt"))
GUICtrlSetData($input2,FileRead(@Scriptdir&"\cache\2.txt"))
GUICtrlSetData($input3,FileRead(@Scriptdir&"\cache\3.txt"))
GUICtrlSetData($input4,FileRead(@Scriptdir&"\cache\4.txt"))
Und wozu benötigst du FileCreate? Wenn du eine Datei die nicht existiert mit FileOpen in einem Schreibmodus öffnest wird sie erstellt...
Das ist nicht mein Problem. Der RAM läuft auch dann über wenn ich nichts mache, außer die GUI öffnen.
Außerdem habe ich das Problem schon dadurch gelöst, dass ich den Inhalt der While - Schleife auskommentart habe.
Aber das ist ja nicht das was ich möchte...
Edit: Jetzt siehts ordentlicher aus. Dies löst aber mein Problem nicht...
Ich bin so gut wie ferting mit meinem ClipBoardEXtender, der bewirkt das man mehrere Textfragmente im clipboardverwalten kann.
Jetzt guck ich so in den Taskmanager und sehe, dass sobald die gui geöffnet ist, sich die Zahl der vbelegten RAMs stetig vergrößert.
Meine Frage nun, wie kann ich den RAM clearen oder Autoit dazu bringen garnicht der RAM vollzuschreiben?
#include "ModernMenuRaw.au3"
#include <GUIconstants.au3>
#include <Clipboard.au3>
#include <EditConstants.au3>
#include <File.au3>
#NoTrayIcon
Global $gui
Global $input0, $input1, $input2, $input3, $input4
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Hotkeyset("^!c","activate")
HotKeyset("^!s","show")
DirCreate(@Scriptdir&"\cache")
[/autoit] [autoit][/autoit] [autoit]$activate = 0
$trayicon = _TrayIconCreate("ClipboardExtender","inactive.ico")
_TrayIconSetState()
$context = _TrayCreateContextMenu($trayicon)
$activatebutt = _TrayCreateItem("aktivieren",$context)
$exitactivatebutt = _TrayCreateItem("beenden",$context)
$infobutt = _TrayCreateItem("info",$context)
$showclipboard = _TrayCreateItem("zwischenablageninhalt anzeigen",$context)
GUICtrlSetOnEvent($exitactivatebutt,"end")
GUICtrlSetOnEvent($activatebutt,"activate")
GUICtrlSetOnEvent($infobutt,"info")
GUICtrlSetOnEvent($showclipboard,"show")
Func activate()
If $activate = 0 Then
$activate = 1
_TrayTip($trayicon,"ClipboardExtender","aktiviert",5000)
_TrayIconSetIcon($trayicon,"active.ico")
HotKeySet("!{F9}","send1")
HotKeySet("!{F10}","send2")
HotKeySet("!{F11}","send3")
HotKeySet("!{F12}","send4")
HotKeySet("^{F9}","copy1")
HotKeySet("^{F10}","copy2")
HotKeySet("^{F11}","copy3")
HotKeySet("^{F12}","copy4")
HotKeySet("^v","paste")
_TrayItemSetText($activatebutt,"deaktivieren")
ElseIf $activate = 1 Then
$activate = 0
_TrayTip($trayicon,"ClipboardExtender","deaktiviert",5000)
_TrayIconSetIcon($trayicon,"inactive.ico")
HotKeySet("^1")
HotKeySet("^2")
HotKeySet("^3")
HotKeySet("^4")
HotKeySet("!1")
HotKeySet("!2")
HotKeySet("!3")
HotKeySet("!4")
HotKeySet("^v")
_TrayItemSetText($activatebutt,"aktivieren")
EndIf
EndFunc
While Sleep(1000)
If WinExists("Zwischenablage") = 1 Then
GUICtrlSetData($input0,"")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input3,"")
GUICtrlSetData($input4,"")
GUICtrlSetData($input0,ClipGet())
$fileread1 = FileOpen(@Scriptdir&"\cache\1.txt",0)
$fileread2 = FileOpen(@Scriptdir&"\cache\2.txt",0)
$fileread3 = FileOpen(@Scriptdir&"\cache\3.txt",0)
$fileread4 = FileOpen(@Scriptdir&"\cache\4.txt",0)
GUICtrlSetData($input1,FileRead(@Scriptdir&"\cache\1.txt"))
GUICtrlSetData($input2,FileRead(@Scriptdir&"\cache\2.txt"))
GUICtrlSetData($input3,FileRead(@Scriptdir&"\cache\3.txt"))
GUICtrlSetData($input4,FileRead(@Scriptdir&"\cache\4.txt"))
FileClose($fileread1)
FileClose($fileread2)
FileClose($fileread3)
FileClose($fileread4)
EndIf
WEnd
#region copy funcs
Func copy1()
FileDelete(@Scriptdir&"\cache\1.txt")
_FileCreate(@Scriptdir&"\cache\1.txt")
$fileslot1 = FileOpen(@Scriptdir&"\cache\1.txt",1)
FileWrite(@Scriptdir&"\cache\1.txt",ClipGet())
FileClose($fileslot1)
EndFunc
Func copy2()
FileDelete(@Scriptdir&"\cache\2.txt")
_FileCreate(@Scriptdir&"\cache\2.txt")
$fileslot2 = FileOpen(@Scriptdir&"\cache\2.txt",1)
FileWrite(@Scriptdir&"\cache\2.txt",ClipGet())
FileClose($fileslot2)
EndFunc
Func copy3()
FileDelete(@Scriptdir&"\cache\3.txt")
_FileCreate(@Scriptdir&"\cache\3.txt")
$fileslot3 = FileOpen(@Scriptdir&"\cache\3.txt",1)
FileWrite(@Scriptdir&"\cache\3.txt",ClipGet())
FileClose($fileslot3)
EndFunc
Func copy4()
FileDelete(@Scriptdir&"\cache\4.txt")
_FileCreate(@Scriptdir&"\cache\4.txt")
$fileslot4 = FileOpen(@Scriptdir&"\cache\4.txt",1)
FileWrite(@Scriptdir&"\cache\4.txt",ClipGet())
FileClose($fileslot4)
EndFunc
#endregion
#region send funcs
Func send1()
$fileread1 = FileOpen(@Scriptdir&"\cache\1.txt",0)
ClipPut(FileRead(@Scriptdir&"\cache\1.txt")
FileClose($fileread1)
EndFunc
Func send2()
$fileread2 = FileOpen(@Scriptdir&"\cache\2.txt",0)
ClipPut(FileRead(@Scriptdir&"\cache\2.txt")
FileClose($fileread2)
EndFunc
Func send3()
$fileread3 = FileOpen(@Scriptdir&"\cache\3.txt",0)
ClipPut(FileRead(@Scriptdir&"\cache\3.txt")
FileClose($fileread3)
EndFunc
Func send4()
$fileread4 = FileOpen(@Scriptdir&"\cache\4.txt",0)
ClipPut(FileRead(@Scriptdir&"\cache\4.txt")
FileClose($fileread4)
EndFunc
#endregion
#region GUI funcs
Func show()
If WinExists("Zwischenablage") = 1 Then
GUIDelete($gui)
EndIf
Opt("guioneventmode",1)
$gui = GUICreate("Zwischenablage",200,200,@DesktopWidth - 210,@DesktopHeight / 2)
WinSetOnTop("Zwischenablage","",1)
$cb = GUICtrlCreateButton("CB:",5,10,40,20)
$slot1 = GUICtrlCreateButton("Slot 1:",5,50,40,20)
$slot2 = GUICtrlCreateButton("Slot 2:",5,90,40,20)
$slot3 = GUICtrlCreateButton("Slot 3:",5,130,40,20)
$slot4 = GUICtrlCreateButton("Slot 4:",5,170,40,20)
$input0 = GUICtrlCreateInput("",50,10,140,20,$ES_AUTOHSCROLL)
$input1 = GUICtrlCreateInput("",50,50,140,20,$ES_AUTOHSCROLL)
$input2 = GUICtrlCreateInput("",50,90,140,20,$ES_AUTOHSCROLL)
$input3 = GUICtrlCreateInput("",50,130,140,20,$ES_AUTOHSCROLL)
$input4 = GUICtrlCreateInput("",50,170,140,20,$ES_AUTOHSCROLL)
GUICtrlSetOnEvent($slot1,"slot1")
GUICtrlSetOnEvent($slot2,"slot2")
GUICtrlSetOnEvent($slot3,"slot3")
GUICtrlSetOnEvent($slot4,"slot4")
GUICtrlSetOnEvent($cb,"cb")
GUISetOnEvent($GUI_EVENT_CLOSE,"exitwindow")
GUISetOnEvent($GUI_EVENT_MINIMIZE,"exitwindow")
GUISetState(@SW_SHOW)
EndFunc
Func slot1()
FileDelete(@Scriptdir&"\cache\1.txt")
GUICtrlSetData($input1,"")
EndFunc
Func slot2()
FileDelete(@Scriptdir&"\cache\2.txt")
GUICtrlSetData($input2,"")
EndFunc
Func slot3()
FileDelete(@Scriptdir&"\cache\3.txt")
GUICtrlSetData($input3,"")
EndFunc
Func slot4()
FileDelete(@Scriptdir&"\cache\4.txt")
GUICtrlSetData($input4,"")
EndFunc
Func cb()
ClipPut("")
GUICtrlSetData($input0,"")
EndFunc
Func exitwindow()
GUIDelete($gui)
EndFunc
#endregion
Func info()
MsgBox(0,"Info","ClipBoardEXtenter (c) by Jan S."&@CRLF&""&@CRLF&"Tastaturmapping:"&@CRLF&""&@CRLF&"Strg + Alt + C = ClipboardEXtender aktivieren"&@CRLF&"Strg + Alt + S = Zwischenablage anzeigen"&@CRLF&"Strg + F9 = Aktuellen Inhalt des Clipboards Slot 1 zuweisen"&@CRLF&"Strg + F10 = Aktuellen Inhalt des Clipboards Slot 2 zuweisen"&@CRLF&"Strg + F11 = Aktuellen Inhalt des Clipboards Slot 3 zuweisen"&@CRLF&"Strg + F12 = Aktuellen Inhalt des Clipboards Slot 4 zuweisen"&@CRLF&""&@CRLF&""&@CRLF&"ACHTUNG: Der ClipBoardEXtender speichert keine Dateien; wird eine Datei kopiert wird nur der Pfad im ClipBoardEXtenter gespeichert")
EndFunc
Func end()
_TrayIconDelete($trayicon)
Exit
EndFunc
Eigentlich erstellt das programm gar keine ini habe ich herausgefunden.
WARUM NICHT? 
Ich schreibe seit kurzem an einem Programm welches das Clipboard erweitert.
Man soll z. B. Strg + F9 drücken um den Inhalt der Zwischenablage auf den ersten Slot zu legen.
Dann kann man anderes Zeug indie Zwischenablage kopieren.
Wenn man dann allerdings Alt + F9 drückt ist der Inhalt des Clipboards wieder wie in Slot 1 bestimmt.
Allerdings funktioniert das nicht.
Das einzige was passiert ist das das Clipboard gecleart wird.
Mein Script:
#include "ModernMenuRaw.au3"
#include <GUIconstants.au3>
#include <Clipboard.au3>
#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
$activate = 0
$trayicon = _TrayIconCreate("ClipboardExtender")
_TrayIconSetState()
$context = _TrayCreateContextMenu($trayicon)
$activatebutt = _TrayCreateItem("aktivieren/deaktivieren",$context)
$exitactivatebutt = _TrayCreateItem("beenden",$context)
$infobutt = _TrayCreateItem("info",$context)
$showclipboard = _TrayCreateItem("zwischenablageninhalt anzeigen",$context)
GUICtrlSetOnEvent($exitactivatebutt,"end")
GUICtrlSetOnEvent($activatebutt,"activate")
GUICtrlSetOnEvent($infobutt,"info")
GUICtrlSetOnEvent($showclipboard,"show")
Func activate()
If $activate = 0 Then
$activate = 1
_TrayTip($trayicon,"ClipboardExtender","aktiviert",5000)
;~ _TrayIconSetIcon($trayicon,"play_green.ico")
HotKeySet("^{F9}","send1")
HotKeySet("^{F10}","send2")
HotKeySet("^{F11}","send3")
HotKeySet("^{F12}","send4")
HotKeySet("!{F9}","copy1")
HotKeySet("!{F10}","copy2")
HotKeySet("!{F11}","copy3")
HotKeySet("!{F12}","copy4")
ElseIf $activate = 1 Then
$activate = 0
_TrayTip($trayicon,"ClipboardExtender","deaktiviert",5000)
;~ _TrayIconSetIcon($trayicon,"play_red.ico")
HotKeySet("^1")
HotKeySet("^2")
HotKeySet("^3")
HotKeySet("^4")
HotKeySet("!1")
HotKeySet("!2")
HotKeySet("!3")
HotKeySet("!4")
EndIf
EndFunc
While 1
Sleep(10)
WEnd
#region copy funcs
Func copy1()
IniWrite("clipboard.ini","content","1",Clipget())
EndFunc
Func copy2()
IniWrite("clipboard.ini","content","2",Clipget())
EndFunc
Func copy3()
IniWrite("clipboard.ini","content","3",Clipget())
EndFunc
Func copy4()
IniWrite("clipboard.ini","content","4",Clipget())
EndFunc
#endregion
#region send funcs
Func send1()
ClipPut(IniRead("clipboard.ini","content","1",""))
EndFunc
Func send2()
ClipPut(IniRead("clipboard.ini","content","2",""))
EndFunc
Func send3()
ClipPut(IniRead("clipboard.ini","content","3",""))
EndFunc
Func send4()
ClipPut(IniRead("clipboard.ini","content","4",""))
EndFunc
#endregion
Func end()
_TrayIconDelete($trayicon)
Exit
EndFunc
Das Script ist nicht bis zu Ende ausgearbeitet. So macht z.B. der Button "zwischenablageninhalt anzeigen" noch gar nichts.
um es ständig zu erhöhen bräuchtest du sowas wie
$iges = $iges + $i
Danke
Ist es wirklich das, was Du möchtest?
Ja genau das ist es was ich möchte.
Ich habe ein ganz einfaches Autoit Script geschrieben welches nur eine Zahl nach jedem Loop um ihre eigene Größe erhöhen soll.
Dies tut es aber nicht.
Warum?
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <SliderConstants.au3>
Opt("GUIOnEventMode", 1)
AutoItSetOption("Trayiconhide",1)
Global $hWnd = GUICreate("", 704, 780, -1, -1, Default)
GUICtrlCreateLabel("Wert:",50,733)
$slider = GUICtrlCreateSlider(0,670,700,34,$TBS_BOTH)
$speed = GUICtrlCreateInput("0",80,730,30,20,$ES_READONLY)
$setbutton = GUICtrlCreateButton("Einstellen",120,727,100,30)
$test = GUICtrlCreateInput("0",380,730,30,20,$ES_READONLY)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetOnEvent($setbutton,"set")
GUISetState()
$i = 0
$run = 0
Func set()
$i = GUICtrlRead($speed)
EndFunc
While Sleep(20)
$x = GUICtrlRead($slider) / 2
GUICtrlSetData($speed,$x - 0)
$iges = $i + $i
GUICtrlSetData($test,$iges)
WEnd
Func _Exit()
Exit
EndFunc
