Beiträge von Schnitzel

**Schnitzel**

Alles was du zum installieren brauchst ist:

[autoit]

Fileinstall()
RegWrite

[/autoit]

**Schnitzel**

oh sry da war glaub ich noch was:
probier das:

[autoit]

FileCopy ( "C:\Users\Max\Desktop\Mein Starter\macros-cache.txt", "C:\Program Files\AutoIt3\" , 1 )

[/autoit]

**Schnitzel**

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]

**Schnitzel**

Zitat von clezZ

@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

Mein Ganz allein geschriebener Webbrowser :D

[autoit]

#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 ****

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $html
$IE = _IECreateEmbedded()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#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 ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit]

**Schnitzel**

Herzlich willkommen und viel spaß im Forum

**Schnitzel**

Mit shellexecute kann man verknüpfungen ausführen.

**Schnitzel**

dann könntest du es auf gelöst setzten:

einfach den ersten post bearbeiten, gelöst auswählen und senden drücken

**Schnitzel**

Zitat von Faweyr

Schnitzel: Mhm. Keine Ahnung wieso . Versuchs mal mit der Exe

tolles ding. die exe funktioniert

**Schnitzel**

Zitat von xp_fan

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

Spoiler anzeigen

[autoit]

#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 ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

**Schnitzel**

Bots werden nicht unterstützt

Bitte Forenregeln lesen:

https://autoit.de/index.php?page=Forumrules

**Schnitzel**

ist wohl nicht für win7 x64 geeignet oder?

bei der ausführung kommt folgendes:

**Schnitzel**

Zitat von xp_fan

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

**Schnitzel**

wie siehts denn mit der version aus?

Spoiler anzeigen

[autoit]

#RequireAdmin

[/autoit] [autoit][/autoit] [autoit]

HotKeySet ("{NUMPADADD}", "media_next")
HotKeySet ("{NUMPADSUB}", "media_prev")
HotKeySet ("{END}", "aus")
HotKeySet ("{NUMPADMULT}", "media_play_pause")

[/autoit] [autoit][/autoit] [autoit]

If WinExists("iTunes") Then
$hWnd = WinGetHandle("iTunes")
$h_play_pause = ControlGetHandle($hWnd, "", "Button6")
$h_next = ControlGetHandle($hWnd, "", "Button7")
$h_prev = ControlGetHandle($hWnd, "", "Button5")
EndIf

[/autoit] [autoit][/autoit] [autoit]

While True
sleep(333)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func media_play_pause()
ControlSend($hWnd, "", "", "{SPACE}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func media_prev()
ControlSend($hWnd, "", "", "^{LEFT}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func media_next()
ControlSend($hWnd, "", "", "^{RIGHT}")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func aus()
Exit
EndFunc

[/autoit]

**Schnitzel**

oh sry stimmt.

ich hatte es mir auch für win7 abgeändert.
so gehts bei mir:

Spoiler anzeigen

[autoit]

#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")

[/autoit] [autoit][/autoit] [autoit]

If WinExists("iTunes") Then
$hWnd = WinGetHandle("iTunes")
$h_play_pause = ControlGetHandle($hWnd, "", "Button6")
$h_next = ControlGetHandle($hWnd, "", "Button7")
$h_prev = ControlGetHandle($hWnd, "", "Button5")
EndIf

[/autoit] [autoit][/autoit] [autoit]

While True
sleep(333)
WEnd

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

**Schnitzel**

schau mal hier^^

https://autoit.de/index.php?page=Thread&threadID=14549

**Schnitzel**

ob das funktioniert weiß ich nicht sicher aber probier mal:

[autoit]

Case $Ok
Exit Shellexecute(@ScriptFullPath)

[/autoit]

**Schnitzel**

könntest du einen lauffähigen code posten wo das problem vorkommt?

ich glaube mit diesem ausschnitt tut man sich zu schwer...

**Schnitzel**

wie dus meinst kann ich schlecht sagen, aber so wärs fehlerfrei:

Spoiler anzeigen

[autoit]

#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 ###

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

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

**Schnitzel**

Wow tolle idee.
Ich hoffe ich finde wieder etwas zeit.
Aber das hört sich genauso spannend an wie der Primzahlen µlight

**Schnitzel**

1. Du hast button1 doppelt belegt
2. Du erzeugst unendlich viele guis
3. da fehlt mindestens ein wend und ein endswitch

Beiträge von Schnitzel

Installations exe erstellen

Datein in ein Verzeichnis kopieren mit Autoit klappt nicht

Datein in ein Verzeichnis kopieren mit Autoit klappt nicht

Hilfe mit mein Internet ---- selbst erstelltest explorer

Moin aus Bielefeld

über Run eine verknüpfung starten?

Iniread

Office Killer 2.1 [Full Game] [Lite-Version]

Iniread

Problem bei ToolTip

Office Killer 2.1 [Full Game] [Lite-Version]

Iniread

{Media_next} für iTunes?

{Media_next} für iTunes?

{Media_next} für iTunes?

Button Funktion /GUI

Array fehler

Hilfe mit den Skript ---- Pixelsearch

[Beendet] µitLight April - Mitte Juni

Hilfe mit den Skript ---- Pixelsearch