Hilfe bei GUI funcs

Hey ich habe eine frage,

ich hab schon viel probiert,

aber nix tut.

Hab schon Run Internet Explorer dann send f6 und dann send aber nix geht.

Könntet ihr mir vllt helfen, oder kurz ein Script schreiben?

Bitte danke

Gruß Nismo

shellexecute('http://youtube.de')
shellexecute(iexplore http://youtube.de')

sollte doch funktionieren...

nun ja muss ich dann mal probieren, wenn ich daheim bin.

Hock nämlich schule^^.

und wenn es funzt, sag ich bescheid, wenn nicht auch^^

Also THX schon mal.

Hoff wenn es tut dass ich es noch ein bissle ändere.

Und dann noch eine andere frage,

undzwar ihr kennt doch alle die Zocker Tastaturen, oder?

die haben ja so extra tasten (meine G1-G18)

kann ich tools so schreiben, dass sie per Tasten Druck der Taste G1 (Zum Bleistif) eine funktion macht?

Gruß Nismo

klappt wunderbar,

hab nur eine andere sorge gerade,

undzwar wennich WinActivate eingebe und dann auf run script gehe, macht mein Tool garnix,

ich will mein E-Mail Prog Outlook Express Öffnen lassen aber es geht nicht.

Könnt ihr mir helfen

Es kommt kein Fehler,

Das script ist fertig soweit denk cih einmal^^

HotKeySet ("^e", "_email")
Func _email()
Run ("E-Mail")
EndFunc
While 1
Sleep (1000)
WEnd

Und wenn ich STRG+e drücke passiert nix, warum?

Kannst du mir helfen?

Weil es keine Datei gibt, die "E-Mail" heisst.

Run(@ProgramFilesDir & "\Outlook Express\msimn.exe")

sollte funzen.

okay danke für die sehr gute Antwort,

fals ich noch weitere fragen habe schreibe ich sie hier rein.

Ich wünsche allen eine Gute Nacht

Gruß Nismo

Ach nur ein kleins Prog.

dass mir den altag am PC erleichtern soll.

anderes Prob, kann ich einen Video Player in eine Gui mit einbauen? (Is ein anderes Prog)

wenn ja wie?

Zitat von Apollo 13

hey mal ne kurze Frage...für mich hat das alles den Anschein, als würden wir (also jetzt nicht ich xD) dir dein ganzes Script/Programm schreiben. Wie wärs mal selber etwas zu coden, auszuprobieren und dann mal nen Source anzuhängen, das man sich ein bisschen in dein Problem, etc. reindenken kann. Aba da war ja jetzt gar niX da...wenn du doch schon was probiert hast.
Darfst jetzt nicht falsch sehen, aber mir fällt das halt jetzt blos so auf.

Mfg
Apollo 13

Ich hab das Prog fertig nur ich hab ein paar fehler, und ich arbeite selber dran,

ich habe fragen, die mir helfen, ich lasse mir kein script schreiben.

hab wegen mit der Internet seite schon mal probiert ging aber net, jetzt geht es und hab send funcs dabei.

und das mit dem VideoPlayer ist nur eine frage, und ich hatte darum gebetten mit einen Tipp zu geben mehr nicht.

hotkeyset ("^!s", "_start")
HotKeySet ("^!e", "_email")
HotKeySet ("^!w", "_wintv")
HotKeySet ("^!p", "_photo")
HotKeySet ("^!u", "_Ulead")
HotKeySet ("^!m", "_msn")
HotKeySet ("^!t", "_word")
HotKeySet ("^!x", "_excel")
HotKeySet ("^!d", "_downloader")
HotKeySet ("^!v", "_video")
HotKeySet ("^!r", "_rechner")
Hotkeyset ("^!a", "_write")
Hotkeyset ("^!r", "_run")
Hotkeyset ("^!ä", "_compi")
Hotkeyset ("^!h", "_help")
Hotkeyset ("^!y", "_youtube")
Hotkeyset ("^!f", "_forum")
HotKeySet ("^!c", "_cng")
HotKeySet ("^!k", "_kwick")
Hotkeyset ("^!g", "_google")
If not FileExists(@ScriptDir & "\Manager.ini") Then
$1 = FileOpenDialog ("ShutDown", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager.ini", @scriptdir, "ShutDown Pfad", $1)
EndIf
If not FileExists (@ScriptDir & "\Manager1.ini") Then
$2 = FileOpenDialog ("WinTV", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager1.ini", @scriptdir, "WinTV Pfad", $2)
EndIf
If not FileExists(@ScriptDir & "\Manager2.ini") Then
$3 = FileOpenDialog ("Photoshop", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager2.ini", @scriptdir, "Photoshop Pfad", $3)
EndIf
If not FileExists(@ScriptDir & "\Manager3.ini") Then
$4 = FileOpenDialog ("Ulead", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager3.ini", @scriptdir, "Ulead Pfad", $4)
EndIf
If not FileExists(@ScriptDir & "\Manager4.ini") Then
$5 = FileOpenDialog ("msn", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager4.ini", @scriptdir, "MSN Pfad", $5)
EndIf
If not FileExists(@ScriptDir & "\Manager5.ini") Then
$7 = FileOpenDialog ("word", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager5.ini", @scriptdir, "Word Pfad", $7)
EndIf
If not FileExists(@ScriptDir & "\Manager6.ini") Then
$8 = FileOpenDialog ("excel", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager6.ini", @scriptdir, "Excel Pfad", $8)
EndIf
If not FileExists(@ScriptDir & "\Manager7.ini") Then
$9 = FileOpenDialog ("downloader", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager7.ini", @scriptdir, "downloader Pfad", $9)
EndIf
If not FileExists(@ScriptDir & "\Manager8.ini") Then
$10 = FileOpenDialog ("video", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager8.ini", @scriptdir, "video Pfad", $10)
EndIf
If not FileExists(@ScriptDir & "\Manager10.ini") Then
$11 = FileOpenDialog ("rechner", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager10.ini", @scriptdir, "rechner Pfad", $11)
EndIf
If not FileExists(@ScriptDir & "\Manager11.ini") Then
$12 = FileOpenDialog ("Write", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager11.ini", @scriptdir, "Write Pfad", $12)
EndIf
If not FileExists(@ScriptDir & "\Manager12.ini") Then
$13 = FileOpenDialog ("run", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager12.ini", @scriptdir, "run Pfad", $13)
EndIf
If not FileExists(@ScriptDir & "\Manager13.ini") Then
$14 = FileOpenDialog ("compi", "Arbeitsplatz:\", "(*.exe)")
IniWrite ("Manager13.ini", @scriptdir, "compi Pfad", $14)
EndIf
If not FileExists(@ScriptDir & "\Manager14.ini") Then
$15 = FileOpenDialog ("help", "Arbeitsplatz:\", "")
IniWrite ("Manager14.ini", @scriptdir, "help Pfad", $15)
EndIf
Func _start()
Run ("ShutDown")
WinWait ("Datei öffnen - Sicherheitswarnung")
MouseClick ("left" ,568, 407, 1)
EndFunc
Func _email()
Run (@ProgramFilesDir & "\Outlook Express\msimn.exe")
EndFunc
Func _wintv()
Run ($2)
EndFunc
Func _photo()
Run ($3)
EndFunc
Func _Ulead()
Run ($4)
WinWaitActive ("Ulead VideoStudio")
MouseClick ("left", 480, 493, 1)
EndFunc
Func _msn()
Run ($5)
WinWaitActive ("Windows Live Messenger")
Send ("{enter}")
EndFunc
Func _word()
Run ($7)
EndFunc
Func _excel()
Run ($8)
EndFunc
Func _downloader()
Run ($9)
EndFunc
Func _video()
Run ($10)
EndFunc
Func _rechner()
Run ($11)
EndFunc
Func _write()
Run ($12)
EndFunc
Func _run()
Run ($13)
EndFunc
Func _compi()
Run ($14)
EndFunc
Func _help()
Run ($15)
EndFunc
While 1
Sleep (1000)
Wend

Bei mir kommt immer ein fehler,

und die Ini daten werden nicht in dem Ordner des Scriptes des Progs gespeichert.

Kann mir einer sagen warum?

Gruß Nismo, und vllt findet ihr den Fehler

das versteh ich grad nicht, bei Ini write steht ja @scriptdir, aber halt an zweiter stelle, und bei der anderen au.

kannst du es vllt etwas genauer erklären^^^.

und dann anderes ich habe eine Gui gemacht mit dem Koda,

#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 780, 447, 196, 157)
GUISetBkColor(0x3D95FF)
$Serienname = GUICtrlCreateInput("Serienname", 16, 64, 161, 21)
$Folgennummer = GUICtrlCreateInput("Folgennummer", 16, 104, 161, 21)
$Suche = GUICtrlCreateButton("Suche", 56, 144, 89, 25, 0)
$List1 = GUICtrlCreateList("", 344, 8, 185, 240)
GUICtrlSetData(-1, "Beschreibung:")
GUICtrlSetBkColor(-1, 0x9DB9EB)
$Skins = GUICtrlCreateButton("Skins", 592, 352, 121, 25, 0)
$Pic1 = GUICtrlCreatePic("", 0, 0, 185, 185, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic("D:\Eigene Dateien\kingblade_bearbeitet-2.jpg", 536, 232, 241, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Avi1 = GUICtrlCreateAvi("No File", -1, 536, 8, 241, 177)
$OpenSearch = GUICtrlCreateButton("OpenSearch", 32, 16, 129, 25, 0)
$List2 = GUICtrlCreateList("", 192, 8, 145, 175)
GUICtrlSetBkColor(-1, 0x9DB9EB)
$Pic3 = GUICtrlCreatePic("D:\Eigene Dateien\logo.jpg", 8, 192, 321, 241, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Entwickelt = GUICtrlCreateLabel("Entwickelt", 376, 280, 122, 37)
GUICtrlSetFont(-1, 20, 800, 2, "Monotype Corsiva")
$bei = GUICtrlCreateLabel("bei", 416, 336, 34, 37)
GUICtrlSetFont(-1, 20, 800, 2, "Monotype Corsiva")
$Nismo = GUICtrlCreateLabel("Nismo", 400, 392, 72, 37)
GUICtrlSetFont(-1, 20, 800, 2, "Monotype Corsiva")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $List1
EndSwitch
WEnd

Und da sind zwei bilder, wie bekomme ich das hin das die Bilder auch auf dem PC meiner Mum zu sehen sind?

muss ich die erst in ne Variable packen mit FileInstall?

hey und gute Abend ich habe ein Prob.

undzwar will cih einen Button eine Funktion geben, aber die nimt er mir nciht an, vllt könnt ihr mir helfen.

Der Button

$Suche = GUICtrlCreateButton("Suche", 56, 144, 89, 25, 0)

Die Function die der Button haben soll

$msg = Guigetmsg
if $msg = $Suche then
FileSelectFolder ( "Hey", "")
EndIf

Des FileSelectFolder soll sich öffnen duch den Tasten druck, kann mir da jemand helfen?

Bitte um jede Hilfe, gruß Nismo

danke für die schnelle antwort aber, autoit schreit dann immer, nach Select oder Switch statment, wenn ich das Prog öffne.

Welche Variante gibt es noch?

Mit Gui hab ich absolut keine ahnung

Zitat von Oscar

Und Du glaubst, dass es egal ist, wohin man @ScriptDir schreibt?
Schau Dir in der Hilfe mal die Parameter an, mit denen man IniWrite aufrufen muss.

Entweder mit FileInstall in die Exe integrieren oder zusammen mit der Exe weitergeben.

Danke, hab das jetzt anders gelöst, hab mit Fileinstall rumprobiert, aber hat mir das nie in den Ordner gepackt wo ich das script habe, egal, es sind jetzt alle bilder da, so wie sie sein sollen.

Trotzdem thx