Alles was du zum installieren brauchst ist:
[autoit]Fileinstall()
RegWrite
Alles was du zum installieren brauchst ist:
[autoit]Fileinstall()
RegWrite
oh sry da war glaub ich noch was:
probier das:
FileCopy ( "C:\Users\Max\Desktop\Mein Starter\macros-cache.txt", "C:\Program Files\AutoIt3\" , 1 )
[/autoit]gleich 2 in einer zeile
[autoit]DirCopy ( "C:\Users\Max\Desktop\Mein Starter\macros-cache.txt", "C:\Program Files\AutoIt3" [, 1] ); Datei kopieren (9 = Überschreiben (1) + Verzeichnis automatisch erstellen (8))
[/autoit]in das da:
[autoit]FileCopy ( "C:\Users\Max\Desktop\Mein Starter\macros-cache.txt", "C:\Program Files\AutoIt3" , 1 ); Datei kopieren (9 = Überschreiben (1) + Verzeichnis automatisch erstellen (8))
[/autoit]@idouble: Probier mal das Skript zu kompilieren, dann müsste es gehen.
also den tipp hätteste dir sparen können. sieht man doch das da die hälfte falsch is
#include <GUIConstantsEx.au3>
#include <IE.au3>
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Eigene Dateien\Downloads\Internet Explorer.ico
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $html
$IE = _IECreateEmbedded()
#region ### START Koda GUI section ### Form=c:\users\sandro\desktop\gui_main.kxf
$Gui_main = GUICreate("Webbrowser by I-Double", 1434, 839, 392, 11)
GUISetFont(8, 400, 0, "MS PMincho")
$Label1 = GUICtrlCreateLabel("Adresse: ", 16, 8, 71, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$GUI_adresszeile = GUICtrlCreateInput("http://www.", 88, 8, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Microsoft Sans Serif")
$GUI_send = GUICtrlCreateButton("Go!", 336, 8, 113, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Microsoft Sans Serif")
$GUI_startseite = GUICtrlCreateButton("Home", 456, 8, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Microsoft Sans Serif")
$browser = GUICtrlCreateObj($IE, 0, 50, 1423, 789)
$MenuItem1 = GUICtrlCreateMenu("&Datei")
$GUI_menu_einstellungen = GUICtrlCreateMenuItem("Einstellungen", $MenuItem1)
$GUI_menu_beenden = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_send
$html = GUICtrlRead($GUI_adresszeile)
_IENavigate($IE, $html)
Case $GUI_startseite
_IENavigate($IE, "http://www.google.de/")
EndSwitch
WEnd
Herzlich willkommen und viel spaß im Forum
Mit shellexecute kann man verknüpfungen ausführen.
dann könntest du es auf gelöst setzten:
einfach den ersten post bearbeiten, gelöst auswählen und senden drücken
Schnitzel: Mhm. Keine Ahnung wieso . Versuchs mal mit der Exe
tolles ding. die exe funktioniert
Mich hat nur der Inhalt des ersten Labels etwas irritiert.
kommt vor
wenns nich grade Pixelsearch, Send, Mousemove oder Memory... ist dann für den angeklagten
@chriss:
so würds funktionieren
#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 799, 534, 179, 121)
GUICtrlSetFont(-1, 60, 400, 0, "Monotype Corsiva")
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetBkColor(-1, 0x316AC5)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$List1 = GUICtrlCreateList("", 24, 136, 145, 292)
$List2 = GUICtrlCreateList("", 217, 141, 145, 292)
$List3 = GUICtrlCreateList("", 400, 139, 145, 292)
$List4 = GUICtrlCreateList("", 589, 142, 145, 292)
$Laden = GUICtrlCreateButton("Laden", 320, 472, 75, 25, 0)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Laden
$arr = IniReadSection("Teams.ini", "Gruppe A")
$tmp = ""
For $i = 1 To $arr[0][0]
$tmp &= $arr[$i][1] & "|"
Next
GUICtrlSetData($List1, $tmp)
$arr = IniReadSection("Teams.ini", "Gruppe B")
$tmp = ""
For $i = 1 To $arr[0][0]
$tmp &= $arr[$i][1] & "|"
Next
GUICtrlSetData($List2, $tmp)
$arr = IniReadSection("Teams.ini", "Gruppe C")
$tmp = ""
For $i = 1 To $arr[0][0]
$tmp &= $arr[$i][1] & "|"
Next
GUICtrlSetData($List3, $tmp)
$arr = IniReadSection("Teams.ini", "Gruppe D")
$tmp = ""
For $i = 1 To $arr[0][0]
$tmp &= $arr[$i][1] & "|"
Next
GUICtrlSetData($List4, $tmp)
EndSwitch
WEnd
ist wohl nicht für win7 x64 geeignet oder?
bei der ausführung kommt folgendes:
Wofür brauchst Du dieses Script?
man braucht nich alles wo es um spiele oder wettkämpfe geht verdächtigen...
@chriss0610:
könntest du die ini hochladen
wie siehts denn mit der version aus?
#RequireAdmin
[/autoit] [autoit][/autoit] [autoit]HotKeySet ("{NUMPADADD}", "media_next")
HotKeySet ("{NUMPADSUB}", "media_prev")
HotKeySet ("{END}", "aus")
HotKeySet ("{NUMPADMULT}", "media_play_pause")
If WinExists("iTunes") Then
$hWnd = WinGetHandle("iTunes")
$h_play_pause = ControlGetHandle($hWnd, "", "Button6")
$h_next = ControlGetHandle($hWnd, "", "Button7")
$h_prev = ControlGetHandle($hWnd, "", "Button5")
EndIf
While True
sleep(333)
WEnd
Func media_play_pause()
ControlSend($hWnd, "", "", "{SPACE}")
EndFunc
Func media_prev()
ControlSend($hWnd, "", "", "^{LEFT}")
EndFunc
Func media_next()
ControlSend($hWnd, "", "", "^{RIGHT}")
EndFunc
Func aus()
Exit
EndFunc
oh sry stimmt.
ich hatte es mir auch für win7 abgeändert.
so gehts bei mir:
#RequireAdmin
[/autoit] [autoit][/autoit] [autoit]HotKeySet("{LAUNCH_MEDIA}", "media_start")
HotKeySet("{MEDIA_PLAY_PAUSE}", "media_play_pause")
HotKeySet("{MEDIA_PREV}", "media_prev")
HotKeySet("{MEDIA_NEXT}", "media_next")
If WinExists("iTunes") Then
$hWnd = WinGetHandle("iTunes")
$h_play_pause = ControlGetHandle($hWnd, "", "Button6")
$h_next = ControlGetHandle($hWnd, "", "Button7")
$h_prev = ControlGetHandle($hWnd, "", "Button5")
EndIf
While True
sleep(333)
WEnd
Func media_start()
If Not WinExists("iTunes") Then
Run("C:\Programme\iTunes\iTunes.exe", "C:\Programme\iTunes")
$hWnd = WinGetHandle("iTunes")
If @error Then
sleep(1800)
$hWnd = WinGetHandle("iTunes")
EndIf
Else
$hWnd = WinGetHandle("iTunes")
EndIf
EndFunc
Func media_play_pause()
ControlSend($hWnd, "", "", "{SPACE}")
EndFunc
Func media_prev()
ControlSend($hWnd, "", "", "^{LEFT}")
EndFunc
Func media_next()
ControlSend($hWnd, "", "", "^{RIGHT}")
EndFunc
ob das funktioniert weiß ich nicht sicher aber probier mal:
[autoit]
Case $Ok
Exit Shellexecute(@ScriptFullPath)
könntest du einen lauffähigen code posten wo das problem vorkommt?
ich glaube mit diesem ausschnitt tut man sich zu schwer...
wie dus meinst kann ich schlecht sagen, aber so wärs fehlerfrei:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("werbung schließen", 278, 161, 192, 124)
$Label1 = GUICtrlCreateLabel("schließe automatisch des werbungs", 40, 16, 163, 17)
$Button1 = GUICtrlCreateButton("START", 16, 72, 249, 73, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
While 1
$Fabepos = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0x735432)
If not @error Then
If $Fabepos[0] = 864 And $Fabepos[1] = 517 Then
Send("{ALT}")
EndIf
If $Fabepos[0] = 864 And $Fabepos[1] = 616 Then
Send("{F4}")
EndIf
EndIf
$Fabepos2 = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0xA058A5)
If not @error then
If $Fabepos2[0] = 1057 And $Fabepos2[1] = 544 Then
MouseClick("left", 1057, 544, 1)
MouseClick("left", 864, 505, 1)
MouseClick("left", 691, 536, 1)
MouseClick("left", 748, 620, 1)
EndIf
EndIf
WEnd
EndSwitch
WEnd
funktionieren wirds aber mit pixelsearch und mouseklicks nicht wirklich effektiv.
mit der ff.au3 könnteste genauso einzelne tabs schließen, aber das liegt bei dir
Wow tolle idee.
Ich hoffe ich finde wieder etwas zeit.
Aber das hört sich genauso spannend an wie der Primzahlen µlight
1. Du hast button1 doppelt belegt
2. Du erzeugst unendlich viele guis
3. da fehlt mindestens ein wend und ein endswitch